Mercurial > hg > xemacs-beta

comparison lisp/modes/outline.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 4103f0995bd7
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
170 (define-key outline-mode-map [button3] 'outline-mode-menu) 170 (define-key outline-mode-map [button3] 'outline-mode-menu)
171 171
172 ;;; #+XEmacs 172 ;;; #+XEmacs
173 (defun outline-install-menubar (&optional remove) 173 (defun outline-install-menubar (&optional remove)
174 ;; install or remove the outline menus 174 ;; install or remove the outline menus
175 (let ((menus (cdr outline-mode-menu)) path) 175 ;; This is a nop if menubars aren't available
176 (and (not remove) 176 (when (and (featurep 'menubar) ; XEmacs
177 (set-buffer-menubar (copy-sequence current-menubar))) 177 current-menubar)
178 (while menus 178 (let ((menus (cdr outline-mode-menu)) path)
179 (setq path (list (car (car menus)))) 179 (and (not remove)
180 (if (and remove (find-menu-item current-menubar path)) 180 (set-buffer-menubar (copy-sequence current-menubar)))
181 (delete-menu-item path) 181 (while menus
182 (or (car (find-menu-item current-menubar path)) 182 (setq path (list (car (car menus))))
183 (add-menu nil (car (car menus)) (cdr (car menus)) nil))) 183 (if (and remove (find-menu-item current-menubar path))
184 (setq menus (cdr menus))))) 184 (delete-menu-item path)
185 (or (car (find-menu-item current-menubar path))
186 (add-menu nil (car (car menus)) (cdr (car menus)) nil)))
187 (setq menus (cdr menus))))))
185 188
186 ;;;###autoload 189 ;;;###autoload
187 (defvar outline-minor-mode nil 190 (defvar outline-minor-mode nil
188 "Non-nil if using Outline mode as a minor mode of some other mode.") 191 "Non-nil if using Outline mode as a minor mode of some other mode.")
189 ;;;###autoload 192 ;;;###autoload