diff options
| author | Glenn Morris | 2013-05-21 20:13:56 -0700 |
|---|---|---|
| committer | Glenn Morris | 2013-05-21 20:13:56 -0700 |
| commit | 0cdffd7dd407452c8d60931736a5be52cf9ed7b6 (patch) | |
| tree | 0ce2f01293b833e673dc341aa7396d2e78eb0d0e /lisp/cedet | |
| parent | ab56a6f42c21c8c074b5e50a928955a8d69768f7 (diff) | |
| download | emacs-0cdffd7dd407452c8d60931736a5be52cf9ed7b6.tar.gz emacs-0cdffd7dd407452c8d60931736a5be52cf9ed7b6.zip | |
Small speedbar-related clean-up
* lisp/dframe.el (x-sensitive-text-pointer-shape, x-pointer-shape):
Remove unnecessary declarations.
(dframe-message): Doc fix.
* lisp/info.el (dframe-select-attached-frame, dframe-current-frame):
Declare.
* lisp/speedbar.el (speedbar-message): Make it an obsolete alias.
Update all callers.
(speedbar-with-attached-buffer)
(speedbar-maybee-jump-to-attached-frame): Make these aliases obsolete.
(speedbar-with-writable): Use backquote.
* lisp/emacs-lisp/eieio-opt.el (eieio-describe-class-sb):
* lisp/emacs-lisp/eieio-speedbar.el (eieio-speedbar-handle-click):
Use dframe-with-attached-buffer, dframe-maybee-jump-to-attached-frame
rather than speedbar- aliases.
* lisp/mail/rmail.el: Load dframe rather than speedbar when compiling.
(speedbar-make-specialized-keymap, speedbar-insert-button)
(dframe-select-attached-frame, dframe-maybee-jump-to-attached-frame)
(speedbar-do-function-pointer): Declare.
(rmail-speedbar-button, rmail-speedbar-find-file)
(rmail-speedbar-move-message):
Use dframe-with-attached-buffer rather than speedbar- alias.
* lisp/progmodes/gud.el: Load dframe rather than speedbar when compiling.
(dframe-message, speedbar-make-specialized-keymap)
(speedbar-add-expansion-list, speedbar-mode-functions-list)
(speedbar-make-tag-line, speedbar-remove-localized-speedbar-support)
(speedbar-insert-button, dframe-select-attached-frame)
(dframe-maybee-jump-to-attached-frame)
(speedbar-change-initial-expansion-list)
(speedbar-previously-used-expansion-list-name): Declare.
(gud-speedbar-item-info, gud-gdb-goto-stackframe):
Use dframe-message, dframe-with-attached-buffer rather than
speedbar- aliases.
(gud-sentinel): Silence compiler.
* lisp/progmodes/vhdl-mode.el (speedbar-refresh)
(speedbar-do-function-pointer, speedbar-add-supported-extension)
(speedbar-add-mode-functions-list, speedbar-make-specialized-keymap)
(speedbar-change-initial-expansion-list, speedbar-add-expansion-list)
(speedbar-extension-list-to-regex, speedbar-directory-buttons)
(speedbar-file-lists, speedbar-make-tag-line)
(speedbar-line-directory, speedbar-goto-this-file)
(speedbar-center-buffer-smartly, speedbar-change-expand-button-char)
(speedbar-delete-subblock, speedbar-position-cursor-on-line)
(speedbar-make-button, speedbar-reset-scanners)
(speedbar-files-item-info, speedbar-line-text)
(speedbar-find-file-in-frame, speedbar-set-timer)
(dframe-maybee-jump-to-attached-frame, speedbar-line-file): Declare.
(speedbar-with-writable): Do not (re)define it.
(vhdl-speedbar-find-file): Use dframe-maybee-jump-to-attached-frame
rather than speedbar- alias.
* lisp/cedet/ede/speedbar.el (ede-file-find, ede-tag-find):
* lisp/cedet/semantic/sb.el (semantic-sb-token-jump):
Use dframe-maybee-jump-to-attached-frame rather than speedbar- alias.
* lisp/mh-e/mh-speed.el (mh-speed-view):
Use dframe-with-attached-buffer rather than speedbar- alias.
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/cedet/ede/speedbar.el | 4 | ||||
| -rw-r--r-- | lisp/cedet/semantic/sb.el | 2 |
3 files changed, 9 insertions, 3 deletions
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 0474559fe9e..486f1abfeda 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2013-05-22 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * ede/speedbar.el (ede-file-find, ede-tag-find): | ||
| 4 | * semantic/sb.el (semantic-sb-token-jump): | ||
| 5 | Use dframe-maybee-jump-to-attached-frame rather than speedbar- alias. | ||
| 6 | |||
| 1 | 2013-05-15 Glenn Morris <rgm@gnu.org> | 7 | 2013-05-15 Glenn Morris <rgm@gnu.org> |
| 2 | 8 | ||
| 3 | * semantic/symref/list.el (semantic-symref-auto-expand-results) | 9 | * semantic/symref/list.el (semantic-symref-auto-expand-results) |
diff --git a/lisp/cedet/ede/speedbar.el b/lisp/cedet/ede/speedbar.el index d963a56697a..0f3c96b1a7d 100644 --- a/lisp/cedet/ede/speedbar.el +++ b/lisp/cedet/ede/speedbar.el | |||
| @@ -257,7 +257,7 @@ It has depth DEPTH." | |||
| 257 | INDENT is the current indentation level." | 257 | INDENT is the current indentation level." |
| 258 | (speedbar-find-file-in-frame | 258 | (speedbar-find-file-in-frame |
| 259 | (expand-file-name token (speedbar-line-directory indent))) | 259 | (expand-file-name token (speedbar-line-directory indent))) |
| 260 | (speedbar-maybee-jump-to-attached-frame)) | 260 | (dframe-maybee-jump-to-attached-frame)) |
| 261 | 261 | ||
| 262 | (defun ede-create-tag-buttons (filename indent) | 262 | (defun ede-create-tag-buttons (filename indent) |
| 263 | "Create the tag buttons associated with FILENAME at INDENT." | 263 | "Create the tag buttons associated with FILENAME at INDENT." |
| @@ -304,7 +304,7 @@ INDENT is the current indentation level." | |||
| 304 | (goto-char token) | 304 | (goto-char token) |
| 305 | (run-hooks 'speedbar-visiting-tag-hook) | 305 | (run-hooks 'speedbar-visiting-tag-hook) |
| 306 | ;;(recenter) | 306 | ;;(recenter) |
| 307 | (speedbar-maybee-jump-to-attached-frame) | 307 | (dframe-maybee-jump-to-attached-frame) |
| 308 | )) | 308 | )) |
| 309 | 309 | ||
| 310 | ;;; EDE and the speedbar FILE display | 310 | ;;; EDE and the speedbar FILE display |
diff --git a/lisp/cedet/semantic/sb.el b/lisp/cedet/semantic/sb.el index f56c2b388d6..accee18f257 100644 --- a/lisp/cedet/semantic/sb.el +++ b/lisp/cedet/semantic/sb.el | |||
| @@ -323,7 +323,7 @@ TEXT TOKEN and INDENT are the details." | |||
| 323 | ;; that other timer. | 323 | ;; that other timer. |
| 324 | ;; (speedbar-set-timer dframe-update-speed) | 324 | ;; (speedbar-set-timer dframe-update-speed) |
| 325 | ;;(recenter) | 325 | ;;(recenter) |
| 326 | (speedbar-maybee-jump-to-attached-frame) | 326 | (dframe-maybee-jump-to-attached-frame) |
| 327 | (run-hooks 'speedbar-visiting-tag-hook))) | 327 | (run-hooks 'speedbar-visiting-tag-hook))) |
| 328 | 328 | ||
| 329 | (defun semantic-sb-expand-group (text token indent) | 329 | (defun semantic-sb-expand-group (text token indent) |