/[emacs]/emacs/lisp/longlines.el
ViewVC logotype

Diff of /emacs/lisp/longlines.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by cyd, Sun Nov 20 05:17:27 2005 UTC revision 1.21 by dak, Fri Nov 25 11:06:30 2005 UTC
# Line 246  not need to be wrapped, move point to th Line 246  not need to be wrapped, move point to th
246               nil)               nil)
247      (if (longlines-merge-lines-p)      (if (longlines-merge-lines-p)
248          (progn (end-of-line)          (progn (end-of-line)
                (delete-char 1)  
249       ;; After certain commands (e.g. kill-line), there may be two       ;; After certain commands (e.g. kill-line), there may be two
250       ;; successive soft newlines in the buffer.  In this case, we       ;; successive soft newlines in the buffer.  In this case, we
251       ;; replace these two newlines by a single space.  Unfortunately,       ;; replace these two newlines by a single space.  Unfortunately,
252       ;; this breaks the conservation of (spaces + newlines), so we       ;; this breaks the conservation of (spaces + newlines), so we
253       ;; have to fiddle with longlines-wrap-point.       ;; have to fiddle with longlines-wrap-point.
254                 (if (or (bolp) (eolp))                 (if (or (prog1 (bolp) (forward-char 1)) (eolp))
255                     (if (> longlines-wrap-point (point))                     (progn
256                         (setq longlines-wrap-point                       (delete-char -1)
257                               (1- longlines-wrap-point)))                       (if (> longlines-wrap-point (point))
258                   (insert-char ?  1))                           (setq longlines-wrap-point
259                                   (1- longlines-wrap-point))))
260                     (insert-before-markers-and-inherit ?\ )
261                     (backward-char 1)
262                     (delete-char -1)
263                     (forward-char 1))
264                 nil)                 nil)
265        (forward-line 1)        (forward-line 1)
266        t)))        t)))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26