Lines Matching defs:hard
62 (defcustom longlines-show-hard-newlines nil
63 "Non-nil means each hard newline is marked on the screen.
66 `longlines-show-hard-newlines'."
71 "A string to display when showing hard newlines.
72 This is used when `longlines-show-hard-newlines' is on."
101 If the variable `longlines-show-hard-newlines' is non-nil, hard newlines
107 (use-hard-newlines 1 'never)
133 (when (and longlines-show-hard-newlines
135 (longlines-show-hard-newlines))
161 (longlines-unshow-hard-newlines))
179 (kill-local-variable 'use-hard-newlines)))
187 ;; Showing the effect of hard newlines in the buffer
189 (defun longlines-show-hard-newlines (&optional arg)
190 "Make hard newlines visible by adding a face.
191 With optional argument ARG, make the hard newlines invisible again."
196 (longlines-unshow-hard-newlines)
202 "Make hard newlines between BEG and END visible."
205 (pos (text-property-not-all pmin pmax 'hard nil))
210 (setq pos (text-property-not-all (1+ pos) pmax 'hard nil)))))
212 (defun longlines-unshow-hard-newlines ()
213 "Make hard newlines invisible again."
216 (let ((pos (text-property-not-all (point-min) (point-max) 'hard nil)))
219 (setq pos (text-property-not-all (1+ pos) (point-max) 'hard nil)))))
310 Otherwise, return nil. Text cannot be moved across hard newlines."
314 (null (get-text-property (point) 'hard))
325 "Turn all newlines between BEG and END into hard newlines.
333 (set-hard-newline-properties
337 "Turn all newlines in the buffer into hard newlines."
349 (unless (get-text-property (match-beginning 0) 'hard)
360 (if (null (get-text-property pos 'hard str))