[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el [lexbind] |
Date: |
Tue, 06 Jul 2004 07:11:04 -0400 |
Index: emacs/lisp/progmodes/ada-mode.el
diff -c emacs/lisp/progmodes/ada-mode.el:1.50.2.4
emacs/lisp/progmodes/ada-mode.el:1.50.2.5
*** emacs/lisp/progmodes/ada-mode.el:1.50.2.4 Tue Apr 27 14:08:32 2004
--- emacs/lisp/progmodes/ada-mode.el Tue Jul 6 09:23:46 2004
***************
*** 1466,1473 ****
;; 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)
(add-to-list 'ada-case-exception (cons word t))
)
--- 1466,1473 ----
;; 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-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,1526 ****
;; 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)
(add-to-list 'ada-case-exception-substring (cons word t))
)
--- 1519,1526 ----
;; 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-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,1556 ****
(if (char-equal (string-to-char word) ?*)
(progn
(setq word (substring word 1))
! (unless (assoc-ignore-case word ada-case-exception-substring)
(add-to-list 'ada-case-exception-substring (cons word t))))
! (unless (assoc-ignore-case word ada-case-exception)
(add-to-list 'ada-case-exception (cons word t)))))
(forward-line 1))
--- 1548,1556 ----
(if (char-equal (string-to-char word) ?*)
(progn
(setq word (substring word 1))
! (unless (assoc-string word ada-case-exception-substring t)
(add-to-list 'ada-case-exception-substring (cons word t))))
! (unless (assoc-string word ada-case-exception t)
(add-to-list 'ada-case-exception (cons word t)))))
(forward-line 1))
***************
*** 1618,1625 ****
(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))
(progn
(delete-region start end)
--- 1618,1625 ----
(point)))
match)
;; If we have an exception, replace the word by the correct casing
! (if (setq match (assoc-string (buffer-substring start end)
! ada-case-exception t))
(progn
(delete-region start end)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el [lexbind],
Miles Bader <=