Mercurial > emacs
comparison lisp/progmodes/cc-menus.el @ 102069:b6ec92c16c1d
* progmodes/cc-menus.el (cc-imenu-objc-function): Doc fix.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 17 Feb 2009 10:59:12 +0000 |
parents | 16cdb5713076 |
children | f4d8e2387c06 |
comparison
equal
deleted
inserted
replaced
102068:e22cfe7e0065 | 102069:b6ec92c16c1d |
---|---|
259 (eq 0 betweenparen) ; Ignore if CHAR is in parentheses. | 259 (eq 0 betweenparen) ; Ignore if CHAR is in parentheses. |
260 (or (and (<= ?a char) (<= char ?z)) | 260 (or (and (<= ?a char) (<= char ?z)) |
261 (and (<= ?A char) (<= char ?Z)) | 261 (and (<= ?A char) (<= char ?Z)) |
262 (and (<= ?0 char) (<= char ?9)) | 262 (and (<= ?0 char) (<= char ?9)) |
263 (= ?_ char))) | 263 (= ?_ char))) |
264 (if argreq | 264 (if argreq |
265 (setq inargvar t | 265 (setq inargvar t |
266 argreq nil) | 266 argreq nil) |
267 (setq return (concat return (char-to-string char))))) | 267 (setq return (concat return (char-to-string char))))) |
268 ;; Or a white space? | 268 ;; Or a white space? |
269 ((and inargvar (or (eq ?\ char) (eq ?\n char)) | 269 ((and inargvar (or (eq ?\ char) (eq ?\n char)) |
294 () | 294 () |
295 (setq return (concat return (char-to-string char))))) | 295 (setq return (concat return (char-to-string char))))) |
296 return)) | 296 return)) |
297 | 297 |
298 (defun cc-imenu-objc-function () | 298 (defun cc-imenu-objc-function () |
299 "imenu supports for objc-mode." | 299 "Imenu support for Objective C mode." |
300 (let (methodlist | 300 (let (methodlist |
301 clist | 301 clist |
302 ;; | 302 ;; |
303 ;; OBJC, Cnoreturn, Cgeneralfunc, Cproto are constants. | 303 ;; OBJC, Cnoreturn, Cgeneralfunc, Cproto are constants. |
304 ;; | 304 ;; |