/[emacs]/emacs/lisp/abbrev.el
ViewVC logotype

Diff of /emacs/lisp/abbrev.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by rms, Sun Jun 13 21:55:49 2004 UTC revision 1.38 by jpw, Sun Aug 1 03:55:30 2004 UTC
# Line 29  Line 29 
29  ;;; Code:  ;;; Code:
30    
31  (defcustom only-global-abbrevs nil  (defcustom only-global-abbrevs nil
32    "*t means user plans to use global abbrevs only.    "Non-nil means user plans to use global abbrevs only.
33  This makes the commands that normally define mode-specific abbrevs  This makes the commands that normally define mode-specific abbrevs
34  define global abbrevs instead."  define global abbrevs instead."
35    :type 'boolean    :type 'boolean
# Line 59  to enable or disable Abbrev mode in the Line 59  to enable or disable Abbrev mode in the
59    :group 'abbrev-mode)    :group 'abbrev-mode)
60    
61    
62  (defvar edit-abbrevs-map nil  (defvar edit-abbrevs-map
63      (let ((map (make-sparse-keymap)))
64        (define-key map "\C-x\C-s" 'edit-abbrevs-redefine)
65        (define-key map "\C-c\C-c" 'edit-abbrevs-redefine)
66        map)
67    "Keymap used in `edit-abbrevs'.")    "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))  
68    
69  (defun kill-all-abbrevs ()  (defun kill-all-abbrevs ()
70    "Undefine all defined abbrevs."    "Undefine all defined abbrevs."
# Line 195  Optional second argument QUIETLY non-nil Line 194  Optional second argument QUIETLY non-nil
194    (setq abbrevs-changed nil))    (setq abbrevs-changed nil))
195    
196  (defun quietly-read-abbrev-file (&optional file)  (defun quietly-read-abbrev-file (&optional file)
197    "Read abbrev definitions from file written with write-abbrev-file.    "Read abbrev definitions from file written with `write-abbrev-file'.
198  Optional argument FILE is the name of the file to read;  Optional argument FILE is the name of the file to read;
199  it defaults to the value of `abbrev-file-name'.  it defaults to the value of `abbrev-file-name'.
200  Does not display any message."  Does not display any message."

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26