Commit 9c3883b4 authored by Dmitry Antipov's avatar Dmitry Antipov
Browse files

* lisp/electric.el (electric-layout-post-self-insert-function):

* lisp/emacs-lisp/ert.el (ert--insert-infos):
* lisp/obsolete/vi.el (vi-set-mark):
* lisp/term.el (term-handle-scroll):
* lisp/textmodes/bibtex.el (bibtex-fill-field, bibtex-fill-entry):
* lisp/gnus/gnus-sum.el (gnus-summary-edit-article-done):
* lisp/org/org-mouse.el (org-mouse-do-remotely):
* lisp/wid-edit.el (widget-editable-list-value-create): Prefer
point-marker to copy-marker of point.
* lisp/ob-core.el (org-babel-insert-result): Prefer point-min-marker
and point-max-marker.
parent b0358ef8
2013-06-22 Dmitry Antipov <dmantipov@yandex.ru>
* electric.el (electric-layout-post-self-insert-function):
* emacs-lisp/ert.el (ert--insert-infos):
* obsolete/vi.el (vi-set-mark):
* term.el (term-handle-scroll):
* textmodes/bibtex.el (bibtex-fill-field, bibtex-fill-entry):
* wid-edit.el (widget-editable-list-value-create): Prefer
point-marker to copy-marker of point.
2014-06-21 Fabián Ezequiel Gallina <fgallina@gnu.org>
 
Fix completion retrieval parsing (bug#17209).
......
......@@ -368,7 +368,7 @@ newline after CHAR but stay in the same place.")
(setq pos (electric--after-char-pos))
;; Not in a string or comment.
(not (nth 8 (save-excursion (syntax-ppss pos)))))
(let ((end (copy-marker (point)))
(let ((end (point-marker))
(sym (if (functionp rule) (funcall rule) rule)))
(set-marker-insertion-type end (not (eq sym 'after-stay)))
(goto-char pos)
......
......@@ -1320,7 +1320,7 @@ RESULT must be an `ert-test-result-with-condition'."
(unwind-protect
(progn
(insert message "\n")
(setq end (copy-marker (point)))
(setq end (point-marker))
(goto-char begin)
(insert " " prefix)
(forward-line 1)
......
2013-06-22 Dmitry Antipov <dmantipov@yandex.ru>
* gnus-sum.el (gnus-summary-edit-article-done):
Prefer point-marker to copy-marker of point.
2014-06-05 Katsumi Yamaoka <yamaoka@jpl.org>
 
* gnus-art.el (gnus-article-edit-part): Don't modifiy markers.
......
......@@ -10613,7 +10613,7 @@ groups."
(let ((lines (count-lines (point) (point-max)))
(length (- (point-max) (point)))
(case-fold-search t)
(body (copy-marker (point))))
(body (point-marker)))
(goto-char (point-min))
(when (re-search-forward "^content-length:[ \t]\\([0-9]+\\)" body t)
(delete-region (match-beginning 1) (match-end 1))
......
......@@ -1200,7 +1200,7 @@ SPECIAL FEATURE: char argument can be used to specify shift amount(1-9)."
(let ((aelt (assq char vi-mark-alist)))
(if aelt
(move-marker (cdr aelt) (point)) ; fixed 6/12/86
(setq aelt (cons char (copy-marker (point))))
(setq aelt (cons char (point-marker)))
(setq vi-mark-alist (cons aelt vi-mark-alist))))))
(defun vi-find-matching-paren ()
......
2013-06-22 Dmitry Antipov <dmantipov@yandex.ru>
* ob-core.el (org-babel-insert-result): Prefer point-min-marker
and point-max-marker.
* org-mouse.el (org-mouse-do-remotely): Prefer point-marker
to copy-marker of point.
2014-05-29 Stefan Monnier <monnier@iro.umontreal.ca>
 
* org-compat.el (org-font-lock-ensure): New function.
......@@ -2039,8 +2039,8 @@ code ---- the results are extracted in the syntax of the source
t info hash indent)))
(results-switches
(cdr (assoc :results_switches (nth 2 info))))
(visible-beg (copy-marker (point-min)))
(visible-end (copy-marker (point-max)))
(visible-beg (point-min-marker))
(visible-end (point-max-marker))
;; When results exist outside of the current visible
;; region of the buffer, be sure to widen buffer to
;; update them.
......
......@@ -1005,7 +1005,7 @@ This means, between the beginning of line and the point."
(let ((endmarker (with-current-buffer buffer
(outline-end-of-subtree)
(forward-char 1)
(copy-marker (point)))))
(point-marker))))
(org-with-remote-undo buffer
(with-current-buffer buffer
(widen)
......@@ -1015,7 +1015,7 @@ This means, between the beginning of line and the point."
(and (outline-next-heading)
(org-flag-heading nil))) ; show the next heading
(org-back-to-heading)
(setq marker (copy-marker (point)))
(setq marker (point-marker))
(goto-char (max (point-at-bol) (- (point-at-eol) anticol)))
(funcall command)
(message "_cmd: %S" org-mouse-cmd)
......
......@@ -3182,9 +3182,9 @@ with the prefix ARG."
(save-excursion
;; Insert a temporary formula at right after the table
(goto-char (org-table-TBLFM-begin))
(setq s (set-marker (make-marker) (point)))
(setq s (point-marker))
(insert (concat formula "\n"))
(setq e (set-marker (make-marker) (point)))
(setq e (point-marker))
;; Recalculate the table
(beginning-of-line 0) ; move to the inserted line
(skip-chars-backward " \r\n\t")
......
......@@ -3632,7 +3632,7 @@ all pending output has been dealt with."))
(if (< down 0) term-scroll-start term-scroll-end))))
(when (or (and (< down 0) (< scroll-needed 0))
(and (> down 0) (> scroll-needed 0)))
(let ((save-point (copy-marker (point))) (save-top))
(let ((save-point (point-marker)) (save-top))
(goto-char term-home-marker)
(cond (term-scroll-with-delete
(if (< down 0)
......
......@@ -4840,7 +4840,7 @@ If optional arg MOVE is non-nil move point to end of field."
If optional prefix JUSTIFY is non-nil justify as well.
In BibTeX mode this function is bound to `fill-paragraph-function'."
(interactive "*P")
(let ((pnt (copy-marker (point)))
(let ((pnt (point-marker))
(bounds (bibtex-enclosing-field t)))
(bibtex-fill-field-bounds bounds justify)
(goto-char pnt)))
......@@ -4852,7 +4852,7 @@ names appear in column `bibtex-field-indentation', field text starts in
column `bibtex-text-indentation' and continuation lines start here, too.
If `bibtex-align-at-equal-sign' is non-nil, align equal signs, too."
(interactive "*")
(let ((pnt (copy-marker (point)))
(let ((pnt (point-marker))
(beg (bibtex-beginning-of-entry)) ; move point
bounds)
(bibtex-delete-whitespace)
......
......@@ -2626,7 +2626,7 @@ Return an alist of (TYPE MATCH)."
(let* ((value (widget-get widget :value))
(type (nth 0 (widget-get widget :args)))
children)
(widget-put widget :value-pos (copy-marker (point)))
(widget-put widget :value-pos (point-marker))
(set-marker-insertion-type (widget-get widget :value-pos) t)
(while value
(let ((answer (widget-match-inline type value)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment