Mercurial > emacs
comparison lisp/autoinsert.el @ 58242:239eb406bf92
(auto-insert-alist): Insert the user's name in copyright notice,
rather than Free Software Foundation, for the Emacs Lisp header case
too.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 15 Nov 2004 20:46:17 +0000 |
| parents | 4728f7603f2a |
| children | e6350e6a85be b637c617432f |
comparison
equal
deleted
inserted
replaced
| 58241:4aa6d60fc66c | 58242:239eb406bf92 |
|---|---|
| 165 (("\\.el\\'" . "Emacs Lisp header") | 165 (("\\.el\\'" . "Emacs Lisp header") |
| 166 "Short description: " | 166 "Short description: " |
| 167 ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str " | 167 ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str " |
| 168 | 168 |
| 169 ;; Copyright (C) " (substring (current-time-string) -4) " " | 169 ;; Copyright (C) " (substring (current-time-string) -4) " " |
| 170 (getenv "ORGANIZATION") | "Free Software Foundation, Inc." " | 170 (getenv "ORGANIZATION") | (progn user-full-name) " |
| 171 | 171 |
| 172 ;; Author: " (user-full-name) | 172 ;; Author: " (user-full-name) |
| 173 '(if (search-backward "&" (line-beginning-position) t) | 173 '(if (search-backward "&" (line-beginning-position) t) |
| 174 (replace-match (capitalize (user-login-name)) t t)) | 174 (replace-match (capitalize (user-login-name)) t t)) |
| 175 '(end-of-line 1) " <" (progn user-mail-address) "> | 175 '(end-of-line 1) " <" (progn user-mail-address) "> |