Mercurial > hg > xemacs-beta

comparison lisp/custom/wid-browse.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 34a5b81f86ba
children 538048ae2ab8
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
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.89 7 ;; Version: 1.84
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
279 ;;; The End: 248 ;;; The End:
280 249
281 (provide 'wid-browse) 250 (provide 'wid-browse)
282 251
283 ;; wid-browse.el ends here 252 ;; wid-browse.el ends here