Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-license.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 05472e90ae02
children 43dd3413c7c7
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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 (and vm-mutable-frames vm-frame-per-help))) 24 (pop-up-frames vm-mutable-frames))
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 ()