/[emacs]/emacs/lisp/progmodes/ada-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/ada-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.63 by lute, Thu May 26 16:39:27 2005 UTC revision 1.64 by lektu, Tue Jun 14 15:23:26 2005 UTC
# Line 1462  The standard casing rules will no longer Line 1462  The standard casing rules will no longer
1462             (setq file-name (car ada-case-exception-file)))             (setq file-name (car ada-case-exception-file)))
1463            (t            (t
1464             (error (concat "No exception file specified. "             (error (concat "No exception file specified. "
1465                            "See variable ada-case-exception-file."))))                            "See variable ada-case-exception-file"))))
1466    
1467      (set-syntax-table ada-mode-symbol-syntax-table)      (set-syntax-table ada-mode-symbol-syntax-table)
1468      (unless word      (unless word
# Line 1501  word itself has a special casing." Line 1501  word itself has a special casing."
1501                  (car ada-case-exception-file))                  (car ada-case-exception-file))
1502                 (t                 (t
1503                  (error (concat "No exception file specified. "                  (error (concat "No exception file specified. "
1504                                 "See variable ada-case-exception-file."))))))                                 "See variable ada-case-exception-file"))))))
1505    
1506      ;;  Find the substring to define as an exception. Order is: the parameter,      ;;  Find the substring to define as an exception. Order is: the parameter,
1507      ;;  if any, or the selected region, or the word under the cursor      ;;  if any, or the selected region, or the word under the cursor
# Line 5398  This function typically is to be hooked Line 5398  This function typically is to be hooked
5398            (setq body-file (ada-get-body-name))            (setq body-file (ada-get-body-name))
5399            (if body-file            (if body-file
5400                (find-file body-file)                (find-file body-file)
5401              (error "No body found for the package. Create it first."))              (error "No body found for the package. Create it first"))
5402    
5403            (save-restriction            (save-restriction
5404              (widen)              (widen)

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26