[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/fortune.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/fortune.el [lexbind] |
Date: |
Thu, 04 Nov 2004 08:31:19 -0500 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/fortune.el [lexbind],
Miles Bader <=