Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a2064b09
Commit
a2064b09
authored
Jun 21, 2006
by
Miles Bader
Browse files
lisp/play/cookie1.el (cookie): Work properly when there's only one entry
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-323
parent
be1fc9b8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
2 deletions
+6
-2
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/play/cookie1.el
lisp/play/cookie1.el
+2
-2
No files found.
lisp/ChangeLog
View file @
a2064b09
2006-06-21 Miles Bader <miles@gnu.org>
* play/cookie1.el (cookie): Work properly when there's only one entry.
2006-06-21 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-exited): Ensure overlay arrow gets killed.
...
...
lisp/play/cookie1.el
View file @
a2064b09
;;; cookie1.el --- retrieve random phrases from fortune cookie files
;; Copyright (C) 1993, 2002, 2003, 2004, 2005,
;; Copyright (C) 1993, 2002, 2003, 2004, 2005,
2006,
;; 2006 Free Software Foundation, Inc.
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
...
...
@@ -75,7 +75,7 @@ When the phrase file is read in, display STARTMSG at the beginning
of load, ENDMSG at the end."
(
let
((
cookie-vector
(
cookie-snarf
phrase-file
startmsg
endmsg
)))
(
shuffle-vector
cookie-vector
)
(
aref
cookie-vector
1
)))
(
aref
cookie-vector
0
)))
;;;###autoload
(
defun
cookie-insert
(
phrase-file
&optional
count
startmsg
endmsg
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment