[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/proced.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/proced.el,v |
Date: |
Sat, 24 May 2008 20:41:56 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 08/05/24 20:41:55
Index: proced.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/proced.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- proced.el 21 May 2008 08:00:05 -0000 1.11
+++ proced.el 24 May 2008 20:41:55 -0000 1.12
@@ -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)))
- [Emacs-diffs] Changes to emacs/lisp/proced.el,v, Roland Winkler, 2008/05/04
- [Emacs-diffs] Changes to emacs/lisp/proced.el,v, Glenn Morris, 2008/05/06
- [Emacs-diffs] Changes to emacs/lisp/proced.el,v, Roland Winkler, 2008/05/20
- [Emacs-diffs] Changes to emacs/lisp/proced.el,v, Roland Winkler, 2008/05/21
- [Emacs-diffs] Changes to emacs/lisp/proced.el,v,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/proced.el,v, John Paul Wallington, 2008/05/25