diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-05-22 21:51:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-05-22 21:51:17 +0000 |
| commit | c2fb64156461579bcc3382a665429520b381231a (patch) | |
| tree | 223853b7fdc3f1557dcdc1fde1a529f9190f1f05 /lisp/progmodes/ada-mode.el | |
| parent | fe93c80378e9b44b4853374e1450b526a1f1e33e (diff) | |
| download | emacs-c2fb64156461579bcc3382a665429520b381231a.tar.gz | |
Use assoc-string, not assoc-ignore-case.
Diffstat (limited to 'lisp/progmodes/ada-mode.el')
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index abc8db6d2c3..f7688e24069 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -1466,8 +1466,8 @@ The standard casing rules will no longer apply to this word." ;; If the word is already in the list, even with a different casing ;; we simply want to replace it. (if (and (not (equal ada-case-exception '())) - (assoc-ignore-case word ada-case-exception)) - (setcar (assoc-ignore-case word ada-case-exception) word) + (assoc-string word ada-case-exception t)) + (setcar (assoc-string word ada-case-exception t) word) (add-to-list 'ada-case-exception (cons word t)) ) @@ -1519,8 +1519,8 @@ word itself has a special casing." ;; If the word is already in the list, even with a different casing ;; we simply want to replace it. (if (and (not (equal ada-case-exception-substring '())) - (assoc-ignore-case word ada-case-exception-substring)) - (setcar (assoc-ignore-case word ada-case-exception-substring) word) + (assoc-string word ada-case-exception-substring t)) + (setcar (assoc-string word ada-case-exception-substring t) word) (add-to-list 'ada-case-exception-substring (cons word t)) ) @@ -1548,9 +1548,9 @@ word itself has a special casing." (if (char-equal (string-to-char word) ?*) (progn (setq word (substring word 1)) - (unless (assoc-ignore-case word ada-case-exception-substring) + (unless (assoc-string word ada-case-exception-substring t) (add-to-list 'ada-case-exception-substring (cons word t)))) - (unless (assoc-ignore-case word ada-case-exception) + (unless (assoc-string word ada-case-exception t) (add-to-list 'ada-case-exception (cons word t))))) (forward-line 1)) @@ -1618,8 +1618,8 @@ the exceptions defined in `ada-case-exception-file'." (point))) match) ;; If we have an exception, replace the word by the correct casing - (if (setq match (assoc-ignore-case (buffer-substring start end) - ada-case-exception)) + (if (setq match (assoc-string (buffer-substring start end) + ada-case-exception t)) (progn (delete-region start end) |