Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 441bb1e64a06
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
38 ;;; More hacking for 19.12 by Chuck Thompson and Ben Wing. 38 ;;; More hacking for 19.12 by Chuck Thompson and Ben Wing.
39 ;;; 19.13 and 19.14 updating done by Chuck Thompson. 39 ;;; 19.13 and 19.14 updating done by Chuck Thompson.
40 ;;; 19.15 and 20.0 updating done by Steve Baur. 40 ;;; 19.15 and 20.0 updating done by Steve Baur.
41 41
42 (require 'browse-url) 42 (require 'browse-url)
43 (require 'view-less)
44
43 (defvar about-xref-map (let ((map (make-sparse-keymap))) 45 (defvar about-xref-map (let ((map (make-sparse-keymap)))
44 (define-key map 'button1 'about-xemacs-xref) 46 (define-key map 'button1 'about-xemacs-xref)
45 (define-key map 'button2 'about-xemacs-xref) 47 (define-key map 'button2 'about-xemacs-xref)
46 (define-key map '(return) 'about-xemacs-xref) 48 (define-key map '(return) 'about-xemacs-xref)
47 map)) 49 map))
1128 * A clean interface to the menubar, window-system events, and key 1130 * A clean interface to the menubar, window-system events, and key
1129 combinations.")) 1131 combinations."))
1130 )) 1132 ))
1131 (goto-char (point-min)) 1133 (goto-char (point-min))
1132 )))) 1134 ))))
1135
1136 ;;; about.el ends here