Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-license.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
19 19
20 (defun vm-show-copying-restrictions (&optional warranty) 20 (defun vm-show-copying-restrictions (&optional warranty)
21 (interactive) 21 (interactive)
22 (require 'info) 22 (require 'info)
23 (let ((pop-up-windows (eq vm-mutable-windows t)) 23 (let ((pop-up-windows (eq vm-mutable-windows t))
24 (pop-up-frames vm-mutable-frames)) 24 (pop-up-frames (and vm-mutable-frames vm-frame-per-help)))
25 (or 25 (or
26 (condition-case () 26 (condition-case ()
27 (progn (Info-goto-node "(vm)License") t) 27 (progn (Info-goto-node "(vm)License") t)
28 (error nil)) 28 (error nil))
29 (condition-case () 29 (condition-case ()