/[emacs]/emacs/lisp/international/fontset.el
ViewVC logotype

Diff of /emacs/lisp/international/fontset.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.53.2.9 by handa, Mon Aug 19 06:12:31 2002 UTC revision 1.53.2.10 by handa, Fri Sep 27 04:54:02 2002 UTC
# Line 427  with \"fontset\" in `<CHARSET_REGISTRY> Line 427  with \"fontset\" in `<CHARSET_REGISTRY>
427  ;; Return a list to be appended to `x-fixed-font-alist' when  ;; Return a list to be appended to `x-fixed-font-alist' when
428  ;; `mouse-set-font' is called.  ;; `mouse-set-font' is called.
429  (defun generate-fontset-menu ()  (defun generate-fontset-menu ()
430    (let ((fontsets (fontset-list))    (let (l)
431          fontset-name      (dolist (fontset (fontset-list))
432          l)        (or (string-match "fontset-default$" fontset)
433      (while fontsets            (push (list (fontset-plain-name fontset) fontset) l)))
       (setq fontset-name (car fontsets) fontsets (cdr fontsets))  
       (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l)))  
434      (cons "Fontset"      (cons "Fontset"
435            (sort l (function (lambda (x y) (string< (car x) (car y))))))))            (sort l #'(lambda (x y) (string< (car x) (car y)))))))
436    
437  (defun fontset-plain-name (fontset)  (defun fontset-plain-name (fontset)
438    "Return a plain and descriptive name of FONTSET."    "Return a plain and descriptive name of FONTSET."

Legend:
Removed from v.1.53.2.9  
changed lines
  Added in v.1.53.2.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26