From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Fri, 22 Jun 2007 08:15:02 +0000 (+0000)
Subject: (hs-hide-comment-region): Use line-end-position.
X-Git-Tag: emacs-pretest-23.0.90~12157
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77a2bb53c22415b1619f9266dc098fc278e84422;p=emacs.git

(hs-hide-comment-region): Use line-end-position.
(hs-hide-block-at-point, hs-show-block): Likewise.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a38e26710f0..5a7b81d40d1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,9 @@
 	(next-error, next-error-internal): Recenter if specified,
 	immediately prior to running `next-error-hook'.
 
+	* progmodes/hideshow.el (hs-show-block): Use line-end-position.
+	(hs-hide-block-at-point, hs-hide-comment-region): Likewise.
+
 2007-06-22  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc/calc-comb.el (math-small-factorial-table): New variable.
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index d94f6acf8e1..f39fb477c9e 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -508,8 +508,8 @@ Original match data is restored upon return."
 (defun hs-hide-comment-region (beg end &optional repos-end)
   "Hide a region from BEG to END, marking it as a comment.
 Optional arg REPOS-END means reposition at end."
-  (let ((beg-eol (progn (goto-char beg) (end-of-line) (point)))
-        (end-eol (progn (goto-char end) (end-of-line) (point))))
+  (let ((beg-eol (progn (goto-char beg) (line-end-position)))
+        (end-eol (progn (goto-char end) (line-end-position))))
     (hs-discard-overlays beg-eol end-eol)
     (hs-make-overlay beg-eol end-eol 'comment beg end))
   (goto-char (if repos-end end beg)))
@@ -536,8 +536,7 @@ and then further adjusted to be at the end of the line."
                                         'identity)
                                     pure-p))
                 ;; whatever the adjustment, we move to eol
-                (end-of-line)
-                (point)))
+                (line-end-position)))
              (q
               ;; `q' is the point at the end of the block
               (progn (hs-forward-sexp mdata 1)
@@ -806,7 +805,7 @@ See documentation for functions `hs-hide-block' and `run-hooks'."
   (hs-life-goes-on
    (or
     ;; first see if we have something at the end of the line
-    (let ((ov (hs-overlay-at (save-excursion (end-of-line) (point))))
+    (let ((ov (hs-overlay-at (line-end-position)))
           (here (point)))
       (when ov
         (goto-char