mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(speedbar-frame-mode)

Browse source 
(speedbar-frame-reposition-smartly)
(speedbar-set-mode-line-format, speedbar-reconfigure-keymaps)
(speedbar-check-vc): Remove use of non-existent variable
dframe-xemacsp, use (featurep 'xemacs) instead.
This commit is contained in:
Dan Nicolaescu 2007-09-22 01:50:54 +00:00
parent 6dd697d9a5
commit 3e51f30867
2 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,5 +1,11 @@
2007-09-22 Dan Nicolaescu <dann@ics.uci.edu>
* speedbar.el (speedbar-frame-mode)
(speedbar-frame-reposition-smartly)
(speedbar-set-mode-line-format, speedbar-reconfigure-keymaps)
(speedbar-check-vc): Remove use of non-existent variable
dframe-xemacsp, use (featurep 'xemacs) instead.
* indent.el (indent-for-tab-command): Indent the region if
transient-mark-mode and the region is active.

12
lisp/speedbar.el
View file

@ -994,7 +994,7 @@ supported at a time.
'speedbar-buffer
"Speedbar"
#'speedbar-frame-mode
(if dframe-xemacsp
(if (featurep 'xemacs)
(append speedbar-frame-plist
;; This is a hack to get speedbar to iconfiy
;; with the selected frame.
@ -1020,7 +1020,7 @@ supported at a time.
(defun speedbar-frame-reposition-smartly ()
"Reposition the speedbar frame to be next to the attached frame."
(cond ((and dframe-xemacsp
(cond ((and (featurep 'xemacs)
(or (member 'left speedbar-frame-plist)
(member 'top speedbar-frame-plist)))
(dframe-reposition-frame
@ -1029,7 +1029,7 @@ supported at a time.
(cons (car (cdr (member 'left speedbar-frame-plist)))
(car (cdr (member 'top speedbar-frame-plist)))))
)
((and (not dframe-xemacsp)
((and (not (featurep 'xemacs))
(or (assoc 'left speedbar-frame-parameters)
(assoc 'top speedbar-frame-parameters)))
;; if left/top were specified in the parameters, pass them
@ -1164,7 +1164,7 @@ return true without a query."
This gives visual indications of what is up. It EXPECTS the speedbar
frame and window to be the currently active frame and window."
(if (and (frame-live-p (speedbar-current-frame))
(or (not dframe-xemacsp)
(or (not (featurep 'xemacs))
(with-no-warnings
(specifier-instance has-modeline-p)))
speedbar-buffer)
@ -1252,7 +1252,7 @@ and the existence of packages."
(if speedbar-previous-menu (easy-menu-remove speedbar-previous-menu))
(setq speedbar-previous-menu md)
;; Now add the new menu
(if (not dframe-xemacsp)
(if (not (featurep 'xemacs))
(easy-menu-define speedbar-menu-map (current-local-map)
"Speedbar menu" md)
(easy-menu-add md (current-local-map))
@ -2915,7 +2915,7 @@ to add more types of version control systems."
(not (or (and (featurep 'ange-ftp)
(string-match
(car (symbol-value
(if dframe-xemacsp
(if (featurep 'xemacs)
'ange-ftp-directory-format
'ange-ftp-name-format)))
(expand-file-name default-directory)))