Rooba
/
cpython
mirror of https://github.com/python/cpython.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

(py-keep-region-active): Zap duplicate defun.

This commit is contained in:
Barry Warsaw 1996-08-01 18:17:14 +00:00
parent 6d9cc808a2
commit ce60bc7192
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Misc/python-mode.el
View File

@ -493,12 +493,14 @@ py-beep-if-tab-change\t\tring the bell if tab-width is changed"
(defun py-keep-region-active () (defun py-keep-region-active ()
;; Do whatever is necessary to keep the region active in ;; do whatever is necessary to keep the region active in XEmacs.
;; XEmacs 19. This is unnecessary, but no-op in Emacs 19, so just ;; Ignore byte-compiler warnings you might see. Also note that
;; ignore byte-compiler warnings you might see. ;; 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) (and (boundp 'zmacs-region-stays)
(setq zmacs-region-stays t))) (setq zmacs-region-stays t)))
;; electric characters ;; electric characters
(defun py-outdent-p () (defun py-outdent-p ()
;; returns non-nil if the current line should outdent one level ;; returns non-nil if the current line should outdent one level
@ -826,7 +828,7 @@ the new line indented."
((py-continuation-line-p) ((py-continuation-line-p)
(let ((startpos (point)) (let ((startpos (point))
(open-bracket-pos (py-nesting-level)) (open-bracket-pos (py-nesting-level))
endpos searching found) endpos searching found state)
(if open-bracket-pos (if open-bracket-pos
(progn (progn
;; align with first item in list; else a normal ;; align with first item in list; else a normal
@ -2087,13 +2089,6 @@ local bindings to py-newline-and-indent."))
(set-buffer cbuf)) (set-buffer cbuf))
(sit-for 0)) (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$" (defconst py-version "$Revision$"