X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/da95a9c86f7a15ac9bb23568a84a86920702f3e4..b83813ec2214046e9a2448058d4ede8e0062c0c4:/lisp/longlines.el diff --git a/lisp/longlines.el b/lisp/longlines.el index 77e0b41534..e8ab4fbdd8 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el @@ -1,6 +1,6 @@ ;;; longlines.el --- automatically wrap long lines -;; Copyright (C) 2000, 2001, 2004, 2005, 2006 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. ;; Authors: Kai Grossjohann ;; Alex Schroeder @@ -63,7 +63,7 @@ with differing widths." "Non-nil means each hard newline is marked on the screen. \(The variable `longlines-show-effect' controls what they look like.) You can also enable the display temporarily, using the command -`longlines-show-hard-newlines'" +`longlines-show-hard-newlines'." :group 'longlines :type 'boolean) @@ -258,7 +258,7 @@ not need to be wrapped, move point to the next line and return t." (if (> longlines-wrap-point (point)) (setq longlines-wrap-point (1- longlines-wrap-point)))) - (insert-before-markers-and-inherit ?\ ) + (insert-before-markers-and-inherit ?\s) (backward-char 1) (delete-char -1) (forward-char 1)) @@ -410,7 +410,7 @@ This is called by `post-command-hook' after each command." (defun longlines-window-change-function () "Re-wrap the buffer if the window width has changed. -This is called by `window-size-change-functions'." +This is called by `window-configuration-change-hook'." (when (/= fill-column (- (window-width) window-min-width)) (setq fill-column (- (window-width) window-min-width)) (let ((mod (buffer-modified-p)))