Commit bfb0cf0c authored by Richard M. Stallman's avatar Richard M. Stallman

Undo previous change.

parent b3b8e915
......@@ -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 <space> to undo more")
(let ((event 32))
(while (equal event 32)
(message "undoing..")
(undo-more 1)
(message "Hit <space> to undo more")
(setq event (read-event)))
(message "Finished undoing.")
(if (not (equal event 27))
(setq unread-command-event event))))
;;; gosmacs.el ends here
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment