home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / alt / lucidem / help / 954 < prev    next >
Encoding:
Text File  |  1993-01-27  |  1.5 KB  |  47 lines
  1. x-gateway: rodan.UU.NET from help-lucid-emacs to alt.lucid-emacs.help; Wed, 27 Jan 1993 17:58:11 EST
  2. Date: Wed, 27 Jan 1993 09:34:13 GMT
  3. From: djh@CIS.Prime.COM (David Hughes)
  4. Message-ID: <9301270934.AA05320@CIS.Prime.COM>
  5. Subject: Re: How to replace self-insert-command?
  6. References: <9301270742.AA06561@hilbert.maths.utas.edu.au>
  7. Newsgroups: alt.lucid-emacs.help
  8. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  9. Sender: help-lucid-emacs-request@lucid.com
  10. Lines: 35
  11.  
  12. Excerpt of message (sent 27 January 93) by La Monte Yarroll:
  13. > I'd like to replace self-insert-command with my own routine.
  14. > 
  15. > Under plain GNU emacs I can define a function like this:
  16. > 
  17. > (defun self-insert-wrapper (arg)
  18. >   (interactive "p")
  19. >   (self-insert-command arg))
  20. > 
  21. > and then replace every instance of 'self-insert-command in global-map
  22. > with 'self-insert-wrapper.
  23. > 
  24. > Under Lucid emacs 19.4 this almost works, except it breaks incremental
  25. > searching.
  26. > 
  27. > Is there a way to do this WITHOUT breaking incremental searching?
  28. > 
  29.  
  30. A much neater way of defining a wrapper which avoids having to replace every
  31. instance of 'self-insert-command in global-map with 'self-insert-wrapper is
  32. to do the folowing:
  33.  
  34. ;; Store the original symbol-function
  35. (if (not (fboundp 'real-self-insert-command))
  36.     (fset 'real-self-insert-command (symbol-function 'self-insert-command)))
  37.  
  38. (defun self-insert-command (arg)
  39.   (interactive "p")
  40.   (real-self-insert-command arg))
  41.  
  42. I don't know whether this will solve your problem, but I think this a better
  43. approach in general.
  44.  
  45. --
  46. Regards, David
  47.