271 |
(fortune-ask-file) |
(fortune-ask-file) |
272 |
fortune-file))) |
fortune-file))) |
273 |
(save-excursion |
(save-excursion |
274 |
(fortune-in-buffer (interactive-p) file) |
(fortune-in-buffer t file) |
275 |
(set-buffer fortune-buffer-name) |
(set-buffer fortune-buffer-name) |
276 |
(let* ((fortune (buffer-string)) |
(let* ((fortune (buffer-string)) |
277 |
(signature (concat fortune-sigstart fortune fortune-sigend))) |
(signature (concat fortune-sigstart fortune fortune-sigend))) |
285 |
(defun fortune-in-buffer (interactive &optional file) |
(defun fortune-in-buffer (interactive &optional file) |
286 |
"Put a fortune cookie in the *fortune* buffer. |
"Put a fortune cookie in the *fortune* buffer. |
287 |
|
|
288 |
When INTERACTIVE is nil, don't display it. Optional argument FILE, |
INTERACTIVE is ignored. Optional argument FILE, |
289 |
when supplied, specifies the file to choose the fortune from." |
when supplied, specifies the file to choose the fortune from." |
290 |
(let ((fortune-buffer (or (get-buffer fortune-buffer-name) |
(let ((fortune-buffer (or (get-buffer fortune-buffer-name) |
291 |
(generate-new-buffer fortune-buffer-name))) |
(generate-new-buffer fortune-buffer-name))) |