[Emacs-diffs] emacs/lisp ChangeLog net/newst-treeview.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/11/17 04:41:18

Modified files:
        lisp           : ChangeLog 
        lisp/net       : newst-treeview.el 

Log message:
        (newsticker--treeview-list-update-faces):
        Preserve point in the list buffer.  (Bug#4939)
        Use point-at-eol.
        (newsticker--treeview-list-update-highlight)
        (newsticker--treeview-tree-update-highlight): Use point-at-bol/eol.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16652&r2=1.16653
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/newst-treeview.el?cvsroot=emacs&r1=1.22&r2=1.23

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16652
retrieving revision 1.16653
diff -u -b -r1.16652 -r1.16653
--- ChangeLog   17 Nov 2009 04:35:33 -0000      1.16652
+++ ChangeLog   17 Nov 2009 04:41:15 -0000      1.16653
@@ -2,6 +2,12 @@
 
        * vc-svn.el (vc-svn-print-log): Fix typo in previous.
 
+       * net/newst-treeview.el (newsticker--treeview-list-update-faces):
+       Preserve point in the list buffer.  (Bug#4939)
+       Use point-at-eol.
+       (newsticker--treeview-list-update-highlight)
+       (newsticker--treeview-tree-update-highlight): Use point-at-bol/eol.
+
 2009-11-16  Jay Belanger  <address@hidden>
 
        * calc/calc-bin.el (math-symclip, calcFunc-symclip, calc-symclip):

Index: net/newst-treeview.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-treeview.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- net/newst-treeview.el       31 Oct 2009 02:38:39 -0000      1.22
+++ net/newst-treeview.el       17 Nov 2009 04:41:18 -0000      1.23
@@ -548,10 +548,11 @@
   "Update faces in the treeview list buffer."
   (let (pos-sel)
     (with-current-buffer (newsticker--treeview-list-buffer)
+      (save-excursion
       (let ((inhibit-read-only t))
         (goto-char (point-min))
         (while (not (eobp))
-          (let* ((pos (save-excursion (end-of-line) (point)))
+            (let* ((pos (point-at-eol))
                  (item (get-text-property (point) :nt-item))
                  (age (newsticker--age item))
                  (selected (get-text-property (point) :nt-selected))
@@ -572,7 +573,7 @@
                               (current-buffer)))
             (if selected (setq pos-sel (point)))
             (forward-line 1)
-            (beginning-of-line))))) ;; FIXME!?
+              (beginning-of-line)))))) ;; FIXME!?
     (when pos-sel
       (if (window-live-p (newsticker--treeview-list-window))
           (set-window-point (newsticker--treeview-list-window) pos-sel)))))
@@ -590,9 +591,7 @@
     (let (pos num-lines)
       (with-current-buffer (newsticker--treeview-list-buffer)
         (let ((inhibit-read-only t))
-          (put-text-property (save-excursion (beginning-of-line) (point))
-                             (save-excursion (end-of-line) (point))
-                             :nt-selected t))
+          (put-text-property (point-at-bol) (point-at-eol) :nt-selected t))
         (newsticker--treeview-list-update-faces))))
 
 (defun newsticker--treeview-list-highlight-start ()
@@ -1039,8 +1038,7 @@
       (with-current-buffer (newsticker--treeview-tree-buffer)
         (goto-char pos)
         (move-overlay newsticker--tree-selection-overlay
-                      (save-excursion (beginning-of-line) (point))
-                      (save-excursion (end-of-line) (1+ (point)))
+                      (point-at-bol) (1+ (point-at-eol))
                       (current-buffer)))
       (if (window-live-p (newsticker--treeview-tree-window))
           (set-window-point (newsticker--treeview-tree-window) pos)))))