Mercurial > hg > xemacs-beta

comparison lisp/w3/w3.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 1a767b41a199
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions 1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/18 20:31:29 3 ;; Created: 1997/03/26 00:02:30
4 ;; Version: 1.100 4 ;; Version: 1.103
5 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia 5 ;; Keywords: faces, help, comm, news, mail, processes, 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.
181 (make-frame))) 181 (make-frame)))
182 ((eq w3-notify 'bully) 182 ((eq w3-notify 'bully)
183 (pop-to-buffer buff) 183 (pop-to-buffer buff)
184 (delete-other-windows)) 184 (delete-other-windows))
185 ((eq w3-notify 'semibully) 185 ((eq w3-notify 'semibully)
186 (switch-to-buffer buff)) 186 (condition-case nil
187 (switch-to-buffer buff)
188 (error (message "W3 buffer %s is ready." (buffer-name buff)))))
187 ((eq w3-notify 'aggressive) 189 ((eq w3-notify 'aggressive)
188 (pop-to-buffer buff)) 190 (pop-to-buffer buff))
189 ((eq w3-notify 'friendly) 191 ((eq w3-notify 'friendly)
190 (display-buffer buff 'not-this-window)) 192 (display-buffer buff 'not-this-window))
191 ((eq w3-notify 'polite) 193 ((eq w3-notify 'polite)
1996 w3-lynx-emulation-minor-mode-map) 1998 w3-lynx-emulation-minor-mode-map)
1997 1999
1998 (setq url-package-version w3-version-number 2000 (setq url-package-version w3-version-number
1999 url-package-name "Emacs-W3") 2001 url-package-name "Emacs-W3")
2000 2002
2003 (w3-setup-terminal-chars)
2004
2001 (w3-emit-image-warnings-if-necessary) 2005 (w3-emit-image-warnings-if-necessary)
2002 2006
2003 (cond 2007 (cond
2004 ((memq system-type '(ms-dos ms-windows)) 2008 ((memq system-type '(ms-dos ms-windows))
2005 (setq w3-hotlist-file (or w3-hotlist-file 2009 (setq w3-hotlist-file (or w3-hotlist-file
2201 (or w3-setup-done (w3-do-setup)) 2205 (or w3-setup-done (w3-do-setup))
2202 (if (interactive-p) 2206 (if (interactive-p)
2203 (w3-preview-this-buffer) 2207 (w3-preview-this-buffer)
2204 (let ((tmp (mapcar (function (lambda (x) (cons x (symbol-value x)))) 2208 (let ((tmp (mapcar (function (lambda (x) (cons x (symbol-value x))))
2205 w3-persistent-variables))) 2209 w3-persistent-variables)))
2206 (kill-all-local-variables) 2210 ;; Oh gross, this kills buffer-local faces in XEmacs
2211 ;;(kill-all-local-variables)
2207 (use-local-map w3-mode-map) 2212 (use-local-map w3-mode-map)
2208 (setq major-mode 'w3-mode) 2213 (setq major-mode 'w3-mode)
2209 (setq mode-name "WWW") 2214 (setq mode-name "WWW")
2210 (mapcar (function (lambda (x) (set-variable (car x) (cdr x)))) tmp) 2215 (mapcar (function (lambda (x) (set-variable (car x) (cdr x)))) tmp)
2211 (w3-mode-version-specifics) 2216 (w3-mode-version-specifics)