Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!think!husc6!cfa!willner
From: willner@cfa.harvard.EDU (Steve Willner)
Newsgroups: comp.emacs
Subject: GNU Emacs Query
Message-ID: <361@cfa.cfa.harvard.EDU>
Date: Wed, 14-Jan-87 16:46:05 EST
Article-I.D.: cfa.361
Posted: Wed Jan 14 16:46:05 1987
Date-Received: Thu, 15-Jan-87 03:02:06 EST
Distribution: na
Organization: Harvard-Smithsonian Ctr. for Astrophysics
Lines: 35
Keywords: kill-ring

I would greatly appreciate some help with a mysterious problem.  The
following is in my .emacs initialization file:
(defun append-to-killring () "
       Append mark-point region to the last entry on the kill ring."
  (interactive)
  (append-next-kill)
  (kill-region (point) (mark))
  (message "%s" "Appended.")
  )

But when I execute this function, it's as if the (append-next-kill)
command had no effect.  That is, the commands
  [mark region]
  (append-to-killring)
create a new entry in the kill ring, rather than appending to the
previous entry.  (The region is killed, and the "Appended" message
appears, so it seems that the command is doing something.)  It makes
no difference whether the command is executed via a key-binding or
via M-x and typing the name literally.  On the other hand, the
command sequence
  [mark region]
  M-x append-next-kill
  kill-region  [activated by key binding]
works as I expect; i.e. the new kill is appended to the old.  But if
the kill-region command above is typed via M-x, again the kill fails
to append.

The program version is GNU Emacs 17.49.8 of Mon Jul 7 1986.

Please e-mail replies to one of the addresses below, if possible.
Thanks for any help.
-- 
Steve Willner              Phone 617-495-7123        Bitnet: willner@cfa1
60 Garden St.              FTS:      830-7123         UUCP:   willner@cfa
Cambridge, MA 02138 USA  Telex:  921428 satellite cam