Commit 22b762c7 authored by David Engster's avatar David Engster
Browse files

Merge bug fixes from CEDET upstream.

* semantic/symref/list.el (semantic-symref-symbol): Use
  `semantic-complete-read-tag-project' instead of
  `semantic-complete-read-tag-buffer-deep', since the latter is not
  working correctly.

* semantic/symref.el (semantic-symref-result-get-tags): Use
  `find-buffer-visiting' to follow symbolic links.

* semantic/fw.el (semantic-find-file-noselect): Always set
  `enable-local-variables' to `:safe' when loading files.
parent 730b2d8f
2012-11-14 David Engster <deng@randomsample.de>
* semantic/symref/list.el (semantic-symref-symbol): Use
`semantic-complete-read-tag-project' instead of
`semantic-complete-read-tag-buffer-deep', since the latter is not
working correctly.
* semantic/symref.el (semantic-symref-result-get-tags): Use
`find-buffer-visiting' to follow symbolic links.
* semantic/fw.el (semantic-find-file-noselect): Always set
`enable-local-variables' to `:safe' when loading files.
2012-11-13 Glenn Morris <rgm@gnu.org>
* semantic/lex-spp.el (semantic-lex-spp-lex-text-string):
......
......@@ -421,14 +421,7 @@ into `mode-local-init-hook'." file filename)
;; Don't prompt to insert a template if we visit an empty file
(auto-insert nil)
;; We don't want emacs to query about unsafe local variables
(enable-local-variables
(if (featurep 'xemacs)
;; XEmacs only has nil as an option?
nil
;; Emacs 23 has the spiffy :safe option, nil otherwise.
(if (>= emacs-major-version 22)
nil
:safe)))
(enable-local-variables :safe)
;; ... or eval variables
(enable-local-eval nil)
)
......
......@@ -356,7 +356,7 @@ already."
(lambda (hit)
(let* ((line (car hit))
(file (cdr hit))
(buff (get-file-buffer file))
(buff (find-buffer-visiting file))
(tag nil)
)
(cond
......
......@@ -69,7 +69,7 @@ current project to find references to the input SYM. The
references are organized by file and the name of the function
they are used in.
Display the references in `semantic-symref-results-mode'."
(interactive (list (semantic-tag-name (semantic-complete-read-tag-buffer-deep
(interactive (list (semantic-tag-name (semantic-complete-read-tag-project
"Symrefs for: "))))
(semantic-fetch-tags)
(let ((res nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment