Mercurial > hg > xemacs-beta

comparison lisp/w3/w3.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
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/26 00:02:30 3 ;; Created: 1997/04/03 02:06:01
4 ;; Version: 1.103 4 ;; Version: 1.105
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.
419 (setq target (intern (downcase target)))) 419 (setq target (intern (downcase target))))
420 (and target 420 (and target
421 (let ((window-distance (cdr-safe (assq target w3-target-window-distances)))) 421 (let ((window-distance (cdr-safe (assq target w3-target-window-distances))))
422 (if (numberp window-distance) 422 (if (numberp window-distance)
423 (other-window window-distance) 423 (other-window window-distance)
424 (error "target %S not found." target)))) 424 (case target
425 ((_blank external)
426 (w3-fetch-other-frame url))
427 (_top
428 (delete-other-windows))
429 (otherwise
430 (message "target %S not found." target))))))
425 (cond 431 (cond
426 ((= (string-to-char url) ?#) 432 ((= (string-to-char url) ?#)
427 (w3-relative-link url)) 433 (w3-relative-link url))
428 ((or (and (interactive-p) current-prefix-arg) w3-dump-to-disk) 434 ((or (and (interactive-p) current-prefix-arg) w3-dump-to-disk)
429 (w3-download-url url)) 435 (w3-download-url url))
1888 (defvar w3-loaded-stylesheets nil 1894 (defvar w3-loaded-stylesheets nil
1889 "A list of all the stylesheets Emacs-W3 loaded at startup.") 1895 "A list of all the stylesheets Emacs-W3 loaded at startup.")
1890 1896
1891 (defun w3-find-default-stylesheets () 1897 (defun w3-find-default-stylesheets ()
1892 (setq w3-loaded-stylesheets nil) 1898 (setq w3-loaded-stylesheets nil)
1893 (let* ((lightp (w3-color-light-p 'default)) 1899 (let* ((lightp (css-color-light-p 'default))
1894 (longname (if lightp "stylesheet-light" "stylesheet-dark")) 1900 (longname (if lightp "stylesheet-light" "stylesheet-dark"))
1895 (shortname (if lightp "light.css" "dark.css")) 1901 (shortname (if lightp "light.css" "dark.css"))
1896 (directories (list 1902 (directories (list
1897 data-directory 1903 data-directory
1898 (concat data-directory "w3/") 1904 (concat data-directory "w3/")