From 91181f91a69cde61aed9acd84febe4871eb8b4bd Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Mon, 18 Aug 2008 01:01:59 +0000 Subject: [PATCH] proced.el (proced-send-signal): Use beginning-of-line. --- lisp/ChangeLog | 4 ++++ lisp/proced.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 08cafe3853f..e389762232b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-08-17 Roland Winkler + + * proced.el (proced-send-signal): Use beginning-of-line. + 2008-08-17 Roland Winkler * proced.el (proced-signal-list): Add POSIX 1003.1-2001 signals. diff --git a/lisp/proced.el b/lisp/proced.el index 0df3b9a9792..afc11e4c88b 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -655,7 +655,7 @@ If SIGNAL is nil display marked processes and query interactively for SIGNAL." (nreverse process-list) ;; take current process (save-excursion - (line-beginning-position) + (beginning-of-line) (looking-at (concat "^" (proced-skip-regexp) "\\s-+\\([0-9]+\\>\\).*$")) (list (cons (match-string-no-properties 1) -- 2.39.2