/[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.4.2.4 by miles, Mon Oct 25 04:22:24 2004 UTC revision 1.4.2.5 by miles, Wed Dec 8 23:36:21 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 29  Line 28 
28  ;;; Code:  ;;; Code:
29    
30  ;; This file is autoloaded from calc-ext.el.  ;; This file is autoloaded from calc-ext.el.
 (require 'calc-ext)  
31    
32    (require 'calc-ext)
33  (require 'calc-macs)  (require 'calc-macs)
34    
 (defun calc-Need-calc-help () nil)  
   
   
35  (defun calc-help-prefix (arg)  (defun calc-help-prefix (arg)
36    "This key is the prefix for Calc help functions.  See calc-help-for-help."    "This key is the prefix for Calc help functions.  See calc-help-for-help."
37    (interactive "P")    (interactive "P")
# Line 139  C-w  Describe how there is no warranty f Line 135  C-w  Describe how there is no warranty f
135    (interactive "kDescribe key briefly: ")    (interactive "kDescribe key briefly: ")
136    (calc-describe-key key t))    (calc-describe-key key t))
137    
138    (defvar Info-history)
139    
140  (defun calc-describe-key (key &optional briefly)  (defun calc-describe-key (key &optional briefly)
141    (interactive "kDescribe key: ")    (interactive "kDescribe key: ")
142    (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 155  C-w  Describe how there is no warranty f
155                        (lookup-key calc-help-map key2))                        (lookup-key calc-help-map key2))
156                    (key-binding key))))                    (key-binding key))))
157          (inv nil)          (inv nil)
158          (hyp nil))          (hyp nil)
159            calc-summary-indentation)
160      (while (or (equal key "I") (equal key "H"))      (while (or (equal key "I") (equal key "H"))
161        (if (equal key "I")        (if (equal key "I")
162            (setq inv (not inv))            (setq inv (not inv))
# Line 187  C-w  Describe how there is no warranty f Line 186  C-w  Describe how there is no warranty f
186                                   (copy-to-buffer "*Calc Summary*"                                   (copy-to-buffer "*Calc Summary*"
187                                                   (point) (point-max))                                                   (point) (point-max))
188                                   (if Info-history                                   (if Info-history
189                                       (Info-last))))                                       (Info-last))))))
190                               (setq case-fold-search nil)                         (goto-char (point-min))
191                               (re-search-forward "^\\(.*\\)\\[\\.\\. a b")                         (setq case-fold-search nil)
192                               (setq calc-summary-indentation                         (re-search-forward "^\\(.*\\)\\[\\.\\. a b")
193                                     (- (match-end 1) (match-beginning 1)))))                         (setq calc-summary-indentation
194                                 (- (match-end 1) (match-beginning 1)))
195                         (goto-char (point-min))                         (goto-char (point-min))
196                         (setq target (if (and (string-match "[0-9]\\'" desc)                         (setq target (if (and (string-match "[0-9]\\'" desc)
197                                               (not (string-match "[d#]" desc)))                                               (not (string-match "[d#]" desc)))
# Line 400  C-w  Describe how there is no warranty f Line 400  C-w  Describe how there is no warranty f
400      (delete-region (point-min) (point))      (delete-region (point-min) (point))
401      (goto-char (point-min))))      (goto-char (point-min))))
402    
403    (defvar calc-help-long-names '((?b . "binary/business")
404                                   (?g . "graphics")
405                                   (?j . "selection")
406                                   (?k . "combinatorics/statistics")
407                                   (?u . "units/statistics")))
408    
409  (defun calc-full-help ()  (defun calc-full-help ()
410    (interactive)    (interactive)
411    (with-output-to-temp-buffer "*Help*"    (with-output-to-temp-buffer "*Help*"
# Line 456  C-w  Describe how there is no warranty f Line 462  C-w  Describe how there is no warranty f
462                  calc-z-prefix-help)))                  calc-z-prefix-help)))
463      (print-help-return-message)))      (print-help-return-message)))
464    
 (defvar calc-help-long-names '((?b . "binary/business")  
                                (?g . "graphics")  
                                (?j . "selection")  
                                (?k . "combinatorics/statistics")  
                                (?u . "units/statistics")))  
   
465  (defun calc-h-prefix-help ()  (defun calc-h-prefix-help ()
466    (interactive)    (interactive)
467    (calc-do-prefix-help    (calc-do-prefix-help
# Line 674  C-w  Describe how there is no warranty f Line 674  C-w  Describe how there is no warranty f
674       "} (matrix brackets); . (abbreviate); / (multi-lines)")       "} (matrix brackets); . (abbreviate); / (multi-lines)")
675     "vec/mat" ?v))     "vec/mat" ?v))
676    
677    (provide 'calc-help)
678    
679  ;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686  ;; arch-tag: 2d347593-7591-449e-a64a-93dab5f2f686
680  ;;; calc-help.el ends here  ;;; calc-help.el ends here

Legend:
Removed from v.1.4.2.4  
changed lines
  Added in v.1.4.2.5

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