[Emacs-diffs] trunk r113781: lisp/ffap.el: Fix reference to variable thing-at-point-default-mail-uri-scheme.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113781
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sat 2013-08-10 01:08:46 +0200
message:
  lisp/ffap.el: Fix reference to variable 
thing-at-point-default-mail-uri-scheme.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/ffap.el                   ffap.el-20091113204419-o5vbwnq5f7feedwu-953

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-09 21:22:44 +0000
+++ b/lisp/ChangeLog    2013-08-09 23:08:46 +0000
@@ -1,3 +1,8 @@
+2013-08-09  Juanma Barranquero  <address@hidden>
+
+       * ffap.el (ffap-url-at-point): Fix reference to variable
+       thing-at-point-default-mail-uri-scheme.
+
 2013-08-09  Stefan Monnier  <address@hidden>
 
        * subr.el (define-error): New function.

=== modified file 'lisp/ffap.el'
--- a/lisp/ffap.el      2013-08-05 14:26:57 +0000
+++ b/lisp/ffap.el      2013-08-09 23:08:46 +0000
@@ -1073,7 +1073,7 @@
     (or (and (eq major-mode 'w3-mode) ; In a w3 buffer button?
             (w3-view-this-url t))
        (let ((thing-at-point-beginning-of-url-regexp ffap-url-regexp)
-             (thing-at-point-default-mail-scheme ffap-foo-at-bar-prefix))
+             (thing-at-point-default-mail-uri-scheme ffap-foo-at-bar-prefix))
          (thing-at-point-url-at-point t
                                       (if (use-region-p)
                                           (cons (region-beginning)