[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100099: * lisp/emacs-lisp/lisp.el (lisp-completion-at-point):

[Stefan Monnier]

------------------------------------------------------------
revno: 100099
committer: Stefan Monnier <address@hidden>
branch nick: emacs-23
timestamp: Sat 2010-10-09 17:43:43 +0200
message:
  * lisp/emacs-lisp/lisp.el (lisp-completion-at-point):
  Use emacs-lisp-mode-syntax-table for the whole function.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/lisp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-09 10:51:42 +0000
+++ b/lisp/ChangeLog    2010-10-09 15:43:43 +0000
@@ -1,3 +1,8 @@
+2010-10-09  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/lisp.el (lisp-completion-at-point):
+       Use emacs-lisp-mode-syntax-table for the whole function.
+
 2010-10-09  Richard Sharman  <address@hidden>  (tiny change)
 
        * progmodes/gdb-ui.el (gdb-mouse-toggle-breakpoint-margin)
@@ -7,8 +12,8 @@
 2010-10-05  David Koppelman  <address@hidden>
 
        * hi-lock.el (hi-lock-font-lock-hook): Check font-lock-fontified
-       instead of font-lock-mode before adding keywords. Removed
-       hi-lock-mode off code. Removed inhibit hack.
+       instead of font-lock-mode before adding keywords.
+       Remove hi-lock-mode off code.  Remove inhibit hack.
        (hi-lock-set-pattern): Only add keywords if font-lock-fontified
        non-nil; removed hook inhibit hack.
 

=== modified file 'lisp/emacs-lisp/lisp.el'
--- a/lisp/emacs-lisp/lisp.el   2010-04-20 07:54:28 +0000
+++ b/lisp/emacs-lisp/lisp.el   2010-10-09 15:43:43 +0000
@@ -632,37 +632,37 @@
 (defun lisp-completion-at-point (&optional predicate)
   "Function used for `completion-at-point-functions' in `emacs-lisp-mode'."
   ;; FIXME: the `end' could be after point?
-  (let* ((end (point))
-         (beg (with-syntax-table emacs-lisp-mode-syntax-table
-                (save-excursion
+  (with-syntax-table emacs-lisp-mode-syntax-table
+    (let* ((end (point))
+           (beg (save-excursion
                   (backward-sexp 1)
                   (while (= (char-syntax (following-char)) ?\')
                     (forward-char 1))
-                  (point))))
-         (predicate
-          (or predicate
-              (save-excursion
-                (goto-char beg)
-                (if (not (eq (char-before) ?\())
-                    (lambda (sym)      ;why not just nil ?   -sm
-                      (or (boundp sym) (fboundp sym)
-                          (symbol-plist sym)))
-                  ;; Looks like a funcall position.  Let's double check.
-                  (if (condition-case nil
-                          (progn (up-list -2) (forward-char 1)
-                                 (eq (char-after) ?\())
-                        (error nil))
-                      ;; If the first element of the parent list is an open
-                      ;; parenthesis we are probably not in a funcall position.
-                      ;; Maybe a `let' varlist or something.
-                      nil
-                    ;; Else, we assume that a function name is expected.
-                    'fboundp))))))
-    (list beg end obarray
-          :predicate predicate
-          :annotate-function
+                  (point)))
+           (predicate
+            (or predicate
+                (save-excursion
+                  (goto-char beg)
+                  (if (not (eq (char-before) ?\())
+                      (lambda (sym)          ;why not just nil ?   -sm
+                        (or (boundp sym) (fboundp sym)
+                            (symbol-plist sym)))
+                    ;; Looks like a funcall position.  Let's double check.
+                    (if (condition-case nil
+                            (progn (up-list -2) (forward-char 1)
+                                   (eq (char-after) ?\())
+                          (error nil))
+                        ;; If the first element of the parent list is an open
+                        ;; paren we are probably not in a funcall position.
+                        ;; Maybe a `let' varlist or something.
+                        nil
+                      ;; Else, we assume that a function name is expected.
+                      'fboundp))))))
+      (list beg end obarray
+            :predicate predicate
+            :annotate-function
             (unless (eq predicate 'fboundp)
-              (lambda (str) (if (fboundp (intern-soft str)) " <f>"))))))
+              (lambda (str) (if (fboundp (intern-soft str)) " <f>")))))))
 
 ;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
 ;;; lisp.el ends here