diff options
author | Dave Love <[email protected]> | 2003-01-15 19:46:07 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2003-01-15 19:46:07 +0000 |
commit | f53a06c3de8e9529af2cb7783f337022a738d353 (patch) | |
tree | 0495f17cda87efce9f0e4d0beae25ef5db6d1272 /lisp | |
parent | 4d61e7d5136a1ee6d0c80d5f951f5c300d753ee2 (diff) |
(dired-filename-at-point): Fix filename-chars.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/dired-x.el | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a633d951b4..1f7c1fdd26 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2003-01-15 Dave Love <[email protected]> + * 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. diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 6f0384be78..256064a3d6 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -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) |