Mercurial > emacs
changeset 84774:3c064398f718
(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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 22 Sep 2007 01:50:54 +0000 |
| parents | d8b9b78eb16c |
| children | 8589ca45e3b9 |
| files | lisp/ChangeLog lisp/speedbar.el |
| diffstat | 2 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 22 00:57:00 2007 +0000 +++ b/lisp/ChangeLog Sat Sep 22 01:50:54 2007 +0000 @@ -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.
--- a/lisp/speedbar.el Sat Sep 22 00:57:00 2007 +0000 +++ b/lisp/speedbar.el Sat Sep 22 01:50:54 2007 +0000 @@ -994,7 +994,7 @@ '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 @@ (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 @@ (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 @@ 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 @@ (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 @@ (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)))