comparison lisp/emacs-lisp/checkdoc.el @ 65191:9dda4c47e83d

(compilation-error-regexp-alist, compilation-mode-font-lock-keywords): Add defvars. (checkdoc-interactive-loop): "?\ " -> "?\s".

65190:ba16937f9b3f

       nil)
     (defmacro custom-add-option (&rest args)
       nil)
     (defmacro defcustom (var value doc &rest args)
       `(defvar ,var ,value ,doc))))

(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
any change is made.  If the value is `automatic', then all changes are

			  (t
			   (message
			    "No Additional style errors.  Continuing...")
			   (sit-for 2))))))
	       ;; Move to the next error (if available)
	       ((or (checkdoc-char= c ?n) (checkdoc-char= c ?\ ))
		(let ((ne (funcall findfunc nil)))
		  (if (not ne)
		      (if showstatus
			  (setq returnme err-list
				err-list nil)

65191:9dda4c47e83d

       nil)
     (defmacro custom-add-option (&rest args)
       nil)
     (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
any change is made.  If the value is `automatic', then all changes are

			  (t
			   (message
			    "No Additional style errors.  Continuing...")
			   (sit-for 2))))))
	       ;; Move to the next error (if available)
	       ((or (checkdoc-char= c ?n) (checkdoc-char= c ?\s))
		(let ((ne (funcall findfunc nil)))
		  (if (not ne)
		      (if showstatus
			  (setq returnme err-list
				err-list nil)