On 9 Sep 2002, Jochen [iso-8859-1] Küpper wrote:
> David> I was looking for a function like 'defined' and am probably
> David> missing something very basic. (when 'is-journal) is always true
> David> and stamps everything, while (when is-journal) stamps journal
> David> files, but faults with "Symbol's value as variable is void:
> David> is-journal"
>
> What's about boundp or bound-and-true-p?

Yep.  That's the basic thing I was missing exactly.  Thanks!

(defun my-journal-hook ()
  "Append time stamp to -*- is-journal: t -*- files."
    (when (boundp 'is-journal)
    (end-of-buffer)
    (insert-current-time)))

(add-hook 'find-file-hooks 'my-journal-hook)

Dave
-- 
 Dave Forrest                                   drf5n@virginia.edu
 (804)642-0662h (434)924-3954w  http://mug.sys.virginia.edu/~drf5n/