X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/adb0a6165d6d5d00f946f70416ca8499b4065dfd..937640a621a4ce2e5e56eaecca37a2a28a584318:/lisp/calc/calc-embed.el

diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el
index ee9c146692..067d233bf4 100644
--- a/lisp/calc/calc-embed.el
+++ b/lisp/calc/calc-embed.el
@@ -27,12 +27,10 @@
 ;;; Code:
 
 ;; This file is autoloaded from calc-ext.el.
-(require 'calc-ext)
 
+(require 'calc-ext)
 (require 'calc-macs)
 
-(defun calc-Need-calc-embed () nil)
-
 (defun calc-show-plain (n)
   (interactive "P")
   (calc-wrapper
@@ -331,7 +329,6 @@ This is not required to be present for user-written mode annotations.")
       (aset info 8 val)
       (calc-embedded-update info 14 t t))))
 
-;;;###autoload
 (defun calc-do-embedded-activate (arg cbuf)
   (calc-plain-buffer-only)
   (if arg
@@ -1010,7 +1007,7 @@ The command \\[yank] can retrieve it from there."
 	      (t
 	       (set (car (car calc-embed-prev-modes)) 
                     (cdr (car calc-embed-prev-modes)))))
-	(setq calc-embed-prev-modes (cdr prev-modes))))))
+	(setq calc-embed-prev-modes (cdr calc-embed-prev-modes))))))
 
 
 
@@ -1226,5 +1223,7 @@ The command \\[yank] can retrieve it from there."
 	(setq bp (if buf nil (cdr bp))))
       (or first calc-embedded-quiet (message "")))))
 
+(provide 'calc-embed)
+
 ;;; arch-tag: 1b8f311e-fba1-40d3-b8c3-1d6f68fd26fc
 ;;; calc-embed.el ends here