make pending-delete/delete-selection mode work with py-electric-colon

This commit is contained in:
Skip Montanaro 2003-08-01 04:00:32 +00:00
parent f37f37dec0
commit 98a4fbe043
1 changed files with 4 additions and 2 deletions

View File

@ -1187,14 +1187,14 @@ It is added to `interpreter-mode-alist' and `py-choose-shell'.
(backward-to-indentation 1)) (backward-to-indentation 1))
(not (looking-at py-no-outdent-re))) (not (looking-at py-no-outdent-re)))
))) )))
(defun py-electric-colon (arg) (defun py-electric-colon (arg)
"Insert a colon. "Insert a colon.
In certain cases the line is dedented appropriately. If a numeric In certain cases the line is dedented appropriately. If a numeric
argument ARG is provided, that many colons are inserted argument ARG is provided, that many colons are inserted
non-electrically. Electric behavior is inhibited inside a string or non-electrically. Electric behavior is inhibited inside a string or
comment." comment."
(interactive "P") (interactive "*P")
(self-insert-command (prefix-numeric-value arg)) (self-insert-command (prefix-numeric-value arg))
;; are we in a string or comment? ;; are we in a string or comment?
(if (save-excursion (if (save-excursion
@ -1947,6 +1947,8 @@ number of characters to delete (default is 1)."
(py-electric-backspace arg))) (py-electric-backspace arg)))
;; required for pending-del and delsel modes ;; required for pending-del and delsel modes
(put 'py-electric-colon 'delete-selection t) ;delsel
(put 'py-electric-colon 'pending-delete t) ;pending-del
(put 'py-electric-backspace 'delete-selection 'supersede) ;delsel (put 'py-electric-backspace 'delete-selection 'supersede) ;delsel
(put 'py-electric-backspace 'pending-delete 'supersede) ;pending-del (put 'py-electric-backspace 'pending-delete 'supersede) ;pending-del
(put 'py-electric-delete 'delete-selection 'supersede) ;delsel (put 'py-electric-delete 'delete-selection 'supersede) ;delsel