mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Move require to end of file.

Browse source 
Remove redundant loading of calc.
(calc-extensions-loaded): Remove unnecessary variable.
(calc-extensions): Remove unnecessary function.
(calc-load-everything): Replace calc-need-macros by appropriate require.
This commit is contained in:
Jay Belanger 2004-11-29 05:54:53 +00:00
parent 5edd7c333a
commit 6697b53cd3
1 changed files with 2 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/calc/calc-ext.el
View file

@ -26,26 +26,7 @@
;;; Code:
(provide 'calc-ext)
(require 'calc)
(setq calc-extensions-loaded t)
;;; This function is the autoload "hook" to cause this file to be loaded.
;;;###autoload
(defun calc-extensions ()
"This function is part of the autoload linkage for parts of Calc."
t)
;;; Auto-load calc.el part, in case this part was loaded first.
(if (fboundp 'calc-dispatch)
(and (eq (car-safe (symbol-function 'calc-dispatch)) 'autoload)
(load (nth 1 (symbol-function 'calc-dispatch))))
(if (fboundp 'calc)
(and (eq (car-safe (symbol-function 'calc)) 'autoload)
(load (nth 1 (symbol-function 'calc))))
(error "Main part of Calc must be present in order to load this file")))
(require 'calc-macs)
(defvar math-simplifying nil)
@ -1674,7 +1655,7 @@ calc-kill calc-kill-region calc-yank))))
(defun calc-load-everything ()
(interactive)
(calc-need-macros) ; calc-macs.el
(require 'calc-macs) ; calc-macs.el
(calc-record-list nil) ; calc-misc.el
(math-read-exprs "0") ; calc-aent.el
@ -3371,5 +3352,6 @@ A key may contain additional specs for Inverse, Hyperbolic, and Inv+Hyp.")
(run-hooks 'calc-ext-load-hook)
(provide 'calc-ext)
;;; arch-tag: 1814ba7f-a390-49dc-9e25-a5adc205e97e
;;; calc-ext.el ends here