[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: dired-do-rename on "." and ".."
From: |
Richard Stallman |
Subject: |
Re: dired-do-rename on "." and ".." |
Date: |
Wed, 04 Jun 2003 20:07:30 -0400 |
I changed the patch somewhat.
*** dired.el.~1.259.~ Sun May 4 16:22:41 2003
--- dired.el Tue Jun 3 12:25:20 2003
***************
*** 1350,1356 ****
(defun dired-get-file-for-visit ()
"Get the current line's file name, with an error if file does not exist."
(interactive)
! (let ((file-name (file-name-sans-versions (dired-get-filename) t)))
(if (file-exists-p file-name)
file-name
(if (file-symlink-p file-name)
--- 1350,1360 ----
(defun dired-get-file-for-visit ()
"Get the current line's file name, with an error if file does not exist."
(interactive)
! (let ((raw (dired-get-filename nil t))
! file-name)
! (if (null raw)
! (error "No file on this line"))
! (setq file-name (file-name-sans-versions raw t))
(if (file-exists-p file-name)
file-name
(if (file-symlink-p file-name)
***************
*** 1482,1487 ****
--- 1486,1496 ----
(cond
((null file)
nil)
+ ((and (not no-error-if-not-filep)
+ (save-excursion
+ (beginning-of-line)
+ (looking-at dired-re-dir)))
+ (error "Cannot operate on `.' or `..'"))
((eq localp 'verbatim)
file)
((and (eq localp 'no-dir) already-absolute)
***************
*** 2658,2665 ****
(re-search-forward dired-re-mark nil t)
(search-forward string nil t))
(if (or (not arg)
! (dired-query 'query "Unmark file `%s'? "
! (dired-get-filename t)))
(progn (subst-char-in-region (1- (point)) (point)
(preceding-char) ?\ )
(setq count (1+ count)))))
--- 2667,2676 ----
(re-search-forward dired-re-mark nil t)
(search-forward string nil t))
(if (or (not arg)
! (let ((file (dired-get-filename t t)))
! (and file
! (dired-query 'query "Unmark file `%s'? "
! file))))
(progn (subst-char-in-region (1- (point)) (point)
(preceding-char) ?\ )
(setq count (1+ count)))))
- Re: dired-do-rename on "." and "..", (continued)
- Re: dired-do-rename on "." and "..", Luc Teirlinck, 2003/06/11
- Re: dired-do-rename on "." and "..", Richard Stallman, 2003/06/08
- Re: dired-do-rename on "." and "..", Richard Stallman, 2003/06/08
- Re: dired-do-rename on "." and "..", Luc Teirlinck, 2003/06/08
- Re: dired-do-rename on "." and "..", Richard Stallman, 2003/06/09
- Re: dired-do-rename on "." and "..", Luc Teirlinck, 2003/06/09
- Re: dired-do-rename on "." and "..", Richard Stallman, 2003/06/09
- Re: dired-do-rename on "." and "..",
Richard Stallman <=