4355 |
fill-column) |
fill-column) |
4356 |
(let ((c (save-excursion (beginning-of-line) |
(let ((c (save-excursion (beginning-of-line) |
4357 |
(cperl-to-comment-or-eol) (point))) |
(cperl-to-comment-or-eol) (point))) |
4358 |
(s (memq (following-char) '(?\ ?\t))) marker) |
(s (memq (following-char) '(?\s ?\t))) marker) |
4359 |
(if (>= c (point)) |
(if (>= c (point)) |
4360 |
;; Don't break line inside code: only inside comment. |
;; Don't break line inside code: only inside comment. |
4361 |
nil |
nil |
4366 |
(if (bolp) (progn (re-search-forward "#+[ \t]*") |
(if (bolp) (progn (re-search-forward "#+[ \t]*") |
4367 |
(goto-char (match-end 0)))) |
(goto-char (match-end 0)))) |
4368 |
;; Following space could have gone: |
;; Following space could have gone: |
4369 |
(if (or (not s) (memq (following-char) '(?\ ?\t))) nil |
(if (or (not s) (memq (following-char) '(?\s ?\t))) nil |
4370 |
(insert " ") |
(insert " ") |
4371 |
(backward-char 1)) |
(backward-char 1)) |
4372 |
;; Previous space could have gone: |
;; Previous space could have gone: |
4373 |
(or (memq (preceding-char) '(?\ ?\t)) (insert " ")))))) |
(or (memq (preceding-char) '(?\s ?\t)) (insert " ")))))) |
4374 |
|
|
4375 |
(defun cperl-imenu-addback (lst &optional isback name) |
(defun cperl-imenu-addback (lst &optional isback name) |
4376 |
;; We suppose that the lst is a DAG, unless the first element only |
;; We suppose that the lst is a DAG, unless the first element only |