procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rebuild-mail-abbrevs): FILE defaults to visited file.

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-25 21:34:09 +00:00
parent d270fe6e2d
commit cf37652765
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/mailabbrev.el
View file

@ -486,7 +486,7 @@ characters which may be a part of the name of a mail alias.")
t))))
(build-mail-abbrevs file))
(defun rebuild-mail-abbrevs (file)
(defun rebuild-mail-abbrevs (&optional file)
"Rebuild all the mail aliases from the given file."
(interactive (list
(let ((insert-default-directory t)
@ -497,6 +497,8 @@ characters which may be a part of the name of a mail alias.")
default-directory
(expand-file-name def default-directory)
t))))
(if (null file)
(setq file buffer-file-name))
(setq mail-abbrevs nil)
(build-mail-abbrevs file))