Mercurial > hg > xemacs-beta

comparison lisp/modes/hideshow.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents ac2d302a0011
children 43dd3413c7c7
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
157 For single-character block delimiters -- ie, the syntax table regexp for the 157 For single-character block delimiters -- ie, the syntax table regexp for the
158 character is either `(' or `)' -- `hs-forward-sexp-func' would just be 158 character is either `(' or `)' -- `hs-forward-sexp-func' would just be
159 `forward-sexp'. For other modes such as simula, a more specialized function 159 `forward-sexp'. For other modes such as simula, a more specialized function
160 is necessary.") 160 is necessary.")
161 161
162 (defvar hs-emacs-type 'fsf 162 (defvar hs-emacs-type 'lucid
163 "Used to support both FSF Emacs and Xemacs.") 163 "Used to support both FSF Emacs and Xemacs.")
164 164
165 (eval-when-compile 165 ;; This doesn't work
166 (if (string-match "xemacs\\|lucid" emacs-version) 166 ;(eval-when-compile
167 (progn 167 ; (if (string-match "XEmacs\\|Lucid" emacs-version)
168 (defvar current-menubar nil "") 168 ; (progn
169 (defun set-buffer-menubar (arg1)) 169 ; (defvar current-menubar nil "")
170 (defun add-menu (arg1 arg2 arg3))))) 170 ; (defun set-buffer-menubar (arg1))
171 ; (defmacro add-menu (arg1 arg2 arg3)))))
171 172
172 173
173 ;;;---------------------------------------------------------------------------- 174 ;;;----------------------------------------------------------------------------
174 ;;; support funcs 175 ;;; support funcs
175 176
415 (if hs-minor-mode 416 (if hs-minor-mode
416 (progn 417 (progn
417 (if (eq hs-emacs-type 'lucid) 418 (if (eq hs-emacs-type 'lucid)
418 (progn 419 (progn
419 (set-buffer-menubar (copy-sequence current-menubar)) 420 (set-buffer-menubar (copy-sequence current-menubar))
420 (add-menu nil (car hs-menu-bar) (cdr hs-menu-bar)))) 421 (add-submenu (car hs-menu-bar) hs-menu-bar)))
421 (setq selective-display t 422 (setq selective-display t
422 selective-display-ellipses t) 423 selective-display-ellipses t)
423 (hs-grok-mode-type) 424 (hs-grok-mode-type)
424 (run-hooks 'hs-minor-mode-hook)) 425 (run-hooks 'hs-minor-mode-hook))
425 (if (eq hs-emacs-type 'lucid) 426 (if (eq hs-emacs-type 'lucid)