Mercurial > emacs
comparison lisp/proced.el @ 97524:9709454b59a8
proced.el (proced-send-signal): Use beginning-of-line.
| author | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> |
|---|---|
| date | Mon, 18 Aug 2008 01:00:51 +0000 |
| parents | ce7e3551dd0e |
| children | 9ec9b806fd81 |
comparison
equal
deleted
inserted
replaced
| 97523:61ed3d73076b | 97524:9709454b59a8 |
|---|---|
| 653 (setq process-list | 653 (setq process-list |
| 654 (if process-list | 654 (if process-list |
| 655 (nreverse process-list) | 655 (nreverse process-list) |
| 656 ;; take current process | 656 ;; take current process |
| 657 (save-excursion | 657 (save-excursion |
| 658 (line-beginning-position) | 658 (beginning-of-line) |
| 659 (looking-at (concat "^" (proced-skip-regexp) | 659 (looking-at (concat "^" (proced-skip-regexp) |
| 660 "\\s-+\\([0-9]+\\>\\).*$")) | 660 "\\s-+\\([0-9]+\\>\\).*$")) |
| 661 (list (cons (match-string-no-properties 1) | 661 (list (cons (match-string-no-properties 1) |
| 662 (substring (match-string-no-properties 0) 2)))))) | 662 (substring (match-string-no-properties 0) 2)))))) |
| 663 (unless signal | 663 (unless signal |