Skip to content

Commit

Permalink
Improve "g"
Browse files Browse the repository at this point in the history
* lispy.el (lispy-build-semanticdb): Return the corresponding db.
(lispy--fetch-tags): Try to call `lispy-build-semanticdb' before raising
an error.
  • Loading branch information
abo-abo committed Mar 8, 2015
1 parent 100da0a commit f09ec32
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions lispy.el
Original file line number Diff line number Diff line change
Expand Up @@ -4042,7 +4042,8 @@ so that no other packages disturb the match data."
(unless buf
(kill-buffer)))))
(lispy--file-list)))
(semanticdb-save-all-db))
(semanticdb-save-db
(semanticdb-directory-loaded-p dir)))

(defun lispy--fetch-this-file-tags ()
"Fetch this file tags."
Expand Down Expand Up @@ -4257,10 +4258,9 @@ For example, a `setq' statement is amended with variable name that it uses."
(let* ((this-file (expand-file-name (buffer-file-name)))
(default-directory path)
(db (or (semanticdb-directory-loaded-p path)
(lispy-build-semanticdb path)
(error "Semantic not loaded")))
(db-tables (semanticdb-get-database-tables db)
;; (aref db 6)
)
(db-tables (semanticdb-get-database-tables db))
db-tables-with-mode
was-updated)
(unless (lexical-let ((db-files
Expand Down

0 comments on commit f09ec32

Please sign in to comment.