procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Dave Love 2003-01-15 19:46:07 +00:00
parent 4d61e7d513
commit f53a06c3de
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
2003-01-15 Dave Love <fx@gnu.org>
* 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.

6
lisp/dired-x.el
View file

@ -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)