Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hui-mini.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 4be1180a9e89
children 8619ce7e4c50
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 15-Oct-91 at 20:13:17 11 ;; ORIG-DATE: 15-Oct-91 at 20:13:17
12 ;; LAST-MOD: 20-Feb-97 at 11:30:44 by Bob Weiner 12 ;; LAST-MOD: 6-Mar-97 at 14:08:46 by Bob Weiner
13 ;; 13 ;;
14 ;; This file is part of Hyperbole. 14 ;; This file is part of Hyperbole.
15 ;; Available for use and distribution under the same terms as GNU Emacs. 15 ;; Available for use and distribution under the same terms as GNU Emacs.
16 ;; 16 ;;
17 ;; Copyright (C) 1991-1997, Free Software Foundation, Inc. 17 ;; Copyright (C) 1991-1997, Free Software Foundation, Inc.
307 (fset 'hui:menu 'hyperbole) 307 (fset 'hui:menu 'hyperbole)
308 308
309 ;;; Used as autoloaded main entry point to Hyperbole (but hsite.el) is the 309 ;;; Used as autoloaded main entry point to Hyperbole (but hsite.el) is the
310 ;;; file that is autoloaded when this is invoked. 310 ;;; file that is autoloaded when this is invoked.
311 ;;; It brings up a menu of commands. 311 ;;; It brings up a menu of commands.
312 ;;;###autoload
312 (defun hyperbole (&optional menu menu-list) 313 (defun hyperbole (&optional menu menu-list)
313 "Invokes default Hyperbole menu user interface when not already active. 314 "Invokes default Hyperbole menu user interface when not already active.
314 Suitable for binding to a key, e.g. {C-h h}. 315 Suitable for binding to a key, e.g. {C-h h}.
315 Non-interactively, returns t if menu is actually invoked by call, else nil. 316 Non-interactively, returns t if menu is actually invoked by call, else nil.
316 317
323 (interactive) 324 (interactive)
324 (if (and hui:menu-p (> (minibuffer-depth) 0)) 325 (if (and hui:menu-p (> (minibuffer-depth) 0))
325 (progn (beep) nil) 326 (progn (beep) nil)
326 (unwind-protect 327 (unwind-protect
327 (progn 328 (progn
329 (require 'hyperbole)
328 (require 'hsite) ;; Since "hui-mini" may be loaded without loading 330 (require 'hsite) ;; Since "hui-mini" may be loaded without loading
329 ;; all of Hyperbole. 331 ;; all of Hyperbole.
330 (hyperb:init-menubar) 332 (hyperb:init-menubar)
331 (setq hui:menu-p t) 333 (setq hui:menu-p t)
332 (hui:menu-act (or menu 'hyperbole) menu-list) 334 (hui:menu-act (or menu 'hyperbole) menu-list)