From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Fri, 5 Dec 2008 14:56:18 +0000 (+0000)
Subject: Transform defvar into defcustom.
X-Git-Tag: emacs-pretest-23.0.90~1249
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6530de7d397e2c051d1076fd4d75a04993006b77;p=emacs.git

Transform defvar into defcustom.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75a1acf3fff..ae07e9c6417 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,11 @@
 
 	* dired.el (dired-font-lock-keywords): Fix last change.
 
+2008-12-05  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+	* ps-bdf.el (bdf-directory-list): Transform (defvar ... "*..")
+	into (defcustom ... "..." :type ... :group...).
+
 2008-12-05  Juanma Barranquero  <lekktu@gmail.com>
 
 	* international/mule-diag.el (mule-diag): Display the window
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el
index c5b394a7212..d508e3f62b3 100644
--- a/lisp/ps-bdf.el
+++ b/lisp/ps-bdf.el
@@ -40,12 +40,15 @@
   (require 'ps-mule))
 
 ;;;###autoload
-(defvar bdf-directory-list
+(defcustom bdf-directory-list
   (if (memq system-type '(ms-dos windows-nt))
       (list (expand-file-name "fonts/bdf" installation-directory))
     '("/usr/local/share/emacs/fonts/bdf"))
-  "*List of directories to search for `BDF' font files.
-The default value is '(\"/usr/local/share/emacs/fonts/bdf\").")
+  "List of directories to search for `BDF' font files.
+The default value is '(\"/usr/local/share/emacs/fonts/bdf\")."
+  :type '(repeat :tag "BDF font directory list"
+		 (directory :tag "BDF font directory"))
+  :group 'ps-print-miscellany)
 
 ;; MS-DOS and MS-Windows users like to move the binary around after
 ;; it's built, but the value above is computed at load-up time.