Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-display.el @ 46:6a22abad6937 r19-15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15
author cvs
date Mon, 13 Aug 2007 08:55:31 +0200
parents 8d2a9b52c682
children
comparison
equal deleted inserted replaced
45:7705b7aa3b8a 46:6a22abad6937
1 ;;; w3-display.el --- display engine v99999 1 ;;; w3-display.el --- display engine v99999
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/26 00:03:00 3 ;; Created: 1997/03/26 15:24:53
4 ;; Version: 1.156 4 ;; Version: 1.157
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.
76 (` (cdr-safe (assq (, attr) args)))) 76 (` (cdr-safe (assq (, attr) args))))
77 77
78 (defmacro w3-get-face-info (info &optional other) 78 (defmacro w3-get-face-info (info &optional other)
79 (let ((var (intern (format "w3-face-%s" info)))) 79 (let ((var (intern (format "w3-face-%s" info))))
80 (` (push (w3-get-style-info (quote (, info)) node 80 (` (push (w3-get-style-info (quote (, info)) node
81 (or (w3-get-attribute (quote (, other))) 81 (or (cdr-safe (assq (quote (, other))
82 (nth 1 node)))
82 (car (, var)))) 83 (car (, var))))
83 (, var))))) 84 (, var)))))
84 85
85 (defmacro w3-pop-face-info (info) 86 (defmacro w3-pop-face-info (info)
86 (let ((var (intern (format "w3-face-%s" info)))) 87 (let ((var (intern (format "w3-face-%s" info))))