From bfb0cf0c94584fdf9764b2193f34aa3228239388 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 28 Mar 1993 22:35:42 +0000 Subject: [PATCH] Undo previous change. --- lisp/gosmacs.el | 19 +------------------ lisp/novice.el | 9 --------- 2 files changed, 1 insertion(+), 27 deletions(-) diff --git a/lisp/gosmacs.el b/lisp/gosmacs.el index 359ea1cc344..93bbbaa5b80 100644 --- a/lisp/gosmacs.el +++ b/lisp/gosmacs.el @@ -46,7 +46,7 @@ Use \\[set-gnu-bindings] to restore previous global bindings." ("\C-x\C-n" next-error) ("\C-x\C-o" switch-to-buffer) ("\C-x\C-r" insert-file) - ("\C-x\C-u" undo-with-space) + ("\C-x\C-u" undo) ("\C-x\C-v" find-file-other-window) ("\C-x\C-z" shrink-window) ("\C-x!" shell-command) @@ -114,21 +114,4 @@ From the window at the lower right corner, select the one at the upper left." (interactive) (recenter 0)) -(defun undo-with-space () - "Enter an undo loop that continues while you type SPC characters. Exit -with ESC; any other character exits and begins a new command." - (interactive) - (undo-start) - (undo-more 1) - (message "Hit to undo more") - (let ((event 32)) - (while (equal event 32) - (message "undoing..") - (undo-more 1) - (message "Hit to undo more") - (setq event (read-event))) - (message "Finished undoing.") - (if (not (equal event 27)) - (setq unread-command-event event)))) - ;;; gosmacs.el ends here diff --git a/lisp/novice.el b/lisp/novice.el index 28ba34d206f..2ddbbac3250 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -120,13 +120,4 @@ to future sessions." (insert "(put '" (symbol-name command) " 'disabled t)\n") (save-buffer))) -;;;###autoload -(defun enable-and-notify (&rest args) - "A novice hook for non-novices." - (put this-command 'disabled nil) - (message "You typed %s. %s was disabled. It's enabled now." - (key-description (this-command-keys)) this-command) - (sit-for 0) - (call-interactively this-command)) - ;;; novice.el ends here