Function: speedbar-delete-subblock

speedbar-delete-subblock is a byte-compiled function defined in speedbar.el.gz.

Signature

(speedbar-delete-subblock INDENT)

Documentation

Delete text from point to indentation level INDENT or greater.

Handles end-of-sublist smartly.

Source Code

;; Defined in /usr/src/emacs/lisp/speedbar.el.gz
(defun speedbar-delete-subblock (indent)
  "Delete text from point to indentation level INDENT or greater.
Handles end-of-sublist smartly."
  (speedbar-with-writable
    (save-excursion
      (end-of-line) (forward-char 1)
      (let ((start (point)))
	(while (and (looking-at "^\\([0-9]+\\):")
		    (> (string-to-number (match-string 1)) indent)
		    (not (eobp)))
	  (forward-line 1)
	  (beginning-of-line))
	(delete-region start (point))))))