* lisp/progmodes/which-func.el (which-func-current): The hash-table may have

an explicit nil.

Fixes: debbugs:12338

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b680eadc08eb48af1bd0f1e47d1497e4db2c219..e208b06189e0b3506c7d59a3a82526b10aa325de 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-22  Takafumi Arakaki  <aka.tkf@gmail.com>  (tiny change)
+
+       * progmodes/which-func.el (which-func-current): The hash-table may have
+       an explicit nil (bug#12338).
+
 2012-10-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * electric.el (electric-pair-delete-selection-self-insert-function):

diff --git a/lisp/progmodes/which-func.el b/lisp/progmodes/which-func.el
index 4819149bdf6d980f5b14a4ddfd72d8e6d6d6ef85..c2ce12b6ad4b5515ddd7de08c65e146812414d0f 100644 (file)
--- a/lisp/progmodes/which-func.el
+++ b/lisp/progmodes/which-func.el
@@ -182,7 +182,8 @@ and you want to simplify them for the mode line
 (defconst which-func-current
   '(:eval (replace-regexp-in-string
           "%" "%%"
-          (gethash (selected-window) which-func-table which-func-unknown))))
+          (or (gethash (selected-window) which-func-table)
+               which-func-unknown))))
 ;;;###autoload (put 'which-func-current 'risky-local-variable t)
 
 (defvar which-func-mode nil