Function: semantic-debug-interface-layout

semantic-debug-interface-layout is a byte-compiled function defined in debug.el.gz.

Signature

(semantic-debug-interface-layout ARG &rest ARGS)

Implementations

(semantic-debug-interface-layout (IFACE semantic-debug-interface)) in `semantic/debug.el'.

Layout windows in the current frame to facilitate debugging.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/debug.el.gz
(cl-defmethod semantic-debug-interface-layout ((iface semantic-debug-interface))
  "Layout windows in the current frame to facilitate debugging."
  (delete-other-windows)
  ;; Deal with the data buffer
  (when (slot-boundp iface 'data-buffer)
    (let ((lines (/ (frame-height (selected-frame)) 3))
	  (cnt (with-current-buffer (oref iface data-buffer)
		 (count-lines (point-min) (point-max))))
	  )
      ;; Set the number of lines to 1/3, or the size of the data buffer.
      (if (< cnt lines) (setq cnt lines))

      (split-window-vertically cnt)
      (switch-to-buffer (oref iface data-buffer))
      )
    (other-window 1))
  ;; Parser
  (switch-to-buffer (oref iface parser-buffer))
  (when (slot-boundp iface 'parser-location)
    (goto-char (oref iface parser-location)))
  (split-window-vertically)
  (other-window 1)
  ;; Source
  (switch-to-buffer (oref iface source-buffer))
  (when (slot-boundp iface 'source-location)
    (goto-char (oref iface source-location)))
  )