Commit 0816d744 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* cedet/srecode/srt-mode.el (semantic-analyze-possible-completions):

* cedet/semantic/symref/list.el (semantic-symref-rb-toggle-expand-tag):
* cedet/semantic/symref/grep.el (semantic-symref-perform-search):
* cedet/semantic/bovine/gcc.el (semantic-gcc-query):
* cedet/semantic/bovine/c.el (semantic-c-parse-lexical-token):
* cedet/semantic/analyze/debug.el (semantic-analyzer-debug-add-buttons)
(semantic-analyzer-debug-global-symbol)
(semantic-analyzer-debug-missing-innertype)
(semantic-analyzer-debug-insert-include-summary):
* cedet/semantic/util.el (semantic-file-tag-table):
(semantic-describe-buffer-var-helper, semantic-something-to-tag-table)
(semantic-recursive-find-nonterminal-by-name):
* cedet/semantic/tag-ls.el (semantic-tag-calculate-parent-default):
* cedet/semantic/tag-file.el (semantic-prototype-file):
* cedet/semantic/symref.el (semantic-symref-parse-tool-output):
* cedet/semantic/sb.el (semantic-sb-fetch-tag-table):
* cedet/semantic/lex-spp.el (semantic-lex-spp-lex-text-string):
* cedet/semantic/idle.el (semantic-idle-work-for-one-buffer):
(semantic-idle-summary-maybe-highlight):
* cedet/semantic/ia-sb.el (semantic-ia-speedbar)
(semantic-ia-sb-tag-info):
* cedet/semantic/grammar.el (semantic-analyze-possible-completions):
* cedet/semantic/find.el (semantic-brute-find-tag-by-position):
* cedet/semantic/ede-grammar.el (project-compile-target):
(ede-proj-makefile-insert-variables):
* cedet/semantic/debug.el (semantic-debug-set-parser-location):
(semantic-debug-set-source-location, semantic-debug-interface-layout)
(semantic-debug-mode, semantic-debug):
* cedet/semantic/db.el (semanticdb-needs-refresh-p):
* cedet/semantic/db-typecache.el (semanticdb-typecache-refresh-for-buffer):
* cedet/semantic/db-javascript.el (semanticdb-equivalent-mode):
* cedet/semantic/db-find.el (semanticdb-find-log-new-search)
(semanticdb-find-translate-path-includes--internal)
(semanticdb-reset-log, semanticdb-find-log-activity):
* cedet/semantic/db-file.el (object-write):
* cedet/semantic/db-el.el (semanticdb-equivalent-mode):
* cedet/semantic/db-ebrowse.el (semanticdb-ebrowse-C-file-p)
(semanticdb-create-ebrowse-database):
* cedet/semantic/db-debug.el (semanticdb-table-sanity-check):
* cedet/semantic/complete.el (semantic-displayor-focus-request)
(semantic-collector-calculate-completions-raw)
(semantic-complete-read-tag-analyzer):
* cedet/semantic/analyze.el (semantic-analyze-pulse):
* cedet/ede/util.el (ede-update-version-in-source):
* cedet/ede/proj.el (project-delete-target):
* cedet/ede/proj-elisp.el (ede-update-version-in-source)
(ede-proj-flush-autoconf):
* cedet/ede/pconf.el (ede-proj-configure-synchronize)
(ede-proj-configure-synchronize):
* cedet/ede/locate.el (ede-locate-file-in-project-impl):
* cedet/ede/linux.el (ede-linux-version):
* cedet/ede/emacs.el (ede-emacs-version):
* cedet/ede/dired.el (ede-dired-add-to-target):
* cedet/ede.el (ede-buffer-header-file, ede-find-target)
(ede-buffer-documentation-files, ede-project-buffers, ede-set)
(ede-target-buffers, ede-buffers, ede-make-project-local-variable):
* cedet/cedet-idutils.el (cedet-idutils-fnid-call):
(cedet-idutils-lid-call, cedet-idutils-expand-filename)
(cedet-idutils-version-check):
* cedet/cedet-global.el (cedet-gnu-global-call):
(cedet-gnu-global-expand-filename, cedet-gnu-global-root)
(cedet-gnu-global-version-check, cedet-gnu-global-scan-hits):
* cedet/cedet-cscope.el (cedet-cscope-call)
(cedet-cscope-expand-filename, cedet-cscope-version-check):
Use with-current-buffer.
* cedet/ede.el (ede-make-project-local-variable)
(ede-set-project-variables, ede-set): Use dolist.
parent ca0a881a
......@@ -77,8 +77,7 @@ SCOPE is the scope of the search, such as 'project or 'subdirs."
(let ((b (get-buffer-create "*CEDET CScope*"))
(cd default-directory)
)
(save-excursion
(set-buffer b)
(with-current-buffer b
(setq default-directory cd)
(erase-buffer))
(apply 'call-process cedet-cscope-command
......@@ -90,8 +89,8 @@ SCOPE is the scope of the search, such as 'project or 'subdirs."
"Expand the FILENAME with CScope.
Return a fully qualified filename."
(interactive "sFile: ")
(let* ((ans1 (save-excursion
(set-buffer (cedet-cscope-call (list "-d" "-L" "-7" filename)))
(let* ((ans1 (with-current-buffer
(cedet-cscope-call (list "-d" "-L" "-7" filename))
(goto-char (point-min))
(if (looking-at "[^ \n]*cscope: ")
(error "CScope not available")
......@@ -137,8 +136,7 @@ return nil."
(when (interactive-p)
(message "CScope not found."))
nil)
(save-excursion
(set-buffer b)
(with-current-buffer b
(goto-char (point-min))
(re-search-forward "cscope: version \\([0-9.]+\\)" nil t)
(setq rev (match-string 1))
......
......@@ -67,8 +67,7 @@ SCOPE is the scope of the search, such as 'project or 'subdirs."
"Call GNU Global with the list of FLAGS."
(let ((b (get-buffer-create "*CEDET Global*"))
(cd default-directory))
(save-excursion
(set-buffer b)
(with-current-buffer b
(setq default-directory cd)
(erase-buffer))
(apply 'call-process cedet-global-command
......@@ -80,8 +79,7 @@ SCOPE is the scope of the search, such as 'project or 'subdirs."
"Expand the FILENAME with GNU Global.
Return a fully qualified filename."
(interactive "sFile: ")
(let ((ans (save-excursion
(set-buffer (cedet-gnu-global-call (list "-Pa" filename)))
(let ((ans (with-current-buffer (cedet-gnu-global-call (list "-Pa" filename))
(goto-char (point-min))
(if (looking-at "global: ")
(error "GNU Global not available")
......@@ -105,8 +103,7 @@ Return a fully qualified filename."
If a default starting DIR is not specified, the current buffer's
`default-directory' is used."
(let ((default-directory (or dir default-directory)))
(save-excursion
(set-buffer (cedet-gnu-global-call (list "-pq")))
(with-current-buffer (cedet-gnu-global-call (list "-pq"))
(goto-char (point-min))
(when (not (eobp))
(file-name-as-directory
......@@ -128,8 +125,7 @@ return nil."
(when (interactive-p)
(message "GNU Global not found."))
nil)
(save-excursion
(set-buffer b)
(with-current-buffer b
(goto-char (point-min))
(re-search-forward "GNU GLOBAL \\([0-9.]+\\)" nil t)
(setq rev (match-string 1))
......@@ -147,8 +143,7 @@ return nil."
"Scan all the hits from the GNU Global output BUFFER."
(let ((hits nil)
(r1 "^\\([^ ]+\\) +\\([0-9]+\\) \\([^ ]+\\) "))
(save-excursion
(set-buffer buffer)
(with-current-buffer buffer
(goto-char (point-min))
(while (re-search-forward r1 nil t)
(setq hits (cons (cons (string-to-number (match-string 2))
......
......@@ -82,8 +82,7 @@ Return the created buffer with with program output."
(let ((b (get-buffer-create "*CEDET fnid*"))
(cd default-directory)
)
(save-excursion
(set-buffer b)
(with-current-buffer b
(setq default-directory cd)
(erase-buffer))
(apply 'call-process cedet-idutils-file-command
......@@ -97,8 +96,7 @@ Return the created buffer with with program output."
(let ((b (get-buffer-create "*CEDET lid*"))
(cd default-directory)
)
(save-excursion
(set-buffer b)
(with-current-buffer b
(setq default-directory cd)
(erase-buffer))
(apply 'call-process cedet-idutils-token-command
......@@ -112,8 +110,7 @@ Return the created buffer with with program output."
"Expand the FILENAME with ID Utils.
Return a filename relative to the default directory."
(interactive "sFile: ")
(let ((ans (save-excursion
(set-buffer (cedet-idutils-fnid-call (list filename)))
(let ((ans (with-current-buffer (cedet-idutils-fnid-call (list filename))
(goto-char (point-min))
(if (looking-at "[^ \n]*fnid: ")
(error "ID Utils not available")
......@@ -160,8 +157,7 @@ return nil."
(when (interactive-p)
(message "ID Utils not found."))
nil)
(save-excursion
(set-buffer b)
(with-current-buffer b
(goto-char (point-min))
(re-search-forward "fnid - \\([0-9.]+\\)" nil t)
(setq rev (match-string 1))
......
......@@ -1467,8 +1467,7 @@ Not all buffers need headers, so return nil if no applicable."
(defmethod ede-buffer-header-file ((this ede-target) buffer)
"There are no default header files in EDE.
Do a quick check to see if there is a Header tag in this buffer."
(save-excursion
(set-buffer buffer)
(with-current-buffer buffer
(if (re-search-forward "::Header:: \\([a-zA-Z0-9.]+\\)" nil t)
(buffer-substring-no-properties (match-beginning 1)
(match-end 1))
......@@ -1495,8 +1494,7 @@ Some projects may have multiple documentation files, so return a list."
(defmethod ede-buffer-documentation-files ((this ede-target) buffer)
"Check for some documentation files for THIS.
Also do a quick check to see if there is a Documentation tag in this BUFFER."
(save-excursion
(set-buffer buffer)
(with-current-buffer buffer
(if (re-search-forward "::Documentation:: \\([a-zA-Z0-9.]+\\)" nil t)
(buffer-substring-no-properties (match-beginning 1)
(match-end 1))
......@@ -1743,8 +1741,7 @@ could become slow in time."
(defmethod ede-find-target ((proj ede-project) buffer)
"Fetch the target in PROJ belonging to BUFFER or nil."
(save-excursion
(set-buffer buffer)
(with-current-buffer buffer
(or ede-object
(if (ede-buffer-mine proj buffer)
proj
......@@ -1781,8 +1778,7 @@ This includes buffers controlled by a specific target of PROJECT."
(let ((bl (buffer-list))
(pl nil))
(while bl
(save-excursion
(set-buffer (car bl))
(with-current-buffer (car bl)
(if (and ede-object (eq (ede-current-project) project))
(setq pl (cons (car bl) pl))))
(setq bl (cdr bl)))
......@@ -1793,8 +1789,7 @@ This includes buffers controlled by a specific target of PROJECT."
(let ((bl (buffer-list))
(pl nil))
(while bl
(save-excursion
(set-buffer (car bl))
(with-current-buffer (car bl)
(if (if (listp ede-object)
(memq target ede-object)
(eq ede-object target))
......@@ -1807,8 +1802,7 @@ This includes buffers controlled by a specific target of PROJECT."
(let ((bl (buffer-list))
(pl nil))
(while bl
(save-excursion
(set-buffer (car bl))
(with-current-buffer (car bl)
(if ede-object
(setq pl (cons (car bl) pl))))
(setq bl (cdr bl)))
......@@ -1897,22 +1891,18 @@ Return the first non-nil value returned by PROC."
nil
(oset project local-variables (cons (list variable)
(oref project local-variables)))
(mapcar (lambda (b) (save-excursion
(set-buffer b)
(make-local-variable variable)))
(ede-project-buffers project))))
(dolist (b (ede-project-buffers project))
(with-current-buffer b
(make-local-variable variable)))))
(defmethod ede-set-project-variables ((project ede-project) &optional buffer)
"Set variables local to PROJECT in BUFFER."
(if (not buffer) (setq buffer (current-buffer)))
(save-excursion
(set-buffer buffer)
(mapcar (lambda (v)
(make-local-variable (car v))
;; set it's value here?
(set (car v) (cdr v))
)
(oref project local-variables))))
(with-current-buffer buffer
(dolist (v (oref project local-variables))
(make-local-variable (car v))
;; set it's value here?
(set (car v) (cdr v)))))
(defun ede-set (variable value &optional proj)
"Set the project local VARIABLE to VALUE.
......@@ -1923,10 +1913,9 @@ is the project to use, instead of `ede-current-project'."
(if (and p (setq a (assoc variable (oref p local-variables))))
(progn
(setcdr a value)
(mapc (lambda (b) (save-excursion
(set-buffer b)
(set variable value)))
(ede-project-buffers p)))
(dolist (b (ede-project-buffers p))
(with-current-buffer b
(set variable value))))
(set variable value))
(ede-commit-local-variables p))
value)
......
......@@ -90,8 +90,7 @@ negative, force off."
(project-add-file target (car files))
;; Find the buffer for this files, and set it's ede-object
(if (get-file-buffer (car files))
(save-excursion
(set-buffer (get-file-buffer (car files)))
(with-current-buffer (get-file-buffer (car files))
(setq ede-object nil)
(setq ede-object (ede-buffer-object (current-buffer)))))
;; Increment.
......
......@@ -76,8 +76,7 @@ Return a tuple of ( EMACSNAME . VERSION )."
(let ((buff (get-buffer-create " *emacs-query*"))
(emacs "Emacs")
(ver ""))
(save-excursion
(set-buffer buff)
(with-current-buffer buff
(erase-buffer)
(setq default-directory (file-name-as-directory dir))
;(call-process "egrep" nil buff nil "-n" "-e" "^version=" "Makefile")
......
......@@ -72,8 +72,7 @@ DIR is the directory to search from."
(defun ede-linux-version (dir)
"Find the Linux version for the Linux src in DIR."
(let ((buff (get-buffer-create " *linux-query*")))
(save-excursion
(set-buffer buff)
(with-current-buffer buff
(erase-buffer)
(setq default-directory (file-name-as-directory dir))
(insert-file-contents "Makefile" nil 0 512)
......
......@@ -190,15 +190,13 @@ that crated this ede locat object."
(b (get-buffer-create "*LOCATE*"))
(cd default-directory)
)
(save-excursion
(set-buffer b)
(with-current-buffer b
(setq default-directory cd)
(erase-buffer))
(apply 'call-process locate-command
nil b nil
searchstr nil)
(save-excursion
(set-buffer b)
(with-current-buffer b
(split-string (buffer-string) "\n" t))
)
)
......
......@@ -112,10 +112,10 @@ don't do it. A value of nil means to just do it.")
;; Verify that we have a make system.
(if (or (not (ede-expand-filename (ede-toplevel this) "Makefile"))
;; Now is this one of our old Makefiles?
(save-excursion
(set-buffer (find-file-noselect
(ede-expand-filename (ede-toplevel this)
"Makefile" t) t))
(with-current-buffer
(find-file-noselect
(ede-expand-filename (ede-toplevel this)
"Makefile" t) t)
(goto-char (point-min))
;; Here is the unique piece for our makefiles.
(re-search-forward "For use with: make" nil t)))
......@@ -128,8 +128,7 @@ don't do it. A value of nil means to just do it.")
(accept-process-output)
(sit-for 1))
(save-excursion
(set-buffer "*compilation*")
(with-current-buffer "*compilation*"
(goto-char (point-max))
(when (not (string= mode-line-process ":exit [0]"))
......
......@@ -151,9 +151,8 @@ is found, such as a `-version' variable, or the standard header."
(let ((vs (oref this versionsource))
(match nil))
(while vs
(save-excursion
(set-buffer (find-file-noselect
(ede-expand-filename this (car vs))))
(with-current-buffer (find-file-noselect
(ede-expand-filename this (car vs)))
(goto-char (point-min))
(let ((case-fold-search t))
(if (re-search-forward "-version\\s-+\"\\([^\"]+\\)\"" nil t)
......@@ -244,8 +243,7 @@ is found, such as a `-version' variable, or the standard header."
(let ((ec (ede-expand-filename this "elisp-comp" 'newfile))
)
(if (and ec (file-exists-p ec))
(save-excursion
(set-buffer (find-file-noselect ec t))
(with-current-buffer (find-file-noselect ec t)
(goto-char (point-min))
(while (re-search-forward "(cons \\([^ ]+\\) load-path)"
nil t)
......
......@@ -407,8 +407,7 @@ Argument TARGET is the project we are completing customization on."
(let* ((default-directory (oref this path))
(b (get-file-buffer (car ts))))
(if b
(save-excursion
(set-buffer b)
(with-current-buffer b
(if (eq ede-object this)
(progn
(setq ede-object nil)
......
......@@ -64,9 +64,8 @@ their sources to VERSION."
(oref this versionsource))
(let ((vs (oref this versionsource)))
(while vs
(save-excursion
(set-buffer (find-file-noselect
(ede-expand-filename this (car vs))))
(with-current-buffer (find-file-noselect
(ede-expand-filename this (car vs)))
(goto-char (point-min))
(let ((case-fold-search t))
(if (re-search-forward "version:\\s-*\\([^ \t\n]+\\)" nil t)
......
......@@ -710,8 +710,7 @@ Optional argument CTXT is the context to show."
(defmethod semantic-analyze-pulse ((context semantic-analyze-context))
"Pulse the region that CONTEXT affects."
(require 'pulse)
(save-excursion
(set-buffer (oref context :buffer))
(with-current-buffer (oref context :buffer)
(let ((bounds (oref context :bounds)))
(when bounds
(pulse-momentary-highlight-region (car bounds) (cdr bounds))))))
......
......@@ -104,8 +104,7 @@ Argument COMP are possible completions here."
;; NOTE: This line is copied from semantic-analyze-current-context.
;; You will need to update both places.
(condition-case err
(save-excursion
(set-buffer origbuf)
(with-current-buffer origbuf
(let* ((position (or (cdr-safe (oref ctxt bounds)) (point)))
(prefixtypes nil) ; Used as type return
(scope (semantic-calculate-scope position))
......@@ -246,13 +245,11 @@ with the command:
(princ "\nSemantic has found the datatype ")
(semantic-analyzer-debug-insert-tag dt)
(if (or (not (semantic-equivalent-tag-p ots dt))
(not (save-excursion
(set-buffer orig-buffer)
(not (with-current-buffer orig-buffer
(car (semantic-analyze-dereference-metatype
ots (oref ctxt scope))))))
(let ((lasttype ots)
(nexttype (save-excursion
(set-buffer orig-buffer)
(nexttype (with-current-buffer orig-buffer
(car (semantic-analyze-dereference-metatype
ots (oref ctxt scope))))))
(if (eq nexttype lasttype)
......@@ -274,8 +271,7 @@ with the command:
(princ "\n")
(setq lasttype nexttype
nexttype
(save-excursion
(set-buffer orig-buffer)
(with-current-buffer orig-buffer
(car (semantic-analyze-dereference-metatype
nexttype (oref ctxt scope)))))
)
......@@ -391,21 +387,17 @@ or implementing a version specific to ")
(let ((inc (semantic-find-tags-by-class 'include table))
;;(path (semanticdb-find-test-translate-path-no-loading))
(unk
(save-excursion
(set-buffer (semanticdb-get-buffer table))
(with-current-buffer (semanticdb-get-buffer table)
semanticdb-find-lost-includes))
(ip
(save-excursion
(set-buffer (semanticdb-get-buffer table))
(with-current-buffer (semanticdb-get-buffer table)
semantic-dependency-system-include-path))
(edeobj
(save-excursion
(set-buffer (semanticdb-get-buffer table))
(with-current-buffer (semanticdb-get-buffer table)
(and (boundp 'ede-object)
ede-object)))
(edeproj
(save-excursion
(set-buffer (semanticdb-get-buffer table))
(with-current-buffer (semanticdb-get-buffer table)
(and (boundp 'ede-object-project)
ede-object-project))))
......@@ -589,9 +581,8 @@ PARENT is a possible parent (by nesting) tag."
Look for key expressions, and add push-buttons near them."
(let ((orig-buffer (make-marker)))
(set-marker orig-buffer (point) (current-buffer))
(save-excursion
;; Get a buffer ready.
(set-buffer "*Help*")
;; Get a buffer ready.
(with-current-buffer "*Help*"
(toggle-read-only -1)
(goto-char (point-min))
(set (make-local-variable 'semantic-analyzer-debug-orig) orig-buffer)
......
......@@ -703,8 +703,7 @@ the regular parser."
(symtext (semantic-lex-token-text lexicaltoken))
(macros (get-text-property 0 'macros symtext))
)
(save-excursion
(set-buffer buf)
(with-current-buffer buf
(erase-buffer)
(when (not (eq major-mode mode))
(save-match-data
......
......@@ -40,8 +40,7 @@ to give to the program."
;;
(let ((buff (get-buffer-create " *gcc-query*"))
(old-lc-messages (getenv "LC_ALL")))
(save-excursion
(set-buffer buff)
(with-current-buffer buff
(erase-buffer)
(setenv "LC_ALL" "C")
(condition-case nil
......
......@@ -947,8 +947,7 @@ Calculate the cache if there isn't one."
"Calculate the completions for prefix from completionlist.
Output must be in semanticdb Find result format."
;; Must output in semanticdb format
(let ((table (save-excursion
(set-buffer (oref obj buffer))
(let ((table (with-current-buffer (oref obj buffer)
semanticdb-current-table))
(result (semantic-find-tags-for-completion
prefix
......@@ -1227,8 +1226,7 @@ inserted into the current context.")
(semantic-analyze-possible-completions (oref obj context))))
;; search our cached completion list. make it look like a semanticdb
;; results type.
(list (cons (save-excursion
(set-buffer (oref (oref obj context) buffer))
(list (cons (with-current-buffer (oref (oref obj context) buffer)
semanticdb-current-table)
(semantic-find-tags-for-completion
prefix
......@@ -1463,8 +1461,7 @@ one in the source buffer."
(and table (semanticdb-get-buffer table)))))
;; If no buffer is provided, then we can make up a summary buffer.
(when (not buf)
(save-excursion
(set-buffer (get-buffer-create "*Completion Focus*"))
(with-current-buffer (get-buffer-create "*Completion Focus*")
(erase-buffer)
(insert "Focus on tag: \n")
(insert (semantic-format-tag-summarize tag nil t) "\n\n")
......@@ -1893,8 +1890,7 @@ prompts. these are calculated from the CONTEXT variable passed in."
:buffer (oref context buffer)
:context context)
(semantic-displayor-traditional-with-focus-highlight "simple")
(save-excursion
(set-buffer (oref context buffer))
(with-current-buffer (oref context buffer)
(goto-char (cdr (oref context bounds)))
(concat prompt (mapconcat 'identity syms ".")
(if syms "." "")
......
......@@ -88,8 +88,7 @@
(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)))))
......
......@@ -118,8 +118,7 @@ EBROWSE is a C/C++ parser for use with `ebrowse' Emacs program.")
(and (string-match "/\\w+$" file)
(not (file-directory-p file))
(let ((tmp (get-buffer-create "*semanticdb-ebrowse-tmp*")))
(save-excursion
(set-buffer tmp)
(with-current-buffer tmp
(condition-case nil
(insert-file-contents file nil 0 100 t)
(error (insert-file-contents file nil nil nil t)))
......@@ -141,8 +140,7 @@ is specified by `semanticdb-default-save-directory'."
(regexp nil)
)
;; Create the input to the ebrowse command
(save-excursion
(set-buffer filebuff)
(with-current-buffer filebuff
(buffer-disable-undo filebuff)
(setq default-directory (expand-file-name dir))
......@@ -156,8 +154,7 @@ is specified by `semanticdb-default-save-directory'."
(insert "\n")))
files)
;; Cleanup the ebrowse output buffer.
(save-excursion
(set-buffer (get-buffer-create "*EBROWSE OUTPUT*"))
(with-current-buffer (get-buffer-create "*EBROWSE OUTPUT*")
(erase-buffer))
;; Call the EBROWSE command.
(message "Creating ebrowse file: %s ..." savein)
......@@ -169,8 +166,7 @@ is specified by `semanticdb-default-save-directory'."
;; Create a short LOADER program for loading in this database.
(let* ((lfn (concat savein "-load.el"))
(lf (find-file-noselect lfn)))
(save-excursion
(set-buffer lf)
(with-current-buffer lf
(erase-buffer)
(insert "(semanticdb-ebrowse-load-helper \""
(expand-file-name dir)
......
......@@ -109,8 +109,7 @@ For Emacs Lisp, creates a specialized table."
"Return non-nil if TABLE's mode is equivalent to BUFFER.
Equivalent modes are specified by by `semantic-equivalent-major-modes'
local variable."
(save-excursion
(set-buffer buffer)
(with-current-buffer buffer
(eq (or mode-local-active-mode major-mode) 'emacs-lisp-mode)))
(defmethod semanticdb-full-filename ((obj semanticdb-table-emacs-lisp))
......
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