[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111483: Use point-max-marker and poi
From: |
Dmitry Antipov |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111483: Use point-max-marker and point-min-marker here and there. |
Date: |
Fri, 11 Jan 2013 14:40:54 +0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111483
committer: Dmitry Antipov <address@hidden>
branch nick: trunk
timestamp: Fri 2013-01-11 14:40:54 +0400
message:
Use point-max-marker and point-min-marker here and there.
* lisp/emacs-lisp/ert.el (ert-run-test): Use point-max-marker.
* lisp/erc/erc-dcc.el (erc-dcc-chat-setup): Likewise.
* lisp/gnus/gnus-async.el (gnus-async-article-callback): Likewise.
* lisp/erc/erc-dcc.el (erc-dcc-send-file): Use point-min-marker.
* lisp/gnus/gnus-art.el (gnus-mime-display-security): Use point-min-marker
and point-max-marker.
modified:
lisp/ChangeLog
lisp/emacs-lisp/ert.el
lisp/erc/ChangeLog
lisp/erc/erc-dcc.el
lisp/gnus/ChangeLog
lisp/gnus/gnus-art.el
lisp/gnus/gnus-async.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-01-11 09:45:54 +0000
+++ b/lisp/ChangeLog 2013-01-11 10:40:54 +0000
@@ -1,3 +1,7 @@
+2013-01-11 Dmitry Antipov <address@hidden>
+
+ * emacs-lisp/ert.el (ert-run-test): Use point-max-marker.
+
2013-01-11 Eli Zaretskii <address@hidden>
* autorevert.el (auto-revert-notify-rm-watch)
=== modified file 'lisp/emacs-lisp/ert.el'
--- a/lisp/emacs-lisp/ert.el 2013-01-02 16:13:04 +0000
+++ b/lisp/emacs-lisp/ert.el 2013-01-11 10:40:54 +0000
@@ -937,7 +937,7 @@
(cl-block error
(let ((begin-marker
(with-current-buffer (get-buffer-create "*Messages*")
- (set-marker (make-marker) (point-max)))))
+ (point-max-marker))))
(unwind-protect
(let ((info (make-ert--test-execution-info
:test ert-test
=== modified file 'lisp/erc/ChangeLog'
--- a/lisp/erc/ChangeLog 2013-01-04 01:31:52 +0000
+++ b/lisp/erc/ChangeLog 2013-01-11 10:40:54 +0000
@@ -1,3 +1,8 @@
+2013-01-11 Dmitry Antipov <address@hidden>
+
+ * erc-dcc.el (erc-dcc-send-file): Use point-min-marker.
+ (erc-dcc-chat-setup): Use point-max-marker.
+
2013-01-04 Glenn Morris <address@hidden>
* erc-backend.el (312): Fix typo. (Bug#13235)
=== modified file 'lisp/erc/erc-dcc.el'
--- a/lisp/erc/erc-dcc.el 2013-01-02 16:13:04 +0000
+++ b/lisp/erc/erc-dcc.el 2013-01-11 10:40:54 +0000
@@ -897,7 +897,7 @@
(let* ((buffer (erc-dcc-find-file file))
(size (buffer-size buffer))
(start (with-current-buffer buffer
- (set-marker (make-marker) (point-min))))
+ (point-min-marker)))
(sproc (erc-dcc-server "dcc-send"
'erc-dcc-send-filter
'erc-dcc-send-sentinel))
@@ -1166,7 +1166,7 @@
(setq erc-dcc-from nick)
(setq erc-dcc-entry-data entry)
(setq erc-dcc-unprocessed-output "")
- (setq erc-insert-marker (set-marker (make-marker) (point-max)))
+ (setq erc-insert-marker (point-max-marker))
(setq erc-input-marker (make-marker))
(erc-display-prompt buffer (point-max))
(set-process-buffer proc buffer)
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2013-01-11 03:06:13 +0000
+++ b/lisp/gnus/ChangeLog 2013-01-11 10:40:54 +0000
@@ -1,3 +1,9 @@
+2013-01-11 Dmitry Antipov <address@hidden>
+
+ * gnus-art.el (gnus-mime-display-security): Use point-min-marker
+ and point-max-marker.
+ * gnus-async.el (gnus-async-article-callback): Use point-max-marker.
+
2013-01-10 Uwe Brauer <address@hidden> (tiny change)
* mml-smime.el (mml-smime-encrypt-to-self): New user option analogous
=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el 2013-01-02 16:13:04 +0000
+++ b/lisp/gnus/gnus-art.el 2013-01-11 10:40:54 +0000
@@ -8688,9 +8688,7 @@
gnus-mime-security-button-end-line-format))
(gnus-insert-mime-security-button handle)))
(mm-set-handle-multipart-parameter
- handle 'gnus-region
- (cons (set-marker (make-marker) (point-min))
- (set-marker (make-marker) (point-max))))
+ handle 'gnus-region (cons (point-min-marker) (point-max-marker)))
(goto-char (point-max))))
(defun gnus-mime-security-run-function (function)
=== modified file 'lisp/gnus/gnus-async.el'
--- a/lisp/gnus/gnus-async.el 2013-01-01 09:11:05 +0000
+++ b/lisp/gnus/gnus-async.el 2013-01-11 10:40:54 +0000
@@ -254,7 +254,7 @@
gnus-async-article-alist
(cons (list (intern (format "%s-%d" group article)
gnus-async-hashtb)
- mark (set-marker (make-marker) (point-max))
+ mark (point-max-marker)
group article)
gnus-async-article-alist))))
(if (not (gnus-buffer-live-p summary))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111483: Use point-max-marker and point-min-marker here and there.,
Dmitry Antipov <=