[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 [emacs-unicode
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el [emacs-unicode-2] |
Date: |
Mon, 28 Jun 2004 04:36:33 -0400 |
Index: emacs/lisp/progmodes/ada-mode.el
diff -c emacs/lisp/progmodes/ada-mode.el:1.55.4.1
emacs/lisp/progmodes/ada-mode.el:1.55.4.2
*** emacs/lisp/progmodes/ada-mode.el:1.55.4.1 Fri Apr 16 12:50:33 2004
--- emacs/lisp/progmodes/ada-mode.el Mon Jun 28 07:29:41 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 [emacs-unicode-2],
Miles Bader <=