[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-help.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-help.el |
Date: |
Fri, 26 Nov 2004 17:56:13 -0500 |
Index: emacs/lisp/calc/calc-help.el
diff -c emacs/lisp/calc/calc-help.el:1.11 emacs/lisp/calc/calc-help.el:1.12
*** emacs/lisp/calc/calc-help.el:1.11 Thu Oct 21 19:09:45 2004
--- emacs/lisp/calc/calc-help.el Fri Nov 26 22:37:54 2004
***************
*** 4,11 ****
;; Free Software Foundation, Inc.
;; Author: David Gillespie <address@hidden>
! ;; Maintainers: D. Goel <address@hidden>
! ;; Colin Walters <address@hidden>
;; This file is part of GNU Emacs.
--- 4,10 ----
;; Free Software Foundation, Inc.
;; Author: David Gillespie <address@hidden>
! ;; Maintainer: Jay Belanger <address@hidden>
;; This file is part of GNU Emacs.
***************
*** 139,144 ****
--- 138,145 ----
(interactive "kDescribe key briefly: ")
(calc-describe-key key t))
+ (defvar Info-history)
+
(defun calc-describe-key (key &optional briefly)
(interactive "kDescribe key: ")
(let ((defn (if (eq (key-binding key) 'calc-dispatch)
***************
*** 157,163 ****
(lookup-key calc-help-map key2))
(key-binding key))))
(inv nil)
! (hyp nil))
(while (or (equal key "I") (equal key "H"))
(if (equal key "I")
(setq inv (not inv))
--- 158,165 ----
(lookup-key calc-help-map key2))
(key-binding key))))
(inv nil)
! (hyp nil)
! calc-summary-indentation)
(while (or (equal key "I") (equal key "H"))
(if (equal key "I")
(setq inv (not inv))
***************
*** 400,405 ****
--- 402,413 ----
(delete-region (point-min) (point))
(goto-char (point-min))))
+ (defvar calc-help-long-names '((?b . "binary/business")
+ (?g . "graphics")
+ (?j . "selection")
+ (?k . "combinatorics/statistics")
+ (?u . "units/statistics")))
+
(defun calc-full-help ()
(interactive)
(with-output-to-temp-buffer "*Help*"
***************
*** 456,467 ****
calc-z-prefix-help)))
(print-help-return-message)))
- (defvar calc-help-long-names '((?b . "binary/business")
- (?g . "graphics")
- (?j . "selection")
- (?k . "combinatorics/statistics")
- (?u . "units/statistics")))
-
(defun calc-h-prefix-help ()
(interactive)
(calc-do-prefix-help
--- 464,469 ----
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-help.el,
Jay Belanger <=