Mercurial > hg > xemacs-beta

diff lisp/help.el @ 2537:b7b90f750a78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-31 20:08:32 by ben] Documentation updates GETTING.GNU.SOFTWARE, Makefile.in.in: Delete GETTING.GNU.SOFTWARE from SOURCES. PROBLEMS: Delete reference to check_cygwin_setup.sh. Delete stuff that is irrelevant, mislocated or woefully out-of-date. GNU, SERVICE: Delete. * ORDERS, ORDERS.EUROPE, ORDERS.JAPAN: Delete. * CHARSETS, CODINGS: Delete. * DEBUG, LPF, MORE.STUFF, MOTIVATION: Delete. aliases.ksh: Delete. (moved to xemacs-builds/steve) * README.HYPERBOLE, README.OO-BROWSER: Delete. * chr.png, chrm.png: Move to photos/. check_cygwin_setup.sh: Delete. * gnu.xpm, gnu.xbm, sink.xbm: Delete. * ms-kermit, ms-kermit-7bit: Delete. TERMS: Delete. * DISTRIB, FTP, MACHINES, MAILINGLISTS, PACKAGES: Delete and move to FAQ. BETA: Delete and move to man/beta.texi. README: Update. help.el: Removed. xemacs/help.texi: Delete references to DISTRIB. Point to FAQ. xemacs/new.texi: Update sample code for version checking. xemacs/xemacs.texi: Delete references to DISTRIB. Point directly to web site. Update stuff referring to GNU Emacs. Delete references to Win-Emacs. Makefile: Add beta.texi and built files. xemacs-faq.texi: Major overhaul of section 1. Add mailing list info, update downloading info, add info on CVS, etc. xemacs.mak: Also copy BUGS, README, COPYING and Installation.
author ben
date Mon, 31 Jan 2005 20:08:52 +0000
parents 445bd1969ed0
children 66ad30774567
line wrap: on
line diff
--- a/lisp/help.el	Mon Jan 31 20:01:50 2005 +0000
+++ b/lisp/help.el	Mon Jan 31 20:08:52 2005 +0000
@@ -1,7 +1,7 @@
 ;;; help.el --- help commands for XEmacs.
 
 ;; Copyright (C) 1985, 1986, 1992-4, 1997 Free Software Foundation, Inc.
-;; Copyright (C) 2001, 2002 Ben Wing.
+;; Copyright (C) 2001, 2002, 2003 Ben Wing.
 
 ;; Maintainer: FSF
 ;; Keywords: help, internal, dumped
@@ -696,12 +696,17 @@
 (defun describe-distribution ()
   "Display info on how to obtain the latest version of XEmacs."
   (interactive)
-  (Help-find-file (locate-data-file "DISTRIB")))
+  (save-window-excursion
+    (info)
+    (Info-find-node "xemacs-faq" "Q1.1.1"))
+  (switch-to-buffer "*info*"))
 
 (defun describe-beta ()
   "Display info on how to deal with Beta versions of XEmacs."
   (interactive)
-  (Help-find-file (locate-data-file "BETA")))
+  (save-window-excursion
+    (info "(beta)Top"))
+  (switch-to-buffer "*info*"))
 
 (defun describe-copying ()
   "Display info on how you may redistribute copies of XEmacs."
@@ -713,11 +718,6 @@
   (interactive)
   (describe-bindings nil t))
 
-(defun describe-project ()
-  "Display info on the GNU project."
-  (interactive)
-  (Help-find-file (locate-data-file "GNU")))
-
 (defun describe-no-warranty ()
   "Display info on all the kinds of warranty XEmacs does NOT have."
   (interactive)