(calc-describe-bindings): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfe96a80d10966e24b2f64a2e61fac38c7bf6024..e32d4aaecca4f806c8ebd99522e5279345f530f9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * calc/calc-help.el (calc-describe-bindings): Fix last change.
+
 2004-10-21  John Paul Wallington  <jpw@gnu.org>
 
        * calc/calc-graph.el (calc-graph-init):
@@ -25,11 +29,11 @@
 2004-10-19  Jay Belanger  <belanger@truman.edu>
 
        * calc/calc.el (calc-emacs-type-19, calc-emacs-type-epoch)
-       (calc-emacs-type-gnu19): Removed.
-       (calc-digit-map, calc-read-key-sequence, calc-read-key): Removed
-       check for old emacs versions.
+       (calc-emacs-type-gnu19): Remove.
+       (calc-digit-map, calc-read-key-sequence, calc-read-key):
+       Remove check for old emacs versions.
 
-       * calc/calc-ext.el (calc-fancy-prefix): Removed emacs version check.
+       * calc/calc-ext.el (calc-fancy-prefix): Remove emacs version check.
        (calc-init-extensions): Define `calc-alg-map' and `calc-alg-esc-map'
        for current Emacs.
 
@@ -38,9 +42,9 @@
        (calc-do-alg-entry): Remove Emacs version check.  Use `copy-keymap' to
        copy `esc-map'.
 
-       * calc/calc-graph.el (calc-graph-plot): Removed emacs version check.
+       * calc/calc-graph.el (calc-graph-plot): Remove emacs version check.
 
-       * calc/calc-mode.el (calc-total-algebraic-mode): Removed error
+       * calc/calc-mode.el (calc-total-algebraic-mode): Remove error
        call that would be given when the current emacs was used.
 
 2004-10-19  Ulf Jasper  <ulf.jasper@web.de>
@@ -73,8 +77,8 @@
 
 2004-10-18 Jay Belanger  <belanger@truman.edu>
 
-       * calc/calc-help.el (calc-describe-bindings):  Set 
-       `buffer-read-only' to nil while working in the keybindings buffer;
+       * calc/calc-help.el (calc-describe-bindings):
+       Set `buffer-read-only' to nil while working in the keybindings buffer;
        remove some extra information from the keybindings buffer.
 
 2004-10-18  David Ponce  <david@dponce.com>
@@ -261,12 +265,12 @@
 2004-10-12  Jay Belanger  <belanger@truman.edu>
 
        * calc/calc-help.el (calc-help-function-list, calc-help-variable-list):
-       New variables.  
+       New variables.
        (calc-help-index-entries): New function.
-       (calc-describe-function):  Use `calc-help-function-list' instead of
-       obarray for completion. 
-       (calc-describe-variable):  Use `calc-help-variable-list' instead
-       of obarray for completion. 
+       (calc-describe-function): Use `calc-help-function-list' instead of
+       obarray for completion.
+       (calc-describe-variable): Use `calc-help-variable-list' instead
+       of obarray for completion.
 
 2004-10-12  Richard M. Stallman  <rms@gnu.org>
 
@@ -334,7 +338,7 @@
 
        * calc/calc-misc.el (calc-info-goto-node): New function.
        (calc-tutorial, calc-info-summary): Go to appropriate Calc info
-       node in one step. 
+       node in one step.
        (calc-describe-copying, calc-describe-distribution)
        (calc-describe-thing, calc-describe-no-warranty, calc-describe-key):
        Go to appropriate info node in one step.

diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el
index c48ac23e8e5236c0bd0212654429a99003ce5a19..99df2292f2541a9254558e5a5fd8e67b74270cbd 100644 (file)
--- a/lisp/calc/calc-help.el
+++ b/lisp/calc/calc-help.el
@@ -1,6 +1,7 @@
 ;;; calc-help.el --- help display functions for Calc,
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004
+;;           Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainers: D. Goel <deego@gnufans.org>
@@ -112,7 +113,7 @@ C-w  Describe how there is no warranty for Calc."
   (describe-bindings)
   (save-excursion
     (set-buffer "*Help*")
-    (let ((buffer-read-only nil))
+    (let ((inhibit-read-only t))
       (goto-char (point-min))
       (when (search-forward "Major Mode Bindings:" nil t)
         (delete-region (point-min) (point))
@@ -673,5 +674,5 @@ C-w  Describe how there is no warranty for Calc."
      "} (matrix brackets); . (abbreviate); / (multi-lines)")
    "vec/mat" ?v))
 
-;;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686
+;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686
 ;;; calc-help.el ends here