diff options
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 @@ | |||
| 31 | 31 | ||
| 32 | (eval-when-compile (require 'cl-lib)) | 32 | (eval-when-compile (require 'cl-lib)) |
| 33 | 33 | ||
| 34 | (declare-function semantic-insert-foreign-tag "semantic/tag" (foreign-tag)) | ||
| 35 | (declare-function semantic-tag-buffer "semantic/tag" (tag)) | ||
| 36 | (declare-function semantic-tag-start "semantic/tag" (tag)) | ||
| 37 | |||
| 38 | ;;; Code: | 34 | ;;; Code: |
| 39 | 35 | ||
| 40 | (cl-defstruct | 36 | (cl-defstruct |
| @@ -174,11 +170,6 @@ delete any existing frames that the frame configuration doesn't mention. | |||
| 174 | (error "Register access aborted")) | 170 | (error "Register access aborted")) |
| 175 | (find-file (nth 1 val)) | 171 | (find-file (nth 1 val)) |
| 176 | (goto-char (nth 2 val))) | 172 | (goto-char (nth 2 val))) |
| 177 | ((and (fboundp 'semantic-foreign-tag-p) | ||
| 178 | semantic-mode | ||
| 179 | (semantic-foreign-tag-p val)) | ||
| 180 | (switch-to-buffer (semantic-tag-buffer val)) | ||
| 181 | (goto-char (semantic-tag-start val))) | ||
| 182 | (t | 173 | (t |
| 183 | (error "Register doesn't contain a buffer position or configuration"))))) | 174 | (error "Register doesn't contain a buffer position or configuration"))))) |
| 184 | 175 | ||
| @@ -349,10 +340,6 @@ Interactively, second arg is non-nil if prefix arg is supplied." | |||
| 349 | (princ val (current-buffer))) | 340 | (princ val (current-buffer))) |
| 350 | ((and (markerp val) (marker-position val)) | 341 | ((and (markerp val) (marker-position val)) |
| 351 | (princ (marker-position val) (current-buffer))) | 342 | (princ (marker-position val) (current-buffer))) |
| 352 | ((and (fboundp 'semantic-foreign-tag-p) | ||
| 353 | semantic-mode | ||
| 354 | (semantic-foreign-tag-p val)) | ||
| 355 | (semantic-insert-foreign-tag val)) | ||
| 356 | (t | 343 | (t |
| 357 | (error "Register does not contain text")))) | 344 | (error "Register does not contain text")))) |
| 358 | (if (not arg) (exchange-point-and-mark))) | 345 | (if (not arg) (exchange-point-and-mark))) |