diff options
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/fill.el | 8 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 3 |
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 | |||
| 137 | number equals or exceeds the local fill-column - right-margin difference." | 138 | number 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 |