/[emacs]/emacs/lisp/gnus/gnus-spec.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-spec.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by miles, Mon Nov 1 23:06:34 2004 UTC revision 1.10 by miles, Sun Dec 26 23:33:51 2004 UTC
# Line 275  Return a list of updated types." Line 275  Return a list of updated types."
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."

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26