# HG changeset patch # User youngs # Date 1011708999 0 # Node ID b9b8621c2439f44d353bdd302099e858c95f2d21 # Parent 46d76bae9921476b6f5d552e812377daf4d13633 [xemacs-hg @ 2002-01-22 14:16:38 by youngs] 2002-01-14 Björn Torkelsson * menubar-items.el (default-menubar): Open URLs menubar entries moved to mail-lib 2002-01-16 John Paul Wallington * cus-start.el: customize the builtin variable 'modifier-keys-sticky-time'. 2002-01-09 John Paul Wallington * help.el (describe-mode): synched with FSF 19.34; handle nil minor mode indicators. diff -r 46d76bae9921 -r b9b8621c2439 lisp/ChangeLog --- a/lisp/ChangeLog Fri Jan 18 18:01:04 2002 +0000 +++ b/lisp/ChangeLog Tue Jan 22 14:16:39 2002 +0000 @@ -1,3 +1,18 @@ +2002-01-14 Björn Torkelsson + + * menubar-items.el (default-menubar): Open URLs menubar entries + moved to mail-lib + +2002-01-16 John Paul Wallington + + * cus-start.el: customize the builtin variable + 'modifier-keys-sticky-time'. + +2002-01-09 John Paul Wallington + + * help.el (describe-mode): synched with FSF 19.34; handle nil + minor mode indicators. + 2001-12-04 Christoph Wedler * window.el (window-list): Deletia. A function with the same name, diff -r 46d76bae9921 -r b9b8621c2439 lisp/cus-start.el --- a/lisp/cus-start.el Fri Jan 18 18:01:04 2002 +0000 +++ b/lisp/cus-start.el Tue Jan 22 14:16:39 2002 +0000 @@ -114,6 +114,9 @@ :value (nil) (symbol :tag "Condition")))) + (modifier-keys-sticky-time keyboard + (choice (integer :tag "Milliseconds") + (const :tag "Unbounded" 'unbounded))) ;; buffer-local (case-fold-search matching boolean) (ctl-arrow display (choice (integer 160) diff -r 46d76bae9921 -r b9b8621c2439 lisp/help.el --- a/lisp/help.el Fri Jan 18 18:01:04 2002 +0000 +++ b/lisp/help.el Tue Jan 22 14:16:39 2002 +0000 @@ -538,8 +538,11 @@ (setq indicator (cdr indicator))) (while (and indicator (symbolp indicator)) (setq indicator (symbol-value indicator))) - (princ (format "%s minor mode (indicator%s):\n" - pretty-minor-mode indicator)) + (princ (format "%s minor mode (%s):\n" + pretty-minor-mode + (if indicator + (format "indicator%s" indicator) + "no indicator"))) (princ (documentation minor-mode)) (princ "\n\n----\n\n")))) (setq minor-modes (cdr minor-modes))))) diff -r 46d76bae9921 -r b9b8621c2439 lisp/menubar-items.el --- a/lisp/menubar-items.el Fri Jan 18 18:01:04 2002 +0000 +++ b/lisp/menubar-items.el Tue Jan 22 14:16:39 2002 +0000 @@ -898,81 +898,7 @@ :style toggle :selected (and (boundp 'smtpmail-debug-info) smtpmail-debug-info) :active (and (boundp 'send-mail-function) - (eq send-mail-function 'smtpmail-send-it))] - "---" - ("%_Open URLs With" - ["%_Emacs-W3" - (customize-set-variable 'browse-url-browser-function 'browse-url-w3) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-w3)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-w3) - (fboundp 'w3-fetch))] - ["%_Netscape" - (customize-set-variable 'browse-url-browser-function - 'browse-url-netscape) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-netscape)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-netscape))] - ["%_Mosaic" - (customize-set-variable 'browse-url-browser-function - 'browse-url-mosaic) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-mosaic)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-mosaic))] - ["Mosaic (%_CCI)" - (customize-set-variable 'browse-url-browser-function 'browse-url-cci) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-cci)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-cci))] - ["%_IXI Mosaic" - (customize-set-variable 'browse-url-browser-function - 'browse-url-iximosaic) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-iximosaic)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-iximosaic))] - ["%_Lynx (xterm)" - (customize-set-variable 'browse-url-browser-function - 'browse-url-lynx-xterm) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-lynx-xterm)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-lynx-xterm))] - ["L%_ynx (xemacs)" - (customize-set-variable 'browse-url-browser-function - 'browse-url-lynx-emacs) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-lynx-emacs)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-lynx-emacs))] - ["%_Grail" - (customize-set-variable 'browse-url-browser-function - 'browse-url-grail) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-grail)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-grail))] - ["%_Kfm" - (customize-set-variable 'browse-url-browser-function - 'browse-url-kfm) - :style radio - :selected (and (boundp 'browse-url-browser-function) - (eq browse-url-browser-function 'browse-url-kfm)) - :active (and (boundp 'browse-url-browser-function) - (fboundp 'browse-url-kfm))] - )) + (eq send-mail-function 'smtpmail-send-it))]) ("%_Troubleshooting" ["%_Debug on Error" (customize-set-variable 'debug-on-error (not debug-on-error))