Re: how to make dired-do-rename more friendly?

[leo]

cool i'll try that out!

btw: thanks for all they info!

leo

"Harry Putnam" <reader@newsguy.com> wrote in message
news:mailman.353.1069356131.399.help-gnu-emacs@gnu.org...
> Harry Putnam <reader@newsguy.com> writes:
>
> >   (defadvice dired-mark-read-file-name (around tiad act)
> >     "Instead of asking directory, offer full filename for editing.
> >   This advice is enabled only upon request."
> >     (if (and dir (string-match "/" dir))
> >         (setq dir (dired-get-filename)))
> >     ad-do-it)
> >
> >   (defadvice dired-do-rename  (around joc-tiad-dired-rename act)
> >     "Offer editing the current filename.
> >   Without this advice you don't get the old filename for editing.
> >   Activates advice 'dired-mark-read-file-name 'my 'around during call."
> >     (let* ((ADVICE 'dired-mark-read-file-name))
> >       (ad-enable-advice ADVICE 'around 'tiad)
> >       (ad-activate ADVICE)
> >       ad-do-it
> >       (ad-disable-advice ADVICE 'around 'tiad)
> >       (ad-activate ADVICE)))
>
> OOOPs a couple of ringers slipped in there.  These last two are
> something else.
>
> >   (require 'macro)
> >   (put 'narrow-to-region 'disabled nil)
>
>
>
>