167 |
";;; " (file-name-nondirectory (buffer-file-name)) " --- " str " |
";;; " (file-name-nondirectory (buffer-file-name)) " --- " str " |
168 |
|
|
169 |
;; Copyright (C) " (substring (current-time-string) -4) " " |
;; Copyright (C) " (substring (current-time-string) -4) " " |
170 |
(getenv "ORGANIZATION") | "Free Software Foundation, Inc." " |
(getenv "ORGANIZATION") | (progn user-full-name) " |
171 |
|
|
172 |
;; Author: " (user-full-name) |
;; Author: " (user-full-name) |
173 |
'(if (search-backward "&" (line-beginning-position) t) |
'(if (search-backward "&" (line-beginning-position) t) |