andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(auto-insert-alist): Use user-mail-address.

Browse source
This commit is contained in:
Richard M. Stallman 1998-11-29 21:12:28 +00:00
parent 764b077c71
commit c5f7d53647
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/autoinsert.el
View file

@ -151,7 +151,7 @@ If this contains a %s, that will be replaced by the matching rule."
;; Author: " (user-full-name)
'(if (search-backward "&" (save-excursion (beginning-of-line 1) (point)) t)
(replace-match (capitalize (user-login-name)) t t))
'(end-of-line 1) " <" (user-login-name) ?@ (system-name) ">
'(end-of-line 1) " <" (progn user-mail-address) ">
;; Keywords: "
'(require 'finder)
;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords)))