[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el [lexbind]

[Miles Bader]

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)