emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/abbrev.el [lexbind]
Date: Sat, 04 Sep 2004 05:44:24 -0400

Index: emacs/lisp/abbrev.el
diff -c emacs/lisp/abbrev.el:1.30.4.4 emacs/lisp/abbrev.el:1.30.4.5
*** emacs/lisp/abbrev.el:1.30.4.4       Tue Jul  6 10:10:46 2004
--- emacs/lisp/abbrev.el        Sat Sep  4 09:19:26 2004
***************
*** 29,35 ****
  ;;; 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."
    :type 'boolean
--- 29,35 ----
  ;;; Code:
  
  (defcustom only-global-abbrevs nil
!   "Non-nil means user plans to use global abbrevs only.
  This makes the commands that normally define mode-specific abbrevs
  define global abbrevs instead."
    :type 'boolean
***************
*** 59,71 ****
    :group 'abbrev-mode)
  
  
! (defvar edit-abbrevs-map nil
    "Keymap used in `edit-abbrevs'.")
- (if edit-abbrevs-map
-     nil
-   (setq edit-abbrevs-map (make-sparse-keymap))
-   (define-key edit-abbrevs-map "\C-x\C-s" 'edit-abbrevs-redefine)
-   (define-key edit-abbrevs-map "\C-c\C-c" 'edit-abbrevs-redefine))
  
  (defun kill-all-abbrevs ()
    "Undefine all defined abbrevs."
--- 59,70 ----
    :group 'abbrev-mode)
  
  
! (defvar edit-abbrevs-map
!   (let ((map (make-sparse-keymap)))
!     (define-key map "\C-x\C-s" 'edit-abbrevs-redefine)
!     (define-key map "\C-c\C-c" 'edit-abbrevs-redefine)
!     map)
    "Keymap used in `edit-abbrevs'.")
  
  (defun kill-all-abbrevs ()
    "Undefine all defined abbrevs."
***************
*** 195,201 ****
    (setq abbrevs-changed nil))
  
  (defun quietly-read-abbrev-file (&optional file)
!   "Read abbrev definitions from file written with write-abbrev-file.
  Optional argument FILE is the name of the file to read;
  it defaults to the value of `abbrev-file-name'.
  Does not display any message."
--- 194,200 ----
    (setq abbrevs-changed nil))
  
  (defun quietly-read-abbrev-file (&optional file)
!   "Read abbrev definitions from file written with `write-abbrev-file'.
  Optional argument FILE is the name of the file to read;
  it defaults to the value of `abbrev-file-name'.
  Does not display any message."




reply via email to

[Prev in Thread] Current Thread [Next in Thread]