Mercurial > emacs

diff lisp/calc/calc.el @ 57117:d2ffbe58525c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-mode): Compare `calc-settings-file' to `user-init-file' rather than "\\.emacs" to determine if it is the user-init-file.
author Jay Belanger <jay.p.belanger@gmail.com>
date Wed, 15 Sep 2004 16:54:26 +0000
parents abc0e9beaacd
children 5105863ead20
line wrap: on
line diff
--- a/lisp/calc/calc.el	Wed Sep 15 16:49:04 2004 +0000
+++ b/lisp/calc/calc.el	Wed Sep 15 16:54:26 2004 +0000
@@ -1059,7 +1059,7 @@
   (setq calc-stack-top (- (length calc-stack) calc-stack-top -1))
   (or calc-loaded-settings-file
       (null calc-settings-file)
-      (string-match "\\.emacs" calc-settings-file)
+      (equal calc-settings-file user-init-file)
       (progn
 	(setq calc-loaded-settings-file t)
 	(load calc-settings-file t)))   ; t = missing-ok