* lisp/calendar/calendar.el (calendar-in-read-only-buffer):

Call `special-mode' to enable the standard read-only keybindings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0911da1a03b95a2ca0556e2fe4625565c89415a8..fff6a2295f550020a394a34c7b1c40d444813cbb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-06  Sam Steingold  <sds@gnu.org>
+
+       * calendar/calendar.el (calendar-in-read-only-buffer):
+       Call `special-mode' to enable the standard read-only keybindings.
+
 2012-06-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/macroexp.el (macroexpand-all-1): Don't spam the output

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 62d09c6b62cf3a4d2cd580ef3f00e97f9a501fc2..33cb57b352dd8384f810a427ded2878fb3daacd6 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1105,9 +1105,8 @@ inclusive.  The standard macro `dotimes' is preferable in most cases."
             ,index (1+ ,index)))
     sum))
 
-;; FIXME bind q to bury-buffer?
 (defmacro calendar-in-read-only-buffer (buffer &rest body)
-  "Switch to BUFFER and executes the forms in BODY.
+  "Switch to BUFFER and execute the forms in BODY.
 First creates or erases BUFFER as needed.  Leaves BUFFER read-only,
 with disabled undo.  Leaves point at point-min, displays BUFFER."
   (declare (indent 1) (debug t))
@@ -1120,6 +1119,7 @@ with disabled undo.  Leaves point at point-min, displays BUFFER."
      (goto-char (point-min))
      (set-buffer-modified-p nil)
      (setq buffer-read-only t)
+     (special-mode)
      (display-buffer ,buffer)))
 
 ;; The following are in-line for speed; they can be called thousands of times