Commit f53a06c3 authored by Dave Love's avatar Dave Love
Browse files

(dired-filename-at-point): Fix filename-chars.

parent 4d61e7d5
2003-01-15 Dave Love <>
* thingatpt.el (thing-at-point-file-name-chars): Include non-ASCII
and use documented treatment of -.
* dired-x.el (dired-filename-at-point): Fix filename-chars.
* international/ucs-tables.el: Set up tables for 8859-6.
* server.el (server-window): Customize.
......@@ -1560,13 +1560,15 @@ to test if that file exists. Use minibuffer after snatching filename."
(find-file-other-window (expand-file-name filename)))
;;; Internal functions.
(defun dired-filename-at-point ()
;; Fixme: This should probably be replaced with `thing-at-point', but
;; that needs checking for compatibility. -- 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 ".a-zA-Z0-9---_/:$+@") ; fixme: allow non-ASCII
(let ((filename-chars "-.[:alnum:]_/:$+@")
(bol (save-excursion (beginning-of-line) (point)))
(eol (save-excursion (end-of-line) (point)))
start end filename prefix)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment