(ffap-string-at-point-mode-alist): Use alpha rather than lower.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbe2b11433dc78e608170ee8c30179ce61bbdc7a..779983ea0baa893c5c4dfcc41596eeca5f14a8cf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-06-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * ffap.el (ffap-string-at-point-mode-alist): Use alpha rather than lower.
+
        * dired.el (dired-insert-directory): Don't assume Unix-style dir names.
 
        * subr.el (momentary-string-display): Use an overlay.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 8c2bf71afde5e3ed9f8ebbb8638f00c509666da4..5d9b628a2c252499e767fc1e29b239aa8f776c21 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -978,11 +978,11 @@ If a given RFC isn't in these then `ffap-rfc-path' is offered."
     ;; Slightly controversial decisions:
     ;; * strip trailing "@" and ":"
     ;; * no commas (good for latex)
-    (file "--:\\\\$+<>@-Z_[:lower:]~*?" "<@" "@>;.,!:")
+    (file "--:\\\\$+<>@-Z_[:alpha:]~*?" "<@" "@>;.,!:")
     ;; An url, or maybe a email/news message-id:
-    (url "--:=&?$+@-Z_[:lower:]~#,%;*" "^[:alnum:]" ":;.,!?")
+    (url "--:=&?$+@-Z_[:alpha:]~#,%;*" "^[:alnum:]" ":;.,!?")
     ;; Find a string that does *not* contain a colon:
-    (nocolon "--9$+<>@-Z_[:lower:]~" "<@" "@>;.,!?")
+    (nocolon "--9$+<>@-Z_[:alpha:]~" "<@" "@>;.,!?")
     ;; A machine:
     (machine "-[:alnum:]." "" ".")
     ;; Mathematica paths: allow backquotes