From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 20 Sep 2012 13:44:45 +0000 (-0400)
Subject: * lisp/calc/calc.el: Fix last change by removing the whole chunk, since it
X-Git-Tag: emacs-24.2.90~269^2~11
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f490dab981c46011d22b19b697fc979aa736a221;p=emacs.git

* lisp/calc/calc.el: Fix last change by removing the whole chunk, since it
was only needed back when Calc was not bundled.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 932bc4342c1..7f9a15d9dfc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-09-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* calc/calc.el: Fix last change by removing the whole chunk, since it
+	was only needed back when Calc was not bundled.
+
 2012-09-20  Martin Rudalics  <rudalics@gmx.at>
 
 	* emacs-lisp/debug.el (debug): Restore assignment to
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 8e49693562d..25f591a3945 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -912,34 +912,6 @@ Used by `calc-user-invocation'.")
 (defvar calc-embedded-mode-hook nil
   "Hook run when starting embedded mode.")
 
-;; Set up the autoloading linkage.
-(let ((name (and (fboundp 'calc-dispatch)
-                 (autoloadp (symbol-function 'calc-dispatch))))
-      (p load-path))
-
-  ;; If Calc files exist on the load-path, we're all set.
-  (while (and p (not (file-exists-p
-                      (expand-file-name "calc-misc.elc" (car p)))))
-    (setq p (cdr p)))
-  (or p
-
-      ;; If Calc is autoloaded using a path name, look there for Calc files.
-      ;; This works for both relative ("calc/calc.elc") and absolute paths.
-      (and name (file-name-directory name)
-           (let ((p2 load-path)
-                 (name2 (concat (file-name-directory name)
-                                "calc-misc.elc")))
-             (while (and p2 (not (file-exists-p
-                                  (expand-file-name name2 (car p2)))))
-               (setq p2 (cdr p2)))
-             (when p2
-               (setq load-path (nconc load-path
-                                      (list
-                                       (directory-file-name
-                                        (file-name-directory
-                                         (expand-file-name
-                                          name (car p2))))))))))))
-
 ;; The following modes use specially-formatted data.
 (put 'calc-mode 'mode-class 'special)
 (put 'calc-trail-mode 'mode-class 'special)