From a110b98e8caef764c5163b2858452170c62900b8 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 17 Mar 2007 18:03:25 +0000 Subject: [PATCH] (tempo-insert): Deal with 'r> if it appears specified with a prompt argument. --- lisp/tempo.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/tempo.el b/lisp/tempo.el index 64427d8ccf4..f12c126c349 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -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 ): 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) -- 2.39.5