[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el |
Date: |
Sat, 17 Nov 2001 17:51:11 -0500 |
Index: emacs/lisp/emacs-lisp/checkdoc.el
diff -u emacs/lisp/emacs-lisp/checkdoc.el:1.22
emacs/lisp/emacs-lisp/checkdoc.el:1.23
--- emacs/lisp/emacs-lisp/checkdoc.el:1.22 Sun Nov 11 15:06:58 2001
+++ emacs/lisp/emacs-lisp/checkdoc.el Sat Nov 17 17:51:11 2001
@@ -449,32 +449,13 @@
(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.
(if (fboundp 'char=)
(defalias 'checkdoc-char= 'char=)
(defalias 'checkdoc-char= '=))
-
-;; Emacs 19.28 and earlier don't have the handy 'add-to-list function
-(if (fboundp 'add-to-list)
-
- (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))
+;; Read events, not characters
+(defalias 'checkdoc-read-event 'read-event)
;;; User level commands
;;
@@ -764,7 +745,7 @@
msg)))
(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
`checkdoc-next-error' for details on the return value.
Argument ENABLE-FIX turns on the auto-fix feature. This argument