From 2a93ca78ea40fabbc03269cf15f8d96b36599ea8 Mon Sep 17 00:00:00 2001 From: Lars Hansen Date: Wed, 5 May 2004 08:01:53 +0000 Subject: [PATCH] (wdired-change-to-wdired-mode): Quote wdired-mode-hook in run-hooks. Use substitute-command-keys in message. (wdired-abort-changes): Add message. --- lisp/ChangeLog | 6 ++++++ lisp/wdired.el | 7 ++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3e91f9a3574..740cdeaa03e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-05-05 Lars Hansen + + * wdired.el (wdired-change-to-wdired-mode): Quote wdired-mode-hook + in run-hooks. Use substitute-command-keys in message. + (wdired-abort-changes): Add message. + 2004-05-03 Michael Mauger * emacs/lisp/progmodes/sql.el (sql-xemacs-p, sql-emacs19-p) diff --git a/lisp/wdired.el b/lisp/wdired.el index a8c36c2066f..30ba2a3cd45 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -329,8 +329,8 @@ See `wdired-mode'." (buffer-enable-undo) ; Performance hack. See above. (set-buffer-modified-p nil) (setq buffer-undo-list nil) - (run-hooks wdired-mode-hook) - (message "Press C-c C-c when finished")) + (run-hooks 'wdired-mode-hook) + (message (substitute-command-keys "Press \\[wdired-finish-edit] when finished"))) ;; Protect the buffer so only the filenames can be changed, and put @@ -416,7 +416,8 @@ non-nil means return old filename." (insert wdired-old-content)) (wdired-change-to-dired-mode) (set-buffer-modified-p nil) - (setq buffer-undo-list nil)) + (setq buffer-undo-list nil) + (message "Changes aborted")) (defun wdired-finish-edit () "Actually rename files based on your editing in the Dired buffer." -- 2.39.2