← Back to branch summary

~ubuntu-branches/ubuntu/karmic/cedet/karmic

« back to all changes in this revision

Viewing changes to ede/ede.el

  • Committer: Bazaar Package Importer
  • Author(s): Masayuki Hatta (mhatta)
  • Date: 2006-10-17 05:51:33 UTC
  • mfrom: (2.1.1 dapper)
  • Revision ID: james.westby@ubuntu.com-20061017055133-dlxjfrmuevx5p7uw
Tags: 1:1.0pre3-6
Made Depends to Pre-Depends in cedet-common.  Let's see what happens.

Show diffs side-by-side

added added

removed removed

Lines of Context:
ede/ede.el
1
1
;;; ede.el --- Emacs Development Environment gloss
2
2
 
3
 
;;;  Copyright (C) 1998, 99, 2000, 2001, 2002, 2003  Eric M. Ludlam
 
3
;;;  Copyright (C) 1998-2005  Eric M. Ludlam
4
4
 
5
5
;; Author: Eric M. Ludlam <zappo@gnu.org>
6
6
;; Keywords: project, make
7
 
;; RCS: $Id: ede.el,v 1.63 2003/09/17 08:58:19 ponced Exp $
8
 
(defconst ede-version "1.0beta3"
 
7
;; RCS: $Id: ede.el,v 1.70 2005/06/30 02:36:30 zappo Exp $
 
8
(defconst ede-version "1.0pre3"
9
9
  "Current version of the Emacs EDE.")
10
10
 
11
11
;; This software is free software; you can redistribute it and/or modify
672
672
      (ede-minor-mode 1)))
673
673
 
674
674
(defun ede-minor-mode (&optional arg)
675
 
  "Project Automake minor mode.
676
 
If this file is contained, or could be contained in an automake
 
675
  "Project minor mode.
 
676
If this file is contained, or could be contained in an EDE
677
677
controlled project, then this mode should be active.
678
678
 
679
 
Project Automake will manage your automake files, and make it very
680
 
easy to edit your automake files.
681
 
 
682
679
With argument ARG positive, turn on the mode.  Negative, turn off the
683
680
mode.  nil means to toggle the mode."
684
681
  (interactive "P")
815
812
                                :name (read-string "Name: ")
816
813
                                :file
817
814
                                (expand-file-name (oref obj proj-file))
818
 
                                :targets nil))))
 
815
                                :targets nil)))
 
816
         (inits (oref obj initializers)))
 
817
    (while inits
 
818
      (eieio-oset nobj (car inits) (car (cdr inits)))
 
819
      (setq inits (cdr (cdr inits))))
819
820
    (if (ede-parent-project)
820
821
        (ede-add-subproject (ede-parent-project) nobj))
821
822
    (ede-commit-project nobj))
 
823
  ;; Have the menu appear
 
824
  (setq ede-minor-mode t)
 
825
  ;; Allert the user
822
826
  (message "Project created and saved.  You may now create targets."))
823
827
 
824
828
(defmethod ede-add-subproject ((proj-a ede-project) proj-b)