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

Diff of /emacs/lisp/files.el

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

revision 1.540 by rms, Mon Dec 3 00:02:52 2001 UTC revision 1.541 by eliz, Tue Dec 4 18:25:57 2001 UTC
# Line 312  editing a remote file." Line 312  editing a remote file."
312    :version "21.1")    :version "21.1")
313    
314  (defcustom save-abbrevs t  (defcustom save-abbrevs t
315    "*Non-nil means save word abbrevs too when files are saved."    "*Non-nil means save word abbrevs too when files are saved.
316    :type 'boolean  If `silently', don't ask the user before saving."
317      :type '(choice (const t) (const nil) (const silently))
318    :group 'abbrev)    :group 'abbrev)
319    
320  (defcustom find-file-run-dired t  (defcustom find-file-run-dired t
# Line 2804  to consider it or not when called with t Line 2805  to consider it or not when called with t
2805              (and save-abbrevs abbrevs-changed              (and save-abbrevs abbrevs-changed
2806                   (progn                   (progn
2807                     (if (or arg                     (if (or arg
2808                               (eq save-abbrevs 'silently)
2809                             (y-or-n-p (format "Save abbrevs in %s? "                             (y-or-n-p (format "Save abbrevs in %s? "
2810                                               abbrev-file-name)))                                               abbrev-file-name)))
2811                         (write-abbrev-file nil))                         (write-abbrev-file nil))

Legend:
Removed from v.1.540  
changed lines
  Added in v.1.541

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