/[emacs]/emacs/lisp/calc/calc-help.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-help.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by monnier, Thu Oct 21 19:09:45 2004 UTC revision 1.12 by jpb, Fri Nov 26 22:37:54 2004 UTC
# Line 4  Line 4 
4  ;;           Free Software Foundation, Inc.  ;;           Free Software Foundation, Inc.
5    
6  ;; Author: David Gillespie <daveg@synaptics.com>  ;; Author: David Gillespie <daveg@synaptics.com>
7  ;; Maintainers: D. Goel <deego@gnufans.org>  ;; Maintainer: Jay Belanger <belanger@truman.edu>
 ;;              Colin Walters <walters@debian.org>  
8    
9  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
10    
# Line 139  C-w  Describe how there is no warranty f Line 138  C-w  Describe how there is no warranty f
138    (interactive "kDescribe key briefly: ")    (interactive "kDescribe key briefly: ")
139    (calc-describe-key key t))    (calc-describe-key key t))
140    
141    (defvar Info-history)
142    
143  (defun calc-describe-key (key &optional briefly)  (defun calc-describe-key (key &optional briefly)
144    (interactive "kDescribe key: ")    (interactive "kDescribe key: ")
145    (let ((defn (if (eq (key-binding key) 'calc-dispatch)    (let ((defn (if (eq (key-binding key) 'calc-dispatch)
# Line 157  C-w  Describe how there is no warranty f Line 158  C-w  Describe how there is no warranty f
158                        (lookup-key calc-help-map key2))                        (lookup-key calc-help-map key2))
159                    (key-binding key))))                    (key-binding key))))
160          (inv nil)          (inv nil)
161          (hyp nil))          (hyp nil)
162            calc-summary-indentation)
163      (while (or (equal key "I") (equal key "H"))      (while (or (equal key "I") (equal key "H"))
164        (if (equal key "I")        (if (equal key "I")
165            (setq inv (not inv))            (setq inv (not inv))
# Line 400  C-w  Describe how there is no warranty f Line 402  C-w  Describe how there is no warranty f
402      (delete-region (point-min) (point))      (delete-region (point-min) (point))
403      (goto-char (point-min))))      (goto-char (point-min))))
404    
405    (defvar calc-help-long-names '((?b . "binary/business")
406                                   (?g . "graphics")
407                                   (?j . "selection")
408                                   (?k . "combinatorics/statistics")
409                                   (?u . "units/statistics")))
410    
411  (defun calc-full-help ()  (defun calc-full-help ()
412    (interactive)    (interactive)
413    (with-output-to-temp-buffer "*Help*"    (with-output-to-temp-buffer "*Help*"
# Line 456  C-w  Describe how there is no warranty f Line 464  C-w  Describe how there is no warranty f
464                  calc-z-prefix-help)))                  calc-z-prefix-help)))
465      (print-help-return-message)))      (print-help-return-message)))
466    
 (defvar calc-help-long-names '((?b . "binary/business")  
                                (?g . "graphics")  
                                (?j . "selection")  
                                (?k . "combinatorics/statistics")  
                                (?u . "units/statistics")))  
   
467  (defun calc-h-prefix-help ()  (defun calc-h-prefix-help ()
468    (interactive)    (interactive)
469    (calc-do-prefix-help    (calc-do-prefix-help

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26