Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-display.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents e04119814345
children 1a767b41a199
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
1 ;;; w3-display.el --- display engine v99999 1 ;;; w3-display.el --- display engine v99999
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/14 06:33:15 3 ;; Created: 1997/03/17 20:09:50
4 ;; Version: 1.147 4 ;; Version: 1.148
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.
2122 ) 2122 )
2123 2123
2124 (defun w3-frames (&optional new-frame) 2124 (defun w3-frames (&optional new-frame)
2125 "Set up and fetch W3 frames. With optional prefix, do so in a new frame." 2125 "Set up and fetch W3 frames. With optional prefix, do so in a new frame."
2126 (interactive "P") 2126 (interactive "P")
2127 (if (not w3-display-frames)
2128 (let ((w3-display-frames t))
2129 (w3-refresh-buffer)))
2127 (let* ((old-asynch url-be-asynchronous) 2130 (let* ((old-asynch url-be-asynchronous)
2128 (structure (reverse w3-frameset-structure)) 2131 (structure (reverse w3-frameset-structure))
2129 (dims (or (reverse w3-frameset-dimensions) 2132 (dims (or (reverse w3-frameset-dimensions)
2130 t))) 2133 t)))
2131 (if new-frame 2134 (if new-frame
2202 (setq distance (1+ distance)) 2205 (setq distance (1+ distance))
2203 (if (eq (current-buffer) origin-buffer) 2206 (if (eq (current-buffer) origin-buffer)
2204 (setq stop t))) 2207 (setq stop t)))
2205 window-distances)) 2208 window-distances))
2206 2209
2210 (if (not (fboundp 'frame-char-height))
2211 (defun frame-char-height (&optional frame)
2212 "Height in pixels of a line in the font in frame FRAME.
2213 If FRAME is omitted, the selected frame is used.
2214 For a terminal frame, the value is always 1."
2215 (font-height (face-font 'default frame))))
2216
2217 (if (not (fboundp 'frame-char-width))
2218 (defun frame-char-width (&optional frame)
2219 "Width in pixels of characters in the font in frame FRAME.
2220 If FRAME is omitted, the selected frame is used.
2221 For a terminal screen, the value is always 1."
2222 (font-width (face-font 'default frame))))
2223
2207 (defun w3-decode-frameset-dimensions (dims available-dimension) 2224 (defun w3-decode-frameset-dimensions (dims available-dimension)
2208 "Returns numbers of lines or columns in Emacs, computed from specified frameset dimensions" 2225 "Returns numbers of lines or columns in Emacs, computed from specified frameset dimensions"
2209 (let ((dimensions nil)) 2226 (let ((dimensions nil))
2210 (if dims 2227 (if dims
2211 (let ((nb-stars 0) 2228 (let ((nb-stars 0)