allow copying lines in read-only files

diff --git a/lisp/my-editing-defuns.el b/lisp/my-editing-defuns.el
index 8e8ace2e90ae557bf4c324615eca088e1d3a8caa..bf72f9440fea4359f0696272eabddb73d70f91fc 100644 (file)
--- a/lisp/my-editing-defuns.el
+++ b/lisp/my-editing-defuns.el
@@ -14,7 +14,7 @@
 
 (defun my/copy-line (arg)
   "Copy the current line into the kill ring. With ARG copies that many lines."
-  (interactive "*p")
+  (interactive "p")
   (kill-ring-save (line-beginning-position 1)
                   (line-beginning-position (+ 1 arg)))
   (message "Copied %d lines" arg))