emacs/lisp/add-log.el

57 (defcustom add-log-current-defun-function nil
58   "*If non-nil, function to guess name of surrounding function.
60 Returns function's name as a string, or nil if outside a function."
61   :type '(choice (const nil) function)
67 This defaults to the value returned by the function `user-full-name'."
93 		(function :tag "Other"))
134 (defcustom add-log-buffer-file-name-function nil
135   "If non-nil, function to call to identify the full filename of a buffer.
136 This function is called with no argument.  If this is nil, the default is to
138   :type '(choice (const nil) function)
141 (defcustom add-log-file-name-function nil
142   "If non-nil, function to call to identify the filename for a ChangeLog entry.
143 This function is called with one argument, the value of variable
146   :type '(choice (const nil) function)
195   '((t (:inherit font-lock-function-name-face)))
218 (defface change-log-function
224 (put 'change-log-function-face 'face-alias 'change-log-function)
269     ("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 'change-log-function))
339       (indent-region (point-min) (point-max))
460     (if add-log-file-name-function
461 	(funcall add-log-file-name-function buffer-file)
505 	 (buf-file-name (if add-log-buffer-file-name-function
506 			    (funcall add-log-buffer-file-name-function)
603 	   (indent-relative-maybe))
614 	   (indent-to left-margin)
617     ;; Now insert the function name, if we have one.
621 	;; No function name, so put in a colon unless we have just a star.
627       ;; Make it easy to get rid of the function name.
633       ;; See if the prev function name has a message yet or not.
665 (defvar change-log-indent-text 0)
667 (defun change-log-indent ()
668   (let* ((indent
679 	      (+ (current-left-margin) change-log-indent-text))
681 	 (pos (save-excursion (indent-line-to indent) (point))))
685 (defvar smerge-resolve-function)
697 	indent-tabs-mode t
699   (set (make-local-variable 'fill-paragraph-function)
701   (set (make-local-variable 'indent-line-function) 'change-log-indent)
702   (set (make-local-variable 'tab-always-indent) nil)
713   (set (make-local-variable 'smerge-resolve-function)
741 (defvar add-log-lisp-like-modes
742   '(emacs-lisp-mode lisp-mode scheme-mode dsssl-mode lisp-interaction-mode)
757   "Return name of function definition point is in, or nil.
766 `add-log-current-defun-function'.
772 	  (cond (add-log-current-defun-function
773 		 (funcall add-log-current-defun-function))
774 		((memq major-mode add-log-lisp-like-modes)
828 		     ;; the function close, but the position we prefer
891 			 ;; Ordinary C function syntax.
903 				;; real start of function.
909 				  ;; comments before the function.
974 		;; `add-log-current-defun-function'.  This applies to
1044   "Function to be used in `smerge-resolve-function'."