# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 982840683 0
# Node ID ab9c82e640204adbbb5fb92dbeb618456cec9eba
# Parent  96ecc8142696bbf2a086b110d61536a56b426dbc
(view-order-manuals): New function.
(toplevel): Bind C-h C-m to this function.

diff -r 96ecc8142696 -r ab9c82e64020 lisp/help.el
--- 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)