Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-e19.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 6608ceec7cf8
children 8eaf7971accc
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
1 ;;; w3-e19.el --- Emacs 19.xx specific functions for emacs-w3 1 ;;; w3-e19.el --- Emacs 19.xx specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/24 04:44:57 3 ;; Created: 1997/05/10 23:01:41
4 ;; Version: 1.25 4 ;; Version: 1.26
5 ;; Keywords: faces, help, mouse, hypermedia 5 ;; Keywords: faces, help, mouse, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
105 105
106 (defun w3-mode-version-specifics () 106 (defun w3-mode-version-specifics ()
107 ;; Emacs 19 specific stuff for w3-mode 107 ;; Emacs 19 specific stuff for w3-mode
108 (declare (special w3-face-index w3-display-background-properties)) 108 (declare (special w3-face-index w3-display-background-properties))
109 (make-local-variable 'track-mouse) 109 (make-local-variable 'track-mouse)
110 (set (make-local-variable 'buffer-access-fontify-functions) 'w3-e19-no-read-only) 110 ;(set (make-local-variable 'buffer-access-fontify-functions) 'w3-e19-no-read-only)
111 (if w3-track-mouse (setq track-mouse t)) 111 (if w3-track-mouse (setq track-mouse t))
112 (if w3-display-background-properties 112 (if w3-display-background-properties
113 (let ((face (w3-make-face (intern 113 (let ((face (w3-make-face (intern
114 (format "w3-style-face-%05d" w3-face-index)) 114 (format "w3-style-face-%05d" w3-face-index))
115 "An Emacs-W3 face... don't edit by hand." t)) 115 "An Emacs-W3 face... don't edit by hand." t))