Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents a145efe76779
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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 and Martin Buchholz. 40 ;;; 19.15 and 20.0 updating done by Steve Baur and Martin Buchholz.
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))
1134 * A clean interface to the menubar, window-system events, and key 1136 * A clean interface to the menubar, window-system events, and key
1135 combinations.")) 1137 combinations."))
1136 )) 1138 ))
1137 (goto-char (point-min)) 1139 (goto-char (point-min))
1138 )))) 1140 ))))
1141
1142 ;;; about.el ends here