diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-26 22:35:35 +0000 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-11-26 22:35:35 +0000 |
commit | 3a7a4adb2df59ce876640b4cbb5b2361ead8db21 (patch) | |
tree | 83aefe93b2c8599bd397f1892b81b772bdb7ab87 /lisp/calc/calc-store.el | |
parent | 32bac5ed0dc8baba35d65307ced9a5b63858a699 (diff) |
(calc-given-value, calc-store-opers): Declare them.
(calc-var-name-map): Move declaration to earlier in the file.
(calc-pv-pos): New variable.
(calc-permanent-variable, calc-insert-permanent-variable):
Replace variable pos by declared variable.
Diffstat (limited to 'lisp/calc/calc-store.el')
-rw-r--r-- | lisp/calc/calc-store.el | 52 |
1 files changed, 30 insertions, 22 deletions
diff --git a/lisp/calc/calc-store.el b/lisp/calc/calc-store.el index cb7156bfc7..495b968556 100644 --- a/lisp/calc/calc-store.el +++ b/lisp/calc/calc-store.el @@ -3,8 +3,7 @@ ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. ;; Author: David Gillespie <daveg@synaptics.com> -;; Maintainers: D. Goel <deego@gnufans.org> -;; Colin Walters <walters@debian.org> +;; Maintainer: Jay Belanger <belanger@truman.edu> ;; This file is part of GNU Emacs. @@ -44,6 +43,8 @@ (calc-store-into var))) (defvar calc-given-value-flag nil) +(defvar calc-given-value) + (defun calc-store-into (&optional var) (interactive) (calc-wrapper @@ -155,6 +156,24 @@ tag (and (not val) 1)) (message "Stored to variable \"%s\"" (calc-var-name var))))))) +(defvar calc-var-name-map nil "Keymap for reading Calc variable names.") +(if calc-var-name-map + () + (setq calc-var-name-map (copy-keymap minibuffer-local-completion-map)) + (define-key calc-var-name-map " " 'self-insert-command) + (mapcar (function + (lambda (x) + (define-key calc-var-name-map (char-to-string x) + 'calcVar-digit))) + "0123456789") + (mapcar (function + (lambda (x) + (define-key calc-var-name-map (char-to-string x) + 'calcVar-oper))) + "+-*/^|")) + +(defvar calc-store-opers) + (defun calc-read-var-name (prompt &optional calc-store-opers) (setq calc-given-value nil calc-aborted-prefix nil) @@ -178,22 +197,6 @@ svar)) (intern var))))) -(defvar calc-var-name-map nil "Keymap for reading Calc variable names.") -(if calc-var-name-map - () - (setq calc-var-name-map (copy-keymap minibuffer-local-completion-map)) - (define-key calc-var-name-map " " 'self-insert-command) - (mapcar (function - (lambda (x) - (define-key calc-var-name-map (char-to-string x) - 'calcVar-digit))) - "0123456789") - (mapcar (function - (lambda (x) - (define-key calc-var-name-map (char-to-string x) - 'calcVar-oper))) - "+-*/^|")) - (defun calcVar-digit () (interactive) (if (calc-minibuffer-contains "var-\\'") @@ -530,11 +533,16 @@ var-PlotData5 var-PlotData6 var-DUMMY)) +;; The variable calc-pv-pos is local to calc-permanent-variable, but +;; used by calc-insert-permanent-variable, which is called by +;; calc-permanent-variable. +(defvar calc-pv-pos) + (defun calc-permanent-variable (&optional var) (interactive) (calc-wrapper (or var (setq var (calc-read-var-name "Save variable (default=all): "))) - (let (pos) + (let (calc-pv-pos) (and var (or (and (boundp var) (symbol-value var)) (error "No such variable"))) (set-buffer (find-file-noselect (substitute-in-file-name @@ -556,16 +564,16 @@ (goto-char (point-min)) (if (search-forward (concat "(setq " (symbol-name var) " '") nil t) (progn - (setq pos (point-marker)) + (setq calc-pv-pos (point-marker)) (forward-line -1) (if (looking-at ";;; Variable .* stored by Calc on ") (progn (delete-region (match-end 0) (progn (end-of-line) (point))) (insert (current-time-string)))) - (goto-char (- pos 8 (length (symbol-name var)))) + (goto-char (- calc-pv-pos 8 (length (symbol-name var)))) (forward-sexp 1) (backward-char 1) - (delete-region pos (point))) + (delete-region calc-pv-pos (point))) (goto-char (point-max)) (insert "\n;;; Variable \"" (symbol-name var) |