emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]