Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixed a bug in the modeline-display of the layout-creation frame

  • Loading branch information...
commit f60f75aaab346f99d9ea04f258ec71cdb3fb5076 1 parent 11071f9
berndl authored
Showing with 11 additions and 14 deletions.
  1. +3 −0  NEWS
  2. +5 −10 ecb-create-layout.el
  3. +3 −4 ecb-mode-line.el
View
3  NEWS
@@ -309,6 +309,9 @@
in the methods buffer. This was when the buffer was reparsed with
`semantic-idle-scheduler-mode' or after saving the buffer.
+*** Fixed a bug in `ecb-create-new-layout' which has displayed wrong modelines
+ in the layout-creation frame.
+
*** Fixed a bug in `ecb-submit-problem-report' which prevented it from working
View
15 ecb-create-layout.el
@@ -460,8 +460,6 @@ DELETE-FRAME is not nil then the new created frame will be deleted and the
"Insert the buffer type"))))
;; removing the new buffer type from the available-list
(ecb-create-layout-remove-from-buf-type new-type)
- ;; TODO: Klaus Berndl <klaus.berndl@sdm.de>: Fix this - it seems not
- ;; work anymore!!!
(ecb-mode-line-set (buffer-name (current-buffer))
(selected-frame)
(concat "ECB " new-type) nil t)
@@ -509,10 +507,11 @@ DELETE-FRAME is not nil then the new created frame will be deleted and the
(ecb-create-layout-split-hor fraction)
(ecb-create-layout-split-ver fraction))))
;; creating new fitting buffers
- (save-selected-window
- (ecb-create-layout-new-buffer)
- (select-window (next-window))
- (ecb-create-layout-new-buffer))
+ (ecb-create-layout-new-buffer)
+ (save-excursion
+ (save-selected-window
+ (select-window (next-window))
+ (ecb-create-layout-new-buffer)))
;; asking for the buffer type
(ecb-create-layout-set-buffer-factor real-split-factor)
(ecb-create-layout-gen-lisp-for-buffer-type
@@ -670,8 +669,6 @@ never selects the edit-window."
(setq mode-name "ECB Create-Layout")
(use-local-map ecb-create-layout-mode-map)
(make-local-variable 'buffer-read-only)
- ;; TODO: Klaus Berndl <klaus.berndl@sdm.de>: Scheint nicht mehr zu
- ;; funktionieren.
(ecb-mode-line-set (buffer-name (current-buffer))
(selected-frame) "" nil t)
(setq buffer-read-only t))
@@ -701,8 +698,6 @@ never selects the edit-window."
ecb-create-layout-help-text-top
ecb-create-layout-help-text-left-right)))
(setq ecb-create-layout-edit-window (selected-window))
- ;; TODO: Klaus Berndl <klaus.berndl@sdm.de>: Scheint nicht mehr zu
- ;; funktionieren.
(ecb-mode-line-set (buffer-name (current-buffer))
(selected-frame) " ECB edit-window" nil t)
;; The edit window must not be dedicated
View
7 ecb-mode-line.el
@@ -294,9 +294,9 @@ as \"W-<number>\"."
(concat " " prefix (if (stringp text) ": " ""))
(if (stringp text) " " "")))
(win-width (window-width (get-buffer-window buffer-name)))
- (avaiable-text-width nil))
+ (available-text-width nil))
(setq shown-prefix (ecb-fit-str-to-width shown-prefix (1- win-width) 'right))
- (setq avaiable-text-width (- win-width
+ (setq available-text-width (- win-width
(+ (length shown-prefix)
(if (and (not ecb-running-xemacs)
ecb-mode-line-display-window-number
@@ -318,12 +318,11 @@ as \"W-<number>\"."
(ecb-mode-line-make-modeline-str
(concat (if (stringp text)
(ecb-fit-str-to-width text
- avaiable-text-width
+ available-text-width
'left)))
ecb-mode-line-data-face))))))
-
(defun ecb-mode-line-update-buffer (buffer-name new-mode-line-format)
"Update the given buffer...."
(if (get-buffer buffer-name)

0 comments on commit f60f75a

Please sign in to comment.
Something went wrong with that request. Please try again.