/[emacs]/emacs/lisp/textmodes/artist.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/artist.el

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

revision 1.24 by deego, Sun Sep 18 12:28:29 2005 UTC revision 1.25 by rfrancoise, Sat Sep 24 13:43:58 2005 UTC
# Line 2863  Returns a list of strings." Line 2863  Returns a list of strings."
2863    "Read any extra arguments for figlet."    "Read any extra arguments for figlet."
2864    (interactive)    (interactive)
2865    (let* ((avail-fonts  (artist-figlet-get-font-list))    (let* ((avail-fonts  (artist-figlet-get-font-list))
2866           (font (completing-read (concat "Select font: (default "           (font (completing-read (concat "Select font (default "
2867                                          artist-figlet-default-font                                          artist-figlet-default-font
2868                                          ") ")                                          "): ")
2869                                  (mapcar                                  (mapcar
2870                                   (lambda (font) (cons font font))                                   (lambda (font) (cons font font))
2871                                   avail-fonts))))                                   avail-fonts))))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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