Back out last commit since we do not have papers from the actual

author.
parent beb7fba1
2011-07-03 Juanma Barranquero <lekktu@gmail.com>
* play/fortune.el (fortune-compile): Make a new fortune dat file
compile time if the dat file does not exist (bug#5338).
2011-07-03 Richard Kim <emacs18@gmail.com> (tiny change)
* textmodes/texnfo-upd.el (texinfo-insert-menu): Don't insert
......
......@@ -244,21 +244,15 @@ the value of `fortune-file'. This currently cannot handle directories."
(let* ((fortune-file (expand-file-name (substitute-in-file-name file)))
(fortune-dat (expand-file-name
(substitute-in-file-name
(concat fortune-file fortune-database-extension))))
(fortune-file-exist (file-exists-p fortune-file))
(fortune-dat-exist (file-exists-p fortune-dat))
(fortune-file-newer (file-newer-than-file-p
fortune-file fortune-dat)))
(cond
(fortune-file-exist
(if (or (not fortune-dat-exist)
(and fortune-dat-exist
fortune-file-newer))
(message "Compiling new fortune database %s" fortune-dat)
(shell-command
(concat fortune-strfile fortune-strfile-options
" " fortune-file fortune-quiet-strfile-options))))
(t (error "Can't compile fortune file %s" fortune-file)))))
(concat fortune-file fortune-database-extension)))))
(cond ((file-exists-p fortune-file)
(if (file-exists-p fortune-dat)
(cond ((file-newer-than-file-p fortune-file fortune-dat)
(message "Compiling new fortune database %s" fortune-dat)
(shell-command
(concat fortune-strfile fortune-strfile-options
" " fortune-file fortune-quiet-strfile-options))))))
(t (error "Can't compile fortune file %s" fortune-file)))))
;;; **************
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment