Re: Help setting nadvice for indent-region

[Michael Heerdegen <michael_heerdegen@web.de>]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> Kaushal Modi <kaushal.modi@gmail.com> writes:
>
> > OK, so this is what I have now.
> >
> > (defun modi/advice-region-or-whole (&rest args)
> >   "Advice function that sets the region boundaries to that of the whole
> > buffer
> > if no region is selected."
> >   (interactive (if (use-region-p)
> >                    (list (region-beginning) (region-end))
> >                  (list (point-min) (point-max))))
> >   ;; (message "Args: %S R: %S I: %S"
> >   ;;          args (use-region-p) (called-interactively-p 'interactive))
> >   (when (and (eq (first args) (point-min))
> >              (eq (second args) (point-max)))
> >     (message "Executing %s on the whole buffer."
> >              (propertize (symbol-name this-command)
> >                          'face 'font-lock-function-name-face)))
> >   nil)
>

Oh, and `first', `second' are defined in the old cl.el.  It's
recommended to use `cl-lib' now, and thus `cl-first', `cl-second'.
Or simply `car' and `cadr'.

Michael.