From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Nov 2001 22:51:11 +0000 (+0000)
Subject: (princ-list, checkdoc-read-event, add-to-list): Delete compatibility code.
X-Git-Tag: ttn-vms-21-2-B4~18419
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c13599b603f3f49919895fbcca2964254dd5138f;p=emacs.git

(princ-list, checkdoc-read-event, add-to-list): Delete compatibility code.
(checkdoc-next-message-error): Doc fix.
---

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 899fe6848a9..8c8472272e2 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -449,32 +449,13 @@ be re-created.")
   (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 @@ perform the fix."
       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