Mercurial > hg > xemacs-beta
diff lisp/w3/w3.el @ 118:7d55a9ba150c r20-1b11
Import from CVS: tag r20-1b11
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:24:17 +0200 |
parents | 9f59509498e1 |
children | cca96a509cfe |
line wrap: on
line diff
--- a/lisp/w3/w3.el Mon Aug 13 09:23:08 2007 +0200 +++ b/lisp/w3/w3.el Mon Aug 13 09:24:17 2007 +0200 @@ -1,7 +1,7 @@ ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions ;; Author: wmperry -;; Created: 1997/03/26 00:02:30 -;; Version: 1.103 +;; Created: 1997/04/03 02:06:01 +;; Version: 1.105 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -421,7 +421,13 @@ (let ((window-distance (cdr-safe (assq target w3-target-window-distances)))) (if (numberp window-distance) (other-window window-distance) - (error "target %S not found." target)))) + (case target + ((_blank external) + (w3-fetch-other-frame url)) + (_top + (delete-other-windows)) + (otherwise + (message "target %S not found." target)))))) (cond ((= (string-to-char url) ?#) (w3-relative-link url)) @@ -1890,7 +1896,7 @@ (defun w3-find-default-stylesheets () (setq w3-loaded-stylesheets nil) - (let* ((lightp (w3-color-light-p 'default)) + (let* ((lightp (css-color-light-p 'default)) (longname (if lightp "stylesheet-light" "stylesheet-dark")) (shortname (if lightp "light.css" "dark.css")) (directories (list