Mercurial > emacs
changeset 100245:53921407de01
Transform defvar into defcustom.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Fri, 05 Dec 2008 14:56:18 +0000 |
| parents | c7fd170dbe3d |
| children | 1357cec2ef73 |
| files | lisp/ChangeLog lisp/ps-bdf.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Dec 05 14:45:32 2008 +0000 +++ b/lisp/ChangeLog Fri Dec 05 14:56:18 2008 +0000 @@ -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
--- a/lisp/ps-bdf.el Fri Dec 05 14:45:32 2008 +0000 +++ b/lisp/ps-bdf.el Fri Dec 05 14:56:18 2008 +0000 @@ -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.