/[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.50.2.4 by miles, Tue Apr 27 14:08:32 2004 UTC revision 1.50.2.5 by miles, Tue Jul 6 09:23:46 2004 UTC
# Line 1466  The standard casing rules will no longer Line 1466  The standard casing rules will no longer
1466      ;;  If the word is already in the list, even with a different casing      ;;  If the word is already in the list, even with a different casing
1467      ;;  we simply want to replace it.      ;;  we simply want to replace it.
1468      (if (and (not (equal ada-case-exception '()))      (if (and (not (equal ada-case-exception '()))
1469               (assoc-ignore-case word ada-case-exception))               (assoc-string word ada-case-exception t))
1470          (setcar (assoc-ignore-case word ada-case-exception) word)          (setcar (assoc-string word ada-case-exception t) word)
1471        (add-to-list 'ada-case-exception (cons word t))        (add-to-list 'ada-case-exception (cons word t))
1472        )        )
1473    
# Line 1519  word itself has a special casing." Line 1519  word itself has a special casing."
1519      ;;  If the word is already in the list, even with a different casing      ;;  If the word is already in the list, even with a different casing
1520      ;;  we simply want to replace it.      ;;  we simply want to replace it.
1521      (if (and (not (equal ada-case-exception-substring '()))      (if (and (not (equal ada-case-exception-substring '()))
1522               (assoc-ignore-case word ada-case-exception-substring))               (assoc-string word ada-case-exception-substring t))
1523          (setcar (assoc-ignore-case word ada-case-exception-substring) word)          (setcar (assoc-string word ada-case-exception-substring t) word)
1524        (add-to-list 'ada-case-exception-substring (cons word t))        (add-to-list 'ada-case-exception-substring (cons word t))
1525        )        )
1526    
# Line 1548  word itself has a special casing." Line 1548  word itself has a special casing."
1548              (if (char-equal (string-to-char word) ?*)              (if (char-equal (string-to-char word) ?*)
1549                  (progn                  (progn
1550                    (setq word (substring word 1))                    (setq word (substring word 1))
1551                    (unless (assoc-ignore-case word ada-case-exception-substring)                    (unless (assoc-string word ada-case-exception-substring t)
1552                      (add-to-list 'ada-case-exception-substring (cons word t))))                      (add-to-list 'ada-case-exception-substring (cons word t))))
1553                (unless (assoc-ignore-case word ada-case-exception)                (unless (assoc-string word ada-case-exception t)
1554                  (add-to-list 'ada-case-exception (cons word t)))))                  (add-to-list 'ada-case-exception (cons word t)))))
1555    
1556            (forward-line 1))            (forward-line 1))
# Line 1618  the exceptions defined in `ada-case-exce Line 1618  the exceptions defined in `ada-case-exce
1618                                     (point)))                                     (point)))
1619              match)              match)
1620          ;;  If we have an exception, replace the word by the correct casing          ;;  If we have an exception, replace the word by the correct casing
1621          (if (setq match (assoc-ignore-case (buffer-substring start end)          (if (setq match (assoc-string (buffer-substring start end)
1622                                             ada-case-exception))                                        ada-case-exception t))
1623    
1624              (progn              (progn
1625                (delete-region start end)                (delete-region start end)

Legend:
Removed from v.1.50.2.4  
changed lines
  Added in v.1.50.2.5

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