[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/fortune.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/fortune.el |
Date: |
Mon, 01 Nov 2004 02:58:01 -0500 |
Index: emacs/lisp/play/fortune.el
diff -c emacs/lisp/play/fortune.el:1.9 emacs/lisp/play/fortune.el:1.10
*** emacs/lisp/play/fortune.el:1.9 Mon Sep 1 15:45:34 2003
--- emacs/lisp/play/fortune.el Mon Nov 1 07:45:18 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,
Richard M . Stallman <=