[Emacs-diffs] trunk r117376: * lisp/electric.el (electric-layout-post-self-insert-function):

[Dmitry Antipov]

------------------------------------------------------------
revno: 117376
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Antipov <address@hidden>
branch nick: trunk
timestamp: Sun 2014-06-22 09:43:58 +0400
message:
  * 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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/electric.el               electric.el-20091113204419-o5vbwnq5f7feedwu-47
  lisp/emacs-lisp/ert.el         ert.el-20110112160650-056hnl9qhpjvjicy-2
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-sum.el          gnussum.el-20091113204419-o5vbwnq5f7feedwu-1137
  lisp/obsolete/vi.el            vi.el-20091113204419-o5vbwnq5f7feedwu-14
  lisp/org/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-8688
  lisp/org/ob-core.el            obcore.el-20131112130502-8825zrk0dp6b9sq5-2
  lisp/org/org-mouse.el          
orgmouse.el-20091113204419-o5vbwnq5f7feedwu-8615
  lisp/org/org-table.el          
orgtable.el-20091113204419-o5vbwnq5f7feedwu-8657
  lisp/term.el                   term.el-20091113204419-o5vbwnq5f7feedwu-794
  lisp/textmodes/bibtex.el       bibtex.el-20091113204419-o5vbwnq5f7feedwu-227
  lisp/wid-edit.el               widedit.el-20091113204419-o5vbwnq5f7feedwu-1095

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-21 19:45:59 +0000
+++ b/lisp/ChangeLog    2014-06-22 05:43:58 +0000
@@ -1,3 +1,13 @@
+2013-06-22  Dmitry Antipov  <address@hidden>
+
+       * 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  <address@hidden>
 
        Fix completion retrieval parsing (bug#17209).

=== modified file 'lisp/electric.el'
--- a/lisp/electric.el  2014-05-09 18:03:21 +0000
+++ b/lisp/electric.el  2014-06-22 05:43:58 +0000
@@ -368,7 +368,7 @@
                (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)

=== modified file 'lisp/emacs-lisp/ert.el'
--- a/lisp/emacs-lisp/ert.el    2014-02-26 02:02:21 +0000
+++ b/lisp/emacs-lisp/ert.el    2014-06-22 05:43:58 +0000
@@ -1320,7 +1320,7 @@
         (unwind-protect
             (progn
               (insert message "\n")
-              (setq end (copy-marker (point)))
+              (setq end (point-marker))
               (goto-char begin)
               (insert "    " prefix)
               (forward-line 1)

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-06-05 22:43:36 +0000
+++ b/lisp/gnus/ChangeLog       2014-06-22 05:43:58 +0000
@@ -1,3 +1,8 @@
+2013-06-22  Dmitry Antipov  <address@hidden>
+
+       * gnus-sum.el (gnus-summary-edit-article-done):
+       Prefer point-marker to copy-marker of point.
+
 2014-06-05  Katsumi Yamaoka  <address@hidden>
 
        * gnus-art.el (gnus-article-edit-part): Don't modifiy markers.

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2014-03-24 00:35:00 +0000
+++ b/lisp/gnus/gnus-sum.el     2014-06-22 05:43:58 +0000
@@ -10613,7 +10613,7 @@
       (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))

=== modified file 'lisp/obsolete/vi.el'
--- a/lisp/obsolete/vi.el       2014-06-02 01:02:21 +0000
+++ b/lisp/obsolete/vi.el       2014-06-22 05:43:58 +0000
@@ -1200,7 +1200,7 @@
     (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 ()

=== modified file 'lisp/org/ChangeLog'
--- a/lisp/org/ChangeLog        2014-05-29 03:45:29 +0000
+++ b/lisp/org/ChangeLog        2014-06-22 05:43:58 +0000
@@ -1,3 +1,10 @@
+2013-06-22  Dmitry Antipov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * org-compat.el (org-font-lock-ensure): New function.

=== modified file 'lisp/org/ob-core.el'
--- a/lisp/org/ob-core.el       2014-04-22 14:07:45 +0000
+++ b/lisp/org/ob-core.el       2014-06-22 05:43:58 +0000
@@ -2039,8 +2039,8 @@
                                 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.

=== modified file 'lisp/org/org-mouse.el'
--- a/lisp/org/org-mouse.el     2014-01-01 07:43:34 +0000
+++ b/lisp/org/org-mouse.el     2014-06-22 05:43:58 +0000
@@ -1005,7 +1005,7 @@
        (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 @@
                (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)

=== modified file 'lisp/org/org-table.el'
--- a/lisp/org/org-table.el     2014-04-22 14:07:45 +0000
+++ b/lisp/org/org-table.el     2014-06-22 05:43:58 +0000
@@ -3182,9 +3182,9 @@
     (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")

=== modified file 'lisp/term.el'
--- a/lisp/term.el      2014-04-23 02:22:06 +0000
+++ b/lisp/term.el      2014-06-22 05:43:58 +0000
@@ -3632,7 +3632,7 @@
            (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)

=== modified file 'lisp/textmodes/bibtex.el'
--- a/lisp/textmodes/bibtex.el  2014-02-28 06:51:04 +0000
+++ b/lisp/textmodes/bibtex.el  2014-06-22 05:43:58 +0000
@@ -4840,7 +4840,7 @@
 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 @@
 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)

=== modified file 'lisp/wid-edit.el'
--- a/lisp/wid-edit.el  2014-02-10 01:34:22 +0000
+++ b/lisp/wid-edit.el  2014-06-22 05:43:58 +0000
@@ -2626,7 +2626,7 @@
   (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)))