← All posts tagged memo

Kim

Взять X параграфов текста, размер которых ещё влезает в четыре килобайта. 

(defun byte-count-in-region (start end)
  (string-to-number
   (with-output-to-string (call-process-region start end
					       "wc" nil standard-output nil
					       "-c"))))
(defun select-juickable-paragraph-set ()
  (interactive)
  (let ((start (point))
	(block-length 4096))
    (while (and (< (byte-count-in-region start (point)) block-length)
		(< (point) (point-max)))
      (forward-paragraph))
    (if (> (byte-count-in-region start (point)) block-length) 
	(backward-paragraph))
    (if (<= (point) start)
	(goto-char start))
    (set-mark start)
    (message "Current region size is small enough for juick")))

Как можно сделать это короче в два раза? И почему в емаксе до сих пор нет какого-нибудь forward-byte?