[Emacs-diffs] Changes to emacs/lisp/help-fns.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/06/06 20:02:42

Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -b -r1.121 -r1.122
--- help-fns.el 31 May 2008 18:19:05 -0000      1.121
+++ help-fns.el 6 Jun 2008 20:02:42 -0000       1.122
@@ -443,8 +443,8 @@
   "Return the bound variable symbol found at or before point.
 Return 0 if there is no such symbol.
 If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
-  (or (condition-case ()
          (with-syntax-table emacs-lisp-mode-syntax-table
+    (or (condition-case ()
            (save-excursion
              (or (not (zerop (skip-syntax-backward "_w")))
                  (eq (char-syntax (following-char)) ?w)
@@ -452,7 +452,7 @@
                  (forward-sexp -1))
              (skip-chars-forward "'")
              (let ((obj (read (current-buffer))))
-               (and (symbolp obj) (boundp obj) obj))))
+               (and (symbolp obj) (boundp obj) obj)))
        (error nil))
       (let* ((str (find-tag-default))
             (sym (if str (intern-soft str))))
@@ -462,7 +462,7 @@
            (when (and str (string-match "\\`\\W*\\(.*?\\)\\W*\\'" str))
              (setq sym (intern-soft (match-string 1 str)))
              (and (or any-symbol (boundp sym)) sym)))))
-      0))
+        0)))
 
 (defun describe-variable-custom-version-info (variable)
   (let ((custom-version (get variable 'custom-version))