Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-xemac.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents 7d55a9ba150c
children b980b6286996
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3 1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/01 19:23:21 3 ;; Created: 1997/04/10 00:03:38
4 ;; Version: 1.17 4 ;; Version: 1.18
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.
33 (require 'w3-forms) 33 (require 'w3-forms)
34 (require 'w3-script) 34 (require 'w3-script)
35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
36 ;;; Enhancements For XEmacs 36 ;;; Enhancements For XEmacs
37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
38 (defun w3-text-pixel-width (str &optional face)
39 "Return the pixel-width of a chunk of text STR with face FACE."
40 (let ((glyph (make-glyph str))
41 (todo (if (listp face) face (list face)))
42 (max 0))
43 (while (progn (set-glyph-face glyph (pop todo)) todo)
44 (setq max (max (glyph-width glyph) max)))
45 max))
46
38 (defun w3-mouse-handler (e) 47 (defun w3-mouse-handler (e)
39 "Function to message the url under the mouse cursor" 48 "Function to message the url under the mouse cursor"
40 (interactive "e") 49 (interactive "e")
41 (let* ((pt (event-point e)) 50 (let* ((pt (event-point e))
42 (good (eq (event-window e) (selected-window))) 51 (good (eq (event-window e) (selected-window)))