/[emacs]/emacs/lisp/play/fortune.el
ViewVC logotype

Diff of /emacs/lisp/play/fortune.el

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

revision 1.9 by miles, Mon Sep 1 15:45:34 2003 UTC revision 1.10 by rms, Mon Nov 1 07:45:18 2004 UTC
# Line 271  and choose the directory as the fortune- Line 271  and choose the directory as the fortune-
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)))
# Line 285  and choose the directory as the fortune- Line 285  and choose the directory as the fortune-
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)))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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