[Emacs-diffs] Changes to emacs/lisp/dabbrev.el

[Miles Bader]

Index: emacs/lisp/dabbrev.el
diff -c emacs/lisp/dabbrev.el:1.66 emacs/lisp/dabbrev.el:1.67
*** emacs/lisp/dabbrev.el:1.66  Sun Jan  5 20:19:59 2003
--- emacs/lisp/dabbrev.el       Tue Feb  4 06:09:53 2003
***************
*** 751,757 ****
  IGNORE-CASE non-nil means ignore case when searching.
  This sets `dabbrev--last-direction' to 1 or -1 according
  to the direction in which the occurrence was actually found.
! It sets `dabbrev--last-expansion-location' to the location 
  of the start of the occurrence."
    (save-excursion
      ;; If we were scanning something other than the current buffer,
--- 751,757 ----
  IGNORE-CASE non-nil means ignore case when searching.
  This sets `dabbrev--last-direction' to 1 or -1 according
  to the direction in which the occurrence was actually found.
! It sets `dabbrev--last-expansion-location' to the location
  of the start of the occurrence."
    (save-excursion
      ;; If we were scanning something other than the current buffer,
***************
*** 921,927 ****
      ;; record if we upcased or downcased the first word,
      ;; in order to do likewise for subsequent words.
      (and record-case-pattern
!        (setq dabbrev--last-case-pattern 
               (and use-case-replace
                    (cond ((equal abbrev (upcase abbrev)) 'upcase)
                          ((equal abbrev (downcase abbrev)) 'downcase)))))
--- 921,927 ----
      ;; record if we upcased or downcased the first word,
      ;; in order to do likewise for subsequent words.
      (and record-case-pattern
!        (setq dabbrev--last-case-pattern
               (and use-case-replace
                    (cond ((equal abbrev (upcase abbrev)) 'upcase)
                          ((equal abbrev (downcase abbrev)) 'downcase)))))