From 6e45b389efc9eae60867df88865e0f48a7c8b558 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 14 Feb 1994 19:51:22 +0000
Subject: [PATCH] (current-word): Remove (interactive).

---
 lisp/simple.el | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index d917d846d6f..c74141cb1c2 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1959,7 +1959,6 @@ move back first.  Otherwise, if point precedes a word constituent,
 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))