Mercurial > emacs

comparison lisp/wid-browse.el @ 18244:909a0f9169b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Synched with 1.9914.
author Per Abrahamsen <abraham@dina.kvl.dk>
date Sat, 14 Jun 1997 10:21:01 +0000
parents 2983683a278b
children c197a16ba190
comparison
equal deleted inserted replaced
18243:7ebbc72852df 18244:909a0f9169b8
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.9905 7 ;; Version: 1.9914
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