[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/obsolete/hilit19.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/obsolete/hilit19.el |
Date: |
Wed, 27 Oct 2004 15:56:39 -0400 |
Index: emacs/lisp/obsolete/hilit19.el
diff -c emacs/lisp/obsolete/hilit19.el:1.7 emacs/lisp/obsolete/hilit19.el:1.8
*** emacs/lisp/obsolete/hilit19.el:1.7 Mon Sep 1 15:45:33 2003
--- emacs/lisp/obsolete/hilit19.el Wed Oct 27 19:51: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 t))
!
! (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
- [Emacs-diffs] Changes to emacs/lisp/obsolete/hilit19.el,
Stefan Monnier <=