mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(read-cookie): New function.

Browse Source
This commit is contained in:
Roland McGrath 1993-09-17 18:51:05 +00:00
parent 65151a1bd4
commit b81d991d75
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/play/cookie1.el
View File

@ -91,9 +91,9 @@ is read in, display STARTMSG at beginning of load, ENDMSG at end."
;;;###autoload
(defun cookie-snarf (phrase-file startmsg endmsg)
"Reads in the PHRASE-FILE, returns it as a vector of strings. Emit
STARTMSG and ENDMSG before and after. Caches the result; second and
subsequent calls on the same file won't go to disk."
"Reads in the PHRASE-FILE, returns it as a vector of strings.
Emit STARTMSG and ENDMSG before and after. Caches the result; second
and subsequent calls on the same file won't go to disk."
(let ((sym (intern-soft phrase-file cookie-cache)))
(and sym (not (equal (symbol-function sym)
(nth 5 (file-attributes phrase-file))))
@ -120,6 +120,26 @@ subsequent calls on the same file won't go to disk."
(message endmsg)
(set sym (apply 'vector result)))))))
(defun read-cookie (prompt phrase-file startmsg endmsg &optional require-match)
"Prompt with PROMPT and read with completion among cookies in PHRASE-FILE.
STARTMSG and ENDMSG are passed along to `cookie-snarf'.
Optional fifth arg REQUIRE-MATCH non-nil forces a matching cookie."
;; Make sure the cookies are in the cache.
(or (intern-soft phrase-file cookie-cache)
(cookie-snarf phrase-file startmsg endmsg))
(completing-read prompt
(let ((sym (intern phrase-file cookie-cache)))
;; We cache the alist form of the cookie in a property.
(or (get sym 'completion-alist)
(let* ((alist nil)
(vec (cookie-snarf phrase-file
startmsg endmsg))
(i (length vec)))
(while (> (setq i (1- i)) 0)
(setq alist (cons (list (aref vec i)) alist)))
(put sym 'completion-alist alist))))
nil require-match nil nil))
; Thanks to Ian G Batten <BattenIG@CS.BHAM.AC.UK>
; [of the University of Birmingham Computer Science Department]
; for the iterative version of this shuffle.