+(defun cedet-idutils-mkid-call (flags)
+ "Call ID Utils mkid with the list of FLAGS.
+Return the created buffer with program output."
+ (let ((b (get-buffer-create "*CEDET mkid*"))
+ (cd default-directory)
+ )
+ (with-current-buffer b
+ (setq default-directory cd)
+ (erase-buffer))
+ (apply 'call-process cedet-idutils-make-command
+ nil b nil
+ flags)
+ b))
+