Thanks for contribution!
Andreas
---BeginMessage---
User: aroehler
Date: 09/09/29 12:18:50
Modified:packages/xemacs-packages/python-modes python-mode.el
Log:
Add support for HideShow
Mikhail Novikov freikse...@gmail.com delivered this patch at
https://code.launchpad.net/~freiksenet/python-mode/hide-show-support
It enables hs-minor-mode within python-mode.
Revision ChangesPath
4.56 +21 -0 XEmacs/packages/xemacs-packages/python-modes/python-mode.el
Index: python-mode.el
===
RCS file:
/pack/xemacscvs/XEmacs/packages/xemacs-packages/python-modes/python-mode.el,v
retrieving revision 4.55
retrieving revision 4.56
diff -u -p -r4.55 -r4.56
--- python-mode.el 2009/09/28 10:44:10 4.55
+++ python-mode.el 2009/09/29 10:18:49 4.56
@@ -366,6 +366,18 @@ to select the appropriate python interpr
:type 'boolean
:group 'python)
+(defcustom py-hide-show-keywords '(class def elif else except
+ for if while finally try with)
+ *Keywords used by hide-show
+:type '(repeat string)
+:group 'python)
+
+(defcustom py-hide-show-hide-docstrings t
+ *If doc strings shall be hidden
+:type 'boolean
+:group 'python)
+
+
;;
;; NO USER DEFINABLE VARIABLES BEYOND THIS POINT
@@ -1216,6 +1228,15 @@ py-beep-if-tab-change\t\tring the bell i
(if (fboundp 'imenu-add-to-menubar)
(imenu-add-to-menubar (format %s-%s IM mode-name)))
)
+
+ ;; Add support for HideShow
+ (add-to-list 'hs-special-modes-alist (list
+ 'python-mode (concat (if py-hide-show-hide-docstrings
^\\s-*\| ) (mapconcat 'identity (mapcar #'(lambda (x) (concat
^\\s-* x \\)) py-hide-show-keywords ) \\|)) nil #
+ (lambda (arg)
+ (py-goto-beyond-block)
+ (skip-chars-backward \t\n))
+ nil))
+
;; Run the mode hook. Note that py-mode-hook is deprecated.
(if python-mode-hook
(run-hooks 'python-mode-hook)
___
XEmacs-CVS mailing list
xemacs-...@calypso.tux.org
http://calypso.tux.org/mailman/listinfo/xemacs-cvs
---End Message---
___
Python-mode mailing list
Python-mode@python.org
http://mail.python.org/mailman/listinfo/python-mode
