Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-toolbar.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 9f59509498e1
children
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
1 ;;; w3-toolbar.el --- Toolbar functions for emacs-w3 1 ;;; w3-toolbar.el --- Toolbar functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/26 00:01:47 3 ;; Created: 1997/06/20 18:31:25
4 ;; Version: 1.9 4 ;; Version: 1.10
5 ;; Keywords: mouse, toolbar 5 ;; Keywords: mouse, toolbar
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1995, 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1995, 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.
327 nil 327 nil
328 ["Cancel" (beep) t]))) 328 ["Cancel" (beep) t])))
329 (popup-dialog-box descr))) 329 (popup-dialog-box descr)))
330 330
331 (defun w3-add-toolbar-to-buffer () 331 (defun w3-add-toolbar-to-buffer ()
332 (if (not (featurep 'toolbar)) 332 (if (or (not (featurep 'toolbar))
333 (featurep 'infodock)) ; InfoDock uses different toolbars
333 nil 334 nil
334 (let ((toolbar (w3-toolbar-from-orientation w3-toolbar-orientation))) 335 (let ((toolbar (w3-toolbar-from-orientation w3-toolbar-orientation)))
335 (if toolbar 336 (if toolbar
336 (set-specifier toolbar (cons (current-buffer) w3-toolbar)))) 337 (set-specifier toolbar (cons (current-buffer) w3-toolbar))))
337 (set-specifier toolbar-buttons-captioned-p 338 (set-specifier toolbar-buttons-captioned-p