diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:44:15 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:44:15 +0000 |
| commit | 8989a9203f73473569ddf83e505a846609def407 (patch) | |
| tree | 2dcc35b588e98388ef66ef39157e9d17290df217 /lisp/wdired.el | |
| parent | a4d9b7bca3dc69efe89eecbd81ed96859f7cd818 (diff) | |
| download | emacs-8989a9203f73473569ddf83e505a846609def407.tar.gz | |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/wdired.el')
| -rw-r--r-- | lisp/wdired.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/wdired.el b/lisp/wdired.el index e0d8c801d07..11b2d9f617d 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -1,6 +1,7 @@ ;;; wdired.el --- Rename files editing their names in dired buffers -;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 +;; Free Software Foundation, Inc. ;; Filename: wdired.el ;; Author: Juan León Lahoz García <juanleon1@gmail.com> @@ -741,9 +742,9 @@ Like original function but it skips read-only words." (defun wdired-set-bit () "Set a permission bit character." (interactive) - (if (wdired-perm-allowed-in-pos last-command-char + (if (wdired-perm-allowed-in-pos last-command-event (- (current-column) wdired-col-perm)) - (let ((new-bit (char-to-string last-command-char)) + (let ((new-bit (char-to-string last-command-event)) (inhibit-read-only t) (pos-prop (- (point) (- (current-column) wdired-col-perm)))) (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit) |