Re: Shift selection using interactive spec

[Lennart Borgman (gmail)]

Lennart Borgman (gmail) wrote:
> I translate it to something like this in elisp code:
>
> ;;;; pre-pre
> ;;   treat-as-shifted:
> (setq maybe-preserved-tm tm)
> (if shifted
>     (setq preserved-tm
>           (if tm tm (make-marker)))
>   (setq preserved-tm nil))
>
> ;;;; run unshifted command + hooks
> ;; Neither maybe-preserved-tm or preserved-tm
> ;; are touched here (maybe not even known)
>
> ;;;; post-post
> ;;
> (if buffer-was-changed
>     (setq preserved-tm nil)
>   (unless preserved-tm
>     (when user-wants-it
>       (setq preserved-tm maybe-preserved-tm))))
> (setq tm preserved-tm)


Sorry for bad translation. This is probably better. (Remember 
translation always includes some mind reading too)


;;;; pre-pre
;;   treat-as-shifted:
(setq maybe-preserved-tm tm)
(if shifted
    (setq preserved-tm
          (if tm tm (make-marker)))
  (setq preserved-tm nil))

;;;; run unshifted command + hooks
;;
;; maybe-preserved-tm is not touched here, but
;; preserved-tm might be set to nil, for example
;; by some copy command.

;;;; post-post
(when buffer-was-changed
  (setq preserved-tm nil))
(unless preserved-tm
  (when user-wants-tm
    (setq preserved-tm maybe-preserved-tm)))
(setq tm preserved-tm)