From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: David Forrest <drf5n@mug.sys.virginia.edu>
Newsgroups: gmane.emacs.help
Subject: Re: Journal package for Emacs?
Date: Mon, 9 Sep 2002 13:05:46 -0400
Organization: University of Virginia
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <Pine.LNX.4.33.0209091301290.10457-100000@mug.sys.virginia.edu>
References: <mailman.1031586979.16781.help-gnu-emacs@gnu.org>
 <lyptvndslc.fsf@bock.chem.unc.edu>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=X-UNKNOWN
Content-Transfer-Encoding: QUOTED-PRINTABLE
X-Trace: main.gmane.org 1031592423 477 127.0.0.1 (9 Sep 2002 17:27:03 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 9 Sep 2002 17:27:03 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 17oSJQ-000074-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Mon, 09 Sep 2002 19:27:00 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 17oSJU-0006gT-00; Mon, 09 Sep 2002 13:27:04 -0400
Original-Path: shelby.stanford.edu!nntp.stanford.edu!newsfeed.stanford.edu!logbridge.uoregon.edu!msc1.onvoy!ply1.onvoy!upp1.onvoy!onvoy.com!news-out.visi.com!hermes.visi.com!newshosting.com!news-xfer1.atl.newshosting.com!uunet!dca.uu.net!hearst.acc.Virginia.EDU!murdoch.acc.Virginia.EDU!mug.sys.virginia.edu!drf5n
Original-Newsgroups: gnu.emacs.help
Original-Lines: 24
Original-NNTP-Posting-Host: mug.sys.virginia.edu
Original-X-Trace: murdoch.acc.Virginia.EDU 1031591246 3497 128.143.6.251 (9 Sep 2002 17:07:26 GMT)
Original-X-Complaints-To: abuse@virginia.edu
Original-NNTP-Posting-Date: 9 Sep 2002 17:07:26 GMT
In-Reply-To: <lyptvndslc.fsf@bock.chem.unc.edu>
Original-Xref: nntp.stanford.edu gnu.emacs.help:104632
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:1190
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:1190

On 9 Sep 2002, Jochen [iso-8859-1] K=FCpper 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
--=20
 Dave Forrest                                   drf5n@virginia.edu
 (804)642-0662h (434)924-3954w  http://mug.sys.virginia.edu/~drf5n/