;;; semantic/db-debug.el --- Extra level debugging routines for Semantic
-;;; Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+;;; Copyright (C) 2008-2014 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
(require 'data-debug)
(require 'semantic/db)
-(require 'semantic/db-mode)
(require 'semantic/format)
;;; Code:
(let* ((full-filename (semanticdb-full-filename table))
(buff (find-buffer-visiting full-filename)))
(if buff
- (save-excursion
- (set-buffer buff)
+ (with-current-buffer buff
(semantic-sanity-check))
;; We can't use the usual semantic validity check, so hack our own.
(semanticdb-table-oob-sanity-check (semanticdb-get-tags table)))))