[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help-fns.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help-fns.el [emacs-unicode-2] |
Date: |
Sat, 04 Sep 2004 05:46:58 -0400 |
Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.34.4.2 emacs/lisp/help-fns.el:1.34.4.3
*** emacs/lisp/help-fns.el:1.34.4.2 Mon Jun 28 07:28:40 2004
--- emacs/lisp/help-fns.el Sat Sep 4 09:14:25 2004
***************
*** 461,478 ****
(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)
--- 461,481 ----
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/help-fns.el [emacs-unicode-2],
Miles Bader <=