From: Eric Ludlam Date: Wed, 26 Nov 2014 15:37:28 +0000 (-0500) Subject: semantic: Check if slot is bound X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ebc8418fefd4ab5f3c89da209ef903a64ffa0484;p=emacs.git semantic: Check if slot is bound * lisp/cedet/semantic/analyze.el (semantic-analyze-show): Protect against unbound error slot. --- diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el index a8cd95d6793..70a5bad97c5 100644 --- a/lisp/cedet/semantic/analyze.el +++ b/lisp/cedet/semantic/analyze.el @@ -804,7 +804,8 @@ Use BUFF as a source of override methods." (semantic-analyze-princ-sequence (oref context prefix) "Prefix: " ) (semantic-analyze-princ-sequence (oref context prefixclass) "Prefix Classes: ") (semantic-analyze-princ-sequence (oref context prefixtypes) "Prefix Types: ") - (semantic-analyze-princ-sequence (oref context errors) "Encountered Errors: ") + (semantic-analyze-princ-sequence (when (slot-boundp context 'errors) (oref context errors)) + "Encountered Errors: ") (princ "--------\n") ;(semantic-analyze-princ-sequence (oref context scopetypes) "Scope Types: ") ;(semantic-analyze-princ-sequence (oref context scope) "Scope: ")