Mercurial > hg > xemacs-beta
diff lisp/w3/w3.el @ 44:8d2a9b52c682 r19-15prefinal
Import from CVS: tag r19-15prefinal
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:55:10 +0200 |
parents | 1a767b41a199 |
children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/w3/w3.el Mon Aug 13 08:54:52 2007 +0200 +++ b/lisp/w3/w3.el Mon Aug 13 08:55:10 2007 +0200 @@ -1,7 +1,7 @@ ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions ;; Author: wmperry -;; Created: 1997/03/18 20:31:29 -;; Version: 1.100 +;; Created: 1997/03/26 00:02:30 +;; Version: 1.103 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -183,7 +183,9 @@ (pop-to-buffer buff) (delete-other-windows)) ((eq w3-notify 'semibully) - (switch-to-buffer buff)) + (condition-case nil + (switch-to-buffer buff) + (error (message "W3 buffer %s is ready." (buffer-name buff))))) ((eq w3-notify 'aggressive) (pop-to-buffer buff)) ((eq w3-notify 'friendly) @@ -1998,6 +2000,8 @@ (setq url-package-version w3-version-number url-package-name "Emacs-W3") + (w3-setup-terminal-chars) + (w3-emit-image-warnings-if-necessary) (cond @@ -2203,7 +2207,8 @@ (w3-preview-this-buffer) (let ((tmp (mapcar (function (lambda (x) (cons x (symbol-value x)))) w3-persistent-variables))) - (kill-all-local-variables) + ;; Oh gross, this kills buffer-local faces in XEmacs + ;;(kill-all-local-variables) (use-local-map w3-mode-map) (setq major-mode 'w3-mode) (setq mode-name "WWW")