Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 249:83b3d10dcba9 r20-5b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b23
author cvs
date Mon, 13 Aug 2007 10:19:09 +0200
parents f220cc83d72e
children 677f6a0ee643
comparison
equal deleted inserted replaced
248:ad40ac2754d8 249:83b3d10dcba9
550 550
551 (defun describe-distribution () 551 (defun describe-distribution ()
552 "Display info on how to obtain the latest version of XEmacs." 552 "Display info on how to obtain the latest version of XEmacs."
553 (interactive) 553 (interactive)
554 (find-file-read-only 554 (find-file-read-only
555 (expand-file-name "DISTRIB" data-directory))) 555 (locate-data-file "DISTRIB")))
556 556
557 (defun describe-beta () 557 (defun describe-beta ()
558 "Display info on how to deal with Beta versions of XEmacs." 558 "Display info on how to deal with Beta versions of XEmacs."
559 (interactive) 559 (interactive)
560 (find-file-read-only 560 (find-file-read-only
561 (expand-file-name "BETA" data-directory)) 561 (locate-data-file "BETA"))
562 (goto-char (point-min))) 562 (goto-char (point-min)))
563 563
564 (defun describe-copying () 564 (defun describe-copying ()
565 "Display info on how you may redistribute copies of XEmacs." 565 "Display info on how you may redistribute copies of XEmacs."
566 (interactive) 566 (interactive)
567 (find-file-read-only 567 (find-file-read-only
568 (expand-file-name "COPYING" data-directory)) 568 (locate-data-file "COPYING"))
569 (goto-char (point-min))) 569 (goto-char (point-min)))
570 570
571 (defun describe-pointer () 571 (defun describe-pointer ()
572 "Show a list of all defined mouse buttons, and their definitions." 572 "Show a list of all defined mouse buttons, and their definitions."
573 (interactive) 573 (interactive)
575 575
576 (defun describe-project () 576 (defun describe-project ()
577 "Display info on the GNU project." 577 "Display info on the GNU project."
578 (interactive) 578 (interactive)
579 (find-file-read-only 579 (find-file-read-only
580 (expand-file-name "GNU" data-directory)) 580 (locate-data-file "GNU"))
581 (goto-char (point-min))) 581 (goto-char (point-min)))
582 582
583 (defun describe-no-warranty () 583 (defun describe-no-warranty ()
584 "Display info on all the kinds of warranty XEmacs does NOT have." 584 "Display info on all the kinds of warranty XEmacs does NOT have."
585 (interactive) 585 (interactive)
658 (setq prefix-help-command 'describe-prefix-bindings) 658 (setq prefix-help-command 'describe-prefix-bindings)
659 659
660 (defun view-emacs-news () 660 (defun view-emacs-news ()
661 "Display info on recent changes to XEmacs." 661 "Display info on recent changes to XEmacs."
662 (interactive) 662 (interactive)
663 (find-file (expand-file-name "NEWS" data-directory))) 663 (find-file (locate-data-file "NEWS")))
664 664
665 (defun xemacs-www-page () 665 (defun xemacs-www-page ()
666 "Go to the XEmacs World Wide Web page." 666 "Go to the XEmacs World Wide Web page."
667 (interactive) 667 (interactive)
668 (if (boundp 'browse-url-browser-function) 668 (if (boundp 'browse-url-browser-function)