diff options
Diffstat (limited to 'lisp/cedet/semantic/senator.el')
| -rw-r--r-- | lisp/cedet/semantic/senator.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el index ebc4159a4c5..1d16b024a5e 100644 --- a/lisp/cedet/semantic/senator.el +++ b/lisp/cedet/semantic/senator.el @@ -735,12 +735,9 @@ yanked to." 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)) +Interactively, reads the register using `register-read-with-preview'." + (interactive (list (register-read-with-preview "Tag to register: ") + current-prefix-arg)) (semantic-fetch-tags) (let ((ft (semantic-obtain-foreign-tag))) (when ft |