diff options
| author | Richard M. Stallman | 1996-12-15 07:30:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-12-15 07:30:24 +0000 |
| commit | e9286904effac040c230b830964189e473c3f66c (patch) | |
| tree | 9511e72d4e0ebf225a3c889bfb85929e99fc3253 /lisp/progmodes/cpp.el | |
| parent | 580fae94036d113bdbbf83318221b91279061f09 (diff) | |
| download | emacs-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.el | 7 |
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 |