* lisp/dired.el (dired-mode-map): Add [remap read-only-mode] for

`dired-toggle-read-only'.

Fixes: debbugs:12462

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 587e60b2d576a40c10dc0fcdadb408dff7bbca1b..351b6ea6cb83fc81e796056f7d4bfbfabaea74f7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-09-22  Juri Linkov  <juri@jurta.org>
+
+       * dired.el (dired-mode-map): Add [remap read-only-mode] for
+       `dired-toggle-read-only'.  (Bug#12462)
+
 2012-09-22  Martin Rudalics  <rudalics@gmx.at>
 
        * subr.el (temp-output-buffer-show): New function.

diff --git a/lisp/dired.el b/lisp/dired.el
index a5169fc301c2788f5a9c6af7363700deb7bfb83a..6defd6c4877b8924815d5d20bae5b8b1dc3c731e 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1493,6 +1493,8 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
     (define-key map (kbd "M-s f C-s")   'dired-isearch-filenames)
     (define-key map (kbd "M-s f M-C-s") 'dired-isearch-filenames-regexp)
     ;; misc
+    (define-key map [remap read-only-mode] 'dired-toggle-read-only)
+    ;; `toggle-read-only' is an obsolete alias for `read-only-mode'
     (define-key map [remap toggle-read-only] 'dired-toggle-read-only)
     (define-key map "?" 'dired-summary)
     (define-key map "\177" 'dired-unmark-backward)