[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117376: * lisp/electric.el (electric-layout-post-se
From: |
Dmitry Antipov |
Subject: |
[Emacs-diffs] trunk r117376: * lisp/electric.el (electric-layout-post-self-insert-function): |
Date: |
Sun, 22 Jun 2014 05:44:24 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117376: * lisp/electric.el (electric-layout-post-self-insert-function):,
Dmitry Antipov <=