Mercurial > hg > xemacs-beta

comparison lisp/custom/wid-browse.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 6b37e6ddd302
children 0132846995bd
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
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.9908 7 ;; Version: 1.9916
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
280 "Togle minor mode for traversing widgets. 280 "Togle minor mode for traversing widgets.
281 With arg, turn widget mode on if and only if arg is positive." 281 With arg, turn widget mode on if and only if arg is positive."
282 (interactive "P") 282 (interactive "P")
283 (cond ((null arg) 283 (cond ((null arg)
284 (setq widget-minor-mode (not widget-minor-mode))) 284 (setq widget-minor-mode (not widget-minor-mode)))
285 ((<= 0 arg) 285 ((<= arg 0)
286 (setq widget-minor-mode nil)) 286 (setq widget-minor-mode nil))
287 (t 287 (t
288 (setq widget-minor-mode t))) 288 (setq widget-minor-mode t)))
289 (force-mode-line-update)) 289 (force-mode-line-update))
290 290