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 |
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)) |