diff options
| author | Leo Liu | 2012-07-26 00:11:23 +0800 |
|---|---|---|
| committer | Leo Liu | 2012-07-26 00:11:23 +0800 |
| commit | 9a0f8f2e959c1867c848a0c33cfaee70a201c83f (patch) | |
| tree | c5a7147a2e16d64aca8c4afb0edb7137d05fa390 | |
| parent | 971635eeb9b999afd6f8eda10c978f8641022fb2 (diff) | |
| download | emacs-9a0f8f2e959c1867c848a0c33cfaee70a201c83f.tar.gz emacs-9a0f8f2e959c1867c848a0c33cfaee70a201c83f.zip | |
Avoid leaving nil in the alist in cc-imenu-objc-function
Fixes: debbugs:12029
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/cc-menus.el | 8 |
2 files changed, 7 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e693f1a62f6..ac1482df4e1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-07-25 Leo Liu <sdl.web@gmail.com> | ||
| 2 | |||
| 3 | * progmodes/cc-menus.el (cc-imenu-objc-function): Avoid leaving nil in | ||
| 4 | the alist (bug#12029). | ||
| 5 | |||
| 1 | 2012-07-25 Chong Yidong <cyd@gnu.org> | 6 | 2012-07-25 Chong Yidong <cyd@gnu.org> |
| 2 | 7 | ||
| 3 | * mouse.el (mouse-drag-track): Do not set the mark if the user | 8 | * mouse.el (mouse-drag-track): Do not set the mark if the user |
diff --git a/lisp/progmodes/cc-menus.el b/lisp/progmodes/cc-menus.el index a53d65f6307..76e3002abd2 100644 --- a/lisp/progmodes/cc-menus.el +++ b/lisp/progmodes/cc-menus.el | |||
| @@ -399,14 +399,10 @@ Example: | |||
| 399 | str2 "@protocol"))) | 399 | str2 "@protocol"))) |
| 400 | (setq str (cc-imenu-objc-remove-white-space str)) | 400 | (setq str (cc-imenu-objc-remove-white-space str)) |
| 401 | (setq methodlist (cons (cons str2 | 401 | (setq methodlist (cons (cons str2 |
| 402 | (match-beginning langnum)) | 402 | (match-beginning langnum)) |
| 403 | methodlist)) | 403 | methodlist)) |
| 404 | (setq toplist (cons nil (cons (cons str | 404 | (setq toplist (cons (cons str methodlist) toplist) |
| 405 | methodlist) toplist)) | ||
| 406 | methodlist nil)))) | 405 | methodlist nil)))) |
| 407 | ;; | ||
| 408 | (if (eq (car toplist) nil) | ||
| 409 | (setq toplist (cdr toplist))) | ||
| 410 | 406 | ||
| 411 | ;; In this buffer, there is only one or zero @{interface|implementation|protocol}. | 407 | ;; In this buffer, there is only one or zero @{interface|implementation|protocol}. |
| 412 | (if (< classcount 2) | 408 | (if (< classcount 2) |