Function: senator-copy-tag-to-register

senator-copy-tag-to-register is an interactive and byte-compiled function defined in senator.el.gz.

Signature

(senator-copy-tag-to-register REGISTER &optional KILL-FLAG)

Documentation

Copy the current tag into REGISTER.

Optional argument KILL-FLAG will delete the text of the tag to the kill ring.

Interactively, reads the register using register-read-with-preview, if available.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/senator.el.gz
;;;###autoload
(defun senator-copy-tag-to-register (register &optional kill-flag)
  "Copy the current tag into REGISTER.
Optional argument KILL-FLAG will delete the text of the tag to the
kill ring.

Interactively, reads the register using `register-read-with-preview',
if available."
  (interactive (list (if (fboundp 'register-read-with-preview)
			 (register-read-with-preview "Tag to register: ")
		       (read-char "Tag to register: "))
		     current-prefix-arg))
  (semantic-fetch-tags)
  (let ((ft (semantic-obtain-foreign-tag)))
    (when ft
      (set-register register (senator-make-register ft))
      (if kill-flag
          (kill-region (semantic-tag-start ft)
                       (semantic-tag-end ft))))))