Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uflorida!ukma!rutgers!aramis.rutgers.edu!porthos.rutgers.edu!gaynor
From: gaynor@porthos.rutgers.edu (Silver)
Newsgroups: comp.emacs
Subject: Re: yes-or-no-p vs y-or-n-p, yes/no vs y/n
Message-ID: <Feb.6.23.52.34.1989.3457@porthos.rutgers.edu>
Date: 7 Feb 89 04:52:35 GMT
References: <17901@vax5.CIT.CORNELL.EDU> <TALE.89Feb6091941@consult1.its.rpi.edu> <35648@bbn.COM> <Feb.6.13.30.31.1989.1714@athos.rutgers.edu>
Distribution: comp
Organization: Rutgers Univ., New Brunswick, N.J.
Lines: 21



As it is, if you haven't typed 100 characters at the emacs in question, you
can't have completely filled up (recent-keys), which grows in length until it
reaches 100 characters (some days you learn the neatest little thangs).  Ok,
this information is reflected in the version of hateful-recent-keys below.  The
old version died when less than the length of (recent-keys) was less than
hateful-recent-keystrokes.

Regards, [Ag] gaynor@whoops.rutgers.edu
_______________________________________________________________________________
(defun hateful-recent-keys ()
  (let ((keys (recent-keys)))
    (if (> hateful-recent-keystrokes (length keys))
      (setq keys
	    (concat (make-string (- hateful-recent-keystrokes (length keys))
				 ?\ )
		    keys)))
    (string-match (mapconcat 'identity hateful-recent-keys-list "\\|")
		  (substring keys (- (length keys)
				     hateful-recent-keystrokes)))))