home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / alt / lucidem / help / 137 < prev    next >
Encoding:
Text File  |  1992-07-26  |  1.9 KB  |  57 lines
  1. Newsgroups: alt.lucid-emacs.help
  2. Sender: help-lucid-emacs-request@lucid.com
  3. Date: Mon, 27 Jul 92 09:02:31 +0200
  4. From: queinnec%geant.cenatls.cena.dgac.fr@lucid.com (Philippe Queinnec)
  5. Message-ID: <9207270702.AA20505@geant.cenatls.cena.dgac.fr>
  6. Subject: Re: lhilit.el
  7. References: <9207082022.AA02976@kocrsw12.delcoelect.com>
  8. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  9. Lines: 46
  10.  
  11. Here is a patch for lhilit.el with the following changes:
  12.  - in hilit::hilit-buffer, a few variables were used without being locally
  13.     bound.
  14.  - remove the requirement of cl: it was used only for two pushes, and I
  15.    don't like the cl module (it's big, it used to redefine `member' in
  16.    emacs 18, and it raises bad memories of Common Lisp...)
  17.  
  18. Hope it helps.
  19. Phil
  20.  
  21. PS: Mike Scheidler's address <c23mts@kocrsv01.delcoelect.com> seems invalid
  22. (mail bounced with: 451 <c23mts@kocrsv01.delcoelect.com>... reply: read
  23. error). Are you here Mike ?
  24.  
  25.  
  26. --- lhilit.el.old    Tue Jul 21 17:36:10 1992
  27. +++ lhilit.el    Tue Jul 21 17:45:16 1992
  28. @@ -59,9 +59,4 @@
  29.  ;;;
  30.  
  31. -;;------------------------------------------
  32. -;; Load required Common Lisp extensions.
  33. -;;------------------------------------------
  34. -(require 'cl)
  35. -
  36.  (defvar hilit::init-done nil
  37.    "Flag signifying that hilit subsystem has been initialized.")
  38. @@ -111,5 +106,6 @@
  39.    (interactive)
  40.    (if hilit::mode-list
  41. -      (let ((modes hilit::mode-list))
  42. +      (let ((modes hilit::mode-list)
  43. +            m p patterns mode start)
  44.          (while (setq m (car modes))
  45.            (setq mode (car m))
  46. @@ -226,6 +222,8 @@
  47.        ;; Install read/write hooks.
  48.        ;;------------------------------------------
  49. -      (push 'hilit::hilit-after-find find-file-hooks)
  50. -      (push 'hilit::unhilit-before-save write-file-hooks)
  51. +      (setq find-file-hooks
  52. +            (cons 'hilit::hilit-after-find find-file-hooks))
  53. +      (setq write-file-hooks
  54. +            (cons 'hilit::unhilit-before-save write-file-hooks))
  55.  
  56.        ;;------------------------------------------
  57.