Parent Directory | Revision Log | Patch
revision 1.189 by jasonr, Tue Apr 16 22:59:20 2002 UTC | revision 1.190 by pj, Sat Apr 27 22:33:05 2002 UTC | |
---|---|---|
# | Line 887 This returns a language environment name | Line 887 This returns a language environment name |
887 | (name (completing-read prompt | (name (completing-read prompt |
888 | language-info-alist | language-info-alist |
889 | (and key | (and key |
890 | (function (lambda (elm) (assq key elm)))) | (function (lambda (elm) (and (listp elm) (assq key elm))))) |
891 | t nil nil default))) | t nil nil default))) |
892 | (if (and (> (length name) 0) | (if (and (> (length name) 0) |
893 | (or (not key) | (or (not key) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |