[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help.el,v |
Date: |
Fri, 06 Jun 2008 20:02:44 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/help.el,v,
Stefan Monnier <=