Function: srecode-compile-add-prompt

srecode-compile-add-prompt is a byte-compiled function defined in compile.el.gz.

Signature

(srecode-compile-add-prompt ARG &rest ARGS)

Implementations

((state srecode-compile-state) prompttag) in `srecode/compile.el'.

Add PROMPTTAG to the current list of prompts.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/compile.el.gz
(cl-defmethod srecode-compile-add-prompt ((state srecode-compile-state)
				       prompttag)
  "Add PROMPTTAG to the current list of prompts."
  (with-slots (prompts) state
      (let ((match (assoc (semantic-tag-name prompttag) prompts))
	    (newprompts prompts))
	(when match
	  (let ((tmp prompts))
	    (setq newprompts nil)
	    (while tmp
	      (when (not (string= (car (car tmp))
				  (car prompttag)))
		(setq newprompts (cons (car tmp)
				       newprompts)))
	      (setq tmp (cdr tmp)))))
	(setq prompts (cons prompttag newprompts)))
      ))