322 |
|
|
323 |
(defcustom save-abbrevs nil |
(defcustom save-abbrevs nil |
324 |
"*Non-nil means save word abbrevs too when files are saved. |
"*Non-nil means save word abbrevs too when files are saved. |
325 |
|
If `silently', don't ask the user before saving. |
326 |
Loading an abbrev file sets this to t." |
Loading an abbrev file sets this to t." |
327 |
:type 'boolean |
:type '(choice (const t) (const nil) (const silently)) |
328 |
:group 'abbrev) |
:group 'abbrev) |
329 |
|
|
330 |
(defcustom find-file-run-dired t |
(defcustom find-file-run-dired t |
2782 |
(and save-abbrevs abbrevs-changed |
(and save-abbrevs abbrevs-changed |
2783 |
(progn |
(progn |
2784 |
(if (or arg |
(if (or arg |
2785 |
|
(eq save-abbrevs 'silently) |
2786 |
(y-or-n-p (format "Save abbrevs in %s? " |
(y-or-n-p (format "Save abbrevs in %s? " |
2787 |
abbrev-file-name))) |
abbrev-file-name))) |
2788 |
(write-abbrev-file nil)) |
(write-abbrev-file nil)) |