diff options
| author | Thien-Thi Nguyen | 1995-03-14 16:29:27 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen | 1995-03-14 16:29:27 +0000 |
| commit | 20171c7c69aed5d4e343658f386e7d22370a1640 (patch) | |
| tree | 69dc6c3d5e45b549d6321d6f457ce261fda263bb | |
| parent | 9e552710cfe6b2125233af963d4578d3a7451f84 (diff) | |
| download | emacs-20171c7c69aed5d4e343658f386e7d22370a1640.tar.gz emacs-20171c7c69aed5d4e343658f386e7d22370a1640.zip | |
`emacs-version' checking now handles Lucid's version change to 19.xx.
| -rw-r--r-- | lisp/progmodes/hideshow.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index 262543818b4..4f638dc2f75 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el | |||
| @@ -158,11 +158,11 @@ is necessary.") | |||
| 158 | "Used to support both FSF Emacs and Xemacs.") | 158 | "Used to support both FSF Emacs and Xemacs.") |
| 159 | 159 | ||
| 160 | (eval-when-compile | 160 | (eval-when-compile |
| 161 | (if (string-match "^19" emacs-version) | 161 | (if (string-match "xemacs\\|lucid" emacs-version) |
| 162 | nil | 162 | (progn |
| 163 | (defvar current-menubar nil "") | 163 | (defvar current-menubar nil "") |
| 164 | (defun set-buffer-menubar (arg1)) | 164 | (defun set-buffer-menubar (arg1)) |
| 165 | (defun add-menu (arg1 arg2 arg3)))) | 165 | (defun add-menu (arg1 arg2 arg3))))) |
| 166 | 166 | ||
| 167 | 167 | ||
| 168 | ;;;---------------------------------------------------------------------------- | 168 | ;;;---------------------------------------------------------------------------- |
| @@ -428,9 +428,9 @@ variables to default values and disables the hideshow commands." | |||
| 428 | 428 | ||
| 429 | ;; which emacs being used? | 429 | ;; which emacs being used? |
| 430 | (setq hs-emacs-type | 430 | (setq hs-emacs-type |
| 431 | (if (string-match "^19" emacs-version) | 431 | (if (string-match "xemacs\\|lucid" emacs-version) |
| 432 | 'fsf | 432 | 'lucid |
| 433 | 'lucid)) | 433 | 'fsf)) |
| 434 | 434 | ||
| 435 | ;; keymaps and menus | 435 | ;; keymaps and menus |
| 436 | (if (not hs-minor-mode-map) | 436 | (if (not hs-minor-mode-map) |