changeset 36277:ab9c82e64020

(view-order-manuals): New function. (toplevel): Bind C-h C-m to this function.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 22 Feb 2001 11:18:03 +0000
parents 96ecc8142696
children 8487fd519144
files lisp/help.el
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Thu Feb 22 11:17:41 2001 +0000
+++ b/lisp/help.el	Thu Feb 22 11:18:03 2001 +0000
@@ -1,6 +1,7 @@
 ;;; help.el --- help commands for Emacs
 
-;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001
+;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: help, internal
@@ -75,6 +76,7 @@
 (define-key help-map "l" 'view-lossage)
 
 (define-key help-map "m" 'describe-mode)
+(define-key help-map "\C-m" 'view-order-manuals)
 
 (define-key help-map "\C-n" 'view-emacs-news)
 (define-key help-map "n" 'view-emacs-news)
@@ -448,6 +450,11 @@
 	(find-file-read-only (expand-file-name file data-directory))
       (error "No such old news"))))
 
+(defun view-order-manuals ()
+  "Display the Emacs ORDERS file."
+  (interactive)
+  (find-file-read-only (expand-file-name "ORDERS" data-directory)))
+
 (defun view-emacs-FAQ ()
   "Display the Emacs Frequently Asked Questions (FAQ) file."
   (interactive)