From c046590e94b77f9e69f2355595652517aca502dc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 13 Sep 2004 20:53:05 +0000 Subject: [PATCH] (disabled-command-hook): Use shorthand for obsolescence. (disabled-command-function): Make the ?\ char more obvious. --- lisp/ChangeLog | 44 ++++++++++++++++++++++++++------------------ lisp/novice.el | 6 +++--- 2 files changed, 29 insertions(+), 21 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d905683ac1..0711984d617 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-09-13 Stefan Monnier + + * novice.el (disabled-command-hook): Use shorthand for obsolescence. + (disabled-command-function): Make the ?\ char more obvious. + + * vc-arch.el (vc-arch-root, vc-arch-registered): + * vc-mcvs.el (vc-mcvs-root, vc-mcvs-registered): Use vc-find-root. + 2004-09-13 Hovav Shacham * windmove.el (windmove-frame-edges): Report coordinates of @@ -14,7 +22,7 @@ * isearch.el (isearch-resume-in-command-history): Rename from isearch-resume-enabled and change default to nil. -2004-09-12 Stefan +2004-09-12 Stefan Monnier * vc-hooks.el (vc-ignore-dir-regexp): New var. (vc-registered): Use it. @@ -120,7 +128,7 @@ * desktop.el (desktop-clear-preserve-buffers): Remove make-obsolete-variable. -2004-09-08 Stefan +2004-09-08 Stefan Monnier * vc-arch.el (vc-arch-state): Fix parsing for `names' method. @@ -207,7 +215,7 @@ window system if overflow-newline-into-fringe is enabled. (term-mode): Don't disable overflow-newline-into-fringe. -2004-09-07 Stefan +2004-09-07 Stefan Monnier * term/xterm.el (function-key-map): Add bindings for C- and S- cursor motion as seen on my Mac OS X xterms. @@ -464,8 +472,8 @@ 2004-08-29 Kim F. Storm - * emulation/cua-base.el (cua-auto-expand-rectangles): Remove - automatic rectangle padding feature; replace by non-destructive + * emulation/cua-base.el (cua-auto-expand-rectangles): + Remove automatic rectangle padding feature; replace by non-destructive virtual rectangle edges feature. (cua-virtual-rectangle-edges): New defcustom. (cua-auto-tabify-rectangles): New defcustom. @@ -948,8 +956,8 @@ key-translation-map. (encoded-kbd-setup-keymap): Setup key-translation-map. (saved-key-translation-map): New variable. - (encoded-kbd-mode): Save/restore key-translation-map. Adjusted - for the change of encoded-kbd-setup-keymap. + (encoded-kbd-mode): Save/restore key-translation-map. + Adjust for the change of encoded-kbd-setup-keymap. 2004-08-02 Kim F. Storm @@ -1112,12 +1120,11 @@ Sync with Tramp 2.0.43. - * net/tramp.el (tramp-handle-verify-visited-file-modtime): Remove - outdated comment. + * net/tramp.el (tramp-handle-verify-visited-file-modtime): + Remove outdated comment. (tramp-locked, tramp-locker): New variables for implementing a global lock. - (tramp-sh-file-name-handler): Use them to implement the global - lock. + (tramp-sh-file-name-handler): Use them to implement the global lock. 2004-07-13 Michael Albinus @@ -1152,14 +1159,15 @@ * emacs-lisp/testcover.el: New category "potentially-1valued" for functions that are not erroneous if either 1-valued or multi-valued. Detect functions in this class. - (testcover-1value-functions, testcover-compose-functions, - testcover-progn-functions) Added some additional functions to lists. + (testcover-1value-functions, testcover-compose-functions) + (testcover-progn-functions) Added some additional functions to lists. (testcover-mark): Bugfix when marking up the definition for an empty function. 2004-07-17 Richard M. Stallman - * replace.el (occur-read-primary-args): Pass default to read-from-minibuffer. + * replace.el (occur-read-primary-args): Pass default to + read-from-minibuffer. * mail/footnote.el (footnote-section-tag): Use defcustom. @@ -1268,8 +1276,8 @@ 2004-07-09 John Paul Wallington - * emacs-lisp/re-builder.el (reb-update-overlays): Distinguish - between one and several matches in message. + * emacs-lisp/re-builder.el (reb-update-overlays): + Distinguish between one and several matches in message. 2004-07-09 Richard M. Stallman @@ -1307,11 +1315,11 @@ Do not treat double clicks and triple clicks specially in the scroll bar (preventing strange repositioning problems) -2004-07-06 Stefan +2004-07-06 Stefan Monnier * replace.el (query-replace-regexp-eval): Fix last change. -2004-07-05 Stefan +2004-07-05 Stefan Monnier * replace.el (query-replace-descr): New fun. (query-replace-read-from, query-replace-read-args): Default to the diff --git a/lisp/novice.el b/lisp/novice.el index ca9a06769d5..b2a0bec0204 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -44,7 +44,7 @@ If nil, the feature is disabled, i.e., all commands work normally.") (defvaralias 'disabled-command-hook 'disabled-command-function) (make-obsolete-variable 'disabled-command-hook - "use the variable `disabled-command-function' instead." "21.4") + 'disabled-command-function "21.4") ;;;###autoload (defun disabled-command-function (&rest ignore) @@ -93,7 +93,7 @@ SPC to try the command just this once, but leave it disabled. (message "Type y, n, ! or SPC (the space bar): ") (let ((cursor-in-echo-area t)) (while (not (memq (setq char (downcase (read-char))) - '(?! ? ?y ?n))) + '(?! ?y ?n ?\ ))) (ding) (message "Please type y, n, ! or SPC (the space bar): ")))) (if (= char ?!) @@ -185,5 +185,5 @@ to future sessions." (provide 'novice) -;;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 +;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 ;;; novice.el ends here -- 2.39.5