Commit 47f6489b authored by wlott's avatar wlott
Browse files

Changed use of RESOLVE-SEARCH-LIST to ENUMERATE-SEARCH-LIST and

ENUMERATE-MATCHES cause RSL doesn't exist any more.
parent 4f3f850e
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.8 1991/09/04 14:02:59 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.9 1991/12/17 08:21:39 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -108,28 +108,18 @@
path."
(let ((font-path (xlib:font-path display))
(result ()))
(flet ((add (font-dir)
(unless (member font-dir font-path :test #'string=)
(push font-dir result))))
(dolist (elt font-pathnames)
(let* ((pn (pathname elt))
(dev (pathname-device pn)))
(cond ((stringp dev)
(dolist (dir (lisp::resolve-search-list dev nil))
(add (concatenate 'string dir
(namestring
(make-pathname :device nil
:defaults pn))))))
(t
(add (namestring pn)))))))
(dolist (elt font-pathnames)
(enumerate-search-list (pathname elt)
(lisp::enumerate-matches (name pathname)
(unless (member name font-path :test #'string=)
(push name result)))))
(when result
(ecase operation
(:prepend
(setf (xlib:font-path display) (revappend result font-path)))
(:append
(setf (xlib:font-path display) (append font-path (nreverse result))))))))
(setf (xlib:font-path display)
(append font-path (nreverse result))))))))
;;;; Enabling and disabling event handling through SYSTEM:SERVE-EVENT.
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment