[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help-fns.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help-fns.el [lexbind] |
Date: |
Sat, 04 Sep 2004 05:54:07 -0400 |
Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.9.2.14 emacs/lisp/help-fns.el:1.9.2.15
*** emacs/lisp/help-fns.el:1.9.2.14 Sat Sep 4 09:20:09 2004
--- emacs/lisp/help-fns.el Sat Sep 4 09:28:13 2004
***************
*** 487,504 ****
(defun variable-at-point ()
"Return the bound variable symbol found around point.
Return 0 if there is no such symbol."
! (condition-case ()
! (with-syntax-table emacs-lisp-mode-syntax-table
! (save-excursion
! (or (not (zerop (skip-syntax-backward "_w")))
! (eq (char-syntax (following-char)) ?w)
! (eq (char-syntax (following-char)) ?_)
! (forward-sexp -1))
! (skip-chars-forward "'")
! (let ((obj (read (current-buffer))))
! (or (and (symbolp obj) (boundp obj) obj)
! 0))))
! (error 0)))
;;;###autoload
(defun describe-variable (variable &optional buffer)
--- 487,507 ----
(defun variable-at-point ()
"Return the bound variable symbol found around point.
Return 0 if there is no such symbol."
! (or (condition-case ()
! (with-syntax-table emacs-lisp-mode-syntax-table
! (save-excursion
! (or (not (zerop (skip-syntax-backward "_w")))
! (eq (char-syntax (following-char)) ?w)
! (eq (char-syntax (following-char)) ?_)
! (forward-sexp -1))
! (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)