mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(dired-filename-at-point): Fix last change and tidy up.

Browse Source
This commit is contained in:
Dave Love 2003-01-27 11:36:08 +00:00
parent 7019fb66fb
commit 1e56daa587
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/dired-x.el
View File

@ -1561,16 +1561,13 @@ to test if that file exists. Use minibuffer after snatching filename."
;;; Internal functions.
;; Fixme: This should probably be replaced with `thing-at-point', but
;; that needs checking for compatibility. -- fx
;; Fixme: This should probably use `thing-at-point'. -- fx
(defun dired-filename-at-point ()
"Get the filename closest to point, but do not change position.
Has a preference for looking backward when not directly on a symbol. Not
perfect - point must be in middle of or end of filename."
(let ((filename-chars "-.[:alnum:]_/:$+@")
(bol (save-excursion (beginning-of-line) (point)))
(eol (save-excursion (end-of-line) (point)))
start end filename prefix)
(save-excursion
@ -1585,16 +1582,19 @@ perfect - point must be in middle of or end of filename."
(if (string-match (concat "[" filename-chars "]")
(char-to-string (following-char)))
(progn
(skip-chars-backward filename-chars)
(if (re-search-backward (concat "[^" filename-chars "]") nil t)
(forward-char)
(goto-char (point-min)))
(setq start (point))
(setq prefix
(and (string-match "^\\w+@"
(buffer-substring start eol))
(and (string-match
"^\\w+@"
(buffer-substring start (line-beginning-position)))
"/"))
(goto-char start)
(if (string-match "[/~]" (char-to-string (preceding-char)))
(setq start (1- start)))
(skip-chars-forward filename-chars))
(re-search-forward (concat "\\=[" filename-chars "]*") nil t))
(error "No file found around point!"))