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

[Pavel Janík]

Index: emacs/lisp/abbrev.el
diff -c emacs/lisp/abbrev.el:1.29 emacs/lisp/abbrev.el:1.30
*** emacs/lisp/abbrev.el:1.29   Fri Nov 16 09:15:23 2001
--- emacs/lisp/abbrev.el        Sat Jan  5 14:02:27 2002
***************
*** 28,34 ****
  
  ;;; Code:
  
! (defcustom only-global-abbrevs nil 
    "*t means user plans to use global abbrevs only.
  This makes the commands that normally define mode-specific abbrevs
  define global abbrevs instead."
--- 28,34 ----
  
  ;;; Code:
  
! (defcustom only-global-abbrevs nil
    "*t means user plans to use global abbrevs only.
  This makes the commands that normally define mode-specific abbrevs
  define global abbrevs instead."
***************
*** 103,109 ****
        (setq found (car tables)))
        (setq tables (cdr tables)))
      found))
!     
  (defun prepare-abbrev-list-buffer (&optional local)
    (save-excursion
      (let ((table local-abbrev-table))
--- 103,109 ----
        (setq found (car tables)))
        (setq tables (cdr tables)))
      found))
! 
  (defun prepare-abbrev-list-buffer (&optional local)
    (save-excursion
      (let ((table local-abbrev-table))
***************
*** 254,260 ****
            (y-or-n-p (format "%s expands to \"%s\"; redefine? "
                              name (abbrev-expansion name table))))
        (define-abbrev table (downcase name) exp))))
!       
  (defun inverse-add-mode-abbrev (arg)
    "Define last word before point as a mode-specific abbrev.
  With prefix argument N, defines the Nth word before point.
--- 254,260 ----
            (y-or-n-p (format "%s expands to \"%s\"; redefine? "
                              name (abbrev-expansion name table))))
        (define-abbrev table (downcase name) exp))))
! 
  (defun inverse-add-mode-abbrev (arg)
    "Define last word before point as a mode-specific abbrev.
  With prefix argument N, defines the Nth word before point.
***************
*** 263,269 ****
    (interactive "p")
    (inverse-add-abbrev
     (if only-global-abbrevs
!        global-abbrev-table 
       (or local-abbrev-table
         (error "No per-mode abbrev table")))
     "Mode" arg))
--- 263,269 ----
    (interactive "p")
    (inverse-add-abbrev
     (if only-global-abbrevs
!        global-abbrev-table
       (or local-abbrev-table
         (error "No per-mode abbrev table")))
     "Mode" arg))