mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(proced-update): Revert yesterday's bug#1779 patch, which apparently didn't work.

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-07-20 11:53:51 +02:00
parent 2ecab2b506
commit 8ca422621c
2 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/proced.el
View file

@ -1509,16 +1509,6 @@ Replace newline characters by \"^J\" (two characters)."
(if (string-match "[ \t]+$" proced-header-line)
(setq proced-header-line (substring proced-header-line 0
(match-beginning 0))))
(setq proced-header-line (concat " " proced-header-line))
;; From buff-menu.el: Turn whitespace chars in the header into
;; stretch specs so they work regardless of the header-line face.
(let ((pos 0)
(header proced-header-line))
(while (string-match "[ \t\n]+" header pos)
(setq pos (match-end 0))
(put-text-property (match-beginning 0) pos 'display
(list 'space :align-to pos)
header)))
;; (delete-trailing-whitespace)
(goto-char (point-min))
(while (re-search-forward "[ \t\r]+$" nil t)
@ -1612,6 +1602,7 @@ After updating a displayed Proced buffer run the normal hook
(while (not (eobp))
(insert " ")
(forward-line))
(setq proced-header-line (concat " " proced-header-line))
(if revert (set-buffer-modified-p nil))
;; set `goal-column'