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

[Stefan Monnier]

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

Index: help.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help.el,v
retrieving revision 1.340
retrieving revision 1.341
diff -u -b -r1.340 -r1.341
--- help.el     6 May 2008 07:57:38 -0000       1.340
+++ help.el     6 Jun 2008 20:02:42 -0000       1.341
@@ -254,7 +254,7 @@
 (defun function-called-at-point ()
   "Return a function around point or else called by the list containing point.
 If that doesn't give a function, return nil."
-  (or (with-syntax-table emacs-lisp-mode-syntax-table
+  (with-syntax-table emacs-lisp-mode-syntax-table
        (or (condition-case ()
                (save-excursion
                  (or (not (zerop (skip-syntax-backward "_w")))
@@ -279,7 +279,7 @@
                        (error "Probably not a Lisp function call"))
                    (let ((obj (read (current-buffer))))
                      (and (symbolp obj) (fboundp obj) obj))))
-             (error nil))))
+          (error nil))
       (let* ((str (find-tag-default))
             (sym (if str (intern-soft str))))
        (if (and sym (fboundp sym))
@@ -287,7 +287,7 @@
          (save-match-data
            (when (and str (string-match "\\`\\W*\\(.*?\\)\\W*\\'" str))
              (setq sym (intern-soft (match-string 1 str)))
-             (and (fboundp sym) sym)))))))
+                (and (fboundp sym) sym))))))))
 
 
 ;;; `User' help functions