~ubuntu-branches/debian/stretch/ecb/stretch

« back to all changes in this revision

Viewing changes to ecb-upgrade.el

  • Committer: Package Import Robot
  • Author(s): Balint Reczey
  • Date: 2014-10-25 16:13:05 UTC
  • mfrom: (1.1.4)
  • Revision ID: package-import@ubuntu.com-20141025161305-6cg7rnaao1xa4ngb
Tags: 2.40+git20140216-1
* Adopting the package
  Thanks to Mike O'Connor for maintaing the package (Closes: #766440)
* New upstream snapshot (Closes: #729865)
* Drop obsoleted patches
* Bump dh compat level to 9
* Move packaging repository to git.debian.org
* Depend on default emacs (Closes: #754002)
* Bump standards version, no changes needed
* Move homepage URL to source package description

Show diffs side-by-side

added added

removed removed

Lines of Context:
23
23
;; GNU Emacs; see the file COPYING.  If not, write to the Free Software
24
24
;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
25
25
 
26
 
;; $Id: ecb-upgrade.el,v 1.117 2010/02/21 13:10:12 berndl Exp $
 
26
;; $Id$
27
27
 
28
28
;;; Commentary:
29
29
;;
1048
1048
    ;; now we display only the choice to save the ecb-options-version but only
1049
1049
    ;; if ecb-options-version != ecb-version and (either the command is called
1050
1050
    ;; interactively or first-time called by program)
1051
 
    (when (and (or (interactive-p)
 
1051
    (when (and (or (ecb-interactive-p)
1052
1052
                   (not (get 'ecb-display-upgraded-options
1053
1053
                         'ecb-options-version-save-displayed)))
1054
1054
               (not (ecb-options-version=ecb-version-p)))
1111
1111
    (if (and ecb-old-ecb-version
1112
1112
             (or (not (get 'ecb-display-news-for-upgrade
1113
1113
                           'ecb-news-for-upgrade-displayed))
1114
 
                 (interactive-p)))
 
1114
                 (ecb-interactive-p)))
1115
1115
        (progn
1116
1116
          (with-output-to-temp-buffer "*News for the new ECB-version*"
1117
1117
            (princ (format "You have upgraded ECB from version %s to %s.\n\n"
1170
1170
             (not ecb-all-requirements-available))
1171
1171
    (let ((cedet-required-version-str-min (ecb-package-version-list2str
1172
1172
                                           ecb-cedet-required-version-min))
1173
 
          (cedet-required-version-str-max (ecb-package-version-list2str
1174
 
                                           ecb-cedet-required-version-max))
1175
1173
          (version-error nil))
1176
1174
      ;; check if cedet-version is correct
 
1175
      ;; And no longer check against a Maximum version
1177
1176
      (when (or (not (boundp 'cedet-version))
1178
1177
                (ecb-package-version-list<
1179
1178
                 (ecb-package-version-str2list cedet-version)
1180
 
                 ecb-cedet-required-version-min)
1181
 
                (ecb-package-version-list<
1182
 
                 ecb-cedet-required-version-max
1183
 
                 (ecb-package-version-str2list cedet-version)))
 
1179
                 ecb-cedet-required-version-min))
1184
1180
        (setq version-error (concat "cedet ["
1185
1181
                                    cedet-required-version-str-min
1186
 
                                    ", "
1187
 
                                    cedet-required-version-str-max
1188
1182
                                    "]")))
1189
1183
      (if (null version-error)
1190
1184
          ;; this is the only place where this variable is set