comparison lisp/help-fns.el @ 57794:2f9fe20953a6

(variable-at-point): read -> intern.

57793:ad073c2f3180

	      (skip-chars-forward "'")
	      (let ((obj (read (current-buffer))))
		(and (symbolp obj) (boundp obj) obj))))
	(error nil))
      (let* ((str (find-tag-default))
	     (obj (if str (read str))))
	(and (symbolp obj) (boundp obj) obj))
      0))

;;;###autoload
(defun describe-variable (variable &optional buffer)

57794:2f9fe20953a6

	      (skip-chars-forward "'")
	      (let ((obj (read (current-buffer))))
		(and (symbolp obj) (boundp obj) obj))))
	(error nil))
      (let* ((str (find-tag-default))
	     (obj (if str (intern str))))
	(and (symbolp obj) (boundp obj) obj))
      0))

;;;###autoload
(defun describe-variable (variable &optional buffer)