aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1997-09-24 16:38:24 +0000
committerKarl Heuer1997-09-24 16:38:24 +0000
commit3f172d5d6560b0a367ce3d720b067e0e84ddd6d9 (patch)
treedbcbc8d856018bb295cdd539a5f63b7eee0857f9
parenta137e62c850e0c3f09d5683f1bbaed7293755da5 (diff)
downloademacs-3f172d5d6560b0a367ce3d720b067e0e84ddd6d9.tar.gz
emacs-3f172d5d6560b0a367ce3d720b067e0e84ddd6d9.zip
(term-if-emacs19): Recognize version 20.
-rw-r--r--lisp/term.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/term.el b/lisp/term.el
index 141f874c285..5ca95e3e511 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -634,9 +634,10 @@ Buffer local variable.")
634(put 'term-scroll-show-maximum-output 'permanent-local t) 634(put 'term-scroll-show-maximum-output 'permanent-local t)
635(put 'term-ptyp 'permanent-local t) 635(put 'term-ptyp 'permanent-local t)
636 636
637;; Do FORMS if running under Emacs-19. 637;; Do FORMS if running under Emacs 19 or later.
638(defmacro term-if-emacs19 (&rest forms) 638(defmacro term-if-emacs19 (&rest forms)
639 (if (string-match "^19" emacs-version) (cons 'progn forms))) 639 (if (string-match "^\\(19\\|[2-9][0-9]\\)" emacs-version)
640 (cons 'progn forms)))
640;; True if running under XEmacs (previously Lucid Emacs). 641;; True if running under XEmacs (previously Lucid Emacs).
641(defmacro term-is-xemacs () '(string-match "Lucid" emacs-version)) 642(defmacro term-is-xemacs () '(string-match "Lucid" emacs-version))
642;; Do FORM if running under XEmacs (previously Lucid Emacs). 643;; Do FORM if running under XEmacs (previously Lucid Emacs).