diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-11-05 15:17:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-11-05 15:17:49 +0000 |
| commit | e29e9065b11f39828f73d0cdb8492e9d8cc563e2 (patch) | |
| tree | b6ae6b8c25c102050106b03ca2e23cce1dad0eb1 /lisp | |
| parent | 7a547817ccc5d36c0275f3e9533979f5145f0a80 (diff) | |
| download | emacs-e29e9065b11f39828f73d0cdb8492e9d8cc563e2.tar.gz emacs-e29e9065b11f39828f73d0cdb8492e9d8cc563e2.tar.bz2 emacs-e29e9065b11f39828f73d0cdb8492e9d8cc563e2.zip | |
(custom-save-all): Error if saving in .emacs and it had an error when loaded.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cus-edit.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 00f76b31520..c70284f4455 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4149,6 +4149,8 @@ if only the first line of the docstring is shown.")) ;;;###autoload (defun custom-save-all () "Save all customizations in `custom-file'." + (when (and (null custom-file) init-file-had-error) + (error "Cannot save customizations; init file was not fully loaded")) (let* ((filename (custom-file)) (recentf-exclude (if recentf-mode (cons (concat "\\`" |