emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/obsolete/hilit19.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/obsolete/hilit19.el [lexbind]
Date: Thu, 28 Oct 2004 22:27:49 -0400

Index: emacs/lisp/obsolete/hilit19.el
diff -c emacs/lisp/obsolete/hilit19.el:1.4.4.2 
emacs/lisp/obsolete/hilit19.el:1.4.4.3
*** emacs/lisp/obsolete/hilit19.el:1.4.4.2      Tue Oct 14 23:51:32 2003
--- emacs/lisp/obsolete/hilit19.el      Fri Oct 29 02:05:13 2004
***************
*** 1,6 ****
  ;;; hilit19.el --- customizable highlighting for Emacs 19
  
! ;; Copyright (c) 1993, 1994, 2001 Free Software Foundation, Inc.
  
  ;; Author:   Jonathan Stigelman <address@hidden>
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; hilit19.el --- customizable highlighting for Emacs 19
  
! ;; Copyright (c) 1993, 1994, 2001, 2004 Free Software Foundation, Inc.
  
  ;; Author:   Jonathan Stigelman <address@hidden>
  ;; Maintainer: FSF
***************
*** 397,404 ****
  If hilit19 is dumped into emacs at your site, you may have to set this in
  your init file.")
  
- (eval-when-compile (setq byte-optimize t))
- 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Use this to report bugs:
  
--- 397,402 ----
***************
*** 945,991 ****
  ;; Initialization.
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
! (and (not hilit-inhibit-rebinding)
!      (progn
!        (substitute-key-definition 'yank     'hilit-yank
!                                 (current-global-map))
!        (substitute-key-definition 'yank-pop 'hilit-yank-pop
!                                 (current-global-map))
!        (substitute-key-definition 'recenter 'hilit-recenter
!                                 (current-global-map))))
! 
! (global-set-key [?\C-\S-l] 'hilit-repaint-command)
! 
! (add-hook 'find-file-hook 'hilit-find-file-hook t)
  
  (eval-when-compile (require 'gnus))   ; no compilation gripes
  
- (and (not hilit-inhibit-hooks)
-      (condition-case c
-        (progn
- 
-          ;; BUFFER highlights...
-          (mapcar (function
-                   (lambda (hook)
-                     (add-hook hook 'hilit-rehighlight-buffer-quietly)))
-                  '(
-                    Info-selection-hook
- 
- ;; runs too early                  vm-summary-mode-hooks
-                    vm-summary-pointer-hook
-                    vm-preview-message-hook
-                    vm-show-message-hook
- 
-                    rmail-show-message-hook
-                    mail-setup-hook
-                    mh-show-mode-hook
- 
-                    dired-after-readin-hook
-                    ))
-          )
-        (error (message "Error loading highlight hooks: %s" c)
-             (ding) (sit-for 1))))
- 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Default patterns for various modes.
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 943,1003 ----
  ;; Initialization.
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
! (define-minor-mode hilit-mode
!   "Obsolete minor mode.  Use `global-font-lock-mode' instead."
!   :global t
! 
!   (unless (and hilit-inhibit-rebinding hilit-mode)
!     (substitute-key-definition
!      (if hilit-mode 'yank 'hilit-yank)
!      (if hilit-mode 'hilit-yank 'yank)
!      (current-global-map))
!     (substitute-key-definition
!      (if hilit-mode 'yank-pop 'hilit-yank-pop)
!      (if hilit-mode 'hilit-yank-pop 'yank-pop)
!      (current-global-map))
!     (substitute-key-definition
!      (if hilit-mode 'recenter 'hilit-recenter)
!      (if hilit-mode 'hilit-recenter 'recenter)
!      (current-global-map)))
! 
!   (if hilit-mode
!       (global-set-key [?\C-\S-l] 'hilit-repaint-command)
!     (global-unset-key [?\C-\S-l]))
! 
!   (if hilit-mode
!       (add-hook 'find-file-hook 'hilit-find-file-hook t)
!     (remove-hook 'find-file-hook 'hilit-find-file-hook))
! 
!   (unless (and hilit-inhibit-hooks hilit-mode)
!     (condition-case c
!       (progn
! 
!         ;; BUFFER highlights...
!         (mapcar (lambda (hook)
!                   (if hilit-mode
!                       (add-hook hook 'hilit-rehighlight-buffer-quietly)
!                     (remove-hook hook 'hilit-rehighlight-buffer-quietly)))
!                 '(
!                   Info-selection-hook
! 
!                   ;; runs too early                vm-summary-mode-hooks
!                   vm-summary-pointer-hook
!                   vm-preview-message-hook
!                   vm-show-message-hook
! 
!                   rmail-show-message-hook
!                   mail-setup-hook
!                   mh-show-mode-hook
! 
!                   dired-after-readin-hook
!                   ))
!         )
!       (error (message "Error loading highlight hooks: %s" c)
!            (ding) (sit-for 1)))))
  
  (eval-when-compile (require 'gnus))   ; no compilation gripes
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Default patterns for various modes.
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 1510,1514 ****
  
  (provide 'hilit19)
  
! ;;; arch-tag: db99739a-4837-41ee-ad02-3baced8ae71d
  ;;; hilit19.el ends here
--- 1522,1526 ----
  
  (provide 'hilit19)
  
! ;; arch-tag: db99739a-4837-41ee-ad02-3baced8ae71d
  ;;; hilit19.el ends here




reply via email to

[Prev in Thread] Current Thread [Next in Thread]