Re: Interactive specs

[Juri Linkov]

While looking for more places with similar problems in interactive specs
I found that four commands in diff-mode.el have the following spec:

  (interactive (if current-prefix-arg
                   (list (mark) (point))
                 (list (point-min) (point-max))))

It doesn't keep its arguments in the command history, but this is ok
according to the current rule that doesn't put the command in the
history if it doesn't read arguments in the minibuffer.

But (mark) and (point) should be replaced with region-beginning/region-end.
I am not sure how exactly to do this.  One variant I propose is:

  (interactive
   (list
    (if (or current-prefix-arg (and transient-mark-mode mark-active))
        (region-beginning) (point-min))
    (if (or current-prefix-arg (and transient-mark-mode mark-active))
        (region-end) (point-max))))

-- 
Juri Linkov
http://www.jurta.org/emacs/