Mercurial > emacs
comparison lisp/tempo.el @ 64600:07e5e0169359
(tempo-insert-template): Fix 2005-07-16 change.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Fri, 22 Jul 2005 18:44:45 +0000 |
parents | dc9ffd263776 |
children | 41bb365f41c4 890cc78a5a24 |
comparison
equal
deleted
inserted
replaced
64599:8855370e6a88 | 64600:07e5e0169359 |
---|---|
301 (progn | 301 (progn |
302 (if (or (and (boundp 'transient-mark-mode) ; For Emacs | 302 (if (or (and (boundp 'transient-mark-mode) ; For Emacs |
303 transient-mark-mode | 303 transient-mark-mode |
304 mark-active) | 304 mark-active) |
305 (if (featurep 'xemacs) | 305 (if (featurep 'xemacs) |
306 zmacs-regions (mark))) | 306 (and zmacs-regions (mark)))) |
307 (setq on-region t)) | 307 (setq on-region t)) |
308 (and on-region | 308 (and on-region |
309 (set-marker tempo-region-start (min (mark) (point))) | 309 (set-marker tempo-region-start (min (mark) (point))) |
310 (set-marker tempo-region-stop (max (mark) (point)))) | 310 (set-marker tempo-region-stop (max (mark) (point)))) |
311 (if on-region | 311 (if on-region |