Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/util.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ede)
#@123 Update the current projects main version number.
Argument NEWVERSION is the version number to use in the current project.
(defalias 'ede-update-version #[(newversion) "\302 \303\304\" \230?\205 \305\304 #\210\306!\210\307 \")\207" [ede-object newversion ede-toplevel eieio-oref version eieio-oset project-update-version ede-update-version-in-source] 4 (#$ . 424) (list (let* ((o (ede-toplevel)) (v (eieio-oref o 'version))) (read-string (format "Update Version (was %s): " v) v nil v)))])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\305\302\310\302\311%\207" [cl-generic-define-method project-update-version nil ((ot ede-project)) #[(ot) "\301\302\303!\"\207" [ot error "project-update-version not supported by %s" eieio-object-name] 4 "The :version of the project OT has been updated.\nHandle saving, or other detail."] ede-update-version-in-source ((this ede-project) version) #[(this version) "\301\302\"\207" [this ede-map-targets #[(targ) "\302 \"\207" [targ version ede-update-version-in-source] 3]] 3 "Change occurrences of a version string in sources.\nIn project THIS, cycle over all targets to give them a chance to set\ntheir sources to VERSION."] ((this ede-target) version) #[(this version) "\305\306\"\205N \307\306\"\205N \307\306\"\211\205M r\310\311 @\"!q\210eb\210\312\313\314\315\312#\203D \316 \317\216\320 \210*\321\224\321\225|\210\321\224b\210\fc\210* A\211\204 \315)\207" [this vs case-fold-search save-match-data-internal version slot-boundp versionsource eieio-oref find-file-noselect ede-expand-filename t re-search-forward "version:\\s-*\\([^ \n]+\\)" nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] ede-make-buffer-writable 1] 5 "In sources for THIS, change version numbers to VERSION."]] 6)
#@87 Make sure that BUFFER is writable.
If BUFFER isn't specified, use the current buffer.
(defalias 'ede-make-buffer-writable #[(&optional buffer) "\212\203 q\210\302\211)\207" [buffer buffer-read-only nil] 2 (#$ . 2247)])
(provide 'ede/util)
Mini Shell