home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / enable-me.el < prev    next >
Encoding:
Text File  |  1991-03-20  |  705 b   |  21 lines
  1. ; From: roland@ai.mit.edu (Roland McGrath)
  2. ; Subject: Enable yourself, cretin!
  3. ; Date: 26 Dec 90 22:13:11 GMT
  4. ; Organization: Hackers Anonymous International, Ltd., Inc. (Applications
  5. ;     welcome)
  6. ; 
  7. ; Recent discussion about disabled commands prompted me to write this little
  8. ; thingie for all you Emacs studs out there:
  9. ; 
  10. ;; Enable yourself, cretin.
  11. (setq disabled-command-hook 'enable-me)
  12.  
  13. (defun enable-me (&rest args)
  14.   "Called when a disabled command is executed.
  15. Enable it and reexecute it."
  16.   (put this-command 'disabled nil)
  17.   (message "You typed %s.  %s was disabled.  It ain't no more."
  18.        (key-description (this-command-keys)) this-command)
  19.   (sit-for 0)
  20.   (call-interactively this-command))
  21.