Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hui-mini.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
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: 6-Mar-97 at 14:08:46 by Bob Weiner 12 ;; LAST-MOD: 17-Mar-97 at 21:28:26 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.
97 (("Customize>") 97 (("Customize>")
98 ("Referent-Display/" (menu . cust-referents) 98 ("Referent-Display/" (menu . cust-referents)
99 "Sets where referents are displayed.") 99 "Sets where referents are displayed.")
100 ("Smart-Key-at-Eol/" (menu . cust-eol) 100 ("Smart-Key-at-Eol/" (menu . cust-eol)
101 "Sets how scrolling via end of line presses works.") 101 "Sets how scrolling via end of line presses works.")
102 ("Toggle-Rolo-Dates"
103 (if (and (boundp 'wrolo-add-hook) (listp wrolo-add-hook)
104 (memq 'rolo-set-date wrolo-add-hook))
105 (progn (remove-hook 'wrolo-add-hook 'rolo-set-date)
106 (remove-hook 'wrolo-edit-hook 'rolo-set-date)
107 (message "Rolodex date stamps are now turned off."))
108 (add-hook 'wrolo-add-hook 'rolo-set-date)
109 (add-hook 'wrolo-edit-hook 'rolo-set-date)
110 (message "Rolodex date stamps are now turned on."))
111 "Toggle whether date stamps are update when rolodex entries are edited.")
102 ("URL-Display/" (menu . cust-urls) "Sets where URLs are displayed."))) 112 ("URL-Display/" (menu . cust-urls) "Sets where URLs are displayed.")))
103 '(cust-eol . 113 '(cust-eol .
104 (("Smart Key press at eol scrolls>") 114 (("Smart Key press at eol scrolls>")
105 ("Proportionally" (setq smart-scroll-proportional t)) 115 ("Proportionally" (setq smart-scroll-proportional t))
106 ("Windowful" (setq smart-scroll-proportional nil)))) 116 ("Windowful" (setq smart-scroll-proportional nil))))
324 (interactive) 334 (interactive)
325 (if (and hui:menu-p (> (minibuffer-depth) 0)) 335 (if (and hui:menu-p (> (minibuffer-depth) 0))
326 (progn (beep) nil) 336 (progn (beep) nil)
327 (unwind-protect 337 (unwind-protect
328 (progn 338 (progn
329 (require 'hyperbole)
330 (require 'hsite) ;; Since "hui-mini" may be loaded without loading 339 (require 'hsite) ;; Since "hui-mini" may be loaded without loading
331 ;; all of Hyperbole. 340 ;; all of Hyperbole.
332 (hyperb:init-menubar) 341 (hyperb:init-menubar)
333 (setq hui:menu-p t) 342 (setq hui:menu-p t)
334 (hui:menu-act (or menu 'hyperbole) menu-list) 343 (hui:menu-act (or menu 'hyperbole) menu-list)