[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.18 emacs/lisp/calc/calc-help.el:1.19
*** emacs/lisp/calc/calc-help.el:1.18   Wed Mar 30 16:35:25 2005
--- emacs/lisp/calc/calc-help.el        Mon Apr 25 19:42:44 2005
***************
*** 393,404 ****
        (error "Can't locate Calc sources"))
      (calc-quit)
      (switch-to-buffer "*Help*")
!     (erase-buffer)
!     (insert-file-contents (expand-file-name "README" (car path)))
!     (search-forward "Summary of changes")
!     (forward-line -1)
!     (delete-region (point-min) (point))
!     (goto-char (point-min))))
  
  (defvar calc-help-long-names '((?b . "binary/business")
                               (?g . "graphics")
--- 393,406 ----
        (error "Can't locate Calc sources"))
      (calc-quit)
      (switch-to-buffer "*Help*")
!     (let ((inhibit-read-only t))
!       (erase-buffer)
!       (insert-file-contents (expand-file-name "README" (car path)))
!       (search-forward "Summary of changes")
!       (forward-line -1)
!       (delete-region (point-min) (point))
!       (goto-char (point-min)))
!     (help-mode)))
  
  (defvar calc-help-long-names '((?b . "binary/business")
                               (?g . "graphics")