Fix broken customization in Flymake.

* lisp/progmodes/flymake.el (flymake-get-real-file-name-function):
Fix broken customization.  (Bug#15184)

diff --git a/doc/lispref/nonascii.texi b/doc/lispref/nonascii.texi
index 090310c55459072b165ea7bba0200717feed77ea..f351829e4cf325bbf2631ae9f5436933d73af479 100644 (file)
--- a/doc/lispref/nonascii.texi
+++ b/doc/lispref/nonascii.texi
@@ -248,6 +248,7 @@ unibyte string, it is returned unchanged.  Use this function for
 characters.
 @end defun
 
+@c FIXME: Should `@var{character}' be `@var{byte}'?
 @defun byte-to-string byte
 @cindex byte to string
 This function returns a unibyte string containing a single byte of
@@ -401,6 +402,8 @@ specifies how the character behaves and how it should be handled
 during text processing and display.  Thus, character properties are an
 important part of specifying the character's semantics.
 
+@c FIXME: Use the latest URI of this chapter?
+@c http://www.unicode.org/versions/latest/ch04.pdf
   On the whole, Emacs follows the Unicode Standard in its implementation
 of character properties.  In particular, Emacs supports the
 @uref{http://www.unicode.org/reports/tr23/, Unicode Character Property

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf0864561aa0b802a5faae7710a8c6e4034879c5..09bd7d19c2ae19b0faee93e675f28725a6c2a2ff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-08-25  Xue Fuqiao  <xfq.free@gmail.com>
+
+       * progmodes/flymake.el (flymake-get-real-file-name-function):
+       Fix broken customization.  (Bug#15184)
+
 2013-08-25  Alan Mackenzie  <acm@muc.de>
 
        Improve indentation of bracelists defined by macros (without "=").

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 2ead734d163d17ac28a90416088e8fe50c4bf802..ab86b83f7bf434e07b94d60f8861d83a96578151 100644 (file)
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -353,7 +353,7 @@ Return nil if we cannot, non-nil if we can."
       'flymake-simple-cleanup))
 
 (defun flymake-get-real-file-name-function (file-name)
-  (or (nth 4 (flymake-get-file-name-mode-and-masks file-name))
+  (or (nth 2 (flymake-get-file-name-mode-and-masks file-name))
       'flymake-get-real-file-name))
 
 (defvar flymake-find-buildfile-cache (flymake-makehash 'equal))