emacs-diffs
[Top][All Lists]
Advanced

[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 ----




reply via email to

[Prev in Thread] Current Thread [Next in Thread]