[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/fortune.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/fortune.el [emacs-unicode-2] |
Date: |
Thu, 04 Nov 2004 04:04:31 -0500 |
Index: emacs/lisp/play/fortune.el
diff -c emacs/lisp/play/fortune.el:1.8.6.1 emacs/lisp/play/fortune.el:1.8.6.2
*** emacs/lisp/play/fortune.el:1.8.6.1 Fri Apr 16 12:50:33 2004
--- emacs/lisp/play/fortune.el Thu Nov 4 08:55:40 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/fortune.el [emacs-unicode-2],
Miles Bader <=