Function: crisp-copy-line
crisp-copy-line is an interactive and byte-compiled function defined
in crisp.el.gz.
Signature
(crisp-copy-line ARG)
Documentation
Mark and copy line(s).
Marks from point to end of the current line (honoring prefix arguments), copies the region to the kill ring and clipboard, and then deactivates the region.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/obsolete/crisp.el.gz
(defun crisp-copy-line (arg)
"Mark and copy line(s).
Marks from point to end of the current line (honoring prefix arguments),
copies the region to the kill ring and clipboard, and then deactivates
the region."
(interactive "*p")
(if (crisp-region-active)
(call-interactively 'crisp-set-clipboard)
(crisp-mark-line arg)
(call-interactively 'crisp-set-clipboard))
;; clear the region after the operation is complete
;; XEmacs does this automagically, Emacs doesn't.
(if (boundp 'mark-active)
(setq mark-active nil)))