mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 03:06:23 -08:00
Code Issues Projects Releases Wiki Activity

Make last change compatible with XEmacs. From Christoph Wedler

Browse source 
<christoph.wedler@sap.com>.
This commit is contained in:
Eli Zaretskii 2001-06-29 18:09:44 +00:00
parent 3024d92027
commit fc83ff0dde
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ps-bdf.el
View file

@ -40,7 +40,8 @@
;;;###autoload
(defvar bdf-directory-list
(if (memq system-type '(ms-dos windows-nt))
(if (and (memq system-type '(ms-dos windows-nt))
(boundp 'installation-directory))
(list (expand-file-name "fonts/bdf" installation-directory))
'("/usr/local/share/emacs/fonts/bdf"))
"*List of directories to search for `BDF' font files.
@ -48,7 +49,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").")
;; 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.
(and (memq system-type '(ms-dos windows-nt))
(and (and (memq system-type '(ms-dos windows-nt))
(boundp 'installation-directory))
(setq bdf-directory-list
(list (expand-file-name "fonts/bdf" installation-directory))))