Mercurial > emacs
comparison lisp/register.el @ 49597:e88404e8f2cf
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 12:29:42 +0000 |
| parents | 1e0c7ad65f05 |
| children | afc4352d55f3 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49596:b06535145619 | 49597:e88404e8f2cf |
|---|---|
| 231 yank-excluded-properties val) | 231 yank-excluded-properties val) |
| 232 (if verbose | 232 (if verbose |
| 233 (progn | 233 (progn |
| 234 (princ "the text:\n") | 234 (princ "the text:\n") |
| 235 (princ val)) | 235 (princ val)) |
| 236 (cond | 236 (cond |
| 237 ;; Extract first N characters starting with first non-whitespace. | 237 ;; Extract first N characters starting with first non-whitespace. |
| 238 ((string-match (format "[^ \t\n].\\{,%d\\}" | 238 ((string-match (format "[^ \t\n].\\{,%d\\}" |
| 239 ;; Deduct 6 for the spaces inserted below. | 239 ;; Deduct 6 for the spaces inserted below. |
| 240 (min 20 (max 0 (- (window-width) 6)))) | 240 (min 20 (max 0 (- (window-width) 6)))) |
| 241 val) | 241 val) |