Mercurial > emacs
changeset 19976:81065d2158f9
(term-if-emacs19): Recognize version 20.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 24 Sep 1997 16:38:24 +0000 |
| parents | 927a8710de05 |
| children | f5ea3a56adb5 |
| files | lisp/term.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term.el Wed Sep 24 16:29:39 1997 +0000 +++ b/lisp/term.el Wed Sep 24 16:38:24 1997 +0000 @@ -634,9 +634,10 @@ (put 'term-scroll-show-maximum-output 'permanent-local t) (put 'term-ptyp 'permanent-local t) -;; Do FORMS if running under Emacs-19. +;; Do FORMS if running under Emacs 19 or later. (defmacro term-if-emacs19 (&rest forms) - (if (string-match "^19" emacs-version) (cons 'progn forms))) + (if (string-match "^\\(19\\|[2-9][0-9]\\)" emacs-version) + (cons 'progn forms))) ;; True if running under XEmacs (previously Lucid Emacs). (defmacro term-is-xemacs () '(string-match "Lucid" emacs-version)) ;; Do FORM if running under XEmacs (previously Lucid Emacs).