diff options
| author | Karl Heuer | 1997-09-24 16:38:24 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-09-24 16:38:24 +0000 |
| commit | 3f172d5d6560b0a367ce3d720b067e0e84ddd6d9 (patch) | |
| tree | dbcbc8d856018bb295cdd539a5f63b7eee0857f9 | |
| parent | a137e62c850e0c3f09d5683f1bbaed7293755da5 (diff) | |
| download | emacs-3f172d5d6560b0a367ce3d720b067e0e84ddd6d9.tar.gz emacs-3f172d5d6560b0a367ce3d720b067e0e84ddd6d9.zip | |
(term-if-emacs19): Recognize version 20.
| -rw-r--r-- | lisp/term.el | 5 |
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). |