Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-e19.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 441bb1e64a06
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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/02/18 23:32:51 3 ;; Created: 1997/03/12 20:07:18
4 ;; Version: 1.18 4 ;; Version: 1.19
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.
95 (x-select-text str)) 95 (x-select-text str))
96 ((eq (device-type) 'ns) 96 ((eq (device-type) 'ns)
97 (ns-store-pasteboard-internal str)) 97 (ns-store-pasteboard-internal str))
98 (t nil))) 98 (t nil)))
99 99
100 (defun w3-e19-no-read-only (st nd)
101 ;; Make sure we don't yank any read-only data out of this buffer
102 (let ((inhibit-read-only t))
103 (put-text-property st nd 'read-only nil)))
104
100 (defun w3-mode-version-specifics () 105 (defun w3-mode-version-specifics ()
101 ;; Emacs 19 specific stuff for w3-mode 106 ;; Emacs 19 specific stuff for w3-mode
102 (make-local-variable 'track-mouse) 107 (make-local-variable 'track-mouse)
108 (set (make-local-variable 'buffer-access-fontify-functions) 'w3-e19-no-read-only)
103 (if w3-track-mouse (setq track-mouse t))) 109 (if w3-track-mouse (setq track-mouse t)))
104 110
105 (defun w3-mouse-handler (e) 111 (defun w3-mouse-handler (e)
106 "Function to message the url under the mouse cursor" 112 "Function to message the url under the mouse cursor"
107 (interactive "e") 113 (interactive "e")