mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
Remove XEmacs compat code from tempo.el
* lisp/tempo.el (tempo-insert-template): Remove XEmacs compat code.
This commit is contained in:
parent
468517c8b8
commit
6fbfd36bf4
1 changed files with 3 additions and 8 deletions
|
|
@ -294,11 +294,8 @@ TEMPLATE is the template to be inserted. If ON-REGION is non-nil the
|
|||
mode, ON-REGION is ignored and assumed true if the region is active."
|
||||
(unwind-protect
|
||||
(progn
|
||||
(if (or (and (boundp 'transient-mark-mode) ; For Emacs
|
||||
transient-mark-mode
|
||||
mark-active)
|
||||
(if (featurep 'xemacs)
|
||||
(and zmacs-regions (mark))))
|
||||
(if (or (and transient-mark-mode
|
||||
mark-active))
|
||||
(setq on-region t))
|
||||
(and on-region
|
||||
(set-marker tempo-region-start (min (mark) (point)))
|
||||
|
|
@ -313,9 +310,7 @@ mode, ON-REGION is ignored and assumed true if the region is active."
|
|||
(tempo-insert-mark (point-marker)))
|
||||
(tempo-forward-mark))
|
||||
(tempo-forget-insertions)
|
||||
;; Should I check for zmacs here too???
|
||||
(and (boundp 'transient-mark-mode)
|
||||
transient-mark-mode
|
||||
(and transient-mark-mode
|
||||
(deactivate-mark))))
|
||||
|
||||
;;;
|
||||
|
|
|
|||
Loading…
Reference in a new issue