Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 3074:0f411920c8db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-11-16 12:12:57 by malcolmp] Adding PROBLEMS to the Help Menu.
author malcolmp
date Wed, 16 Nov 2005 12:13:03 +0000
parents 3fa430e1aa35
children 959746c534f6
comparison
equal deleted inserted replaced
3073:0ae46b360391 3074:0f411920c8db
107 (define-key help-map "n" 'view-emacs-news) 107 (define-key help-map "n" 'view-emacs-news)
108 (define-key help-map "\C-n" 'view-emacs-news) 108 (define-key help-map "\C-n" 'view-emacs-news)
109 109
110 (define-key help-map "p" 'finder-by-keyword) 110 (define-key help-map "p" 'finder-by-keyword)
111 (define-key help-map "\C-p" 'describe-pointer) 111 (define-key help-map "\C-p" 'describe-pointer)
112 (define-key help-map "P" 'view-xemacs-problems)
112 113
113 (define-key help-map "q" 'help-quit) 114 (define-key help-map "q" 'help-quit)
114 115
115 ;; Do this right with an autoload cookie in finder.el. 116 ;; Do this right with an autoload cookie in finder.el.
116 ;;(autoload 'finder-by-keyword "finder" 117 ;;(autoload 'finder-by-keyword "finder"
838 (defun view-emacs-news () 839 (defun view-emacs-news ()
839 "Display info on recent changes to XEmacs." 840 "Display info on recent changes to XEmacs."
840 (interactive) 841 (interactive)
841 (Help-find-file (expand-file-name "NEWS" data-directory))) 842 (Help-find-file (expand-file-name "NEWS" data-directory)))
842 843
844 (defun view-xemacs-problems ()
845 "Display known problems with XEmacs."
846 (interactive)
847 (Help-find-file (expand-file-name "PROBLEMS" data-directory)))
848
843 (defun xemacs-www-page () 849 (defun xemacs-www-page ()
844 "Go to the XEmacs World Wide Web page." 850 "Go to the XEmacs World Wide Web page."
845 (interactive) 851 (interactive)
846 (if-fboundp 'browse-url 852 (if-fboundp 'browse-url
847 (browse-url "http://www.xemacs.org/") 853 (browse-url "http://www.xemacs.org/")
993 (if (string-match "beta" emacs-version) 999 (if (string-match "beta" emacs-version)
994 "\\[describe-beta] Special considerations about running a beta version of XEmacs. 1000 "\\[describe-beta] Special considerations about running a beta version of XEmacs.
995 " 1001 "
996 "") 1002 "")
997 " 1003 "
1004 \\[view-xemacs-problems] Known problems.
998 \\[customize] Customize Emacs options. 1005 \\[customize] Customize Emacs options.
999 \\[describe-distribution] How to obtain XEmacs. 1006 \\[describe-distribution] How to obtain XEmacs.
1000 \\[describe-last-error] Information about the most recent error. 1007 \\[describe-last-error] Information about the most recent error.
1001 \\[xemacs-local-faq] Local copy of the XEmacs FAQ. 1008 \\[xemacs-local-faq] Local copy of the XEmacs FAQ.
1002 \\[info] Info documentation reader. 1009 \\[info] Info documentation reader.