Commit c13599b6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(princ-list, checkdoc-read-event, add-to-list): Delete compatibility code.

(checkdoc-next-message-error): Doc fix.
parent 9056f1c9
...@@ -449,32 +449,13 @@ be re-created.") ...@@ -449,32 +449,13 @@ be re-created.")
(defalias 'checkdoc-call-eval-buffer 'eval-current-buffer) (defalias 'checkdoc-call-eval-buffer 'eval-current-buffer)
) )
;; Emacs 20 has this handy function.
(if (not (fboundp 'princ-list))
(defun princ-list (&rest args)
"Call `princ' on ARGS."
(mapcar 'princ args)))
;; Emacs 20s have MULE characters which don't equate to numbers. ;; Emacs 20s have MULE characters which don't equate to numbers.
(if (fboundp 'char=) (if (fboundp 'char=)
(defalias 'checkdoc-char= 'char=) (defalias 'checkdoc-char= 'char=)
(defalias 'checkdoc-char= '=)) (defalias 'checkdoc-char= '=))
;; Emacs 19.28 and earlier don't have the handy 'add-to-list function ;; Read events, not characters
(if (fboundp 'add-to-list) (defalias 'checkdoc-read-event 'read-event)
(defalias 'checkdoc-add-to-list 'add-to-list)
(defun checkdoc-add-to-list (list-var element)
"Add to the value of LIST-VAR the element ELEMENT if it isn't there yet."
(if (not (member element (symbol-value list-var)))
(set list-var (cons element (symbol-value list-var)))))
)
;; To be safe in new Emacsen, we want to read events, not characters
(if (fboundp 'read-event)
(defalias 'checkdoc-read-event 'read-event)
(defalias 'checkdoc-read-event 'read-char))
;;; User level commands ;;; User level commands
;; ;;
...@@ -764,7 +745,7 @@ perform the fix." ...@@ -764,7 +745,7 @@ perform the fix."
msg))) msg)))
(defun checkdoc-next-message-error (enable-fix) (defun checkdoc-next-message-error (enable-fix)
"Find and return the next checkdoc mesasge related error list, or nil. "Find and return the next checkdoc message related error list, or nil.
Only text for error and `y-or-n-p' strings are checked. See Only text for error and `y-or-n-p' strings are checked. See
`checkdoc-next-error' for details on the return value. `checkdoc-next-error' for details on the return value.
Argument ENABLE-FIX turns on the auto-fix feature. This argument Argument ENABLE-FIX turns on the auto-fix feature. This argument
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment