dist/etc/add-log.el

13 ;;; (setq load-path
84   (setq change-log-mode-map (make-sparse-keymap))
131       (setq file-name (and change-log-default-name
137 	(setq file-name (or (and buffer-file-name
142 	    (setq file-name (expand-file-name (change-log-name) file-name)))
146 	(setq file-name (file-chase-links file-name))
147 	(setq file-name (expand-file-name file-name))
152 		      (progn (setq parent-dir
160 	    (setq file1 (expand-file-name
165 	      (setq file-name file1)))))
181       (setq add-log-full-name (user-full-name)))
183       (setq add-log-mailing-address user-mail-address))
186 	(setq add-log-full-name (read-input "Full name: " add-log-full-name))
191 	(setq add-log-mailing-address
197     (setq file-name (expand-file-name (find-change-log file-name)))
203 	 (setq entry (if (string-match
229     (setq paragraph-end (point))
306   (setq major-mode 'change-log-mode
427 					(setq tem (point))
443                              (setq beg (point))
474 				   (setq end (point))
479 				   (setq middle (point))
485 				     (setq end (point))
487 				     (setq middle (point))
491 					(setq middle (point)))
549   (setq get-method-definition-md