Mercurial > emacs

comparison lisp/calc/calc-help.el @ 61831:82f10a9c9eb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-view-news): Let-bind inhibit-read-only to t, use help-mode.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 25 Apr 2005 19:42:44 +0000
parents 36733539e1c5
children d47f288fcf69 08185296b491
comparison
equal deleted inserted replaced
61830:7167a1afa2aa 61831:82f10a9c9eb3
391 (or (and path 391 (or (and path
392 (file-exists-p (expand-file-name "README" (car path)))) 392 (file-exists-p (expand-file-name "README" (car path))))
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")
405 (?j . "selection") 407 (?j . "selection")
406 (?k . "combinatorics/statistics") 408 (?k . "combinatorics/statistics")