Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-license.el @ 54:05472e90ae02 r19-16-pre2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre2
author cvs
date Mon, 13 Aug 2007 08:57:55 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
53:875393c1a535 54:05472e90ae02
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 ()