Mercurial > emacs

changeset 95784:ebad352d55ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ffap-string-at-point-mode-alist): Use alpha rather than lower.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 10 Jun 2008 19:33:37 +0000
parents 4a429fae9256
children 073eb4a519f1
files lisp/ChangeLog lisp/ffap.el
diffstat 2 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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