27 |
;;; Code: |
;;; Code: |
28 |
|
|
29 |
;; This file is autoloaded from calc-ext.el. |
;; This file is autoloaded from calc-ext.el. |
|
(require 'calc-ext) |
|
30 |
|
|
31 |
|
(require 'calc-ext) |
32 |
(require 'calc-macs) |
(require 'calc-macs) |
33 |
|
|
|
(defun calc-Need-calc-embed () nil) |
|
|
|
|
34 |
(defun calc-show-plain (n) |
(defun calc-show-plain (n) |
35 |
(interactive "P") |
(interactive "P") |
36 |
(calc-wrapper |
(calc-wrapper |
329 |
(aset info 8 val) |
(aset info 8 val) |
330 |
(calc-embedded-update info 14 t t)))) |
(calc-embedded-update info 14 t t)))) |
331 |
|
|
|
;;;###autoload |
|
332 |
(defun calc-do-embedded-activate (arg cbuf) |
(defun calc-do-embedded-activate (arg cbuf) |
333 |
(calc-plain-buffer-only) |
(calc-plain-buffer-only) |
334 |
(if arg |
(if arg |
1223 |
(setq bp (if buf nil (cdr bp)))) |
(setq bp (if buf nil (cdr bp)))) |
1224 |
(or first calc-embedded-quiet (message ""))))) |
(or first calc-embedded-quiet (message ""))))) |
1225 |
|
|
1226 |
|
(provide 'calc-embed) |
1227 |
|
|
1228 |
;;; arch-tag: 1b8f311e-fba1-40d3-b8c3-1d6f68fd26fc |
;;; arch-tag: 1b8f311e-fba1-40d3-b8c3-1d6f68fd26fc |
1229 |
;;; calc-embed.el ends here |
;;; calc-embed.el ends here |