Commit 94142e78 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent c77a81cf
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment