X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/2d809ffafd3e1bde360c08f3be4b7d9a43ff5f0e..0e963201d03d9229bb8ac4323291d2b0119526ed:/lisp/cedet/ede/util.el diff --git a/lisp/cedet/ede/util.el b/lisp/cedet/ede/util.el index 71a79a1b70..1d56b3f59b 100644 --- a/lisp/cedet/ede/util.el +++ b/lisp/cedet/ede/util.el @@ -1,6 +1,6 @@ ;;; ede/util.el --- EDE utilities -;; Copyright (C) 2000, 2005, 2009-2013 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2005, 2009-2016 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam ;; Keywords: project, make @@ -46,19 +46,19 @@ Argument NEWVERSION is the version number to use in the current project." (project-update-version ede-object) (ede-update-version-in-source ede-object newversion)))) -(defmethod project-update-version ((ot ede-project)) +(cl-defmethod project-update-version ((ot ede-project)) "The :version of the project OT has been updated. Handle saving, or other detail." (error "project-update-version not supported by %s" (eieio-object-name ot))) -(defmethod ede-update-version-in-source ((this ede-project) version) +(cl-defmethod ede-update-version-in-source ((this ede-project) version) "Change occurrences of a version string in sources. In project THIS, cycle over all targets to give them a chance to set their sources to VERSION." (ede-map-targets this (lambda (targ) (ede-update-version-in-source targ version)))) -(defmethod ede-update-version-in-source ((this ede-target) version) +(cl-defmethod ede-update-version-in-source ((this ede-target) version) "In sources for THIS, change version numbers to VERSION." (if (and (slot-boundp this 'versionsource) (oref this versionsource))