diff --git a/lisp/completion.el b/lisp/completion.el
index fb700954b0e..2e486b6a50d 100644
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -926,10 +926,6 @@ Each symbol is bound to a single completion entry.")
   "Return a completion entry."
   (list string 0 nil current-completion-source))
 
-;; Obsolete
-;;(defmacro cmpl-prefix-entry-symbol (completion-entry)
-;;  (list 'car (list 'cdr completion-entry)))
-
 
 
 ;;-----------------------------------------------