aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/fill.el8
-rw-r--r--lisp/textmodes/ispell.el3
2 files changed, 5 insertions, 6 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index be3fd5a1789..2dd7b1e2c95 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1,7 +1,8 @@
1;;; fill.el --- fill commands for Emacs -*- coding: utf-8 -*- 1;;; fill.el --- fill commands for Emacs -*- coding: utf-8 -*-
2 2
3;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1999, 2001, 2002, 3;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1999, 2001,
4;; 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 4;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
5;; Free Software Foundation, Inc.
5 6
6;; Maintainer: FSF 7;; Maintainer: FSF
7;; Keywords: wp 8;; Keywords: wp
@@ -137,7 +138,7 @@ The fill column to use for a line is the first column at which the column
137number equals or exceeds the local fill-column - right-margin difference." 138number equals or exceeds the local fill-column - right-margin difference."
138 (save-excursion 139 (save-excursion
139 (if fill-column 140 (if fill-column
140 (let* ((here (progn (beginning-of-line) (point))) 141 (let* ((here (line-beginning-position))
141 (here-col 0) 142 (here-col 0)
142 (eol (progn (end-of-line) (point))) 143 (eol (progn (end-of-line) (point)))
143 margin fill-col change col) 144 margin fill-col change col)
@@ -1517,5 +1518,4 @@ Also, if CITATION-REGEXP is non-nil, don't fill header lines."
1517 "") 1518 "")
1518 string)) 1519 string))
1519 1520
1520;; arch-tag: 727ad455-1161-4fa9-8df5-0f74b179216d
1521;;; fill.el ends here 1521;;; fill.el ends here
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index afd39a709e1..9a494897b74 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2912,8 +2912,7 @@ Return nil if spell session is quit,
2912 (min skip-region-start ispell-region-end) 2912 (min skip-region-start ispell-region-end)
2913 (marker-position ispell-region-end)))) 2913 (marker-position ispell-region-end))))
2914 (let* ((ispell-start (point)) 2914 (let* ((ispell-start (point))
2915 (ispell-end (save-excursion 2915 (ispell-end (min (point-at-eol) reg-end))
2916 (end-of-line) (min (point) reg-end)))
2917 (string (ispell-get-line 2916 (string (ispell-get-line
2918 ispell-start ispell-end in-comment))) 2917 ispell-start ispell-end in-comment)))
2919 (if in-comment ; account for comment chars added 2918 (if in-comment ; account for comment chars added