mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(tempo-insert): Deal with 'r> if it appears specified with a prompt

Browse source 
argument.
This commit is contained in:
Chong Yidong 2007-03-17 18:03:25 +00:00
parent ac1f641523
commit a110b98e8c
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/tempo.el
View file

@ -266,6 +266,8 @@ The elements in ELEMENTS can be of several types:
that you often should place this item after the text you want on
the line.
- `r>': Like `r', but it also indents the region.
- (r> PROMPT <NAME> <NOINSERT>): Like (r ...), but is also indents
the region.
- `n>': Inserts a newline and indents line.
- `o': Like `%' but leaves the point before the newline.
- nil: It is ignored.
@ -352,6 +354,13 @@ possible."
(goto-char tempo-region-stop)
(tempo-insert-prompt-compat
(cdr element))))
((and (consp element)
(eq (car element) 'r>)) (if on-region
(progn
(goto-char tempo-region-stop)
(indent-region (mark) (point) nil))
(tempo-insert-prompt-compat
(cdr element))))
((and (consp element)
(eq (car element) 's)) (tempo-insert-named (car (cdr element))))
((and (consp element)