# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 761255482 0
# Node ID 022fbe742832dd8ecf5dc28dc51bade9c5b33733
# Parent  35526ee8b790de17229e0c8d38db85baa8af5ef1
(current-word): Remove (interactive).

diff -r 35526ee8b790 -r 022fbe742832 lisp/simple.el
--- a/lisp/simple.el	Mon Feb 14 19:44:36 1994 +0000
+++ b/lisp/simple.el	Mon Feb 14 19:51:22 1994 +0000
@@ -1959,7 +1959,6 @@
 move forward first.  Otherwise, move backwards until a word constituent
 is found and get that word; if you reach a newline first, move forward
 instead."
-  (interactive)
   (save-excursion
     (let ((oldpoint (point)) (start (point)) (end (point)))
       (skip-syntax-backward "w_") (setq start (point))