From c478ee0ee2eb35bb1ed4eb9bdc3dd6f5f89e1ae3 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 26 Nov 2004 22:37:54 +0000 Subject: [PATCH] (Info-history): Declare it. (calc-describe-key): Make calc-summary-indentation a local variable. (calc-help-long-names): Move declaration to earlier in file. --- lisp/calc/calc-help.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 99df2292f25..a8de197fab1 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el @@ -4,8 +4,7 @@ ;; Free Software Foundation, Inc. ;; Author: David Gillespie -;; Maintainers: D. Goel -;; Colin Walters +;; Maintainer: Jay Belanger ;; This file is part of GNU Emacs. @@ -139,6 +138,8 @@ C-w Describe how there is no warranty for Calc." (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,7 +158,8 @@ C-w Describe how there is no warranty for Calc." (lookup-key calc-help-map key2)) (key-binding key)))) (inv nil) - (hyp nil)) + (hyp nil) + calc-summary-indentation) (while (or (equal key "I") (equal key "H")) (if (equal key "I") (setq inv (not inv)) @@ -400,6 +402,12 @@ C-w Describe how there is no warranty for Calc." (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,12 +464,6 @@ C-w Describe how there is no warranty for Calc." 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 -- 2.39.2