[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/completion.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/completion.el,v |
Date: |
Sat, 07 Oct 2006 15:57:37 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 06/10/07 15:57:37
Index: completion.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/completion.el,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- completion.el 6 Feb 2006 14:33:32 -0000 1.57
+++ completion.el 7 Oct 2006 15:57:36 -0000 1.58
@@ -1895,8 +1895,7 @@
(cond
((= (preceding-char) ?#)
;; preprocessor macro, see if it's one we handle
- (setq string (buffer-substring (point) (+ (point) 6)))
- (cond ((member string '("define" "ifdef "))
+ (cond ((looking-at "\\(define\\|ifdef\\)\\>")
;; skip forward over definition symbol
;; and add it to database
(and (forward-word 2)
@@ -1944,9 +1943,9 @@
(throw 'finish-add-completions t))
(error
;; Check for failure in scan-sexps
- (if (or (string-equal (nth 1 e)
- "Containing expression ends prematurely")
- (string-equal (nth 1 e) "Unbalanced parentheses"))
+ (if (member (nth 1 e)
+ '("Containing expression ends prematurely"
+ "Unbalanced parentheses"))
;; unbalanced paren., keep going
;;(ding)
(forward-line 1)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/completion.el,v,
Stefan Monnier <=