# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862794035 0
# Node ID e99589f5ddd711a2d84276ed5e9ac8e57b3b6607
# Parent  0dcc993f06e4d695057570cf0574b29a37d5faad
(rlogin-mode): Add a mode-class property.

diff -r 0dcc993f06e4 -r e99589f5ddd7 lisp/rlogin.el
--- a/lisp/rlogin.el	Mon May 05 00:59:28 1997 +0000
+++ b/lisp/rlogin.el	Mon May 05 01:00:35 1997 +0000
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; $Id: rlogin.el,v 1.37 1997/04/12 02:55:04 rms Exp $
+;; $Id: rlogin.el,v 1.38 1997/04/15 10:39:07 friedman Exp rms $
 
 ;;; Commentary:
 
@@ -245,6 +245,8 @@
                  (cd-absolute (concat comint-file-name-prefix "~/"))))
         (error nil))))))
 
+(put 'rlogin-mode 'mode-class 'special)
+
 (defun rlogin-mode ()
   "Set major-mode for rlogin sessions.
 If `rlogin-mode-hook' is set, run it."