home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / help-lucid-emacs / text0068.txt < prev    next >
Encoding:
Text File  |  1993-07-14  |  1.2 KB  |  44 lines
  1. Jamie,
  2.  
  3.    Further to your recent posting of man.el, can I suggest that Manual-mode
  4. runs a user-definable hook at the very end? I enclose a patch for this.
  5.  
  6. --
  7. Regards, David
  8.  
  9. 8< ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ CUT HERE for file: man.el-patch
  10. *** man.el.orig    Thu Apr 15 09:45:30 1993
  11. --- man.el    Thu Apr 15 12:08:24 1993
  12. ***************
  13. *** 332,343 ****
  14.       (define-key m 'button3 'Manual-popup-menu)
  15.       m))
  16.   
  17.   (defun Manual-mode ()
  18.     (kill-all-local-variables)
  19.     (setq buffer-read-only t)
  20.     (use-local-map Manual-mode-map)
  21.     (setq major-mode 'Manual-mode
  22. !         mode-name "Manual"))
  23.   
  24.   ;; Manual-select-subdirectories
  25.   ;; Given a DIRLIST and a SUBDIR name, return all subdirectories of the former which
  26. --- 332,347 ----
  27.       (define-key m 'button3 'Manual-popup-menu)
  28.       m))
  29.   
  30. + (defvar Manual-mode-hook nil
  31. +   "Run at the very end of Manual-mode.")
  32. + 
  33.   (defun Manual-mode ()
  34.     (kill-all-local-variables)
  35.     (setq buffer-read-only t)
  36.     (use-local-map Manual-mode-map)
  37.     (setq major-mode 'Manual-mode
  38. !         mode-name "Manual")
  39. !   (run-hooks 'Manual-mode-hook))
  40.   
  41.   ;; Manual-select-subdirectories
  42.   ;; Given a DIRLIST and a SUBDIR name, return all subdirectories of the former which
  43.  
  44.