HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
lisp/gnus/auth-source.el (auth-sources): Add pointer to what the .gpg extension in...
[bpt/emacs.git]
/
lisp
/
sb-image.el
diff --git
a/lisp/sb-image.el
b/lisp/sb-image.el
index
5a2b42f
..
1a2be9d
100644
(file)
--- a/
lisp/sb-image.el
+++ b/
lisp/sb-image.el
@@
-1,7
+1,6
@@
;;; sb-image --- Image management for speedbar
;;; sb-image --- Image management for speedbar
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2005,
-;; 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2003, 2005-2014 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: file, tags, tools
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: file, tags, tools
@@
-37,7
+36,7
@@
;;; Code:
(defcustom speedbar-use-images ezimage-use-images
;;; Code:
(defcustom speedbar-use-images ezimage-use-images
- "
*
Non-nil if speedbar should display icons."
+ "Non-nil if speedbar should display icons."
:group 'speedbar
:version "21.1"
:type 'boolean)
:group 'speedbar
:version "21.1"
:type 'boolean)
@@
-85,8
+84,7
@@
If we have an image associated with it, use that image."
See `speedbar-expand-image-button-alist' for details."
(interactive)
(with-output-to-temp-buffer "*Speedbar Images*"
See `speedbar-expand-image-button-alist' for details."
(interactive)
(with-output-to-temp-buffer "*Speedbar Images*"
- (save-excursion
- (set-buffer "*Speedbar Images*")
+ (with-current-buffer "*Speedbar Images*"
(goto-char (point-max))
(insert "Speedbar image cache.\n\n")
(let ((start (point)) (end nil))
(goto-char (point-max))
(insert "Speedbar image cache.\n\n")
(let ((start (point)) (end nil))
@@
-106,5
+104,4
@@
See `speedbar-expand-image-button-alist' for details."
(provide 'sb-image)
(provide 'sb-image)
-;; arch-tag: 6b05accd-e8b8-4290-8379-f063f3dacabb
;;; sb-image.el ends here
;;; sb-image.el ends here