Function: proced-insert-mark

proced-insert-mark is a byte-compiled function defined in proced.el.gz.

Signature

(proced-insert-mark MARK &optional BACKWARD)

Documentation

If MARK is non-nil, insert proced-marker-char.

If BACKWARD is non-nil, move one line backwards before inserting the mark. Otherwise move one line forward after inserting the mark.

Source Code

;; Defined in /usr/src/emacs/lisp/proced.el.gz
(defun proced-insert-mark (mark &optional backward)
  "If MARK is non-nil, insert `proced-marker-char'.
If BACKWARD is non-nil, move one line backwards before inserting the mark.
Otherwise move one line forward after inserting the mark."
  (if backward (forward-line -1))
  (insert (if mark proced-marker-char ?\s))
  (delete-char 1)
  (unless backward (forward-line)))