Mercurial > emacs

comparison lisp/calc/calc-help.el @ 57634:0dd4932a3caa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-describe-bindings): Fix last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 21 Oct 2004 19:09:46 +0000
parents 5e8a69bc2cfa
children c38bc6b76926 f3ec05478165
comparison
equal deleted inserted replaced
57633:ead4249849ac 57634:0dd4932a3caa
1 ;;; calc-help.el --- help display functions for Calc, 1 ;;; calc-help.el --- help display functions for Calc,
2 2
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002 Free Software Foundation, Inc. 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: David Gillespie <daveg@synaptics.com> 6 ;; Author: David Gillespie <daveg@synaptics.com>
6 ;; Maintainers: D. Goel <deego@gnufans.org> 7 ;; Maintainers: D. Goel <deego@gnufans.org>
7 ;; Colin Walters <walters@debian.org> 8 ;; Colin Walters <walters@debian.org>
8 9
110 (defun calc-describe-bindings () 111 (defun calc-describe-bindings ()
111 (interactive) 112 (interactive)
112 (describe-bindings) 113 (describe-bindings)
113 (save-excursion 114 (save-excursion
114 (set-buffer "*Help*") 115 (set-buffer "*Help*")
115 (let ((buffer-read-only nil)) 116 (let ((inhibit-read-only t))
116 (goto-char (point-min)) 117 (goto-char (point-min))
117 (when (search-forward "Major Mode Bindings:" nil t) 118 (when (search-forward "Major Mode Bindings:" nil t)
118 (delete-region (point-min) (point)) 119 (delete-region (point-min) (point))
119 (insert "Calc Mode Bindings:")) 120 (insert "Calc Mode Bindings:"))
120 (when (search-forward "Global bindings:" nil t) 121 (when (search-forward "Global bindings:" nil t)
671 "SHIFT + sets: : (span), # (card), + (rdup)" 672 "SHIFT + sets: : (span), # (card), + (rdup)"
672 "<, =, > (justification); , (commas); [, {, ( (brackets)" 673 "<, =, > (justification); , (commas); [, {, ( (brackets)"
673 "} (matrix brackets); . (abbreviate); / (multi-lines)") 674 "} (matrix brackets); . (abbreviate); / (multi-lines)")
674 "vec/mat" ?v)) 675 "vec/mat" ?v))
675 676
676 ;;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686 677 ;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686
677 ;;; calc-help.el ends here 678 ;;; calc-help.el ends here