Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-display.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents 7d55a9ba150c
children 9b50b4588a93
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
1 ;;; w3-display.el --- display engine v99999 1 ;;; w3-display.el --- display engine v99999
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/03 16:32:31 3 ;; Created: 1997/04/07 17:01:38
4 ;; Version: 1.171 4 ;; Version: 1.172
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.
441 nil))) 441 nil)))
442 442
443 443
444 ;; Various macros 444 ;; Various macros
445 (eval-when-compile 445 (eval-when-compile
446 (defmacro w3-node-visible-p ()
447 (` (not (eq (car break-style) 'none))))
448
446 (defmacro w3-handle-empty-tag () 449 (defmacro w3-handle-empty-tag ()
447 (` 450 (`
448 (progn 451 (progn
449 (push (cons tag args) w3-display-open-element-stack) 452 (push (cons tag args) w3-display-open-element-stack)
450 (push content content-stack) 453 (push content content-stack)
719 (set-buffer buffer) 722 (set-buffer buffer)
720 (if (eq major-mode 'w3-mode) 723 (if (eq major-mode 'w3-mode)
721 (widget-value-set widget glyph) 724 (widget-value-set widget glyph)
722 (setq w3-image-widgets-waiting 725 (setq w3-image-widgets-waiting
723 (cons widget w3-image-widgets-waiting))))))) 726 (cons widget w3-image-widgets-waiting)))))))
724
725 (defmacro w3-node-visible-p ()
726 (` (not (eq (car break-style) 'none))))
727 727
728 (defmacro w3-handle-image () 728 (defmacro w3-handle-image ()
729 (` 729 (`
730 (let* ((height (w3-get-attribute 'height)) 730 (let* ((height (w3-get-attribute 'height))
731 (width (w3-get-attribute 'width)) 731 (width (w3-get-attribute 'width))