Mercurial > hg > xemacs-beta

comparison lisp/custom/wid-browse.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 9b50b4588a93
children b980b6286996
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
2 ;; 2 ;;
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: extensions 6 ;; Keywords: extensions
7 ;; Version: 1.84 7 ;; Version: 1.89
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; Widget browser. See `widget.el'. 12 ;; Widget browser. See `widget.el'.
243 (put :children 'widget-keyword-printer 'widget-browse-widgets) 243 (put :children 'widget-keyword-printer 'widget-browse-widgets)
244 (put :buttons 'widget-keyword-printer 'widget-browse-widgets) 244 (put :buttons 'widget-keyword-printer 'widget-browse-widgets)
245 (put :button 'widget-keyword-printer 'widget-browse-widget) 245 (put :button 'widget-keyword-printer 'widget-browse-widget)
246 (put :args 'widget-keyword-printer 'widget-browse-sexps) 246 (put :args 'widget-keyword-printer 'widget-browse-sexps)
247 247
248 ;;; Widget Minor Mode.
249
250 (defvar widget-minor-mode nil
251 "I non-nil, we are in Widget Minor Mode.")
252 (make-variable-buffer-local 'widget-minor-mode)
253
254 (defvar widget-minor-mode-map nil
255 "Keymap used in Widget Minor Mode.")
256
257 (unless widget-minor-mode-map
258 (setq widget-minor-mode-map (make-sparse-keymap))
259 (set-keymap-parent widget-minor-mode-map widget-keymap))
260
261 ;;;###autoload
262 (defun widget-minor-mode (&optional arg)
263 "Togle minor mode for traversing widgets.
264 With arg, turn widget mode on if and only if arg is positive."
265 (interactive "P")
266 (cond ((null arg)
267 (setq widget-minor-mode (not widget-minor-mode)))
268 ((<= 0 arg)
269 (setq widget-minor-mode nil))
270 (t
271 (setq widget-minor-mode t)))
272 (force-mode-line-update))
273
274 (add-to-list 'minor-mode-alist '(widget-minor-mode " Widget"))
275
276 (add-to-list 'minor-mode-map-alist
277 (cons 'widget-minor-mode widget-minor-mode-map))
278
248 ;;; The End: 279 ;;; The End:
249 280
250 (provide 'wid-browse) 281 (provide 'wid-browse)
251 282
252 ;; wid-browse.el ends here 283 ;; wid-browse.el ends here