diff options
Diffstat (limited to 'lisp/cedet/mode-local.el')
| -rw-r--r-- | lisp/cedet/mode-local.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index a6e143cfcd6..a1aea30c20d 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -819,14 +819,12 @@ META-NAME is a cons (OVERLOADABLE-SYMBOL . MAJOR-MODE)." ) ;; Order symbols by type (mapatoms - #'(lambda (s) - (add-to-list (cond - ((get s 'mode-variable-flag) - (if (get s 'constant-flag) 'mc 'mv)) - ((get s 'override-flag) - (if (get s 'constant-flag) 'fo 'ov)) - ('us)) - s)) + (lambda (s) (push s (cond + ((get s 'mode-variable-flag) + (if (get s 'constant-flag) mc mv)) + ((get s 'override-flag) + (if (get s 'constant-flag) fo ov)) + (t us)))) table) ;; Print symbols by type (when us |