Mercurial > emacs

changeset 40412:acbdf8dbf6d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(version18p, version20p): Vars deleted. All uses removed--assume Emacs version is >= 20.
author Richard M. Stallman <rms@gnu.org>
date Sun, 28 Oct 2001 14:21:59 +0000
parents 61922b29fc83
children eb91dd2d9bcf
files lisp/textmodes/ispell.el
diffstat 1 files changed, 6 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el	Sun Oct 28 14:20:39 2001 +0000
+++ b/lisp/textmodes/ispell.el	Sun Oct 28 14:21:59 2001 +0000
@@ -204,23 +204,13 @@
 (defconst xemacsp (string-match "Lucid\\|XEmacs" emacs-version)
   "Non nil if using XEmacs.")
 
-;;;###autoload
-(defconst version18p (string-match "18\\.[0-9]+\\.[0-9]+" emacs-version)
-  "Non nil if using emacs version 18.")
-
-;;;###autoload
-(defconst version20p (string-match "20\\.[0-9]+\\.[0-9]+" emacs-version)
-  "Non nil if using emacs version 20.")
-
 (defconst ispell-graphic-p
   (if (fboundp 'display-graphic-p)
       (display-graphic-p)
     xemacsp)
   "True if running on a `graphics capable' display.")
 
-(and (not version18p)
-     (not (boundp 'epoch::version))
-     (defalias 'ispell-check-version 'check-ispell-version))
+(defalias 'ispell-check-version 'check-ispell-version)
 
 ;;; **********************************************************************
 ;;; The following variables should be set according to personal preference
@@ -818,7 +808,6 @@
 (defvar ispell-menu-map-needed
   ;; only needed when not version 18 and not XEmacs.
   (and (not ispell-menu-map)
-       (not version18p)
        (not xemacsp)
        'reload))
 
@@ -941,7 +930,6 @@
 
 ;;; XEmacs versions 19 & 20
 (if (and xemacsp
-	 (not version18p)
 	 (featurep 'menubar)
 	 (null ispell-menu-xemacs)
 	 (not (and (boundp 'infodock-version) infodock-version)))
@@ -1888,7 +1876,7 @@
 	      (kill-buffer "*Ispell Help*"))
 	  (select-window (minibuffer-window))
 	  (erase-buffer)
-	  (if (not version18p) (message nil))
+	  (message nil)
 	  ;;(set-minibuffer-window (selected-window))
 	  (enlarge-window 2)
 	  (insert (concat help-1 "\n" help-2 "\n" help-3))
@@ -2058,8 +2046,7 @@
   (cond
    (xemacsp
     (ispell-highlight-spelling-error-xemacs start end highlight))
-   ((and (not version18p)
-	 (featurep 'faces)
+   ((and (featurep 'faces)
 	 (or (and (fboundp 'display-color-p) (display-color-p))
 	     window-system))
     (ispell-highlight-spelling-error-overlay start end highlight))
@@ -2234,9 +2221,7 @@
 	(set-process-coding-system ispell-process (ispell-get-coding-system)
 				   (ispell-get-coding-system)))
     ;; Get version ID line
-    (if (not version18p)
-	(ispell-accept-output 3)
-      (ispell-accept-output))
+    (ispell-accept-output 3)
     ;; get more output if filter empty?
     (if (null ispell-filter) (ispell-accept-output 3))
     (cond ((null ispell-filter)
@@ -2245,9 +2230,7 @@
 	    (stringp (car ispell-filter))
 	    (if (string-match "warning: " (car ispell-filter))
 		(progn
-		  (if (not version18p)
-		      (ispell-accept-output 3) ; was warn msg.
-		    (ispell-accept-output))
+		  (ispell-accept-output 3) ; was warn msg.
 		  (stringp (car ispell-filter)))
 	      (null (cdr ispell-filter)))
 	    (string-match "^@(#) " (car ispell-filter)))
@@ -2286,8 +2269,7 @@
 	      (kill-process ispell-process))
 	  (while (not (or (eq (ispell-process-status) 'exit)
 			  (eq (ispell-process-status) 'signal)))
-	    (if (or xemacsp version20p) (sleep-for 0.25)
-	      (sleep-for 0 250))))
+	    (sleep-for 0.25)))
       ;; synchronous processes
       (ispell-send-string "\n")		; make sure side effects occurred.
       (kill-buffer ispell-output-buffer)