[Emacs-diffs] /srv/bzr/emacs/trunk r99978: (lisp-completion-at-point): Try and handle errors.

[Stefan Monnier]

------------------------------------------------------------
revno: 99978
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2010-04-21 13:53:03 -0400
message:
  (lisp-completion-at-point): Try and handle errors.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/lisp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-04-20 18:52:07 +0000
+++ b/lisp/ChangeLog    2010-04-21 17:53:03 +0000
@@ -1,3 +1,7 @@
+2010-04-21  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/lisp.el (lisp-completion-at-point): Try and handle errors.
+
 2010-04-21  Jan Djärv  <address@hidden>
 
        * vc-dir.el (vc-dir-tool-bar-map): Add :label on some tool bar items.

=== modified file 'lisp/emacs-lisp/lisp.el'
--- a/lisp/emacs-lisp/lisp.el   2010-04-20 16:37:31 +0000
+++ b/lisp/emacs-lisp/lisp.el   2010-04-21 17:53:03 +0000
@@ -633,10 +633,12 @@
   ;; FIXME: the `end' could be after point?
   (let* ((pos (point))
          (beg (with-syntax-table emacs-lisp-mode-syntax-table
-                (save-excursion
-                  (backward-sexp 1)
-                  (skip-syntax-forward "'")
-                  (point))))
+                (condition-case nil
+                    (save-excursion
+                      (backward-sexp 1)
+                      (skip-syntax-forward "'")
+                      (point))
+                  (scan-error pos))))
          (predicate
           (or predicate
               (save-excursion
@@ -658,12 +660,14 @@
                     'fboundp)))))
          (end
           (unless (or (eq beg (point-max))
-                      (member (char-syntax (char-after beg)) '(?\( ?\))))
-            (save-excursion
-              (goto-char beg)
-              (forward-sexp 1)
-              (when (>= (point) pos)
-                (point))))))
+                      (member (char-syntax (char-after beg)) '(?\" ?\( ?\))))
+            (condition-case nil
+                (save-excursion
+                  (goto-char beg)
+                  (forward-sexp 1)
+                  (when (>= (point) pos)
+                    (point)))
+                  (scan-error pos)))))
     (when end
       (list beg end obarray
             :predicate predicate