[Emacs-diffs] /srv/bzr/emacs/trunk r112586: * lisp/subr.el (find-tag-default-as-regexp): Return nil if `tag' is nil.

[Juri Linkov]

------------------------------------------------------------
revno: 112586
fixes bug: http://debbugs.gnu.org/14390
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Wed 2013-05-15 02:38:14 +0300
message:
  * lisp/subr.el (find-tag-default-as-regexp): Return nil if `tag' is nil.
modified:
  lisp/ChangeLog
  lisp/subr.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-14 19:29:35 +0000
+++ b/lisp/ChangeLog    2013-05-14 23:38:14 +0000
@@ -1,3 +1,8 @@
+2013-05-14  Juri Linkov  <address@hidden>
+
+       * subr.el (find-tag-default-as-regexp): Return nil if `tag' is nil.
+       (Bug#14390)
+
 2013-05-14  Glenn Morris  <address@hidden>
 
        * progmodes/f90.el (f90-imenu-generic-expression):

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2013-05-14 16:01:16 +0000
+++ b/lisp/subr.el      2013-05-14 23:38:14 +0000
@@ -2738,7 +2738,7 @@
                   (get major-mode 'find-tag-default-function)
                   'find-tag-default))
         (tag (funcall tagf)))
-    (cond ((not tag))
+    (cond ((null tag) nil)
          ((eq tagf 'find-tag-default)
           (format "\\_<%s\\_>" (regexp-quote tag)))
          (t (regexp-quote tag)))))