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