mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 02:31:23 -07:00
Code Issues Projects Releases Wiki Activity

(build-mail-abbrevs): Do substitute-in-file-name on the abbrev, for `source'.

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-01 20:25:42 +00:00
parent c77a81cf65
commit 94142e7881
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/mail/mailabbrev.el
View file

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