# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1105216545 0
# Node ID 1c4ad61afb548f928436ace66655388d6c1dc572
# Parent  3eca2bed63e4b90a9abe6852a91c07d8df7caa4a
(calc-mode): Remove the extension from `calc-settings-file' for loading.

diff -r 3eca2bed63e4 -r 1c4ad61afb54 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Sat Jan 08 20:06:23 2005 +0000
+++ b/lisp/calc/calc.el	Sat Jan 08 20:35:45 2005 +0000
@@ -1028,7 +1028,7 @@
       (equal calc-settings-file user-init-file)
       (progn
 	(setq calc-loaded-settings-file t)
-	(load calc-settings-file t)))   ; t = missing-ok
+	(load (file-name-sans-extension calc-settings-file) t)))   ; t = missing-ok
   (let ((p command-line-args))
     (while p
       (and (equal (car p) "-f")