[Emacs-diffs] Changes to emacs/lisp/play/fortune.el [lexbind]

[Miles Bader]

Index: emacs/lisp/play/fortune.el
diff -c emacs/lisp/play/fortune.el:1.7.8.2 emacs/lisp/play/fortune.el:1.7.8.3
*** emacs/lisp/play/fortune.el:1.7.8.2  Tue Oct 14 23:42:16 2003
--- emacs/lisp/play/fortune.el  Thu Nov  4 13:12:47 2004
***************
*** 271,277 ****
         (fortune-ask-file)
         fortune-file)))
     (save-excursion
!     (fortune-in-buffer (interactive-p) file)
      (set-buffer fortune-buffer-name)
      (let* ((fortune (buffer-string))
           (signature (concat fortune-sigstart fortune fortune-sigend)))
--- 271,277 ----
         (fortune-ask-file)
         fortune-file)))
     (save-excursion
!     (fortune-in-buffer t file)
      (set-buffer fortune-buffer-name)
      (let* ((fortune (buffer-string))
           (signature (concat fortune-sigstart fortune fortune-sigend)))
***************
*** 285,291 ****
  (defun fortune-in-buffer (interactive &optional file)
    "Put a fortune cookie in the *fortune* buffer.
  
! When INTERACTIVE is nil, don't display it.  Optional argument FILE,
  when supplied, specifies the file to choose the fortune from."
    (let ((fortune-buffer (or (get-buffer fortune-buffer-name)
                            (generate-new-buffer fortune-buffer-name)))
--- 285,291 ----
  (defun fortune-in-buffer (interactive &optional file)
    "Put a fortune cookie in the *fortune* buffer.
  
! INTERACTIVE is ignored.  Optional argument FILE,
  when supplied, specifies the file to choose the fortune from."
    (let ((fortune-buffer (or (get-buffer fortune-buffer-name)
                            (generate-new-buffer fortune-buffer-name)))