Mercurial > hg > xemacs-beta
diff lisp/w3/w3.el @ 116:9f59509498e1 r20-1b10
Import from CVS: tag r20-1b10
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:23:06 +0200 |
parents | 8619ce7e4c50 |
children | 7d55a9ba150c |
line wrap: on
line diff
--- a/lisp/w3/w3.el Mon Aug 13 09:21:56 2007 +0200 +++ b/lisp/w3/w3.el Mon Aug 13 09:23:06 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")