diff options
| author | Jay Belanger | 2005-04-25 19:42:44 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-04-25 19:42:44 +0000 |
| commit | d9bc5288daee24f357665129409b8894f1073917 (patch) | |
| tree | b8715fe1aeaefbdc3f0e96527958f2e12bb970ab | |
| parent | c9b630f7f218cfb2231504c8fe63004d7aad0bf8 (diff) | |
| download | emacs-d9bc5288daee24f357665129409b8894f1073917.tar.gz emacs-d9bc5288daee24f357665129409b8894f1073917.zip | |
(calc-view-news): Let-bind inhibit-read-only to t, use help-mode.
| -rw-r--r-- | lisp/calc/calc-help.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 46b8cec2ac6..2a89bb2b883 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el | |||
| @@ -393,12 +393,14 @@ C-w Describe how there is no warranty for Calc." | |||
| 393 | (error "Can't locate Calc sources")) | 393 | (error "Can't locate Calc sources")) |
| 394 | (calc-quit) | 394 | (calc-quit) |
| 395 | (switch-to-buffer "*Help*") | 395 | (switch-to-buffer "*Help*") |
| 396 | (erase-buffer) | 396 | (let ((inhibit-read-only t)) |
| 397 | (insert-file-contents (expand-file-name "README" (car path))) | 397 | (erase-buffer) |
| 398 | (search-forward "Summary of changes") | 398 | (insert-file-contents (expand-file-name "README" (car path))) |
| 399 | (forward-line -1) | 399 | (search-forward "Summary of changes") |
| 400 | (delete-region (point-min) (point)) | 400 | (forward-line -1) |
| 401 | (goto-char (point-min)))) | 401 | (delete-region (point-min) (point)) |
| 402 | (goto-char (point-min))) | ||
| 403 | (help-mode))) | ||
| 402 | 404 | ||
| 403 | (defvar calc-help-long-names '((?b . "binary/business") | 405 | (defvar calc-help-long-names '((?b . "binary/business") |
| 404 | (?g . "graphics") | 406 | (?g . "graphics") |