Skip to content
This repository
Browse code

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

  • Loading branch information...
commit f60f75aaab346f99d9ea04f258ec71cdb3fb5076 1 parent 11071f9
berndl authored

Showing 3 changed files with 11 additions and 14 deletions. Show diff stats Hide diff stats

  1. +3 0  NEWS
  2. +5 10 ecb-create-layout.el
  3. +3 4 ecb-mode-line.el
3  NEWS
@@ -309,6 +309,9 @@
309 309 in the methods buffer. This was when the buffer was reparsed with
310 310 `semantic-idle-scheduler-mode' or after saving the buffer.
311 311
  312 +*** Fixed a bug in `ecb-create-new-layout' which has displayed wrong modelines
  313 + in the layout-creation frame.
  314 +
312 315 *** Fixed a bug in `ecb-submit-problem-report' which prevented it from working
313 316
314 317
15 ecb-create-layout.el
@@ -460,8 +460,6 @@ DELETE-FRAME is not nil then the new created frame will be deleted and the
460 460 "Insert the buffer type"))))
461 461 ;; removing the new buffer type from the available-list
462 462 (ecb-create-layout-remove-from-buf-type new-type)
463   - ;; TODO: Klaus Berndl <klaus.berndl@sdm.de>: Fix this - it seems not
464   - ;; work anymore!!!
465 463 (ecb-mode-line-set (buffer-name (current-buffer))
466 464 (selected-frame)
467 465 (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
509 507 (ecb-create-layout-split-hor fraction)
510 508 (ecb-create-layout-split-ver fraction))))
511 509 ;; creating new fitting buffers
512   - (save-selected-window
513   - (ecb-create-layout-new-buffer)
514   - (select-window (next-window))
515   - (ecb-create-layout-new-buffer))
  510 + (ecb-create-layout-new-buffer)
  511 + (save-excursion
  512 + (save-selected-window
  513 + (select-window (next-window))
  514 + (ecb-create-layout-new-buffer)))
516 515 ;; asking for the buffer type
517 516 (ecb-create-layout-set-buffer-factor real-split-factor)
518 517 (ecb-create-layout-gen-lisp-for-buffer-type
@@ -670,8 +669,6 @@ never selects the edit-window."
670 669 (setq mode-name "ECB Create-Layout")
671 670 (use-local-map ecb-create-layout-mode-map)
672 671 (make-local-variable 'buffer-read-only)
673   - ;; TODO: Klaus Berndl <klaus.berndl@sdm.de>: Scheint nicht mehr zu
674   - ;; funktionieren.
675 672 (ecb-mode-line-set (buffer-name (current-buffer))
676 673 (selected-frame) "" nil t)
677 674 (setq buffer-read-only t))
@@ -701,8 +698,6 @@ never selects the edit-window."
701 698 ecb-create-layout-help-text-top
702 699 ecb-create-layout-help-text-left-right)))
703 700 (setq ecb-create-layout-edit-window (selected-window))
704   - ;; TODO: Klaus Berndl <klaus.berndl@sdm.de>: Scheint nicht mehr zu
705   - ;; funktionieren.
706 701 (ecb-mode-line-set (buffer-name (current-buffer))
707 702 (selected-frame) " ECB edit-window" nil t)
708 703 ;; The edit window must not be dedicated
7 ecb-mode-line.el
@@ -294,9 +294,9 @@ as \"W-<number>\"."
294 294 (concat " " prefix (if (stringp text) ": " ""))
295 295 (if (stringp text) " " "")))
296 296 (win-width (window-width (get-buffer-window buffer-name)))
297   - (avaiable-text-width nil))
  297 + (available-text-width nil))
298 298 (setq shown-prefix (ecb-fit-str-to-width shown-prefix (1- win-width) 'right))
299   - (setq avaiable-text-width (- win-width
  299 + (setq available-text-width (- win-width
300 300 (+ (length shown-prefix)
301 301 (if (and (not ecb-running-xemacs)
302 302 ecb-mode-line-display-window-number
@@ -318,12 +318,11 @@ as \"W-<number>\"."
318 318 (ecb-mode-line-make-modeline-str
319 319 (concat (if (stringp text)
320 320 (ecb-fit-str-to-width text
321   - avaiable-text-width
  321 + available-text-width
322 322 'left)))
323 323 ecb-mode-line-data-face))))))
324 324
325 325
326   -
327 326 (defun ecb-mode-line-update-buffer (buffer-name new-mode-line-format)
328 327 "Update the given buffer...."
329 328 (if (get-buffer buffer-name)

0 comments on commit f60f75a

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