Commit 628299e0 authored by Sam Steingold's avatar Sam Steingold
Browse files

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

Call `special-mode' to enable the standard read-only keybindings.
parent 21ffb35a
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
......
......@@ -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
......
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