diff Misc/python-mode.el @ 3923:a39d06497520 legacy-trunk

(py-keep-region-active): Zap duplicate defun.
author Barry Warsaw <barry@python.org>
date Thu, 01 Aug 1996 18:17:14 +0000
parents 9366164f5c4a
children 063d86741410
line wrap: on
line diff
--- a/Misc/python-mode.el	Thu Aug 01 17:31:22 1996 +0000
+++ b/Misc/python-mode.el	Thu Aug 01 18:17:14 1996 +0000
@@ -493,12 +493,14 @@
 
 
 (defun py-keep-region-active ()
-  ;; Do whatever is necessary to keep the region active in
-  ;; XEmacs 19.  This is unnecessary, but no-op in Emacs 19, so just
-  ;; ignore byte-compiler warnings you might see.
+  ;; do whatever is necessary to keep the region active in XEmacs.
+  ;; Ignore byte-compiler warnings you might see.  Also note that
+  ;; FSF's Emacs 19 does it differently and doesn't its policy doesn't
+  ;; require us to take explicit action.
   (and (boundp 'zmacs-region-stays)
        (setq zmacs-region-stays t)))
 
+
 ;; electric characters
 (defun py-outdent-p ()
   ;; returns non-nil if the current line should outdent one level
@@ -826,7 +828,7 @@
        ((py-continuation-line-p)
 	(let ((startpos (point))
 	      (open-bracket-pos (py-nesting-level))
-	      endpos searching found)
+	      endpos searching found state)
 	  (if open-bracket-pos
 	      (progn
 		;; align with first item in list; else a normal
@@ -2087,13 +2089,6 @@
     (set-buffer cbuf))
   (sit-for 0))
 
-(defun py-keep-region-active ()
-  ;; do whatever is necessary to keep the region active in XEmacs.
-  ;; Ignore byte-compiler warnings you might see.  Also note that
-  ;; FSF's Emacs 19 does it differently and doesn't its policy doesn't
-  ;; require us to take explicit action.
-  (and (boundp 'zmacs-region-stays)
-       (setq zmacs-region-stays t)))
 
 
 (defconst py-version "$Revision$"