[Emacs-diffs] Changes to emacs/lisp/calc/calc-help.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-help.el
diff -c emacs/lisp/calc/calc-help.el:1.9 emacs/lisp/calc/calc-help.el:1.10
*** emacs/lisp/calc/calc-help.el:1.9    Tue Oct 12 15:47:32 2004
--- emacs/lisp/calc/calc-help.el        Mon Oct 18 19:13:16 2004
***************
*** 112,145 ****
    (describe-bindings)
    (save-excursion
      (set-buffer "*Help*")
!     (goto-char (point-min))
!     (if (search-forward "Global bindings:" nil t)
!       (delete-region (match-beginning 0) (point-max)))
!     (goto-char (point-min))
!     (while (re-search-forward "\n[a-z] ESC" nil t)
!       (end-of-line)
!       (delete-region (match-beginning 0) (point)))
!     (goto-char (point-min))
!     (while (re-search-forward "\nESC m" nil t)
!       (end-of-line)
!       (delete-region (match-beginning 0) (point)))
!     (goto-char (point-min))
!     (while (search-forward "\n\n\n" nil t)
!       (backward-delete-char 1)
!       (backward-char 2))
!     (goto-char (point-min))
!     (while
!       (re-search-forward
!        "\n[a-z] [0-9]\\(\t\t.*\n\\)\\([a-z] [0-9]\\1\\)*[a-z] \\([0-9]\\)\\1"
!        nil t)
!       (let ((dig1 (char-after (1- (match-beginning 1))))
!           (dig2 (char-after (match-beginning 3))))
!       (delete-region (match-end 1) (match-end 0))
!       (goto-char (match-beginning 1))
!       (delete-backward-char 1)
!       (delete-char 1)
!       (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2)))))
!     (goto-char (point-min))))
  
  (defun calc-describe-key-briefly (key)
    (interactive "kDescribe key briefly: ")
--- 112,138 ----
    (describe-bindings)
    (save-excursion
      (set-buffer "*Help*")
!     (let ((buffer-read-only nil))
!       (goto-char (point-min))
!       (when (search-forward "Major Mode Bindings:" nil t)
!         (delete-region (point-min) (point))
!         (insert "Calc Mode Bindings:"))
!       (when (search-forward "Global bindings:" nil t)
!         (forward-line -1)
!         (delete-region (point) (point-max)))
!       (goto-char (point-min))
!       (while
!           (re-search-forward
!            "\n[a-z] [0-9]\\( .*\n\\)\\([a-z] [0-9]\\1\\)*[a-z] \\([0-9]\\)\\1"
!            nil t)
!         (let ((dig1 (char-after (1- (match-beginning 1))))
!               (dig2 (char-after (match-beginning 3))))
!           (delete-region (match-end 1) (match-end 0))
!           (goto-char (match-beginning 1))
!           (delete-backward-char 1)
!           (delete-char 5)
!           (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2)))))
!       (goto-char (point-min)))))
  
  (defun calc-describe-key-briefly (key)
    (interactive "kDescribe key briefly: ")