aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/cpp.el
diff options
context:
space:
mode:
authorRichard M. Stallman1996-12-15 07:30:24 +0000
committerRichard M. Stallman1996-12-15 07:30:24 +0000
commite9286904effac040c230b830964189e473c3f66c (patch)
tree9511e72d4e0ebf225a3c889bfb85929e99fc3253 /lisp/progmodes/cpp.el
parent580fae94036d113bdbbf83318221b91279061f09 (diff)
downloademacs-e9286904effac040c230b830964189e473c3f66c.tar.gz
emacs-e9286904effac040c230b830964189e473c3f66c.zip
(cpp-edit-load): Don't load anything if init-file-user is nil.
(cpp-edit-save): Doc fix.
Diffstat (limited to 'lisp/progmodes/cpp.el')
-rw-r--r--lisp/progmodes/cpp.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index 32573b6d0bc..fa0ed911e2e 100644
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -510,7 +510,10 @@ You can also use the keyboard accelerators indicated like this: [K]ey."
510(defun cpp-edit-load () 510(defun cpp-edit-load ()
511 "Load cpp configuration." 511 "Load cpp configuration."
512 (interactive) 512 (interactive)
513 (cond ((file-readable-p cpp-config-file) 513 (cond ((null init-file-user)
514 ;; If -q was specified, don't load any init files.
515 nil)
516 ((file-readable-p cpp-config-file)
514 (load-file cpp-config-file)) 517 (load-file cpp-config-file))
515 ((file-readable-p (concat "~/" cpp-config-file)) 518 ((file-readable-p (concat "~/" cpp-config-file))
516 (load-file cpp-config-file))) 519 (load-file cpp-config-file)))
@@ -518,7 +521,7 @@ You can also use the keyboard accelerators indicated like this: [K]ey."
518 (cpp-edit-reset))) 521 (cpp-edit-reset)))
519 522
520(defun cpp-edit-save () 523(defun cpp-edit-save ()
521 "Load cpp configuration." 524 "Save the current cpp configuration in a file."
522 (interactive) 525 (interactive)
523 (require 'pp) 526 (require 'pp)
524 (save-excursion 527 (save-excursion