Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-display.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children c53a95d3c46d
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
1 ;;; w3-display.el --- display engine v99999 1 ;;; w3-display.el --- display engine v99999
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/06 04:12:42 3 ;; Created: 1997/03/14 06:33:15
4 ;; Version: 1.144 4 ;; Version: 1.147
5 ;; Keywords: faces, help, hypermedia 5 ;; Keywords: faces, help, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 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.
438 nil))) 438 nil)))
439 439
440 440
441 ;; Various macros 441 ;; Various macros
442 (eval-when-compile 442 (eval-when-compile
443 (defmacro w3-expand-url (url)
444 (`
445 (url-expand-file-name (, url)
446 (cdr-safe
447 (assoc
448 (cdr-safe
449 (assq 'base args)) w3-base-alist)))))
450
451 (defmacro w3-handle-empty-tag () 443 (defmacro w3-handle-empty-tag ()
452 (` 444 (`
453 (progn 445 (progn
454 (push (cons tag args) w3-display-open-element-stack) 446 (push (cons tag args) w3-display-open-element-stack)
455 (push content content-stack) 447 (push content content-stack)
1682 (if rows 1674 (if rows
1683 (setq w3-frameset-dimensions (push rows w3-frameset-dimensions))) 1675 (setq w3-frameset-dimensions (push rows w3-frameset-dimensions)))
1684 (if cols 1676 (if cols
1685 (setq w3-frameset-dimensions (push cols w3-frameset-dimensions)))) 1677 (setq w3-frameset-dimensions (push cols w3-frameset-dimensions))))
1686 (w3-handle-content node)) 1678 (w3-handle-content node))
1687 (w3-handle-empty-tag))) 1679 (w3-handle-content node)))
1688 (frame 1680 (frame
1689 (if w3-display-frames 1681 (if w3-display-frames
1690 (let* ((href (or (w3-get-attribute 'src) 1682 (let* ((href (or (w3-get-attribute 'src)
1691 (w3-get-attribute 'href))) 1683 (w3-get-attribute 'href)))
1692 (name (or (w3-get-attribute 'name) 1684 (name (or (w3-get-attribute 'name)
1703 (cons (cons 'href href) 1695 (cons (cons 'href href)
1704 args) 1696 args)
1705 (list 1697 (list
1706 (car w3-frame-labels) 1698 (car w3-frame-labels)
1707 name 1699 name
1708 (cdr w3-frame-labels))))))))))) 1700 (cdr w3-frame-labels)))))))))
1701 (w3-handle-empty-tag)))
1709 (noframes 1702 (noframes
1710 (if w3-display-frames 1703 (if w3-display-frames
1711 (w3-handle-empty-tag) 1704 (w3-handle-empty-tag)
1712 (w3-handle-content node))) 1705 (w3-handle-content node)))
1713 (applet ; Wow, Java 1706 (applet ; Wow, Java
2068 (w3-find-specific-link (url-target url-current-object))) 2061 (w3-find-specific-link (url-target url-current-object)))
2069 (goto-char (point-min))) 2062 (goto-char (point-min)))
2070 (and (not w3-running-xemacs) 2063 (and (not w3-running-xemacs)
2071 (not (eq (device-type) 'tty)) 2064 (not (eq (device-type) 'tty))
2072 (w3-fixup-eol-faces)) 2065 (w3-fixup-eol-faces))
2073 (message "Drawing... done") 2066 (let ((inhibit-read-only t))
2074 ;;(w3-handle-headers) 2067 (put-text-property (point-min) (point-max) 'read-only nil))
2075 ) 2068 (message "Drawing... done"))
2076 2069
2077 (defun w3-region (st nd) 2070 (defun w3-region (st nd)
2078 (if (not w3-setup-done) (w3-do-setup)) 2071 (if (not w3-setup-done) (w3-do-setup))
2079 (let* ((source (buffer-substring st nd)) 2072 (let* ((source (buffer-substring st nd))
2080 (w3-display-same-buffer t) 2073 (w3-display-same-buffer t)