Mercurial > emacs

changeset 13911:3e9e8b468bc1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cpp-config-file): New variable. (cpp-edit-load): Use `cpp-config-file'. (cpp-edit-save): Use `cpp-config-file'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 01 Jan 1996 23:47:49 +0000
parents 8c5388b7b1f5
children 07d5e992fdc4
files lisp/progmodes/cpp.el
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/cpp.el	Mon Jan 01 23:46:11 1996 +0000
+++ b/lisp/progmodes/cpp.el	Mon Jan 01 23:47:49 1996 +0000
@@ -47,6 +47,9 @@
 
 ;;; Customization:
 
+(defvar cpp-config-file (convert-standard-filename ".cpp.el")
+  "*File name to save cpp configuration.")
+
 (defvar cpp-known-face 'invisible
   "*Face used for known cpp symbols.")
 
@@ -506,10 +509,10 @@
 (defun cpp-edit-load ()
   "Load cpp configuration."
   (interactive)
-  (cond ((file-readable-p ".cpp.el")
-	 (load-file ".cpp.el"))
-	((file-readable-p "~/.cpp.el")
-	 (load-file ".cpp.el")))
+  (cond ((file-readable-p cpp-config-file)
+	 (load-file cpp-config-file))
+	((file-readable-p (concat "~/" cpp-config-file))
+	 (load-file cpp-config-file)))
   (if (eq major-mode 'cpp-edit-mode)
       (cpp-edit-reset)))
 
@@ -519,7 +522,7 @@
   (require 'pp)
   (save-excursion
     (set-buffer cpp-edit-buffer)
-    (let ((buffer (find-file-noselect ".cpp.el")))
+    (let ((buffer (find-file-noselect cpp-config-file)))
       (set-buffer buffer)
       (erase-buffer)
       (pp (list 'setq 'cpp-known-face
@@ -534,7 +537,7 @@
 		(list 'quote cpp-unknown-writable)) buffer)
       (pp (list 'setq 'cpp-edit-list
 		(list 'quote cpp-edit-list)) buffer)
-      (write-file ".cpp.el"))))
+      (write-file cpp-config-file))))
 
 (defun cpp-edit-home ()
   "Switch back to original buffer."