279 |
(command-name template-name)) |
(command-name template-name)) |
280 |
(set template-name elements) |
(set template-name elements) |
281 |
(fset command-name (list 'lambda (list '&optional 'arg) |
(fset command-name (list 'lambda (list '&optional 'arg) |
282 |
(or documentation |
(or documentation |
283 |
(concat "Insert a " name ".")) |
(concat "Insert a " name ".")) |
284 |
(list 'interactive "*P") |
(list 'interactive "*P") |
285 |
(list 'tempo-insert-template (list 'quote |
(list 'tempo-insert-template (list 'quote |
540 |
(setq lp (cdr lp))) |
(setq lp (cdr lp))) |
541 |
(if (not (= mark (car lp))) |
(if (not (= mark (car lp))) |
542 |
(setcdr lp (cons mark (cdr lp)))))))) |
(setcdr lp (cons mark (cdr lp)))))))) |
543 |
|
|
544 |
;;; |
;;; |
545 |
;;; tempo-forward-mark |
;;; tempo-forward-mark |
546 |
|
|
577 |
last)))) |
last)))) |
578 |
(if prev-mark |
(if prev-mark |
579 |
(goto-char prev-mark)))) |
(goto-char prev-mark)))) |
580 |
|
|
581 |
;;; |
;;; |
582 |
;;; tempo-add-tag |
;;; tempo-add-tag |
583 |
|
|