comparison lisp/register.el @ 48715:1e0c7ad65f05

(describe-register-1): Use window-width to truncate string in a register. Check whether the string in a register is an empty string or a sequence of white spaces.

48714:59758725d2cf

                                      yank-excluded-properties val)
      (if verbose
	  (progn
	    (princ "the text:\n")
	    (princ val))
	(princ "text starting with\n    ")
	(string-match "[^ \t\n].\\{,20\\}" val)
	(princ (match-string 0 val))))
     (t
      (princ "Garbage:\n")
      (if verbose (prin1 val))))))

(defun insert-register (register &optional arg)

48715:1e0c7ad65f05

                                      yank-excluded-properties val)
      (if verbose
	  (progn
	    (princ "the text:\n")
	    (princ val))
	(cond 
	 ;; Extract first N characters starting with first non-whitespace.
	 ((string-match (format "[^ \t\n].\\{,%d\\}"
				;; Deduct 6 for the spaces inserted below.
				(min 20 (max 0 (- (window-width) 6))))
			val)
	  (princ "text starting with\n    ")
	  (princ (match-string 0 val)))
	 ((string-match "^[ \t\n]+$" val)
	  (princ "whitespace"))
	 (t
	  (princ "the empty string")))))
     (t
      (princ "Garbage:\n")
      (if verbose (prin1 val))))))

(defun insert-register (register &optional arg)