/[emacs]/emacs/lisp/tempo.el
ViewVC logotype

Diff of /emacs/lisp/tempo.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by pj, Sat Feb 16 12:48:37 2002 UTC revision 1.19.4.1 by miles, Fri Apr 4 06:20:11 2003 UTC
# Line 279  The elements in ELEMENTS can be of sever Line 279  The elements in ELEMENTS can be of sever
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
# Line 540  and insert the results." Line 540  and insert the results."
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    
# Line 577  and insert the results." Line 577  and insert the results."
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    

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.19.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26