procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
emacs/lisp/calc/calc-embed.el

1394 lines
50 KiB
EmacsLisp
Raw Normal View History

Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
;;; calc-embed.el --- embed Calc in a buffer
Update copyright year to 2020 Run "TZ=UTC0 admin/update-copyright $(git ls-files)".
2020-01-01 00:19:43 +00:00
;; Copyright (C) 1990-1993, 2001-2020 Free Software Foundation, Inc.
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
;; Author: David Gillespie <daveg@synaptics.com>
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
;; This file is part of GNU Emacs.
Switch to recommended form of GPLv3 permissions notice.
2008-05-06 03:16:00 +00:00
;; GNU Emacs is free software: you can redistribute it and/or modify
Change form of license text to match rest of Emacs.
2007-03-19 20:59:53 +00:00
;; it under the terms of the GNU General Public License as published by
Switch to recommended form of GPLv3 permissions notice.
2008-05-06 03:16:00 +00:00
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Change form of license text to match rest of Emacs.
2007-03-19 20:59:53 +00:00
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
;; GNU Emacs is distributed in the hope that it will be useful,
Change form of license text to match rest of Emacs.
2007-03-19 20:59:53 +00:00
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
Prefer HTTPS to FTP and HTTP in documentation Most of this change is to boilerplate commentary such as license URLs. This change was prompted by ftp://ftp.gnu.org's going-away party, planned for November. Change these FTP URLs to https://ftp.gnu.org instead. Make similar changes for URLs to other organizations moving away from FTP. Also, change HTTP to HTTPS for URLs to gnu.org and fsf.org when this works, as this will further help defend against man-in-the-middle attacks (for this part I omitted the MS-DOS and MS-Windows sources and the test tarballs to keep the workload down). HTTPS is not fully working to lists.gnu.org so I left those URLs alone for now.
2017-09-13 15:52:52 -07:00
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
;;; Commentary:
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
;;; Code:
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
;; This file is autoloaded from calc-ext.el.
Add a provide statement. (calc-Need-calc-embed): Remove it. (calc-do-embedded-activate): Remove from autoloads.
2004-11-30 17:04:40 +00:00
(require 'calc-ext)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(require 'calc-macs)
require cl-lib to fix fallout from mhtml series * lisp/align.el, lisp/calc/calc-embed.el, lisp/cedet/semantic.el, lisp/emulation/viper.el: Require cl-lib.
2017-04-06 07:36:36 -06:00
(require 'cl-lib)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded-make-info): Use `calc-embedded-word-regexp' to find word.
2008-10-10 14:31:19 +00:00
;; Declare functions which are defined elsewhere.
Fix some function declarations * lisp/calc/calc-embed.el (thing-at-point-looking-at): * lisp/emacs-lisp/map-ynp.el (x-popup-dialog): * lisp/obsolete/lmenu.el (x-popup-dialog): * lisp/emacs-lisp/package.el (url-recreate-url): * lisp/mail/mailclient.el (clipboard-kill-ring-save): * lisp/subr.el (x-popup-dialog): Update declaration. * lisp/mail/rmail.el (rmail-mime-message-p): * lisp/window.el (tool-bar-lines-needed): Remove unnecessary declaration.
2014-01-21 20:50:40 -05:00
(declare-function thing-at-point-looking-at "thingatpt"
(regexp &optional distance))
(calc-embedded-make-info): Use `calc-embedded-word-regexp' to find word.
2008-10-10 14:31:19 +00:00
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-show-plain (n)
(interactive "P")
(calc-wrapper
(calc-set-command-flag 'renum-stack)
(message (if (calc-change-mode 'calc-show-plain n nil t)
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
"Including \"plain\" formulas in Calc Embedded mode"
"Omitting \"plain\" formulas in Calc Embedded mode"))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defvar calc-embedded-modes nil)
(defvar calc-embedded-globals nil)
(defvar calc-embedded-active nil)
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
(defvar calc-embedded-all-active nil)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(make-variable-buffer-local 'calc-embedded-all-active)
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
(defvar calc-embedded-some-active nil)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(make-variable-buffer-local 'calc-embedded-some-active)
calc-embed.el (calc-embedded-announce-formula, calc-embedded-open-formula) (calc-embedded-close-formula, calc-embedded-open-word) (calc-embedded-close-word, calc-embedded-open-plain) (calc-embedded-close-plain, calc-embedded-open-new-formula) (calc-embedded-close-new-formula, calc-embedded-open-mode) (calc-embedded-close-mode): Move definitions to calc.el.
2005-04-01 21:44:21 +00:00
;; The following variables are customizable and defined in calc.el.
(defvar calc-embedded-announce-formula)
(defvar calc-embedded-open-formula)
(defvar calc-embedded-close-formula)
(defvar calc-embedded-open-plain)
(defvar calc-embedded-close-plain)
(defvar calc-embedded-open-new-formula)
(defvar calc-embedded-close-new-formula)
(defvar calc-embedded-open-mode)
(defvar calc-embedded-close-mode)
(calc-embedded-make-info): Use `calc-embedded-word-regexp' to find word.
2008-10-10 14:31:19 +00:00
(defvar calc-embedded-word-regexp)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded-mode-vars): Rename `calc-complement-signed-mode' to `calc-twos-complement-mode'.
2009-11-20 00:56:59 +00:00
(defconst calc-embedded-mode-vars '(("twos-complement" . calc-twos-complement-mode)
(calc-embedded-mode-vars): Add `calc-complement-signed-mode'.
2009-11-16 00:01:17 +00:00
("precision" . calc-internal-prec)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
("word-size" . calc-word-size)
("angles" . calc-angle-mode)
("symbolic" . calc-symbolic-mode)
("matrix" . calc-matrix-mode)
("fractions" . calc-prefer-frac)
("complex" . calc-complex-mode)
("simplify" . calc-simplify-mode)
("language" . the-language)
("plain" . calc-show-plain)
("break" . calc-line-breaking)
("justify" . the-display-just)
("left-label" . calc-left-label)
("right-label" . calc-right-label)
("radix" . calc-number-radix)
("leading-zeros" . calc-leading-zeros)
("grouping" . calc-group-digits)
("group-char" . calc-group-char)
("point-char" . calc-point-char)
("frac-format" . calc-frac-format)
("float-format" . calc-float-format)
("complex-format" . calc-complex-format)
("hms-format" . calc-hms-format)
("date-format" . calc-date-format)
("matrix-justify" . calc-matrix-just)
("full-vectors" . calc-full-vectors)
("break-vectors" . calc-break-vectors)
("vector-commas" . calc-vector-commas)
("vector-brackets" . calc-vector-brackets)
("matrix-brackets" . calc-matrix-brackets)
("strings" . calc-display-strings)
))
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually. (calc-mode-map, calc-digit-map, calc-dispatch-map): Move initialization into declaration. * calc/calc-yank.el: * calc/calc-misc.el: * calc/calc-embed.el: * calc/calc-aent.el: Add autoload cookies and set generated-autoload-file.
2008-04-08 22:07:55 +00:00
;; Format of calc-embedded-info vector:
;; 0 Editing buffer.
;; 1 Calculator buffer.
;; 2 Top of current formula (marker).
;; 3 Bottom of current formula (marker).
;; 4 Top of current formula's delimiters (marker).
;; 5 Bottom of current formula's delimiters (marker).
;; 6 String representation of current formula.
;; 7 Non-nil if formula is embedded within a single line.
;; 8 Internal representation of current formula.
;; 9 Variable assigned by this formula, or nil.
;; 10 List of variables upon which this formula depends.
;; 11 Evaluated value of the formula, or nil.
;; 12 Mode settings for current formula.
;; 13 Local mode settings for current formula.
;; 14 Permanent mode settings for current formula.
;; 15 Global mode settings for editing buffer.
;; calc-embedded-active is an a-list keyed on buffers; each cdr is a
;; sorted list of calc-embedded-infos in that buffer. We do this
;; rather than using buffer-local variables because the latter are
;; thrown away when a buffer changes major modes.
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded-original-modes): New variable. (calc-embedded-save-original-modes) (calc-embedded-restore-original-modes): New functions. (calc-do-embedded): Save original modes when entering embedded mode and restore when leaving embedded mode. (calc-embedded-modes-change): Change the value of calc-embedded-original-modes to reflect permanent changes.
2005-03-22 16:12:57 +00:00
(defvar calc-embedded-original-modes nil
"The mode settings for Calc buffer when put in embedded mode.")
(defun calc-embedded-save-original-modes ()
Spelling fixes.
2011-11-17 01:09:20 -08:00
"Save the current Calc modes when entering embedded mode."
(calc-embedded-original-modes): New variable. (calc-embedded-save-original-modes) (calc-embedded-restore-original-modes): New functions. (calc-do-embedded): Save original modes when entering embedded mode and restore when leaving embedded mode. (calc-embedded-modes-change): Change the value of calc-embedded-original-modes to reflect permanent changes.
2005-03-22 16:12:57 +00:00
(let ((calcbuf (save-excursion
(calc-create-buffer)
(current-buffer)))
lang modes)
(if calcbuf
(with-current-buffer calcbuf
(setq lang
(cons calc-language calc-language-option))
(setq modes
(list (cons 'calc-display-just
calc-display-just)
(cons 'calc-display-origin
calc-display-origin)))
(let ((v calc-embedded-mode-vars))
(while v
(let ((var (cdr (car v))))
(unless (memq var '(the-language the-display-just))
(setq modes
Spelling fixes.
2011-11-17 01:09:20 -08:00
(cons (cons var (symbol-value var))
(calc-embedded-original-modes): New variable. (calc-embedded-save-original-modes) (calc-embedded-restore-original-modes): New functions. (calc-do-embedded): Save original modes when entering embedded mode and restore when leaving embedded mode. (calc-embedded-modes-change): Change the value of calc-embedded-original-modes to reflect permanent changes.
2005-03-22 16:12:57 +00:00
modes))))
(setq v (cdr v))))
(setq calc-embedded-original-modes (cons lang modes)))
(setq calc-embedded-original-modes nil))))
(calc-embedded-preserve-modes): New function.
2005-05-08 04:58:38 +00:00
(defun calc-embedded-preserve-modes ()
"Preserve the current modes when leaving embedded mode."
(interactive)
(if calc-embedded-info
(progn
(calc-embedded-save-original-modes)
(message "Current modes will be preserved when leaving embedded mode."))
(message "Not in embedded mode.")))
(calc-embedded-restore-original-modes): Add argument for Calculator buffer. (calc-do-embedded): Use specific Calculator buffer when cancelling embedded mode.
2009-03-30 02:17:40 +00:00
(defun calc-embedded-restore-original-modes (calcbuf)
(calc-embedded-original-modes): New variable. (calc-embedded-save-original-modes) (calc-embedded-restore-original-modes): New functions. (calc-do-embedded): Save original modes when entering embedded mode and restore when leaving embedded mode. (calc-embedded-modes-change): Change the value of calc-embedded-original-modes to reflect permanent changes.
2005-03-22 16:12:57 +00:00
"Restore the original Calc modes when leaving embedded mode."
(calc-embedded-restore-original-modes): Add argument for Calculator buffer. (calc-do-embedded): Use specific Calculator buffer when cancelling embedded mode.
2009-03-30 02:17:40 +00:00
(let ((changed nil)
(calc-embedded-original-modes): New variable. (calc-embedded-save-original-modes) (calc-embedded-restore-original-modes): New functions. (calc-do-embedded): Save original modes when entering embedded mode and restore when leaving embedded mode. (calc-embedded-modes-change): Change the value of calc-embedded-original-modes to reflect permanent changes.
2005-03-22 16:12:57 +00:00
(lang (car calc-embedded-original-modes))
(modes (cdr calc-embedded-original-modes)))
(if (and calcbuf calc-embedded-original-modes)
(with-current-buffer calcbuf
(unless (and
(equal calc-language (car lang))
(equal calc-language-option (cdr lang)))
(calc-set-language (car lang) (cdr lang))
(setq changed t))
(while modes
(let ((mode (car modes)))
(unless (equal (symbol-value (car mode)) (cdr mode))
(set (car mode) (cdr mode))
(setq changed t)))
(setq modes (cdr modes)))
(when changed
(calc-refresh)
(calc-set-mode-line))))
(setq calc-embedded-original-modes nil)))
Spelling fixes.
2011-11-17 01:09:20 -08:00
;; The variables calc-embed-outer-top, calc-embed-outer-bot,
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
;; calc-embed-top and calc-embed-bot are
;; local to calc-do-embedded, calc-embedded-mark-formula,
;; calc-embedded-duplicate, calc-embedded-new-formula and
;; calc-embedded-make-info, but are used by calc-embedded-find-bounds,
;; which is called (directly or indirectly) by the above functions.
(defvar calc-embed-outer-top)
(defvar calc-embed-outer-bot)
(defvar calc-embed-top)
(defvar calc-embed-bot)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
;; The variable calc-embed-arg is local to calc-do-embedded,
;; calc-embedded-update-formula, calc-embedded-edit and
Spelling fixes.
2011-11-17 01:09:20 -08:00
;; calc-do-embedded-activate, but is used by
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
;; calc-embedded-make-info, which is called by the above
;; functions.
(defvar calc-embed-arg)
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
(defvar calc-embedded-quiet nil)
(calc-embedded-firsttime, calc-embedded-firsttime-buf, calc-embedded-firsttime-formula): New variables. (calc-do-embedded): Use calc-embedded-firsttime, calc-embedded-firsttime-buf and calc-embedded-firsttime-formula to determine whether or not to run hooks. (calc-embedded-make-info) Set calc-embedded-firsttime-buf and calc-embedded-firsttime-formula appropriately. Set calc-embedded delimiter variables according to mode.
2005-07-09 03:42:56 +00:00
(defvar calc-embedded-firsttime)
(defvar calc-embedded-firsttime-buf)
(defvar calc-embedded-firsttime-formula)
calc-embed.el: (calc-override-minor-modes-map, calc-override-minor-modes): New variables. (calc-do-embedded): Make sure that Calc keystrokes aren't overwritten by minor modes.
2006-05-02 20:52:52 +00:00
;; The following is to take care of any minor modes which override
;; a Calc command.
Spelling fixes.
2011-11-17 01:09:20 -08:00
(defvar calc-override-minor-modes-map
calc-embed.el: (calc-override-minor-modes-map, calc-override-minor-modes): New variables. (calc-do-embedded): Make sure that Calc keystrokes aren't overwritten by minor modes.
2006-05-02 20:52:52 +00:00
(make-sparse-keymap)
"A list of keybindings that might be overwritten by minor modes.")
;; Add any keys that might be overwritten here.
(define-key calc-override-minor-modes-map "`" 'calc-edit)
Spelling fixes.
2011-11-17 01:09:20 -08:00
(defvar calc-override-minor-modes
calc-embed.el: (calc-override-minor-modes-map, calc-override-minor-modes): New variables. (calc-do-embedded): Make sure that Calc keystrokes aren't overwritten by minor modes.
2006-05-02 20:52:52 +00:00
(cons t calc-override-minor-modes-map))
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(defun calc-do-embedded (calc-embed-arg end obeg oend)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if calc-embedded-info
;; Turn embedded mode off or switch to a new buffer.
(cond ((eq (current-buffer) (aref calc-embedded-info 1))
(let ((calcbuf (current-buffer))
(buf (aref calc-embedded-info 0)))
(calc-embedded-original-buffer t)
(calc-embedded nil)
(switch-to-buffer calcbuf)))
((eq (current-buffer) (aref calc-embedded-info 0))
(let* ((info calc-embedded-info)
(calc-embedded-restore-original-modes): Add argument for Calculator buffer. (calc-do-embedded): Use specific Calculator buffer when cancelling embedded mode.
2009-03-30 02:17:40 +00:00
(mode calc-embedded-modes)
(calcbuf (aref calc-embedded-info 1)))
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record) (calcDigit-nondigit): * calc/calc-yank.el (calc-copy-to-buffer): * calc/calc-units.el (calc-invalidate-units-table): * calc/calc-trail.el (calc-trail-yank): * calc/calc-store.el (calc-insert-variables): * calc/calc-rewr.el (math-rewrite, math-rewrite-phase): * calc/calc-prog.el (calc-read-parse-table): * calc/calc-keypd.el (calc-do-keypad, calc-keypad-right-click): * calc/calc-help.el (calc-describe-bindings, calc-describe-key): * calc/calc-graph.el (calc-graph-delete, calc-graph-add-curve) (calc-graph-juggle, calc-graph-count-curves, calc-graph-plot) (calc-graph-plot, calc-graph-format-data, calc-graph-set-styles) (calc-graph-name, calc-graph-find-command, calc-graph-view) (calc-graph-view, calc-gnuplot-command, calc-graph-init): * calc/calc-ext.el (calc-realign): * calc/calc-embed.el (calc-do-embedded, calc-do-embedded) (calc-embedded-finish-edit, calc-embedded-make-info) (calc-embedded-finish-command, calc-embedded-stack-change): * calc/calc-aent.el (calcAlg-enter): Use with-current-buffer.
2009-10-28 18:35:33 +00:00
(with-current-buffer (aref info 1)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if (and (> (calc-stack-size) 0)
(equal (calc-top 1 'full) (aref info 8)))
(let ((calc-no-refresh-evaltos t))
(if (calc-top 1 'sel)
(calc-unselect 1))
(calc-embedded-set-modes
(aref info 15) (aref info 12) (aref info 14))
(let ((calc-embedded-info nil))
(calc-wrapper (calc-pop-stack))))
(calc-set-mode-line)))
(setq calc-embedded-info nil
mode-line-buffer-identification (car mode)
truncate-lines (nth 2 mode)
buffer-read-only nil)
(use-local-map (nth 1 mode))
calc-embed.el: (calc-override-minor-modes-map, calc-override-minor-modes): New variables. (calc-do-embedded): Make sure that Calc keystrokes aren't overwritten by minor modes.
2006-05-02 20:52:52 +00:00
(setq minor-mode-overriding-map-alist
(remq calc-override-minor-modes minor-mode-overriding-map-alist))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(set-buffer-modified-p (buffer-modified-p))
(calc-embedded-restore-original-modes): Add argument for Calculator buffer. (calc-do-embedded): Use specific Calculator buffer when cancelling embedded mode.
2009-03-30 02:17:40 +00:00
(calc-embedded-restore-original-modes calcbuf)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(or calc-embedded-quiet
* erc-ibuffer.el (erc-channel-modes): * bs.el (bs--sort-by-mode, bs--get-mode-name): * imenu.el (imenu-add-to-menubar): * makesum.el (make-command-summary): * mouse.el (mouse-major-mode-menu, mouse-popup-menubar, mouse-buffer-menu): * msb.el (msb--mode-menu-cond): * calc/calc-embed.el (calc-do-embedded): * emacs-lisp/helper.el (Helper-describe-mode): * mail/emacsbug.el (report-emacs-bug): * progmodes/hideshow.el (hs-grok-mode-type): * textmodes/sgml-mode.el (sgml-mode-facemenu-add-face-function): * textmodes/table.el (*table--cell-describe-mode): Pass mode-name through format-mode-line.
2008-01-04 06:29:12 +00:00
(message "Back to %s mode" (format-mode-line mode-name)))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(t
(if (buffer-name (aref calc-embedded-info 0))
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record) (calcDigit-nondigit): * calc/calc-yank.el (calc-copy-to-buffer): * calc/calc-units.el (calc-invalidate-units-table): * calc/calc-trail.el (calc-trail-yank): * calc/calc-store.el (calc-insert-variables): * calc/calc-rewr.el (math-rewrite, math-rewrite-phase): * calc/calc-prog.el (calc-read-parse-table): * calc/calc-keypd.el (calc-do-keypad, calc-keypad-right-click): * calc/calc-help.el (calc-describe-bindings, calc-describe-key): * calc/calc-graph.el (calc-graph-delete, calc-graph-add-curve) (calc-graph-juggle, calc-graph-count-curves, calc-graph-plot) (calc-graph-plot, calc-graph-format-data, calc-graph-set-styles) (calc-graph-name, calc-graph-find-command, calc-graph-view) (calc-graph-view, calc-gnuplot-command, calc-graph-init): * calc/calc-ext.el (calc-realign): * calc/calc-embed.el (calc-do-embedded, calc-do-embedded) (calc-embedded-finish-edit, calc-embedded-make-info) (calc-embedded-finish-command, calc-embedded-stack-change): * calc/calc-aent.el (calcAlg-enter): Use with-current-buffer.
2009-10-28 18:35:33 +00:00
(with-current-buffer (aref calc-embedded-info 0)
(calc-do-embedded): Call `y-or-n-p' with correct number of arguments.
2001-11-13 07:28:01 +00:00
(or (y-or-n-p (format "Cancel Calc Embedded mode in buffer %s? "
(buffer-name)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(keyboard-quit))
(calc-embedded nil)))
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(calc-embedded calc-embed-arg end obeg oend)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
;; Turn embedded mode on.
(calc-plain-buffer-only)
(let ((modes (list mode-line-buffer-identification
(current-local-map)
truncate-lines))
(calc-embedded-firsttime, calc-embedded-firsttime-buf, calc-embedded-firsttime-formula): New variables. (calc-do-embedded): Use calc-embedded-firsttime, calc-embedded-firsttime-buf and calc-embedded-firsttime-formula to determine whether or not to run hooks. (calc-embedded-make-info) Set calc-embedded-firsttime-buf and calc-embedded-firsttime-formula appropriately. Set calc-embedded delimiter variables according to mode.
2005-07-09 03:42:56 +00:00
(calc-embedded-firsttime (not calc-embedded-active))
(calc-embedded-firsttime-buf nil)
(calc-embedded-firsttime-formula nil)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
calc-embed-top calc-embed-bot calc-embed-outer-top calc-embed-outer-bot
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
info chg ident)
(barf-if-buffer-read-only)
(calc-embedded-original-modes): New variable. (calc-embedded-save-original-modes) (calc-embedded-restore-original-modes): New functions. (calc-do-embedded): Save original modes when entering embedded mode and restore when leaving embedded mode. (calc-embedded-modes-change): Change the value of calc-embedded-original-modes to reflect permanent changes.
2005-03-22 16:12:57 +00:00
(calc-embedded-save-original-modes)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(or calc-embedded-globals
(calc-find-globals))
Spelling fixes.
2011-11-17 01:09:20 -08:00
(setq info
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(calc-embedded-make-info (point) nil t calc-embed-arg end obeg oend))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if (eq (car-safe (aref info 8)) 'error)
(progn
(calc-embedded-original-modes): New variable. (calc-embedded-save-original-modes) (calc-embedded-restore-original-modes): New functions. (calc-do-embedded): Save original modes when entering embedded mode and restore when leaving embedded mode. (calc-embedded-modes-change): Change the value of calc-embedded-original-modes to reflect permanent changes.
2005-03-22 16:12:57 +00:00
(setq calc-embedded-original-modes nil)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(goto-char (nth 1 (aref info 8)))
(error (nth 2 (aref info 8)))))
(let ((mode-line-buffer-identification mode-line-buffer-identification)
(calc-embedded-info info)
(calc-embedded-no-reselect t))
(calc-wrapper
(let* ((okay nil)
(calc-no-refresh-evaltos t))
(if (aref info 8)
calc-embed.el (calc-do-embedded): Put data on stack before changing modes.
2005-03-21 15:49:02 +00:00
(progn
(calc-push (calc-normalize (aref info 8)))
(setq chg (calc-embedded-set-modes
(aref info 15) (aref info 12) (aref info 13))))
(setq chg (calc-embedded-set-modes
(aref info 15) (aref info 12) (aref info 13)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-alg-entry)))
(setq calc-undo-list nil
calc-redo-list nil
ident mode-line-buffer-identification)))
(setq calc-embedded-info info
calc-embedded-modes modes
mode-line-buffer-identification ident
truncate-lines t
buffer-read-only t)
(set-buffer-modified-p (buffer-modified-p))
(use-local-map calc-mode-map)
calc-embed.el: (calc-override-minor-modes-map, calc-override-minor-modes): New variables. (calc-do-embedded): Make sure that Calc keystrokes aren't overwritten by minor modes.
2006-05-02 20:52:52 +00:00
(setq minor-mode-overriding-map-alist
(cons calc-override-minor-modes
minor-mode-overriding-map-alist))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(setq calc-no-refresh-evaltos nil)
(and chg calc-any-evaltos (calc-wrapper (calc-refresh-evaltos)))
(calc-do-embedded): Set mode line when embedded mode begins. (calc-embedded-language-alist): New variable. (calc-embedded-find-modes): Use calc-embedded-language-alist to set default language mode.
2005-03-08 05:26:44 +00:00
(let (str)
(save-excursion
(calc-select-buffer)
(setq str mode-line-buffer-identification))
(unless (equal str mode-line-buffer-identification)
(setq mode-line-buffer-identification str)
(set-buffer-modified-p (buffer-modified-p))))
(calc-embedded-firsttime, calc-embedded-firsttime-buf, calc-embedded-firsttime-formula): New variables. (calc-do-embedded): Use calc-embedded-firsttime, calc-embedded-firsttime-buf and calc-embedded-firsttime-formula to determine whether or not to run hooks. (calc-embedded-make-info) Set calc-embedded-firsttime-buf and calc-embedded-firsttime-formula appropriately. Set calc-embedded delimiter variables according to mode.
2005-07-09 03:42:56 +00:00
(if calc-embedded-firsttime
(run-hooks 'calc-embedded-mode-hook))
(if calc-embedded-firsttime-buf
(run-hooks 'calc-embedded-new-buffer-hook))
(if calc-embedded-firsttime-formula
(run-hooks 'calc-embedded-new-formula-hook))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(or (eq calc-embedded-quiet t)
Respect text-quoting-style in calc In calc, tespect text-quoting-style preference in diagnostic formats and fix a few similar problems in docstrings. * lisp/calc/calc-aent.el (math-read-factor): * lisp/calc/calc-embed.el (calc-do-embedded): * lisp/calc/calc-ext.el (calc-user-function-list) * lisp/calc/calc-graph.el (calc-graph-show-dumb): * lisp/calc/calc-help.el (calc-describe-key) (calc-describe-thing): * lisp/calc/calc-lang.el (calc-c-language) (math-parse-fortran-vector-end, math-parse-tex-sum) (math-parse-eqn-matrix, math-parse-eqn-prime) (calc-yacas-language, calc-maxima-language, calc-giac-language) (math-read-big-rec, math-read-big-balance): * lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes) (calc-auto-recompute): * lisp/calc/calc-prog.el (calc-user-define-invocation) (math-do-arg-check): * lisp/calc/calc-store.el (calc-edit-variable): * lisp/calc/calc-units.el (math-build-units-table-buffer): * lisp/calc/calc-vec.el (math-read-brackets): * lisp/calc/calc-yank.el (calc-edit-mode): * lisp/calc/calc.el (calc, calc-do, calc-user-invocation): Use curved quotes in diagnostic format strings. * lisp/calc/calc-help.el (calc-describe-thing): Format docstrings with substitute-command-keys. * lisp/calc/calc-help.el (calc-j-prefix-help): * lisp/calc/calc-misc.el (calc-help): * lisp/calc/calc-ext.el (calc-shift-Z-prefix-help): Escape a docstring "`".
2015-08-21 06:31:54 -07:00
(message (concat
"Embedded Calc mode enabled; "
(if calc-embedded-quiet
Go back to grave quoting in source-code docstrings etc. This reverts almost all my recent changes to use curved quotes in docstrings and/or strings used for error diagnostics. There are a few exceptions, e.g., Bahá’í proper names. * admin/unidata/unidata-gen.el (unidata-gen-table): * lisp/abbrev.el (expand-region-abbrevs): * lisp/align.el (align-region): * lisp/allout.el (allout-mode, allout-solicit-alternate-bullet) (outlineify-sticky): * lisp/apropos.el (apropos-library): * lisp/bookmark.el (bookmark-default-annotation-text): * lisp/button.el (button-category-symbol, button-put) (make-text-button): * lisp/calc/calc-aent.el (math-read-if, math-read-factor): * lisp/calc/calc-embed.el (calc-do-embedded): * lisp/calc/calc-ext.el (calc-user-function-list): * lisp/calc/calc-graph.el (calc-graph-show-dumb): * lisp/calc/calc-help.el (calc-describe-key) (calc-describe-thing, calc-full-help): * lisp/calc/calc-lang.el (calc-c-language) (math-parse-fortran-vector-end, math-parse-tex-sum) (math-parse-eqn-matrix, math-parse-eqn-prime) (calc-yacas-language, calc-maxima-language, calc-giac-language) (math-read-giac-subscr, math-read-math-subscr) (math-read-big-rec, math-read-big-balance): * lisp/calc/calc-misc.el (calc-help, report-calc-bug): * lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes) (calc-auto-recompute): * lisp/calc/calc-prog.el (calc-fix-token-name) (calc-read-parse-table-part, calc-user-define-invocation) (math-do-arg-check): * lisp/calc/calc-store.el (calc-edit-variable): * lisp/calc/calc-units.el (math-build-units-table-buffer): * lisp/calc/calc-vec.el (math-read-brackets): * lisp/calc/calc-yank.el (calc-edit-mode): * lisp/calc/calc.el (calc, calc-do, calc-user-invocation): * lisp/calendar/appt.el (appt-display-message): * lisp/calendar/diary-lib.el (diary-check-diary-file) (diary-mail-entries, diary-from-outlook): * lisp/calendar/icalendar.el (icalendar-export-region) (icalendar--convert-float-to-ical) (icalendar--convert-date-to-ical) (icalendar--convert-ical-to-diary) (icalendar--convert-recurring-to-diary) (icalendar--add-diary-entry): * lisp/calendar/time-date.el (format-seconds): * lisp/calendar/timeclock.el (timeclock-mode-line-display) (timeclock-make-hours-explicit, timeclock-log-data): * lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category) (todo-item-mark, todo-check-format) (todo-insert-item--next-param, todo-edit-item--next-key) (todo-mode): * lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules): * lisp/cedet/mode-local.el (describe-mode-local-overload) (mode-local-print-binding, mode-local-describe-bindings-2): * lisp/cedet/semantic/complete.el (semantic-displayor-show-request): * lisp/cedet/srecode/srt-mode.el (srecode-macro-help): * lisp/cus-start.el (standard): * lisp/cus-theme.el (describe-theme-1): * lisp/custom.el (custom-add-dependencies, custom-check-theme) (custom--sort-vars-1, load-theme): * lisp/descr-text.el (describe-text-properties-1, describe-char): * lisp/dired-x.el (dired-do-run-mail): * lisp/dired.el (dired-log): * lisp/emacs-lisp/advice.el (ad-read-advised-function) (ad-read-advice-class, ad-read-advice-name, ad-enable-advice) (ad-disable-advice, ad-remove-advice, ad-set-argument) (ad-set-arguments, ad--defalias-fset, ad-activate) (ad-deactivate): * lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand) (byte-compile-unfold-lambda, byte-optimize-form-code-walker) (byte-optimize-while, byte-optimize-apply): * lisp/emacs-lisp/byte-run.el (defun, defsubst): * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode) (byte-compile-log-file, byte-compile-format-warn) (byte-compile-nogroup-warn, byte-compile-arglist-warn) (byte-compile-cl-warn) (byte-compile-warn-about-unresolved-functions) (byte-compile-file, byte-compile--declare-var) (byte-compile-file-form-defmumble, byte-compile-form) (byte-compile-normal-call, byte-compile-check-variable) (byte-compile-variable-ref, byte-compile-variable-set) (byte-compile-subr-wrong-args, byte-compile-setq-default) (byte-compile-negation-optimizer) (byte-compile-condition-case--old) (byte-compile-condition-case--new, byte-compile-save-excursion) (byte-compile-defvar, byte-compile-autoload) (byte-compile-lambda-form) (byte-compile-make-variable-buffer-local, display-call-tree) (batch-byte-compile): * lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use): * lisp/emacs-lisp/chart.el (chart-space-usage): * lisp/emacs-lisp/check-declare.el (check-declare-scan) (check-declare-warn, check-declare-file) (check-declare-directory): * lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine) (checkdoc-message-text-engine): * lisp/emacs-lisp/cl-extra.el (cl-parse-integer) (cl--describe-class): * lisp/emacs-lisp/cl-generic.el (cl-defgeneric) (cl--generic-describe, cl-generic-generalizers): * lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody) (cl-symbol-macrolet): * lisp/emacs-lisp/cl.el (cl-unload-function, flet): * lisp/emacs-lisp/copyright.el (copyright) (copyright-update-directory): * lisp/emacs-lisp/edebug.el (edebug-read-list): * lisp/emacs-lisp/eieio-base.el (eieio-persistent-read): * lisp/emacs-lisp/eieio-core.el (eieio--slot-override) (eieio-oref): * lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor): * lisp/emacs-lisp/eieio-speedbar.el: (eieio-speedbar-child-make-tag-lines) (eieio-speedbar-child-description): * lisp/emacs-lisp/eieio.el (defclass, change-class): * lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms) (elint-init-form, elint-check-defalias-form) (elint-check-let-form): * lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu) (ert-results-pop-to-backtrace-for-test-at-point) (ert-results-pop-to-messages-for-test-at-point) (ert-results-pop-to-should-forms-for-test-at-point) (ert-describe-test): * lisp/emacs-lisp/find-func.el (find-function-search-for-symbol) (find-function-library): * lisp/emacs-lisp/generator.el (iter-yield): * lisp/emacs-lisp/gv.el (gv-define-simple-setter): * lisp/emacs-lisp/lisp-mnt.el (lm-verify): * lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning): * lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): * lisp/emacs-lisp/nadvice.el (advice--make-docstring) (advice--make, define-advice): * lisp/emacs-lisp/package-x.el (package-upload-file): * lisp/emacs-lisp/package.el (package-version-join) (package-disabled-p, package-activate-1, package-activate) (package--download-one-archive) (package--download-and-read-archives) (package-compute-transaction, package-install-from-archive) (package-install, package-install-selected-packages) (package-delete, package-autoremove, describe-package-1) (package-install-button-action, package-delete-button-action) (package-menu-hide-package, package-menu--list-to-prompt) (package-menu--perform-transaction) (package-menu--find-and-notify-upgrades): * lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1): * lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode): * lisp/emacs-lisp/ring.el (ring-previous, ring-next): * lisp/emacs-lisp/rx.el (rx-check, rx-anything) (rx-check-any-string, rx-check-any, rx-check-not, rx-=) (rx-repeat, rx-check-backref, rx-syntax, rx-check-category) (rx-form): * lisp/emacs-lisp/smie.el (smie-config-save): * lisp/emacs-lisp/subr-x.el (internal--check-binding): * lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag): * lisp/emacs-lisp/testcover.el (testcover-1value): * lisp/emacs-lisp/timer.el (timer-event-handler): * lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments) (viper-toggle-search-style, viper-kill-buffer) (viper-brac-function): * lisp/emulation/viper-macs.el (viper-record-kbd-macro): * lisp/env.el (setenv): * lisp/erc/erc-button.el (erc-nick-popup): * lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english): * lisp/eshell/em-dirs.el (eshell/cd): * lisp/eshell/em-glob.el (eshell-glob-regexp) (eshell-glob-entries): * lisp/eshell/em-pred.el (eshell-parse-modifiers): * lisp/eshell/esh-opt.el (eshell-show-usage): * lisp/facemenu.el (facemenu-add-new-face) (facemenu-add-new-color): * lisp/faces.el (read-face-name, read-face-font, describe-face) (x-resolve-font-name): * lisp/files-x.el (modify-file-local-variable): * lisp/files.el (locate-user-emacs-file, find-alternate-file) (set-auto-mode, hack-one-local-variable--obsolete) (dir-locals-set-directory-class, write-file, basic-save-buffer) (delete-directory, copy-directory, recover-session) (recover-session-finish, insert-directory) (file-modes-char-to-who, file-modes-symbolic-to-number) (move-file-to-trash): * lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer): * lisp/find-cmd.el (find-generic, find-to-string): * lisp/finder.el (finder-commentary): * lisp/font-lock.el (font-lock-fontify-buffer): * lisp/format.el (format-write-file, format-find-file) (format-insert-file): * lisp/frame.el (get-device-terminal, select-frame-by-name): * lisp/fringe.el (fringe--check-style): * lisp/gnus/nnmairix.el (nnmairix-widget-create-query): * lisp/help-fns.el (help-fns--key-bindings) (help-fns--compiler-macro, help-fns--parent-mode) (help-fns--obsolete, help-fns--interactive-only) (describe-function-1, describe-variable): * lisp/help.el (describe-mode) (describe-minor-mode-from-indicator): * lisp/image.el (image-type): * lisp/international/ccl.el (ccl-dump): * lisp/international/fontset.el (x-must-resolve-font-name): * lisp/international/mule-cmds.el (prefer-coding-system) (select-safe-coding-system-interactively) (select-safe-coding-system, activate-input-method) (toggle-input-method, describe-current-input-method) (describe-language-environment): * lisp/international/mule-conf.el (code-offset): * lisp/international/mule-diag.el (describe-character-set) (list-input-methods-1): * lisp/mail/feedmail.el (feedmail-run-the-queue): * lisp/mouse.el (minor-mode-menu-from-indicator): * lisp/mpc.el (mpc-playlist-rename): * lisp/msb.el (msb--choose-menu): * lisp/net/ange-ftp.el (ange-ftp-shell-command): * lisp/net/imap.el (imap-interactive-login): * lisp/net/mairix.el (mairix-widget-create-query): * lisp/net/newst-backend.el (newsticker--sentinel-work): * lisp/net/newst-treeview.el (newsticker--treeview-load): * lisp/net/rlogin.el (rlogin): * lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer): * lisp/obsolete/otodo-mode.el (todo-more-important-p): * lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region): * lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region): * lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region): * lisp/org/ob-core.el (org-babel-goto-named-src-block) (org-babel-goto-named-result): * lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap): * lisp/org/ob-ref.el (org-babel-ref-resolve): * lisp/org/org-agenda.el (org-agenda-prepare): * lisp/org/org-clock.el (org-clock-notify-once-if-expired) (org-clock-resolve): * lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag): * lisp/org/org-feed.el (org-feed-parse-atom-entry): * lisp/org/org-habit.el (org-habit-parse-todo): * lisp/org/org-mouse.el (org-mouse-popup-global-menu) (org-mouse-context-menu): * lisp/org/org-table.el (org-table-edit-formulas): * lisp/org/ox.el (org-export-async-start): * lisp/proced.el (proced-log): * lisp/progmodes/ada-mode.el (ada-get-indent-case) (ada-check-matching-start, ada-goto-matching-start): * lisp/progmodes/ada-prj.el (ada-prj-display-page): * lisp/progmodes/ada-xref.el (ada-find-executable): * lisp/progmodes/ebrowse.el (ebrowse-tags-apropos): * lisp/progmodes/etags.el (etags-tags-apropos-additional): * lisp/progmodes/flymake.el (flymake-parse-err-lines) (flymake-start-syntax-check-process): * lisp/progmodes/python.el (python-shell-get-process-or-error) (python-define-auxiliary-skeleton): * lisp/progmodes/sql.el (sql-comint): * lisp/progmodes/verilog-mode.el (verilog-load-file-at-point): * lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate): * lisp/recentf.el (recentf-open-files): * lisp/replace.el (query-replace-read-from) (occur-after-change-function, occur-1): * lisp/scroll-bar.el (scroll-bar-columns): * lisp/server.el (server-get-auth-key): * lisp/simple.el (execute-extended-command) (undo-outer-limit-truncate, list-processes--refresh) (compose-mail, set-variable, choose-completion-string) (define-alternatives): * lisp/startup.el (site-run-file, tty-handle-args, command-line) (command-line-1): * lisp/subr.el (noreturn, define-error, add-to-list) (read-char-choice, version-to-list): * lisp/term/common-win.el (x-handle-xrm-switch) (x-handle-name-switch, x-handle-args): * lisp/term/x-win.el (x-handle-parent-id, x-handle-smid): * lisp/textmodes/reftex-ref.el (reftex-label): * lisp/textmodes/reftex-toc.el (reftex-toc-rename-label): * lisp/textmodes/two-column.el (2C-split): * lisp/tutorial.el (tutorial--describe-nonstandard-key) (tutorial--find-changed-keys): * lisp/type-break.el (type-break-noninteractive-query): * lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes) (wdired-do-perm-changes): * lisp/whitespace.el (whitespace-report-region): Prefer grave quoting in source-code strings used to generate help and diagnostics. * lisp/faces.el (face-documentation): No need to convert quotes, since the result is a docstring. * lisp/info.el (Info-virtual-index-find-node) (Info-virtual-index, info-apropos): Simplify by generating only curved quotes, since info files are typically that ways nowadays anyway. * lisp/international/mule-diag.el (list-input-methods): Don’t assume text quoting style is curved. * lisp/org/org-bibtex.el (org-bibtex-fields): Revert my recent changes, going back to the old quoting style.
2015-09-07 08:41:44 -07:00
"Type `C-x * x'"
Respect text-quoting-style in calc In calc, tespect text-quoting-style preference in diagnostic formats and fix a few similar problems in docstrings. * lisp/calc/calc-aent.el (math-read-factor): * lisp/calc/calc-embed.el (calc-do-embedded): * lisp/calc/calc-ext.el (calc-user-function-list) * lisp/calc/calc-graph.el (calc-graph-show-dumb): * lisp/calc/calc-help.el (calc-describe-key) (calc-describe-thing): * lisp/calc/calc-lang.el (calc-c-language) (math-parse-fortran-vector-end, math-parse-tex-sum) (math-parse-eqn-matrix, math-parse-eqn-prime) (calc-yacas-language, calc-maxima-language, calc-giac-language) (math-read-big-rec, math-read-big-balance): * lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes) (calc-auto-recompute): * lisp/calc/calc-prog.el (calc-user-define-invocation) (math-do-arg-check): * lisp/calc/calc-store.el (calc-edit-variable): * lisp/calc/calc-units.el (math-build-units-table-buffer): * lisp/calc/calc-vec.el (math-read-brackets): * lisp/calc/calc-yank.el (calc-edit-mode): * lisp/calc/calc.el (calc, calc-do, calc-user-invocation): Use curved quotes in diagnostic format strings. * lisp/calc/calc-help.el (calc-describe-thing): Format docstrings with substitute-command-keys. * lisp/calc/calc-help.el (calc-j-prefix-help): * lisp/calc/calc-misc.el (calc-help): * lisp/calc/calc-ext.el (calc-shift-Z-prefix-help): Escape a docstring "`".
2015-08-21 06:31:54 -07:00
"Give this command again")
" to return to normal")))))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(scroll-down 0)) ; fix a bug which occurs when truncate-lines is changed.
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-select (arg)
(interactive "P")
(calc-embedded arg)
(and calc-embedded-info
(eq (car-safe (aref calc-embedded-info 8)) 'calcFunc-evalto)
(calc-select-part 1))
(and calc-embedded-info
(or (eq (car-safe (aref calc-embedded-info 8)) 'calcFunc-assign)
(and (eq (car-safe (aref calc-embedded-info 8)) 'calcFunc-evalto)
(eq (car-safe (nth 1 (aref calc-embedded-info 8)))
'calcFunc-assign)))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-select-part 2)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(defun calc-embedded-update-formula (calc-embed-arg)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(interactive "P")
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(if calc-embed-arg
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(let ((entry (assq (current-buffer) calc-embedded-active)))
(while (setq entry (cdr entry))
(and (eq (car-safe (aref (car entry) 8)) 'calcFunc-evalto)
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(or (not (consp calc-embed-arg))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(and (<= (aref (car entry) 2) (region-beginning))
(>= (aref (car entry) 3) (region-end))))
(save-excursion
(calc-embedded-update (car entry) 14 t t)))))
(if (and calc-embedded-info
(eq (current-buffer) (aref calc-embedded-info 0))
(>= (point) (aref calc-embedded-info 4))
(<= (point) (aref calc-embedded-info 5)))
(calc-evaluate 1)
(let* ((opt (point))
(info (calc-embedded-make-info (point) nil t))
(pt (- opt (aref info 4))))
(or (eq (car-safe (aref info 8)) 'error)
(progn
(save-excursion
(calc-embedded-update info 14 'eval t))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(goto-char (+ (aref info 4) pt))))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(defun calc-embedded-edit (calc-embed-arg)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(interactive "P")
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(let ((info (calc-embedded-make-info (point) nil t calc-embed-arg))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
str)
(if (eq (car-safe (aref info 8)) 'error)
(progn
(goto-char (nth 1 (aref info 8)))
(error (nth 2 (aref info 8)))))
(calc-wrapper
(setq str (math-showing-full-precision
(calc-do-embedded): Call `y-or-n-p' with correct number of arguments.
2001-11-13 07:28:01 +00:00
(math-format-nice-expr (aref info 8) (frame-width))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-edit-mode (list 'calc-embedded-finish-edit info))
(insert str "\n")))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-show-edit-buffer))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(defvar calc-original-buffer)
(calc-embedded-finish-edit): Use calc-edit-top for the beginning of the edited object.
2005-01-02 17:07:16 +00:00
(defvar calc-edit-top)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-finish-edit (info)
(let ((buf (current-buffer))
(calc-embedded-finish-edit): Use calc-edit-top for the beginning of the edited object.
2005-01-02 17:07:16 +00:00
(str (buffer-substring calc-edit-top (point-max)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(start (point))
pos)
(switch-to-buffer calc-original-buffer)
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record) (calcDigit-nondigit): * calc/calc-yank.el (calc-copy-to-buffer): * calc/calc-units.el (calc-invalidate-units-table): * calc/calc-trail.el (calc-trail-yank): * calc/calc-store.el (calc-insert-variables): * calc/calc-rewr.el (math-rewrite, math-rewrite-phase): * calc/calc-prog.el (calc-read-parse-table): * calc/calc-keypd.el (calc-do-keypad, calc-keypad-right-click): * calc/calc-help.el (calc-describe-bindings, calc-describe-key): * calc/calc-graph.el (calc-graph-delete, calc-graph-add-curve) (calc-graph-juggle, calc-graph-count-curves, calc-graph-plot) (calc-graph-plot, calc-graph-format-data, calc-graph-set-styles) (calc-graph-name, calc-graph-find-command, calc-graph-view) (calc-graph-view, calc-gnuplot-command, calc-graph-init): * calc/calc-ext.el (calc-realign): * calc/calc-embed.el (calc-do-embedded, calc-do-embedded) (calc-embedded-finish-edit, calc-embedded-make-info) (calc-embedded-finish-command, calc-embedded-stack-change): * calc/calc-aent.el (calcAlg-enter): Use with-current-buffer.
2009-10-28 18:35:33 +00:00
(let ((val (with-current-buffer (aref info 1)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(let ((calc-language nil)
(calc-embedded-finish-edit): Let math-expr-opers equal the function math-standard-ops rather than the variable math-standard-opers.
2007-06-20 04:13:06 +00:00
(math-expr-opers (math-standard-ops)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(math-read-expr str)))))
(if (eq (car-safe val) 'error)
(progn
(switch-to-buffer buf)
(goto-char (+ start (nth 1 val)))
(error (nth 2 val))))
(calc-embedded-original-buffer t info)
(aset info 8 val)
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-embedded-update info 14 t t))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually. (calc-mode-map, calc-digit-map, calc-dispatch-map): Move initialization into declaration. * calc/calc-yank.el: * calc/calc-misc.el: * calc/calc-embed.el: * calc/calc-aent.el: Add autoload cookies and set generated-autoload-file.
2008-04-08 22:07:55 +00:00
;;;###autoload
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(defun calc-do-embedded-activate (calc-embed-arg cbuf)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-plain-buffer-only)
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(if calc-embed-arg
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded-forget))
(calc-find-globals)
(calc-embed-arg): New variable. (calc-do-embedded-activate, calc-embedded-activate-formula) (calc-embedded-edit, calc-do-embedded-activate) (calc-embedded-make-info): Use new variable in place of undeclared variable.
2005-05-28 04:36:16 +00:00
(if (< (prefix-numeric-value calc-embed-arg) 0)
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
(message "Deactivating %s for Calc Embedded mode" (buffer-name))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(message "Activating %s for Calc Embedded mode..." (buffer-name))
(save-excursion
(let* ((active (assq (current-buffer) calc-embedded-active))
(info active)
(pat " := \\| \\\\gets \\| => \\| \\\\evalto "))
(if calc-embedded-announce-formula
(setq pat (format "%s\\|\\(%s\\)"
pat calc-embedded-announce-formula)))
(while (setq info (cdr info))
(or (equal (buffer-substring (aref (car info) 2) (aref (car info) 3))
(aref (car info) 6))
(setcdr active (delq (car info) (cdr active)))))
(goto-char (point-min))
(while (re-search-forward pat nil t)
(calc-do-embedded-activate): Add autoload cookie. Don't check if we are looking-at open-formula.
2004-02-16 17:16:22 +00:00
;;; (if (looking-at calc-embedded-open-formula)
;;; (goto-char (match-end 1)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(setq info (calc-embedded-make-info (point) cbuf nil))
(or (eq (car-safe (aref info 8)) 'error)
(goto-char (aref info 5))))))
(message "Activating %s for Calc Embedded mode...done" (buffer-name)))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-embedded-active-state t))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-plain-buffer-only ()
(if (memq major-mode '(calc-mode calc-trail-mode calc-edit-mode))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(error "This command should be used in a normal editing buffer")))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-active-state (state)
(or (assq 'calc-embedded-all-active minor-mode-alist)
(setq minor-mode-alist
(cons '(calc-embedded-all-active " Active")
(cons '(calc-embedded-some-active " ~Active")
minor-mode-alist))))
(let ((active (assq (current-buffer) calc-embedded-active)))
(or (cdr active)
(setq state nil)))
(and (eq state 'more) calc-embedded-all-active (setq state t))
(setq calc-embedded-all-active (eq state t)
calc-embedded-some-active (not (memq state '(nil t))))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(set-buffer-modified-p (buffer-modified-p)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-original-buffer (switch &optional info)
(or info (setq info calc-embedded-info))
(or (buffer-name (aref info 0))
(progn
(error "Calc embedded mode: Original buffer has been killed")))
(if switch
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(set-buffer (aref info 0))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-word ()
(interactive)
(calc-embedded-word): Change argument passed to calc-embedded. (calc-embedded-make-info): Have plain prefix argument select entire line.
2005-05-31 19:24:27 +00:00
(calc-embedded '(t)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-mark-formula (&optional body-only)
"Put point at the beginning of this Calc formula, mark at the end.
This normally marks the whole formula, including surrounding delimiters.
With any prefix argument, marks only the formula itself."
(interactive "P")
(and (eq major-mode 'calc-mode)
(error "This command should be used in a normal editing buffer"))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(let (calc-embed-top calc-embed-bot calc-embed-outer-top calc-embed-outer-bot)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(save-excursion
(calc-embedded-find-bounds body-only))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(push-mark (if body-only calc-embed-bot calc-embed-outer-bot) t)
(goto-char (if body-only calc-embed-top calc-embed-outer-top))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-find-bounds (&optional plain)
;; (while (and (bolp) (eq (following-char) ?\n))
;; (forward-char 1))
(and (eolp) (bolp) (not (eq (char-after (- (point) 2)) ?\n))
(forward-char -1))
(let ((home (point)))
(or (and (looking-at calc-embedded-open-formula)
(not (looking-at calc-embedded-close-formula)))
(re-search-backward calc-embedded-open-formula nil t)
(error "Can't find start of formula"))
(and (eq (preceding-char) ?\$) ; backward search for \$\$? won't back
(eq (following-char) ?\$) ; up over a second $, so do it by hand.
(forward-char -1))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-outer-top (point))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(goto-char (match-end 0))
(calc-embedded-find-bounds): Set formula bound on line with formula.
2005-02-01 03:57:08 +00:00
(if (looking-at "[ \t]*$")
(end-of-line))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if (eq (following-char) ?\n)
(forward-char 1))
(or (bolp)
(while (eq (following-char) ?\ )
(forward-char 1)))
(or (eq plain 'plain)
(if (looking-at (regexp-quote calc-embedded-open-plain))
(progn
(goto-char (match-end 0))
(search-forward calc-embedded-close-plain))))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-top (point))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(or (re-search-forward calc-embedded-close-formula nil t)
(error "Can't find end of formula"))
(if (< (point) home)
(error "Not inside a formula"))
(and (eq (following-char) ?\n) (not (bolp))
(forward-char 1))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-outer-bot (point))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(goto-char (match-beginning 0))
(if (eq (preceding-char) ?\n)
(backward-char 1))
(or (eolp)
(while (eq (preceding-char) ?\ )
(backward-char 1)))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-bot (point))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-kill-formula ()
"Kill the formula surrounding point.
If Calc Embedded mode was active, this deactivates it.
The formula (including its surrounding delimiters) is saved in the kill ring.
The command \\[yank] can retrieve it from there."
(interactive)
(and calc-embedded-info
(calc-embedded nil))
(calc-embedded-mark-formula)
(kill-region (point) (mark))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(pop-mark))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-copy-formula-as-kill ()
"Save the formula surrounding point as if killed, but don't kill it."
(interactive)
(save-excursion
(calc-embedded-mark-formula)
(copy-region-as-kill (point) (mark))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(pop-mark)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-duplicate ()
(interactive)
(let ((already calc-embedded-info)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
calc-embed-top calc-embed-bot calc-embed-outer-top calc-embed-outer-bot new-top)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if calc-embedded-info
(progn
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-top (+ (aref calc-embedded-info 2))
calc-embed-bot (+ (aref calc-embedded-info 3))
calc-embed-outer-top (+ (aref calc-embedded-info 4))
calc-embed-outer-bot (+ (aref calc-embedded-info 5)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded nil))
(calc-embedded-find-bounds))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(goto-char calc-embed-outer-bot)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(insert "\n")
(setq new-top (point))
Spelling fixes.
2011-11-17 01:09:20 -08:00
(insert-buffer-substring (current-buffer)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
calc-embed-outer-top calc-embed-outer-bot)
(goto-char (+ new-top (- calc-embed-top calc-embed-outer-top)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(let ((calc-embedded-quiet (if already t 'x)))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(calc-embedded (+ new-top (- calc-embed-top calc-embed-outer-top))
(+ new-top (- calc-embed-bot calc-embed-outer-top))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
new-top
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(+ new-top (- calc-embed-outer-bot calc-embed-outer-top))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-next (arg)
(interactive "P")
(setq arg (prefix-numeric-value arg))
(let* ((active (cdr (assq (current-buffer) calc-embedded-active)))
(p active)
(num (length active)))
(or active
(error "No active formulas in buffer"))
(cond ((= arg 0))
((= arg -1)
(if (<= (point) (aref (car active) 3))
(goto-char (aref (nth (1- num) active) 2))
(while (and (cdr p)
(> (point) (aref (nth 1 p) 3)))
(setq p (cdr p)))
(goto-char (aref (car p) 2))))
((< arg -1)
(calc-embedded-next -1)
(calc-embedded-next (+ (* num 1000) arg 1)))
(t
(setq arg (1+ (% (1- arg) num)))
(while (and p (>= (point) (aref (car p) 2)))
(setq p (cdr p)))
(while (> (setq arg (1- arg)) 0)
(setq p (if p (cdr p) (cdr active))))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(goto-char (aref (car (or p active)) 2))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-previous (arg)
(interactive "p")
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-embedded-next (- (prefix-numeric-value arg))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-new-formula ()
(interactive)
(and (eq major-mode 'calc-mode)
(error "This command should be used in a normal editing buffer"))
(if calc-embedded-info
(calc-embedded nil))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(let (calc-embed-top calc-embed-bot calc-embed-outer-top calc-embed-outer-bot)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if (and (eq (preceding-char) ?\n)
(string-match "\\`\n" calc-embedded-open-new-formula))
(progn
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-outer-top (1- (point)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(forward-char -1)
(insert (substring calc-embedded-open-new-formula 1)))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-outer-top (point))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(insert calc-embedded-open-new-formula))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-top (point))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(insert " ")
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-bot (point))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(insert calc-embedded-close-new-formula)
(if (and (eq (following-char) ?\n)
(string-match "\n\\'" calc-embedded-close-new-formula))
(delete-char 1))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-outer-bot (point))
(goto-char calc-embed-top)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(let ((calc-embedded-quiet 'x))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(calc-embedded calc-embed-top calc-embed-bot calc-embed-outer-top calc-embed-outer-bot))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-forget ()
(interactive)
(setq calc-embedded-active (delq (assq (current-buffer) calc-embedded-active)
calc-embedded-active))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-embedded-active-state nil))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
;; The variables calc-embed-prev-modes is local to calc-embedded-update,
;; but is used by calc-embedded-set-modes.
(defvar calc-embed-prev-modes)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-set-modes (gmodes modes local-modes &optional temp)
(let ((the-language (calc-embedded-language))
(the-display-just (calc-embedded-justify))
(v gmodes)
(changed nil)
found value)
(while v
(or (symbolp (car v))
(and (setq found (assq (car (car v)) modes))
(not (eq (cdr found) 'default)))
(and (setq found (assq (car (car v)) local-modes))
(not (eq (cdr found) 'default)))
(progn
(if (eq (setq value (cdr (car v))) 'default)
calc/calc-embed.el (calc-embedded-set-modes): Use `calc-mode-var-list' correctly.
2004-09-15 16:49:04 +00:00
(setq value (list (nth 1 (assq (car (car v)) calc-mode-var-list)))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(equal (symbol-value (car (car v))) value))
(progn
(setq changed t)
Spelling fixes.
2011-11-17 01:09:20 -08:00
(if temp (setq calc-embed-prev-modes
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(cons (cons (car (car v))
(symbol-value (car (car v))))
calc-embed-prev-modes)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(set (car (car v)) value)))
(setq v (cdr v)))
(setq v modes)
(while v
(or (and (setq found (assq (car (car v)) local-modes))
(not (eq (cdr found) 'default)))
(eq (setq value (cdr (car v))) 'default)
(equal (symbol-value (car (car v))) value)
(progn
(setq changed t)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(if temp (setq calc-embed-prev-modes (cons (cons (car (car v))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(symbol-value (car (car v))))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
calc-embed-prev-modes)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(set (car (car v)) value)))
(setq v (cdr v)))
(setq v local-modes)
(while v
(or (eq (setq value (cdr (car v))) 'default)
(equal (symbol-value (car (car v))) value)
(progn
(setq changed t)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(if temp (setq calc-embed-prev-modes (cons (cons (car (car v))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(symbol-value (car (car v))))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
calc-embed-prev-modes)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(set (car (car v)) value)))
(setq v (cdr v)))
(and changed (not (eq temp t))
(progn
(calc-embedded-set-justify the-display-just)
(calc-embedded-set-language the-language)))
(and changed (not temp)
(progn
(setq calc-full-float-format (list (if (eq (car calc-float-format)
'fix)
'float
(car calc-float-format))
0))
(calc-refresh)))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
changed))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-language ()
(if calc-language-option
(list calc-language calc-language-option)
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
calc-language))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-set-language (lang)
(let ((option nil))
(if (consp lang)
(setq option (nth 1 lang)
lang (car lang)))
(or (and (eq lang calc-language)
(equal option calc-language-option))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-set-language lang option t))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-justify ()
(if calc-display-origin
(list calc-display-just calc-display-origin)
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
calc-display-just))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-set-justify (just)
(if (consp just)
(setq calc-display-origin (nth 1 just)
calc-display-just (car just))
(setq calc-display-just just
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
calc-display-origin nil)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-find-globals ()
(interactive)
(and (eq major-mode 'calc-mode)
(error "This command should be used in a normal editing buffer"))
(make-local-variable 'calc-embedded-globals)
(let ((case-fold-search nil)
(modes nil)
(save-pt (point))
found value)
(goto-char (point-min))
(while (re-search-forward "\\[calc-global-mode: *\\([-a-z]+\\): *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)\\]" nil t)
(and (setq found (assoc (buffer-substring (match-beginning 1)
(match-end 1))
calc-embedded-mode-vars))
(or (assq (cdr found) modes)
(setq modes (cons (cons (cdr found)
(car (read-from-string
(buffer-substring
(match-beginning 2)
(match-end 2)))))
modes)))))
(setq calc-embedded-globals (cons t modes))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(goto-char save-pt)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-find-modes ()
(let ((case-fold-search nil)
(save-pt (point))
(no-defaults t)
(modes nil)
(emodes nil)
(pmodes nil)
found value)
(while (and no-defaults (search-backward "[calc-" nil t))
(forward-char 6)
(or (and (looking-at "mode: *\\([-a-z]+\\): *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)]")
(setq found (assoc (buffer-substring (match-beginning 1)
(match-end 1))
calc-embedded-mode-vars))
(or (assq (cdr found) modes)
(setq modes (cons (cons (cdr found)
(car (read-from-string
(buffer-substring
(match-beginning 2)
(match-end 2)))))
modes))))
(and (looking-at "perm-mode: *\\([-a-z]+\\): *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)]")
(setq found (assoc (buffer-substring (match-beginning 1)
(match-end 1))
calc-embedded-mode-vars))
(or (assq (cdr found) pmodes)
(setq pmodes (cons (cons (cdr found)
(car (read-from-string
(buffer-substring
(match-beginning 2)
(match-end 2)))))
pmodes))))
(and (looking-at "edit-mode: *\\([-a-z]+\\): *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)]")
(setq found (assoc (buffer-substring (match-beginning 1)
(match-end 1))
calc-embedded-mode-vars))
(or (assq (cdr found) emodes)
(setq emodes (cons (cons (cdr found)
(car (read-from-string
(buffer-substring
(match-beginning 2)
(match-end 2)))))
emodes))))
(and (looking-at "defaults]")
(setq no-defaults nil)))
(backward-char 6))
(goto-char save-pt)
(calc-do-embedded): Set mode line when embedded mode begins. (calc-embedded-language-alist): New variable. (calc-embedded-find-modes): Use calc-embedded-language-alist to set default language mode.
2005-03-08 05:26:44 +00:00
(unless (assq 'the-language modes)
change calc to use derived-mode-p * lisp/calc/calc-embed.el (calc-embedded-find-modes) (calc-embedded-make-info): Use derived-mode-p.
2017-03-18 23:00:13 +01:00
(let ((lang (cl-assoc-if #'derived-mode-p calc-language-alist)))
(calc-do-embedded): Set mode line when embedded mode begins. (calc-embedded-language-alist): New variable. (calc-embedded-find-modes): Use calc-embedded-language-alist to set default language mode.
2005-03-08 05:26:44 +00:00
(if lang
(setq modes (cons (cons 'the-language (cdr lang))
modes)))))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(list modes emodes pmodes)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
;; The variable calc-embed-vars-used is local to calc-embedded-make-info,
Spelling fixes.
2011-11-17 01:09:20 -08:00
;; calc-embedded-evaluate-expr and calc-embedded-update, but is
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
;; used by calc-embedded-find-vars, which is called by the above functions.
(defvar calc-embed-vars-used)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-make-info (point cbuf fresh &optional
Spelling fixes.
2011-11-17 01:09:20 -08:00
calc-embed-top calc-embed-bot
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
calc-embed-outer-top calc-embed-outer-bot)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(let* ((bufentry (assq (current-buffer) calc-embedded-active))
(found bufentry)
(calc-embedded-make-info): Don't force when `calc-embedded-word' is called twice.
2009-07-06 00:11:09 +00:00
(force (and fresh calc-embed-top (null (equal calc-embed-top '(t)))))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(fixed calc-embed-top)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(new-info nil)
info str)
(or found
(calc-embedded-firsttime, calc-embedded-firsttime-buf, calc-embedded-firsttime-formula): New variables. (calc-do-embedded): Use calc-embedded-firsttime, calc-embedded-firsttime-buf and calc-embedded-firsttime-formula to determine whether or not to run hooks. (calc-embedded-make-info) Set calc-embedded-firsttime-buf and calc-embedded-firsttime-formula appropriately. Set calc-embedded delimiter variables according to mode.
2005-07-09 03:42:56 +00:00
(and
(setq found (list (current-buffer))
calc-embedded-active (cons found calc-embedded-active)
calc-embedded-firsttime-buf t)
change calc to use derived-mode-p * lisp/calc/calc-embed.el (calc-embedded-find-modes) (calc-embedded-make-info): Use derived-mode-p.
2017-03-18 23:00:13 +01:00
(let ((newann (cl-assoc-if #'derived-mode-p
calc-embedded-announce-formula-alist))
(newform (cl-assoc-if #'derived-mode-p
calc-embedded-open-close-formula-alist))
(newword (cl-assoc-if #'derived-mode-p
calc-embedded-word-regexp-alist))
(newplain (cl-assoc-if #'derived-mode-p
calc-embedded-open-close-plain-alist))
Spelling fixes.
2011-11-17 01:09:20 -08:00
(newnewform
change calc to use derived-mode-p * lisp/calc/calc-embed.el (calc-embedded-find-modes) (calc-embedded-make-info): Use derived-mode-p.
2017-03-18 23:00:13 +01:00
(cl-assoc-if #'derived-mode-p
calc-embedded-open-close-new-formula-alist))
(newmode (cl-assoc-if #'derived-mode-p
calc-embedded-open-close-mode-alist)))
(calc-embedded-firsttime, calc-embedded-firsttime-buf, calc-embedded-firsttime-formula): New variables. (calc-do-embedded): Use calc-embedded-firsttime, calc-embedded-firsttime-buf and calc-embedded-firsttime-formula to determine whether or not to run hooks. (calc-embedded-make-info) Set calc-embedded-firsttime-buf and calc-embedded-firsttime-formula appropriately. Set calc-embedded delimiter variables according to mode.
2005-07-09 03:42:56 +00:00
(when newann
(make-local-variable 'calc-embedded-announce-formula)
(setq calc-embedded-announce-formula (cdr newann)))
(when newform
(make-local-variable 'calc-embedded-open-formula)
(make-local-variable 'calc-embedded-close-formula)
(setq calc-embedded-open-formula (nth 0 (cdr newform)))
(setq calc-embedded-close-formula (nth 1 (cdr newform))))
(when newword
(calc-embedded-make-info): Use `calc-embedded-word-regexp' to find word.
2008-10-10 14:31:19 +00:00
(make-local-variable 'calc-embedded-word-regexp)
(setq calc-embedded-word-regexp (nth 1 newword)))
(calc-embedded-firsttime, calc-embedded-firsttime-buf, calc-embedded-firsttime-formula): New variables. (calc-do-embedded): Use calc-embedded-firsttime, calc-embedded-firsttime-buf and calc-embedded-firsttime-formula to determine whether or not to run hooks. (calc-embedded-make-info) Set calc-embedded-firsttime-buf and calc-embedded-firsttime-formula appropriately. Set calc-embedded delimiter variables according to mode.
2005-07-09 03:42:56 +00:00
(when newplain
(make-local-variable 'calc-embedded-open-plain)
(make-local-variable 'calc-embedded-close-plain)
(setq calc-embedded-open-plain (nth 0 (cdr newplain)))
(setq calc-embedded-close-plain (nth 1 (cdr newplain))))
(when newnewform
(make-local-variable 'calc-embedded-open-new-formula)
(make-local-variable 'calc-embedded-close-new-formula)
(setq calc-embedded-open-new-formula (nth 0 (cdr newnewform)))
(setq calc-embedded-close-new-formula (nth 1 (cdr newnewform))))
(when newmode
(make-local-variable 'calc-embedded-open-mode)
(make-local-variable 'calc-embedded-close-mode)
(setq calc-embedded-open-mode (nth 0 (cdr newmode)))
(setq calc-embedded-close-mode (nth 1 (cdr newmode)))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(while (and (cdr found)
(> point (aref (car (cdr found)) 3)))
(setq found (cdr found)))
(if (and (cdr found)
(>= point (aref (nth 1 found) 2)))
(calc-embedded-firsttime, calc-embedded-firsttime-buf, calc-embedded-firsttime-formula): New variables. (calc-do-embedded): Use calc-embedded-firsttime, calc-embedded-firsttime-buf and calc-embedded-firsttime-formula to determine whether or not to run hooks. (calc-embedded-make-info) Set calc-embedded-firsttime-buf and calc-embedded-firsttime-formula appropriately. Set calc-embedded delimiter variables according to mode.
2005-07-09 03:42:56 +00:00
(setq info (nth 1 found))
(setq calc-embedded-firsttime-formula t)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(setq info (make-vector 16 nil)
new-info t
fresh t)
(aset info 0 (current-buffer))
(aset info 1 (or cbuf (save-excursion
(calc-create-buffer)
(current-buffer)))))
Spelling fixes.
2011-11-17 01:09:20 -08:00
(if (and
(calc-embedded-word): Change argument passed to calc-embedded. (calc-embedded-make-info): Have plain prefix argument select entire line.
2005-05-31 19:24:27 +00:00
(or (integerp calc-embed-top) (equal calc-embed-top '(4)))
Spelling fixes.
2011-11-17 01:09:20 -08:00
(not calc-embed-bot))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
; started with a user-supplied argument
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(progn
(calc-embedded-word): Change argument passed to calc-embedded. (calc-embedded-make-info): Have plain prefix argument select entire line.
2005-05-31 19:24:27 +00:00
(if (equal calc-embed-top '(4))
(progn
(aset info 2 (copy-marker (line-beginning-position)))
(aset info 3 (copy-marker (line-end-position))))
(if (= (setq calc-embed-arg (prefix-numeric-value calc-embed-arg)) 0)
(calc-embedded-make-info): Adjust positioning of end of selected region when an argument is given.
2005-05-28 05:36:16 +00:00
(progn
(calc-embedded-word): Change argument passed to calc-embedded. (calc-embedded-make-info): Have plain prefix argument select entire line.
2005-05-31 19:24:27 +00:00
(aset info 2 (copy-marker (region-beginning)))
(aset info 3 (copy-marker (region-end))))
(aset info (if (> calc-embed-arg 0) 2 3) (point-marker))
(if (> calc-embed-arg 0)
(progn
(forward-line (1- calc-embed-arg))
(end-of-line))
(forward-line (1+ calc-embed-arg)))
(aset info (if (> calc-embed-arg 0) 3 2) (point-marker))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(aset info 4 (copy-marker (aref info 2)))
(aset info 5 (copy-marker (aref info 3))))
(if (aref info 4)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(setq calc-embed-top (aref info 2)
fixed calc-embed-top)
(if (consp calc-embed-top)
(calc-embedded-make-info): Use `calc-embedded-word-regexp' to find word.
2008-10-10 14:31:19 +00:00
(progn
(require 'thingatpt)
(if (thing-at-point-looking-at calc-embedded-word-regexp)
(progn
(setq calc-embed-top (copy-marker (match-beginning 0)))
(setq calc-embed-bot (copy-marker (match-end 0)))
(setq calc-embed-outer-top calc-embed-top)
(setq calc-embed-outer-bot calc-embed-bot))
(setq calc-embed-top (point-marker))
(setq calc-embed-bot (point-marker))
(setq calc-embed-outer-top calc-embed-top)
(setq calc-embed-outer-bot calc-embed-bot)))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(or calc-embed-top
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded-find-bounds 'plain)))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(aset info 2 (copy-marker (min calc-embed-top calc-embed-bot)))
(aset info 3 (copy-marker (max calc-embed-top calc-embed-bot)))
(aset info 4 (copy-marker (or calc-embed-outer-top (aref info 2))))
(aset info 5 (copy-marker (or calc-embed-outer-bot (aref info 3))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(goto-char (aref info 2))
(if new-info
(progn
(or (bolp) (aset info 7 t))
(goto-char (aref info 3))
(or (bolp) (eolp) (aset info 7 t))))
(if fresh
(let ((modes (calc-embedded-find-modes)))
(aset info 12 (car modes))
(aset info 13 (nth 1 modes))
(aset info 14 (nth 2 modes))))
(aset info 15 calc-embedded-globals)
(setq str (buffer-substring (aref info 2) (aref info 3)))
(if (or force
(not (equal str (aref info 6))))
(if (and fixed (aref info 6))
(progn
(aset info 4 nil)
(calc-embedded-make-info point cbuf nil)
(setq new-info nil))
(let* ((open-plain calc-embedded-open-plain)
(close-plain calc-embedded-close-plain)
(pref-len (length open-plain))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(calc-embed-vars-used nil)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
suff-pos val temp)
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record) (calcDigit-nondigit): * calc/calc-yank.el (calc-copy-to-buffer): * calc/calc-units.el (calc-invalidate-units-table): * calc/calc-trail.el (calc-trail-yank): * calc/calc-store.el (calc-insert-variables): * calc/calc-rewr.el (math-rewrite, math-rewrite-phase): * calc/calc-prog.el (calc-read-parse-table): * calc/calc-keypd.el (calc-do-keypad, calc-keypad-right-click): * calc/calc-help.el (calc-describe-bindings, calc-describe-key): * calc/calc-graph.el (calc-graph-delete, calc-graph-add-curve) (calc-graph-juggle, calc-graph-count-curves, calc-graph-plot) (calc-graph-plot, calc-graph-format-data, calc-graph-set-styles) (calc-graph-name, calc-graph-find-command, calc-graph-view) (calc-graph-view, calc-gnuplot-command, calc-graph-init): * calc/calc-ext.el (calc-realign): * calc/calc-embed.el (calc-do-embedded, calc-do-embedded) (calc-embedded-finish-edit, calc-embedded-make-info) (calc-embedded-finish-command, calc-embedded-stack-change): * calc/calc-aent.el (calcAlg-enter): Use with-current-buffer.
2009-10-28 18:35:33 +00:00
(with-current-buffer (aref info 1)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded-set-modes (aref info 15)
(aref info 12) (aref info 14))
(if (and (> (length str) pref-len)
(equal (substring str 0 pref-len) open-plain)
(setq suff-pos (string-match (regexp-quote close-plain)
str pref-len)))
(setq val (math-read-plain-expr
(substring str pref-len suff-pos)))
(if (string-match "[^ \t\n]" str)
(setq pref-len 0
(calc-embedded-make-info): Use `math-read-expr' when `math-read-big-expr' doesn't work.
2006-04-27 18:40:41 +00:00
val (condition-case nil
(math-read-big-expr str)
(error (math-read-expr str))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(setq val nil))))
(if (eq (car-safe val) 'error)
(setq val (list 'error
(+ (aref info 2) pref-len (nth 1 val))
(nth 2 val))))
(aset info 6 str)
(aset info 8 val)
(setq temp val)
(if (eq (car-safe temp) 'calcFunc-evalto)
(setq temp (nth 1 temp))
(if (eq (car-safe temp) 'error)
(if new-info
(setq new-info nil)
(setcdr found (delq info (cdr found)))
(calc-embedded-active-state 'less))))
(aset info 9 (and (eq (car-safe temp) 'calcFunc-assign)
(nth 1 temp)))
(if (memq (car-safe val) '(calcFunc-evalto calcFunc-assign))
(calc-embedded-find-vars val))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(aset info 10 calc-embed-vars-used)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(aset info 11 nil))))
(if new-info
(progn
(setcdr found (cons info (cdr found)))
(calc-embedded-active-state 'more)))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
info))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-find-vars (x)
(cond ((Math-primp x)
(and (eq (car-safe x) 'var)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(not (assoc x calc-embed-vars-used))
(setq calc-embed-vars-used (cons (list x) calc-embed-vars-used))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
((eq (car x) 'calcFunc-evalto)
(calc-embedded-find-vars (nth 1 x)))
((eq (car x) 'calcFunc-assign)
(calc-embedded-find-vars (nth 2 x)))
(t
(and (eq (car x) 'calcFunc-subscr)
(eq (car-safe (nth 1 x)) 'var)
(Math-primp (nth 2 x))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(not (assoc x calc-embed-vars-used))
(setq calc-embed-vars-used (cons (list x) calc-embed-vars-used)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(while (setq x (cdr x))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-embedded-find-vars (car x))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(math-ms-args): Declare it. (calc-embedded-eval-expr, calc-embedded-eval-get-var): Use variable math-ms-args. (calc-embedded-subst): Use math-multi-subst-rec to substitute variables.
2005-03-10 07:14:32 +00:00
(defvar math-ms-args)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-evaluate-expr (x)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(let ((calc-embed-vars-used (aref calc-embedded-info 10)))
(or calc-embed-vars-used (calc-embedded-find-vars x))
(if calc-embed-vars-used
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(let ((active (assq (aref calc-embedded-info 0) calc-embedded-active))
(math-ms-args): Declare it. (calc-embedded-eval-expr, calc-embedded-eval-get-var): Use variable math-ms-args. (calc-embedded-subst): Use math-multi-subst-rec to substitute variables.
2005-03-10 07:14:32 +00:00
(math-ms-args nil))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(save-excursion
(calc-embedded-original-buffer t)
(or active
(progn
(calc-embedded-activate)
(setq active (assq (aref calc-embedded-info 0)
calc-embedded-active))))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(while calc-embed-vars-used
(calc-embedded-eval-get-var (car (car calc-embed-vars-used)) active)
(setq calc-embed-vars-used (cdr calc-embed-vars-used))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded-subst x))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-normalize (math-evaluate-expr-rec x)))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-subst (x)
(if (and (eq (car-safe x) 'calcFunc-evalto) (cdr x))
(let ((rhs (calc-embedded-subst (nth 1 x))))
(list 'calcFunc-evalto
(nth 1 x)
(if (eq (car-safe rhs) 'calcFunc-assign) (nth 2 rhs) rhs)))
(if (and (eq (car-safe x) 'calcFunc-assign) (= (length x) 3))
(list 'calcFunc-assign
(nth 1 x)
(calc-embedded-subst (nth 2 x)))
(math-ms-args): Declare it. (calc-embedded-eval-expr, calc-embedded-eval-get-var): Use variable math-ms-args. (calc-embedded-subst): Use math-multi-subst-rec to substitute variables.
2005-03-10 07:14:32 +00:00
(calc-normalize (math-evaluate-expr-rec (math-multi-subst-rec x))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-eval-get-var (var base)
(let ((entry base)
(point (aref calc-embedded-info 2))
(last nil)
val)
(while (and (setq entry (cdr entry))
(or (not (equal var (aref (car entry) 9)))
(and (> point (aref (car entry) 3))
(setq last entry)))))
(if last
(setq entry last))
(if entry
(progn
(setq entry (car entry))
(if (equal (buffer-substring (aref entry 2) (aref entry 3))
(aref entry 6))
(progn
(or (aref entry 11)
(save-excursion
(calc-embedded-update entry 14 t nil)))
(setq val (aref entry 11))
(if (eq (car-safe val) 'calcFunc-evalto)
(setq val (nth 2 val)))
(if (eq (car-safe val) 'calcFunc-assign)
(setq val (nth 2 val)))
(math-ms-args): Declare it. (calc-embedded-eval-expr, calc-embedded-eval-get-var): Use variable math-ms-args. (calc-embedded-subst): Use math-multi-subst-rec to substitute variables.
2005-03-10 07:14:32 +00:00
(setq math-ms-args (cons (cons var val) math-ms-args)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(calc-embedded-activate)
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-embedded-eval-get-var var base))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-update (info which need-eval need-display
&optional str entry old-val)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(let* ((calc-embed-prev-modes nil)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(open-plain calc-embedded-open-plain)
(close-plain calc-embedded-close-plain)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(calc-embed-vars-used nil)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(evalled nil)
(val (aref info 8))
(old-eval (aref info 11)))
(or old-val (setq old-val val))
(if (eq (car-safe val) 'calcFunc-evalto)
(setq need-display t))
(unwind-protect
(progn
(set-buffer (aref info 1))
(and which
(calc-embedded-set-modes (aref info 15) (aref info 12)
(aref info which)
(if need-display 'full t)))
(if (memq (car-safe val) '(calcFunc-evalto calcFunc-assign))
(calc-embedded-find-vars val))
(if need-eval
(let ((calc-embedded-info info))
(setq val (math-evaluate-expr val)
evalled val)))
(if (or (eq need-eval 'eval) (eq (car-safe val) 'calcFunc-evalto))
(aset info 8 val))
(aset info 9 nil)
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(aset info 10 calc-embed-vars-used)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(aset info 11 nil)
(if (or need-display (eq (car-safe val) 'calcFunc-evalto))
(let ((extra (if (eq calc-language 'big) 1 0)))
(or entry (setq entry (list val 1 nil)))
(or str (progn
(setq str (let ((calc-line-numbering nil))
(math-format-stack-value entry)))
(if (eq calc-language 'big)
(setq str (substring str 0 -1)))))
(and calc-show-plain
(setq str (concat open-plain
(math-showing-full-precision
(math-format-flat-expr val 0))
close-plain
str)))
(save-excursion
(calc-embedded-original-buffer t info)
(or (equal str (aref info 6))
(let ((delta (- (aref info 5) (aref info 3)))
(calc-embedded-update): Don't put in unnecessary newlines. Adjust the end of formula marker.
2005-02-04 06:22:18 +00:00
(adjbot 0)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(buffer-read-only nil))
(goto-char (aref info 2))
(delete-region (point) (aref info 3))
(and (> (nth 1 entry) (1+ extra))
(aref info 7)
(progn
(delete-horizontal-space)
(calc-embedded-update): Don't put in unnecessary newlines. Adjust the end of formula marker.
2005-02-04 06:22:18 +00:00
(if (looking-at "\n")
;; If there's a newline there, don't add one
(insert "\n")
(insert "\n\n")
(delete-horizontal-space)
(setq adjbot 1)
; (setq delta (1+ delta))
(backward-char 1))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(insert str)
(calc-embedded-update): Don't put in unnecessary newlines. Adjust the end of formula marker.
2005-02-04 06:22:18 +00:00
(set-marker (aref info 3) (+ (point) adjbot))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(set-marker (aref info 5) (+ (point) delta))
(aset info 6 str))))))
(if (eq (car-safe val) 'calcFunc-evalto)
(progn
(setq evalled (nth 2 val)
val (nth 1 val))))
(if (eq (car-safe val) 'calcFunc-assign)
(progn
(aset info 9 (nth 1 val))
(aset info 11 (or evalled
(let ((calc-embedded-info info))
(math-evaluate-expr (nth 2 val)))))
(or (equal old-eval (aref info 11))
(calc-embedded-var-change (nth 1 val) (aref info 0))))
(if (eq (car-safe old-val) 'calcFunc-evalto)
(setq old-val (nth 1 old-val)))
(if (eq (car-safe old-val) 'calcFunc-assign)
(calc-embedded-var-change (nth 1 old-val) (aref info 0)))))
(set-buffer (aref info 1))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(while calc-embed-prev-modes
(cond ((eq (car (car calc-embed-prev-modes)) 'the-language)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if need-display
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(calc-embedded-set-language (cdr (car calc-embed-prev-modes)))))
((eq (car (car calc-embed-prev-modes)) 'the-display-just)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if need-display
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(calc-embedded-set-justify (cdr (car calc-embed-prev-modes)))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(t
Spelling fixes.
2011-11-17 01:09:20 -08:00
(set (car (car calc-embed-prev-modes))
(calc-original-buffer): Declare it. (calc-embed-outer-top, calc-embed-outer-bot, calc-embed-top) (calc-embed-bot): New variables. (calc-do-embedded, calc-embedded-mark-formula) (calc-embedded-find-bounds, calc-embedded-duplicate) (calc-embedded-new-formula, calc-embedded-make-info): Replace variables outer-top, outer-bot, bot and top by declared variables. (calc-embed-prev-modes): New variable. (calc-embedded-set-modes, calc-embedded-update): Replace variable prev-modes with declared variable. (calc-embed-vars-used): New variable. (calc-embedded-make-info, calc-embedded-evaluate-expr) (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable.
2004-11-26 22:38:31 +00:00
(cdr (car calc-embed-prev-modes)))))
(calc-embedded-update): Finish changing prev-mode to calc-embed-prev-mode.
2004-11-26 23:31:27 +00:00
(setq calc-embed-prev-modes (cdr calc-embed-prev-modes))))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
;;; These are hooks called by the main part of Calc.
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
(defvar calc-embedded-no-reselect nil)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-select-buffer ()
(if (eq (current-buffer) (aref calc-embedded-info 0))
(let ((info calc-embedded-info)
horiz vert)
(if (and (or (< (point) (aref info 4))
(> (point) (aref info 5)))
(not calc-embedded-no-reselect))
(let ((calc-embedded-quiet t))
(message "(Switching Calc Embedded mode to new formula.)")
(calc-embedded nil)
(calc-embedded nil)))
(setq horiz (max (min (current-column) (- (point) (aref info 2))) 0)
vert (if (<= (aref info 2) (point))
(- (count-lines (aref info 2) (point))
(if (bolp) 0 1))
0))
(set-buffer (aref info 1))
(if calc-show-plain
(if (= vert 0)
(setq horiz 0)
(setq vert (1- vert))))
(calc-cursor-stack-index 1)
(if calc-line-numbering
(setq horiz (+ horiz 4)))
(if (> vert 0)
(forward-line vert))
(forward-char (min horiz
(- (point-max) (point)))))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-select-buffer)))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-finish-command ()
(let ((buf (current-buffer))
horiz vert)
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record) (calcDigit-nondigit): * calc/calc-yank.el (calc-copy-to-buffer): * calc/calc-units.el (calc-invalidate-units-table): * calc/calc-trail.el (calc-trail-yank): * calc/calc-store.el (calc-insert-variables): * calc/calc-rewr.el (math-rewrite, math-rewrite-phase): * calc/calc-prog.el (calc-read-parse-table): * calc/calc-keypd.el (calc-do-keypad, calc-keypad-right-click): * calc/calc-help.el (calc-describe-bindings, calc-describe-key): * calc/calc-graph.el (calc-graph-delete, calc-graph-add-curve) (calc-graph-juggle, calc-graph-count-curves, calc-graph-plot) (calc-graph-plot, calc-graph-format-data, calc-graph-set-styles) (calc-graph-name, calc-graph-find-command, calc-graph-view) (calc-graph-view, calc-gnuplot-command, calc-graph-init): * calc/calc-ext.el (calc-realign): * calc/calc-embed.el (calc-do-embedded, calc-do-embedded) (calc-embedded-finish-edit, calc-embedded-make-info) (calc-embedded-finish-command, calc-embedded-stack-change): * calc/calc-aent.el (calcAlg-enter): Use with-current-buffer.
2009-10-28 18:35:33 +00:00
(with-current-buffer (aref calc-embedded-info 1)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(if (> (calc-stack-size) 0)
(let ((pt (point))
(col (current-column))
(bol (bolp)))
(calc-cursor-stack-index 0)
(if (< pt (point))
(progn
(calc-cursor-stack-index 1)
(if (>= pt (point))
(progn
(setq horiz (- col (if calc-line-numbering 4 0))
vert (- (count-lines (point) pt)
(if bol 0 1)))
(if calc-show-plain
(setq vert (max 1 (1+ vert))))))))
(goto-char pt))))
(if horiz
(progn
(set-buffer (aref calc-embedded-info 0))
(goto-char (aref calc-embedded-info 2))
(if (> vert 0)
(forward-line vert))
(forward-char (max horiz 0))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(set-buffer buf)))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-stack-change ()
(or calc-executing-macro
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record) (calcDigit-nondigit): * calc/calc-yank.el (calc-copy-to-buffer): * calc/calc-units.el (calc-invalidate-units-table): * calc/calc-trail.el (calc-trail-yank): * calc/calc-store.el (calc-insert-variables): * calc/calc-rewr.el (math-rewrite, math-rewrite-phase): * calc/calc-prog.el (calc-read-parse-table): * calc/calc-keypd.el (calc-do-keypad, calc-keypad-right-click): * calc/calc-help.el (calc-describe-bindings, calc-describe-key): * calc/calc-graph.el (calc-graph-delete, calc-graph-add-curve) (calc-graph-juggle, calc-graph-count-curves, calc-graph-plot) (calc-graph-plot, calc-graph-format-data, calc-graph-set-styles) (calc-graph-name, calc-graph-find-command, calc-graph-view) (calc-graph-view, calc-gnuplot-command, calc-graph-init): * calc/calc-ext.el (calc-realign): * calc/calc-embed.el (calc-do-embedded, calc-do-embedded) (calc-embedded-finish-edit, calc-embedded-make-info) (calc-embedded-finish-command, calc-embedded-stack-change): * calc/calc-aent.el (calcAlg-enter): Use with-current-buffer.
2009-10-28 18:35:33 +00:00
(with-current-buffer (aref calc-embedded-info 1)
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(let* ((info calc-embedded-info)
(extra-line (if (eq calc-language 'big) 1 0))
(the-point (point))
(empty (= (calc-stack-size) 0))
(entry (if empty
(list '(var empty var-empty) 1 nil)
(calc-top 1 'entry)))
(old-val (aref info 8))
top bot str)
(if empty
(setq str "empty")
(save-excursion
(calc-cursor-stack-index 1)
(setq top (point))
(calc-cursor-stack-index 0)
(setq bot (- (point) extra-line))
(setq str (buffer-substring top (- bot 1))))
(if calc-line-numbering
(let ((pos 0))
(setq str (substring str 4))
(while (setq pos (string-match "\n...." str pos))
(setq str (concat (substring str 0 (1+ pos))
(substring str (+ pos 5)))
pos (1+ pos))))))
(calc-embedded-original-buffer t)
(aset info 8 (car entry))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(calc-embedded-update info 13 nil t str entry old-val)))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-mode-line-change ()
(let ((str mode-line-buffer-identification))
(save-excursion
(calc-embedded-original-buffer t)
(setq mode-line-buffer-identification str)
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(set-buffer-modified-p (buffer-modified-p)))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-modes-change (vars)
(if (eq (car vars) 'calc-language) (setq vars '(the-language)))
(if (eq (car vars) 'calc-display-just) (setq vars '(the-display-just)))
(while (and vars
(not (rassq (car vars) calc-embedded-mode-vars)))
(setq vars (cdr vars)))
(if (and vars calc-mode-save-mode (not (eq calc-mode-save-mode 'save)))
(save-excursion
(let* ((save-mode calc-mode-save-mode)
(header (if (eq save-mode 'local)
"calc-mode:"
(format "calc-%s-mode:" save-mode)))
(the-language (calc-embedded-language))
(the-display-just (calc-embedded-justify))
(values (mapcar 'symbol-value vars))
(num (cond ((eq save-mode 'local) 12)
((eq save-mode 'edit) 13)
((eq save-mode 'perm) 14)
(t nil)))
base limit mname mlist)
(calc-embedded-original-buffer t)
(save-excursion
(if (eq save-mode 'global)
(setq base (point-max)
limit (point-min)
mlist calc-embedded-globals)
(goto-char (aref calc-embedded-info 4))
(beginning-of-line)
(setq base (point)
limit (max (- (point) 1000) (point-min))
mlist (and num (aref calc-embedded-info num)))
(and (re-search-backward
(format "\\(%s\\)[^\001]*\\(%s\\)\\|\\[calc-defaults]"
calc-embedded-open-formula
calc-embedded-close-formula) limit t)
(setq limit (point))))
(while vars
(goto-char base)
(if (setq mname (car (rassq (car vars)
calc-embedded-mode-vars)))
(let ((buffer-read-only nil)
(found (assq (car vars) mlist)))
(if found
(setcdr found (car values))
(setq mlist (cons (cons (car vars) (car values)) mlist))
(if num
(aset calc-embedded-info num mlist)
(if (eq save-mode 'global)
(setq calc-embedded-globals mlist))))
(if (re-search-backward
(format "\\[%s *%s: *\\(\"\\([^\"\n\\]\\|\\\\.\\)*\"\\|[- ()a-zA-Z0-9]+\\)]"
header mname)
limit t)
(progn
(goto-char (match-beginning 1))
(delete-region (point) (match-end 1))
(insert (prin1-to-string (car values))))
(goto-char base)
(insert-before-markers
calc-embedded-open-mode
"[" header " " mname ": "
(prin1-to-string (car values)) "]"
calc-embedded-close-mode))))
(setq vars (cdr vars)
(calc-embedded-original-modes): New variable. (calc-embedded-save-original-modes) (calc-embedded-restore-original-modes): New functions. (calc-do-embedded): Save original modes when entering embedded mode and restore when leaving embedded mode. (calc-embedded-modes-change): Change the value of calc-embedded-original-modes to reflect permanent changes.
2005-03-22 16:12:57 +00:00
values (cdr values))))))
(calc-embedded-mode-change): Save all relevant mode settings in calc-embedded-original-modes when modes are permanently changed.
2005-03-24 13:34:53 +00:00
(when (and vars (eq calc-mode-save-mode 'save))
(calc-embedded-save-original-modes))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(defun calc-embedded-var-change (var &optional buf)
(if (symbolp var)
(setq var (list 'var
(if (string-match "\\`var-.+\\'"
(symbol-name var))
(intern (substring (symbol-name var) 4))
var)
var)))
(save-excursion
(let ((manual (not calc-auto-recompute))
(bp calc-embedded-active)
(first t))
(if buf (setq bp (memq (assq buf bp) bp)))
(while bp
(let ((calc-embedded-no-reselect t)
(p (and (buffer-name (car (car bp)))
(cdr (car bp)))))
(while p
(if (assoc var (aref (car p) 10))
(if manual
(if (aref (car p) 11)
(progn
(aset (car p) 11 nil)
(if (aref (car p) 9)
(calc-embedded-var-change (aref (car p) 9)))))
(set-buffer (aref (car p) 0))
(if (equal (buffer-substring (aref (car p) 2)
(aref (car p) 3))
(aref (car p) 6))
(let ((calc-embedded-info nil))
(or calc-embedded-quiet
(message "Recomputing..."))
(setq first nil)
(calc-wrapper
(set-buffer (aref (car p) 0))
(calc-embedded-update (car p) 14 t nil)))
(setcdr (car bp) (delq (car p) (cdr (car bp))))
(message
Change all toplevel `setq' forms to `defvar' forms, and move them before their first use. Use `when', `unless'. Remove trailing periods from error forms. Add description and headers suggested by Emacs Lisp coding conventions.
2001-11-19 07:44:56 +00:00
"(Tried to recompute but formula was changed or missing)"))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
(setq p (cdr p))))
(setq bp (if buf nil (cdr bp))))
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
(or first calc-embedded-quiet (message "")))))
Initial import of Calc 2.02f.
2001-11-06 18:59:06 +00:00
Add a provide statement. (calc-Need-calc-embed): Remove it. (calc-do-embedded-activate): Remove from autoloads.
2004-11-30 17:04:40 +00:00
(provide 'calc-embed)
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually. (calc-mode-map, calc-digit-map, calc-dispatch-map): Move initialization into declaration. * calc/calc-yank.el: * calc/calc-misc.el: * calc/calc-embed.el: * calc/calc-aent.el: Add autoload cookies and set generated-autoload-file.
2008-04-08 22:07:55 +00:00
;; Local variables:
;; generated-autoload-file: "calc-loaddefs.el"
;; End:
Style cleanup; don't put closing parens on their own line, add "foo.el ends here" to each file, and update copyright date.
2001-11-14 09:09:09 +00:00
;;; calc-embed.el ends here
Reference in a new issue Copy permalink