# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 820540069 0
# Node ID 3e9e8b468bc1a3d5bb6329e7148aa40439ccc0ce
# Parent  8c5388b7b1f53eb5d34955df3facc74bc9b934c0
(cpp-config-file): New variable.
(cpp-edit-load): Use `cpp-config-file'.
(cpp-edit-save): Use `cpp-config-file'.

diff -r 8c5388b7b1f5 -r 3e9e8b468bc1 lisp/progmodes/cpp.el
--- 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."