proced.el (proced-send-signal): Use beginning-of-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 08cafe3853f3d9f58d2e82edbe2ae5a73f501a10..e389762232b6fb4e61aaeb83642696f0a90cedcd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-17  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
+
+       * proced.el (proced-send-signal): Use beginning-of-line.
+
 2008-08-17  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
 
        * proced.el (proced-signal-list): Add POSIX 1003.1-2001 signals.

diff --git a/lisp/proced.el b/lisp/proced.el
index 0df3b9a97925260784436636a877de0b6151ee6c..afc11e4c88b6a799937248bd09c1ddc2e0ccdcdc 100644 (file)
--- 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)