From cea3855adc9bd3f19645ae48002f939fe953eed1 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 6 Feb 2001 17:25:36 +0000 Subject: [PATCH] (add-log-current-defun-function) (add-log-buffer-file-name-function, add-log-file-name-function): Fix :type. (change-log-mode) : Set SYNTAX-BEGIN. --- lisp/add-log.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/add-log.el b/lisp/add-log.el index 3ba7c75738..ce8130c4a4 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -53,7 +53,7 @@ "*If non-nil, function to guess name of surrounding function. It is used by `add-log-current-defun' in preference to built-in rules. Returns function's name as a string, or nil if outside a function." - :type 'function + :type '(choice (const nil) function) :group 'change-log) ;;;###autoload @@ -120,7 +120,7 @@ this variable." "*If non-nil, function to call to identify the full filename of a buffer. This function is called with no argument. If this is nil, the default is to use `buffer-file-name'." - :type 'function + :type '(choice (const nil) function) :group 'change-log) (defcustom add-log-file-name-function nil @@ -128,7 +128,7 @@ use `buffer-file-name'." This function is called with one argument, the value of variable `buffer-file-name' in that buffer. If this is nil, the default is to use the file's name relative to the directory of the change log file." - :type 'function + :type '(choice (const nil) function) :group 'change-log) @@ -580,7 +580,7 @@ Runs `change-log-mode-hook'." (set (make-local-variable 'version-control) 'never) (set (make-local-variable 'adaptive-fill-regexp) "\\s *") (set (make-local-variable 'font-lock-defaults) - '(change-log-font-lock-keywords t)) + '(change-log-font-lock-keywords t nil nil backward-paragraph)) (run-hooks 'change-log-mode-hook)) ;; It might be nice to have a general feature to replace this. The idea I -- 2.20.1