275 |
|
|
276 |
(defun gnus-spec-tab (column) |
(defun gnus-spec-tab (column) |
277 |
(if (> column 0) |
(if (> column 0) |
278 |
`(insert (make-string (max (- ,column (current-column)) 0) ? )) |
`(insert-char ? (max (- ,column (current-column)) 0)) |
279 |
(let ((column (abs column))) |
(let ((column (abs column))) |
280 |
(if gnus-use-correct-string-widths |
`(if (> (current-column) ,column) |
281 |
`(progn |
(let ((end (point))) |
282 |
(if (> (current-column) ,column) |
(if (= (move-to-column ,column) ,column) |
283 |
(while (progn |
(delete-region (point) end) |
284 |
(delete-backward-char 1) |
(delete-region (1- (point)) end) |
285 |
(> (current-column) ,column)))) |
(insert " "))) |
286 |
(insert (make-string (max (- ,column (current-column)) 0) ? ))) |
(insert-char ? (max (- ,column (current-column)) 0)))))) |
|
`(progn |
|
|
(if (> (current-column) ,column) |
|
|
(delete-region (point) |
|
|
(- (point) (- (current-column) ,column))) |
|
|
(insert (make-string (max (- ,column (current-column)) 0) |
|
|
? )))))))) |
|
287 |
|
|
288 |
(defun gnus-correct-length (string) |
(defun gnus-correct-length (string) |
289 |
"Return the correct width of STRING." |
"Return the correct width of STRING." |