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

[gnu-emacs] / lisp / cedet / semantic / db-ebrowse.el

diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el
index 9b915935c66449a62048082c7ca9f54b576b16de..d8f14a765c3e091449720cac4a7b6a804504ffb7 100644 (file)
--- a/lisp/cedet/semantic/db-ebrowse.el
+++ b/lisp/cedet/semantic/db-ebrowse.el
@@ -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)