procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restore point when writing semantic table to disk

Browse source 
* lisp/cedet/semantic/db-file.el (object-write): Wrap call to
  `semantic-fetch-tags' in `save-excursion', since it might move point
  in current buffer. (Bug #22287)
This commit is contained in:
David Engster 2016-02-21 17:11:01 +01:00
parent 27d343070d
commit 2d8b2fd034
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/cedet/semantic/db-file.el
View file

@ -287,22 +287,22 @@ Argument OBJ is the object to write."
(when (semanticdb-live-p obj)
(when (semanticdb-in-buffer-p obj)
(with-current-buffer (semanticdb-in-buffer-p obj)
(save-excursion
;; Make sure all our tag lists are up to date.
(semantic-fetch-tags)
;; Make sure all our tag lists are up to date.
(semantic-fetch-tags)
;; Try to get an accurate unmatched syntax table.
(when (and (boundp semantic-show-unmatched-syntax-mode)
semantic-show-unmatched-syntax-mode)
;; Only do this if the user runs unmatched syntax
;; mode display entries.
(oset obj unmatched-syntax
(semantic-show-unmatched-lex-tokens-fetch))
)
;; Try to get an accurate unmatched syntax table.
(when (and (boundp semantic-show-unmatched-syntax-mode)
semantic-show-unmatched-syntax-mode)
;; Only do this if the user runs unmatched syntax
;; mode display entries.
(oset obj unmatched-syntax
(semantic-show-unmatched-lex-tokens-fetch))
)
;; Make sure pointmax is up to date
(oset obj pointmax (point-max))
))
;; Make sure pointmax is up to date
(oset obj pointmax (point-max))
)))
;; Make sure that the file size and other attributes are
;; up to date.