Function: epa-mark-key

epa-mark-key is an interactive and byte-compiled function defined in epa.el.gz.

Signature

(epa-mark-key &optional ARG)

Documentation

Mark a key on the current line.

If ARG is non-nil, unmark the key.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/epa.el.gz
;;; Commands
;;;; Marking

(defun epa-mark-key (&optional arg)
  "Mark a key on the current line.
If ARG is non-nil, unmark the key."
  (interactive "P")
  (let ((inhibit-read-only t)
	buffer-read-only
	properties)
    (beginning-of-line)
    (unless (get-text-property (point) 'epa-key)
      (error "No key on this line"))
    (setq properties (text-properties-at (point)))
    (delete-char 1)
    (insert (if arg " " "*"))
    (set-text-properties (1- (point)) (point) properties)
    (forward-line)))