# HG changeset patch # User Juanma Barranquero # Date 1125312097 0 # Node ID 9dda4c47e83d5d856b778be826f73db73ef8f8e5 # Parent ba16937f9b3f9b46ee4e9e3c98de1688843eab37 (compilation-error-regexp-alist, compilation-mode-font-lock-keywords): Add defvars. (checkdoc-interactive-loop): "?\ " -> "?\s". diff -r ba16937f9b3f -r 9dda4c47e83d lisp/emacs-lisp/checkdoc.el --- a/lisp/emacs-lisp/checkdoc.el Mon Aug 29 10:15:00 2005 +0000 +++ b/lisp/emacs-lisp/checkdoc.el Mon Aug 29 10:41:37 2005 +0000 @@ -190,6 +190,9 @@ (defmacro defcustom (var value doc &rest args) `(defvar ,var ,value ,doc)))) +(defvar compilation-error-regexp-alist) +(defvar compilation-mode-font-lock-keywords) + (defcustom checkdoc-autofix-flag 'semiautomatic "*Non-nil means attempt auto-fixing of doc strings. If this value is the symbol `query', then the user is queried before @@ -653,7 +656,7 @@ "No Additional style errors. Continuing...") (sit-for 2)))))) ;; Move to the next error (if available) - ((or (checkdoc-char= c ?n) (checkdoc-char= c ?\ )) + ((or (checkdoc-char= c ?n) (checkdoc-char= c ?\s)) (let ((ne (funcall findfunc nil))) (if (not ne) (if showstatus