mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(dired-move-to-filename): Don't output a message if

Browse Source 
raise-error is non-nil.  Fix return position and value.
This commit is contained in:
Stefan Monnier 2004-09-25 18:35:53 +00:00
parent 52e281e87a
commit 1f3b4d04d0
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2004-09-25 Stefan <monnier@iro.umontreal.ca>
* dired.el (dired-move-to-filename): Don't output a message if
raise-error is non-nil. Fix return position and value.
* files.el (insert-directory): Obey --dired even with symlinks.
2004-09-25 Lars Hansen <larsh@math.ku.dk>

6
lisp/dired.el
View File

@ -1774,8 +1774,10 @@ regardless of the language.")
(goto-char (match-end 0)))
((re-search-forward dired-permission-flags-regexp eol t)
;; Ha! There *is* a file. Our regexp-from-hell just failed to find it.
(funcall (if raise-error 'error 'message)
"Unrecognized line! Check dired-move-to-filename-regexp"))
(if raise-error
(error "Unrecognized line! Check dired-move-to-filename-regexp"))
(beginning-of-line)
nil)
(raise-error
(error "No file on this line")))))