1 |
;;; cc-menus.el --- imenu support for CC Mode |
;;; cc-menus.el --- imenu support for CC Mode |
2 |
|
|
3 |
;; Copyright (C) 1985,1987,1992-2003, 2004, 2005 Free Software Foundation, Inc. |
;; Copyright (C) 1985,1987,1992-2003, 2004, 2005 Free Software Foundation, |
4 |
|
;; Inc. |
5 |
|
|
6 |
;; Authors: 1998- Martin Stjernholm |
;; Authors: 1998- Martin Stjernholm |
7 |
;; 1992-1999 Barry A. Warsaw |
;; 1992-1999 Barry A. Warsaw |
25 |
;; GNU General Public License for more details. |
;; GNU General Public License for more details. |
26 |
|
|
27 |
;; You should have received a copy of the GNU General Public License |
;; You should have received a copy of the GNU General Public License |
28 |
;; along with GNU Emacs; see the file COPYING. If not, write to |
;; along with this program; see the file COPYING. If not, write to |
29 |
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
30 |
;; Boston, MA 02110-1301, USA. |
;; Boston, MA 02110-1301, USA. |
31 |
|
|
241 |
- perform: (SEL)aSelector withObject: object1 withObject: object2; /* METHOD */ |
- perform: (SEL)aSelector withObject: object1 withObject: object2; /* METHOD */ |
242 |
=> |
=> |
243 |
-perform:withObject:withObject:withObject: /* selector */" |
-perform:withObject:withObject:withObject: /* selector */" |
|
;; This function does not do any hidden buffer changes. |
|
244 |
(let ((return "") ; String to be returned |
(let ((return "") ; String to be returned |
245 |
(p 0) ; Current scanning position in METHOD |
(p 0) ; Current scanning position in METHOD |
246 |
(pmax (length method)) ; |
(pmax (length method)) ; |
281 |
|
|
282 |
(defun cc-imenu-objc-remove-white-space (str) |
(defun cc-imenu-objc-remove-white-space (str) |
283 |
"Remove all spaces and tabs from STR." |
"Remove all spaces and tabs from STR." |
|
;; This function does not do any hidden buffer changes. |
|
284 |
(let ((return "") |
(let ((return "") |
285 |
(p 0) |
(p 0) |
286 |
(max (length str)) |
(max (length str)) |
295 |
|
|
296 |
(defun cc-imenu-objc-function () |
(defun cc-imenu-objc-function () |
297 |
"imenu supports for objc-mode." |
"imenu supports for objc-mode." |
|
;; This function does not do any hidden buffer changes. |
|
298 |
(let (methodlist |
(let (methodlist |
299 |
clist |
clist |
300 |
;; |
;; |
413 |
|
|
414 |
(defun cc-imenu-init (mode-generic-expression |
(defun cc-imenu-init (mode-generic-expression |
415 |
&optional mode-create-index-function) |
&optional mode-create-index-function) |
|
;; This function does not do any hidden buffer changes. |
|
416 |
(setq imenu-generic-expression mode-generic-expression |
(setq imenu-generic-expression mode-generic-expression |
417 |
imenu-case-fold-search nil) |
imenu-case-fold-search nil) |
418 |
(when mode-create-index-function |
(when mode-create-index-function |