# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 803141916 0
# Node ID a4f383dd5adb75767b20cb607b480186d00c974f
# Parent  b6a4061104a5ba5391f75b11cb2313750442db95
Put mark-active for menu-enable property on eval-region, comment-region, and indent-region symbols.

diff -r b6a4061104a5 -r a4f383dd5adb lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Wed Jun 14 14:27:43 1995 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Wed Jun 14 14:58:36 1995 +0000
@@ -144,7 +144,10 @@
     (define-key map [separator-format] '("--"))
     (define-key map [comment-region] '("Comment Out Region" . comment-region))
     (define-key map [indent-region] '("Indent Region" . indent-region))
-    (define-key map [indent-line] '("Indent Line" . lisp-indent-line))))
+    (define-key map [indent-line] '("Indent Line" . lisp-indent-line))
+    (put 'eval-region 'menu-enable 'mark-active)
+    (put 'comment-region 'menu-enable 'mark-active)
+    (put 'indent-region 'menu-enable 'mark-active)))
 
 (defun emacs-lisp-byte-compile ()
   "Byte compile the file containing the current buffer."
@@ -534,6 +537,7 @@
 (put 'prog2 'lisp-indent-function 2)
 (put 'save-excursion 'lisp-indent-function 0)
 (put 'save-window-excursion 'lisp-indent-function 0)
+(put 'save-selected-window 'lisp-indent-function 0)
 (put 'save-restriction 'lisp-indent-function 0)
 (put 'save-match-data 'lisp-indent-function 0)
 (put 'let 'lisp-indent-function 1)