diff options
author | Leo Liu <sdl.web@gmail.com> | 2013-03-26 10:49:05 +0800 |
---|---|---|
committer | Leo Liu <sdl.web@gmail.com> | 2013-03-26 10:49:05 +0800 |
commit | 08bb5ee241848b0bd9297274f1e76aaaae3245de (patch) | |
tree | 4affa6d11a35910bb6b2eda4a25bf03fcd957201 /lisp/register.el | |
parent | 4705d40c014b8b3e428026a5c1178b9d79d0bcb4 (diff) | |
download | emacs-08bb5ee241848b0bd9297274f1e76aaaae3245de.tar.gz |
* lisp/register.el: Move semantic tag handling back to
cedet/semantic/senator.el.
* lisp/cedet/semantic/senator.el (senator-copy-tag-to-register): Move
register handling logic from register.el. (Bug#14052)
Diffstat (limited to 'lisp/register.el')
-rw-r--r-- | lisp/register.el | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/lisp/register.el b/lisp/register.el index ae2f7cf3e2a..4876c614642 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -31,10 +31,6 @@ (eval-when-compile (require 'cl-lib)) -(declare-function semantic-insert-foreign-tag "semantic/tag" (foreign-tag)) -(declare-function semantic-tag-buffer "semantic/tag" (tag)) -(declare-function semantic-tag-start "semantic/tag" (tag)) - ;;; Code: (cl-defstruct @@ -174,11 +170,6 @@ delete any existing frames that the frame configuration doesn't mention. (error "Register access aborted")) (find-file (nth 1 val)) (goto-char (nth 2 val))) - ((and (fboundp 'semantic-foreign-tag-p) - semantic-mode - (semantic-foreign-tag-p val)) - (switch-to-buffer (semantic-tag-buffer val)) - (goto-char (semantic-tag-start val))) (t (error "Register doesn't contain a buffer position or configuration"))))) @@ -349,10 +340,6 @@ Interactively, second arg is non-nil if prefix arg is supplied." (princ val (current-buffer))) ((and (markerp val) (marker-position val)) (princ (marker-position val) (current-buffer))) - ((and (fboundp 'semantic-foreign-tag-p) - semantic-mode - (semantic-foreign-tag-p val)) - (semantic-insert-foreign-tag val)) (t (error "Register does not contain text")))) (if (not arg) (exchange-point-and-mark))) |