Mercurial > emacs
changeset 95286:3680efd5ada2
(proced-header-line): Use the :align-to 0 feature
rather than computing the corresponding position manually.
(proced-update): Don't hardcode point-min==1.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 24 May 2008 20:41:55 +0000 |
| parents | a4912ef0d32f |
| children | 6150694d72ec |
| files | lisp/ChangeLog lisp/proced.el |
| diffstat | 2 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat May 24 19:27:54 2008 +0000 +++ b/lisp/ChangeLog Sat May 24 20:41:55 2008 +0000 @@ -1,3 +1,9 @@ +2008-05-24 Stefan Monnier <monnier@iro.umontreal.ca> + + * proced.el (proced-header-line): Use the :align-to 0 feature + rather than computing the corresponding position manually. + (proced-update): Don't hardcode point-min==1. + 2008-05-24 Alan Mackenzie <acm@muc.de> * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
--- a/lisp/proced.el Sat May 24 19:27:54 2008 +0000 +++ b/lisp/proced.el Sat May 24 20:41:55 2008 +0000 @@ -484,10 +484,7 @@ ;; header line: code inspired by `ruler-mode-ruler' (defun proced-header-line () "Return header line for Proced buffer." - (list "" (if (eq 'left (car (window-current-scroll-bars))) - (proced-header-space 'scroll-bar)) - (proced-header-space 'left-fringe) - (proced-header-space 'left-margin) + (list (propertize " " 'display '(space :align-to 0)) (replace-regexp-in-string "%" "%%" (substring proced-header-line (window-hscroll))))) @@ -530,8 +527,9 @@ (while (re-search-forward "\\([^ \t\n]+\\)[ \t]*\\($\\)?" lep t) (push (list (match-string-no-properties 1) ;; take the column number starting from zero - (1- (match-beginning 0)) (or (not (not (match-beginning 2))) - (1- (match-end 0))) + (- (match-beginning 0) (point-min)) + (or (not (not (match-beginning 2))) + (- (match-end 0) (point-min))) 'left) proced-header-alist))) (let ((temp (regexp-opt (mapcar 'car proced-header-alist) t)))