Function: longlines-merge-lines-p

longlines-merge-lines-p is a byte-compiled function defined in longlines.el.gz.

Signature

(longlines-merge-lines-p)

Documentation

Return t if part of the next line can fit onto the current line.

Otherwise, return nil. Text cannot be moved across hard newlines.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/longlines.el.gz
(defun longlines-merge-lines-p ()
  "Return t if part of the next line can fit onto the current line.
Otherwise, return nil.  Text cannot be moved across hard newlines."
  (save-excursion
    (end-of-line)
    (and (null (eobp))
         (null (get-text-property (point) 'hard))
         (let ((space (- fill-column (current-column))))
           (forward-line 1)
           (if (eq (char-after) ? )
               t ; We can always merge some spaces
             (<= (if (search-forward " " (line-end-position) 1)
                     (current-column)
                   (1+ (current-column)))
                 space))))))