Update copyright year to 2015

[gnu-emacs] / lisp / cedet / semantic / ia-sb.el

diff --git a/lisp/cedet/semantic/ia-sb.el b/lisp/cedet/semantic/ia-sb.el
index d9f223a90d1024b536b22456ee4d05345e2bdd4c..410d63acab41383a99554835303c0c354895ddc1 100644 (file)
--- a/lisp/cedet/semantic/ia-sb.el
+++ b/lisp/cedet/semantic/ia-sb.el
@@ -1,7 +1,7 @@
 ;;; semantic/ia-sb.el --- Speedbar analysis display interactor
 
-;;; Copyright (C) 2002, 2003, 2004, 2006, 2008, 2009
-;;; Free Software Foundation, Inc.
+;;; Copyright (C) 2002-2004, 2006, 2008-2015 Free Software Foundation,
+;;; Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: syntax
@@ -37,7 +37,7 @@
     nil
   (setq semantic-ia-sb-key-map (speedbar-make-specialized-keymap))
 
-  ;; Basic featuers.
+  ;; Basic features.
   (define-key semantic-ia-sb-key-map "\C-m" 'speedbar-edit-line)
   (define-key semantic-ia-sb-key-map "I" 'semantic-ia-sb-show-tag-info)
   )
@@ -104,8 +104,7 @@ DIRECTORY is the current directory, which is ignored, and ZERO is 0."
            ))
       (error nil))
     (select-frame cf)
-    (save-excursion
-      (set-buffer speedbar-buffer)
+    (with-current-buffer speedbar-buffer
       ;; If we have something, do something spiff with it.
       (erase-buffer)
       (speedbar-insert-separator "Buffer/Function")
@@ -140,7 +139,7 @@ DIRECTORY is the current directory, which is ignored, and ZERO is 0."
       )))
 
 (defmethod semantic-ia-sb-show-doc ((context semantic-analyze-context))
-  "Show documentation about CONTEXT iff CONTEXT points at a complete symbol."
+  "Show documentation about CONTEXT if CONTEXT points at a complete symbol."
   (let ((sym (car (reverse (oref context prefix))))
        (doc nil))
     (when (semantic-tag-p sym)
@@ -288,16 +287,14 @@ TEXT, TAG, and INDENT are speedbar function arguments."
          (setq ob (current-buffer))
          (with-output-to-temp-buffer "*Tag Information*"
            ;; Output something about this tag:
-           (save-excursion
-             (set-buffer "*Tag Information*")
+           (with-current-buffer "*Tag Information*"
              (goto-char (point-max))
              (insert
               (semantic-format-tag-prototype tag nil t)
               "\n")
              (let ((typetok
                     (condition-case nil
-                        (save-excursion
-                          (set-buffer ob)
+                        (with-current-buffer ob
                           ;; @todo - We need a context to derive a scope from.
                           (semantic-analyze-tag-type tag nil))
                       (error nil))))
@@ -352,7 +349,7 @@ TEXT TAG and INDENT are the details."
          (insert (semantic-tag-name tag))
          (if movepoint (setq movepoint (point)))
          ;; I'd like to use this to add fancy () or what not at the end
-         ;; but we need the parent file whih requires an upgrade to the
+         ;; but we need the parent file which requires an upgrade to the
          ;; analysis tool.
          ;;(semantic-insert-foreign-tag tag ??))
          )
@@ -367,7 +364,6 @@ TEXT TAG and INDENT are the details."
 
 ;; Local variables:
 ;; generated-autoload-file: "loaddefs.el"
-;; generated-autoload-feature: semantic/loaddefs
 ;; generated-autoload-load-name: "semantic/ia-sb"
 ;; End: