]> code.delx.au - gnu-emacs/blobdiff - lisp/cedet/semantic/analyze/debug.el
Update copyright year to 2015
[gnu-emacs] / lisp / cedet / semantic / analyze / debug.el
index b02358b72439ae37d0c0f9a26c4e8cedc08bbbb2..9f9270f85432f5db6f80ccb5c6a52618b726c773 100644 (file)
@@ -1,6 +1,6 @@
 ;;; semantic/analyze/debug.el --- Debug the analyzer
 
-;;; Copyright (C) 2008-2011 Free Software Foundation, Inc.
+;;; Copyright (C) 2008-2015 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 
@@ -70,7 +70,7 @@
       (let ((pentry (nth idx pf))
            (ptentry (nth idx pft)))
        (if (or (stringp pentry) (not ptentry))
-           ;; Found someting ok.  stop
+           ;; Found something ok.  Stop.
            (setq stop t)
          (setq idx (1+ idx)))))
     ;; We found the first non-tag entry.  What is the situation?
@@ -443,7 +443,7 @@ or implementing a version specific to ")
                             (semanticdb-file-table-object fileinner t))))
          (cond ((not fileinner)
                 (setq unknown (1+ unknown)))
-               ((number-or-marker-p (oref tableinner pointmax))
+               ((and tableinner (number-or-marker-p (oref tableinner pointmax)))
                 (setq ok (1+ ok)))
                (t
                 (setq unparsed (1+ unparsed))))))