From: Stefan Monnier Date: Sat, 24 May 2008 20:41:55 +0000 (+0000) Subject: (proced-header-line): Use the :align-to 0 feature X-Git-Tag: emacs-pretest-23.0.90~5310 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82305b1a29e884185a4693209258ff29eebdcd36;p=emacs.git (proced-header-line): Use the :align-to 0 feature rather than computing the corresponding position manually. (proced-update): Don't hardcode point-min==1. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6f127f600bb..96f7bfeaee7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-05-24 Stefan Monnier + + * 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 * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error diff --git a/lisp/proced.el b/lisp/proced.el index 8496b837f81..0a9827dc5eb 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -484,10 +484,7 @@ Returns count of hidden lines." ;; 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 @@ Returns count of hidden lines." (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)))