Path: utzoo!utgpu!water!watmath!clyde!rutgers!rochester!bbn!husc6!yale!Ram-Ashwin
From: Ram-Ashwin@cs.yale.edu (Ashwin Ram)
Newsgroups: comp.emacs
Subject: Re: fixing a file
Message-ID: <21309@yale-celray.yale.UUCP>
Date: 12 Jan 88 18:24:55 GMT
References: <39749@ti-csl.CSNET> <8801121457.AA21504@ucbvax.Berkeley.EDU>
Sender: root@yale.UUCP
Reply-To: Ram-Ashwin@cs.yale.edu (Ashwin Ram)
Organization: Computer Science, Yale University, New Haven, CT 06520-2158
Lines: 24
In-reply-to: jr@LF-SERVER-2.BBN.COM (John Robinson)

In article <8801121457.AA21504@ucbvax.Berkeley.EDU>, jr@LF-SERVER-2 (John Robinson) writes:
> What you should really do is to make your function be the one named
> self-insert-command, after having carefully saved away the original
> definition so you can call it at the end.  Then you wouldn't have to
> muck withthe keymaps at all.  'Fraid I can't produce the elisp for
> this freehand; someone else want to volunteer?

How about:

(fset 'standard-self-insert-command (symbol-function 'self-insert-command))

(defun self-insert-command (count)
  (interactive "p")
  (if (and (>= (current-column) fill-column)
	   auto-fill-hook)
      (do-auto-fill))
  (standard-self-insert-command count))

-- Ashwin Ram --


ARPA:    Ram-Ashwin@cs.yale.edu
UUCP:    {decvax,ucbvax,harvard,...}!yale!Ram-Ashwin
BITNET:  Ram@yalecs