# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1213126417 0
# Node ID ebad352d55ceb7b168027dcccb2388dd8417f816
# Parent  4a429fae9256afc5c8d000f217fb1243f6e6851a
(ffap-string-at-point-mode-alist): Use alpha rather than lower.

diff -r 4a429fae9256 -r ebad352d55ce lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jun 10 19:10:42 2008 +0000
+++ b/lisp/ChangeLog	Tue Jun 10 19:33:37 2008 +0000
@@ -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 -r 4a429fae9256 -r ebad352d55ce lisp/ffap.el
--- a/lisp/ffap.el	Tue Jun 10 19:10:42 2008 +0000
+++ b/lisp/ffap.el	Tue Jun 10 19:33:37 2008 +0000
@@ -978,11 +978,11 @@
     ;; 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