comparison lisp/cedet/ede.el @ 104519:934691bc93ed

* cedet/semantic/idle.el (semantic-idle-scheduler-work-timer): Change timeout to 1. Doc fix. * cedet/semantic/edit.el (semantic-change-hooks): Add semantic-edits-change-function-handle-changes directly. * cedet/semantic/util.el (semantic--completion-cache): Move to semantic.el. (semantic-symbol-start): Remove unneeded function. * cedet/semantic.el (semantic--completion-cache): Move here from semantic/util.el (semantic-clear-toplevel-cache, semantic--set-buffer-cache) (semantic-fetch-tags): Reset semantic--completion-cache. (semantic-force-refresh): New function (semantic-mode-map): New variable. * cedet/semantic/senator.el: New file. * cedet/ede.el: Fix autoload. (ede-customize-forms-menu): Handle null projects.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 27 Sep 2009 03:36:58 +0000
parents c433f076710b
children 18ae68cd64bd
comparison
equal deleted inserted replaced
104518:78d37f6e576f 104519:934691bc93ed
704 Argument MENU-DEF is the definition of the current menu." 704 Argument MENU-DEF is the definition of the current menu."
705 (easy-menu-filter-return 705 (easy-menu-filter-return
706 (easy-menu-create-menu 706 (easy-menu-create-menu
707 "Customize Project" 707 "Customize Project"
708 (let* ((obj (ede-current-project)) 708 (let* ((obj (ede-current-project))
709 (targ (when (slot-boundp obj 'targets) 709 targ)
710 (oref obj targets))))
711 (when obj 710 (when obj
711 (setq targ (when (slot-boundp obj 'targets)
712 (oref obj targets)))
712 ;; Make custom menus for everything here. 713 ;; Make custom menus for everything here.
713 (append (list 714 (append (list
714 (cons (concat "Project " (ede-name obj)) 715 (cons (concat "Project " (ede-name obj))
715 (eieio-customize-object-group obj)) 716 (eieio-customize-object-group obj))
716 [ "Reorder Targets" ede-project-sort-targets t ] 717 [ "Reorder Targets" ede-project-sort-targets t ]
757 t)))) 758 t))))
758 759
759 ;;; Mode Declarations 760 ;;; Mode Declarations
760 ;; 761 ;;
761 (eval-and-compile 762 (eval-and-compile
762 (autoload 'ede-dired-minor-mode "ede-dired" "EDE commands for dired" t)) 763 (autoload 'ede-dired-minor-mode "ede/dired" "EDE commands for dired" t))
763 764
764 (defun ede-apply-target-options () 765 (defun ede-apply-target-options ()
765 "Apply options to the current buffer for the active project/target." 766 "Apply options to the current buffer for the active project/target."
766 (if (ede-current-project) 767 (if (ede-current-project)
767 (ede-set-project-variables (ede-current-project))) 768 (ede-set-project-variables (ede-current-project)))