scope.el: Disregard symbol shorthands

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index 682a3f2c4431282f0a83280e1b57f30ac4f7f932..75ca7ef9404765d319dd0639e75d88b85ba1f11b 100644 (file)
--- a/lisp/emacs-lisp/scope.el
+++ b/lisp/emacs-lisp/scope.el
@@ -681,7 +681,8 @@ starting with a top-level form, by inspecting HEAD at each level:
   by default it is similarly ignored, but if `scope-assume-func-p' is
   non-nil, then this function assumes that such HEADs are functions."
   (let ((scope-counter 0)
-        (scope-callback callback))
+        (scope-callback callback)
+        (read-symbol-shorthands nil))
     (scope-1 nil (read-positioning-symbols (or stream (current-buffer))) t)))
 
 (provide 'scope)