Lines Matching +defs:old +defs:mark
40 ;; through the code with SPC, mark breakpoints with b, go until a
239 "For compatibility with old version."
270 ;; Define edebug-gensym - from old cl.el
585 ;; Compatibility with old versions.
1089 (defvar edebug-old-def-name nil) ; previous name of containing definition.
1221 (or edebug-def-name edebug-old-def-name (edebug-gensym "edebug-anon")))
1234 (defvar edebug-form-begin-marker) ; the mark for def being instrumented
1323 (edebug-old-def-name (edebug-form-data-name form-data-entry))
1339 (or edebug-def-name edebug-old-def-name (edebug-gensym "edebug-anon")))
2195 (defvar edebug-def-mark) ; the mark for the definition
2314 (edebug-def-mark (car edebug-data)) ; mark at def start
2317 (edebug-buffer (marker-buffer edebug-def-mark))
2449 (let ((old-result (aref edebug-coverage edebug-after-index)))
2451 ((eq 'ok-coverage old-result))
2452 ((eq 'unknown old-result)
2455 ((not (eq edebug-value old-result))
2529 (defvar edebug-outside-mark) ; the mark outside of edebug
2542 ;; Emacs 19 adds an arg to mark and mark-marker.
2543 (defalias 'edebug-mark-marker 'mark-marker)
2547 (unless (marker-position edebug-def-mark)
2558 (edebug-point (+ edebug-def-mark
2566 (edebug-outside-mark (edebug-mark))
2768 ;; Restore point, and mark.
2770 ;; that doesn't restore point and mark in the current buffer.
2774 (if (marker-buffer (edebug-mark-marker))
2776 (set-marker (edebug-mark-marker) edebug-outside-mark))
2980 (defun edebug-adjust-window (old-start)
2982 ;;; (message "window: %s old-start: %s window-start: %s pos: %s"
2983 ;;; (selected-window) old-start (window-start) (point)) (sit-for 5)
2986 ;; First try old-start
2987 (if old-start
2988 (set-window-start (selected-window) old-start))
3128 (if (marker-buffer (edebug-mark-marker))
3129 (marker-position (edebug-mark-marker)) "<not set>"))
3162 (edebug-def-mark (car edebug-data))
3171 edebug-def-mark))
3197 (edebug-def-mark (car edebug-data))
3212 (goto-char (+ edebug-def-mark
3238 (edebug-def-mark (car edebug-data))
3262 (goto-char (+ edebug-def-mark (aref offset-vector index)))
3539 (old-mode (or (get this-function 'edebug-initial-mode)
3545 old-mode
3547 (car (rassq old-mode edebug-initial-mode-alist))
3615 (if (marker-buffer (edebug-mark-marker))
3616 (set-marker (edebug-mark-marker) edebug-outside-mark))
4240 (def-mark (car data)) ; mark at def start
4253 (goto-char (+ def-mark (aref edebug-points i)))
4255 (setq start-of-line (- (point) def-mark)
4272 (goto-char (+ (aref edebug-points i) def-mark))
4377 (defun edebug-mark ()
4378 (mark t))
4465 edebug-mark
4466 edebug-mark-marker