Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-xemac.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 6a378aca36af
children a145efe76779
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
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/01/19 20:06:02 3 ;; Created: 1997/02/10 16:08:10
4 ;; Version: 1.12 4 ;; Version: 1.14
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.
78 (if (featurep 'menubar) 78 (if (featurep 'menubar)
79 (let ((current-menubar (default-value 'current-menubar))) 79 (let ((current-menubar (default-value 'current-menubar)))
80 (if current-menubar 80 (if current-menubar
81 (add-submenu '("Help") (cons "WWW" (cdr w3-menu-help-menu)))))) 81 (add-submenu '("Help") (cons "WWW" (cdr w3-menu-help-menu))))))
82 82
83 ;; FIXME FIXME: Do sexy things to the default modeline for Emacs-W3
84
85 ;; The following is a workaround for XEmacs 19.14 and XEmacs 20.0
86 ;; The text property implementation is badly broken - you could not have
87 ;; a text property with a `nil' value. Bad bad bad.
88 (if (or (and (= emacs-major-version 20)
89 (= emacs-minor-version 0))
90 (and (= emacs-major-version 19)
91 (= emacs-minor-version 14)))
92 (defun text-prop-extent-paste-function (ext from to)
93 (let ((prop (extent-property ext 'text-prop nil))
94 (val nil))
95 (if (null prop)
96 (error "Internal error: no text-prop"))
97 (setq val (extent-property ext prop nil))
98 (put-text-property from to prop val nil)
99 nil))
100 )
83 ) 101 )
84 102
85 (defun w3-store-in-clipboard (str) 103 (defun w3-store-in-clipboard (str)
86 "Store string STR into the clipboard in X" 104 "Store string STR into the clipboard in X"
87 (cond 105 (cond