Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-display.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 9b50b4588a93
children 6608ceec7cf8
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
1 ;;; w3-display.el --- display engine v99999 1 ;;; w3-display.el --- display engine v99999
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/11 14:42:46 3 ;; Created: 1997/04/21 21:59:42
4 ;; Version: 1.173 4 ;; Version: 1.175
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.
25 ;;; along with GNU Emacs; see the file COPYING. If not, write to the 25 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
26 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 26 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
27 ;;; Boston, MA 02111-1307, USA. 27 ;;; Boston, MA 02111-1307, USA.
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 (require 'cl) 29 (require 'cl)
30 (eval-when-compile
31 (require 'w3-props))
30 (require 'css) 32 (require 'css)
31 (require 'font) 33 (require 'font)
32 (require 'w3-widget) 34 (require 'w3-widget)
33 (require 'w3-imap) 35 (require 'w3-imap)
34 36
768 (list 'html-stack w3-display-open-element-stack))) 770 (list 'html-stack w3-display-open-element-stack)))
769 (goto-char (point-max)))))) 771 (goto-char (point-max))))))
770 772
771 ;; The table handling 773 ;; The table handling
772 774
775 (if (and w3-running-xemacs (featurep 'mule))
776 (make-charset 'w3-dingbats "Dingbats character set for Emacs/W3"
777 '(registry "" dimension 1 chars 96 final ?:)))
778
779 (defun w3-make-char (oct)
780 (if (and w3-running-xemacs (featurep 'mule))
781 (make-char 'w3-dingbats (if (characterp oct) (char-int oct) oct))
782 oct))
783
773 (defvar w3-table-ascii-border-chars 784 (defvar w3-table-ascii-border-chars
774 [nil nil nil ?/ nil ?- ?\\ ?- nil ?\\ ?| ?| ?/ ?- ?| ?+] 785 [nil nil nil ?/ nil ?- ?\\ ?- nil ?\\ ?| ?| ?/ ?- ?| ?+]
775 "*Vector of ascii characters to use to draw table borders. 786 "*Vector of ascii characters to use to draw table borders.
776 This vector is used when terminal characters are unavailable") 787 This vector is used when terminal characters are unavailable")
777 788
779 [nil nil nil 11 nil 2 7 14 nil 3 8 6 1 15 4 5] 790 [nil nil nil 11 nil 2 7 14 nil 3 8 6 1 15 4 5]
780 "Vector of characters to use to draw table borders. 791 "Vector of characters to use to draw table borders.
781 This vector is used when terminal characters are used via glyphs") 792 This vector is used when terminal characters are used via glyphs")
782 793
783 (defvar w3-table-graphic-border-chars 794 (defvar w3-table-graphic-border-chars
784 [nil nil nil ?j nil ?q ?m ?v nil ?k ?x ?u ?l ?w ?t ?n] 795 (vector
796 nil
797 nil
798 nil
799 (w3-make-char ?j)
800 nil
801 (w3-make-char ?q)
802 (w3-make-char ?m)
803 (w3-make-char ?v)
804 nil
805 (w3-make-char ?k)
806 (w3-make-char ?x)
807 (w3-make-char ?u)
808 (w3-make-char ?l)
809 (w3-make-char ?w)
810 (w3-make-char ?t)
811 (w3-make-char ?n))
785 "Vector of characters to use to draw table borders. 812 "Vector of characters to use to draw table borders.
786 This vector is used when terminal characters are used directly") 813 This vector is used when terminal characters are used directly")
787 814
788 (defvar w3-table-border-chars w3-table-ascii-border-chars 815 (defvar w3-table-border-chars w3-table-ascii-border-chars
789 "Vector of characters to use to draw table borders. 816 "Vector of characters to use to draw table borders.