(build-mail-abbrevs): Pass just 1 arg to substitute-in-file-name.

This commit is contained in:
Richard M. Stallman 1993-10-01 22:40:49 +00:00
parent 2b878b4c6b
commit 8e1f920c03

View file

@ -202,7 +202,7 @@ no aliases, which is represented by this being a table with no entries.)")
(end-of-line)
(build-mail-abbrevs
(substitute-in-file-name
(buffer-substring (match-beginning 1) (match-end 1)) t)))
(buffer-substring (match-beginning 1) (match-end 1)))))
(re-search-forward "[ \t]+\\([^ \t\n]+\\)")
(let* ((name (buffer-substring
(match-beginning 1) (match-end 1)))