1835 |
(let ((beg (save-excursion (beginning-of-line) (point))) |
(let ((beg (save-excursion (beginning-of-line) (point))) |
1836 |
(dollar (and (eq last-command-char ?$) |
(dollar (and (eq last-command-char ?$) |
1837 |
(eq this-command 'self-insert-command))) |
(eq this-command 'self-insert-command))) |
1838 |
(delete (and (memq last-command-char '(?\ ?\n ?\t ?\f)) |
(delete (and (memq last-command-char '(?\ ?\n ?\t ?\f)) |
1839 |
(memq this-command '(self-insert-command newline)))) |
(memq this-command '(self-insert-command newline)))) |
1840 |
my do) |
my do) |
1841 |
(and (save-excursion |
(and (save-excursion |
1905 |
|
|
1906 |
(defun cperl-electric-pod () |
(defun cperl-electric-pod () |
1907 |
"Insert a POD chunk appropriate after a =POD directive." |
"Insert a POD chunk appropriate after a =POD directive." |
1908 |
(let ((delete (and (memq last-command-char '(?\ ?\n ?\t ?\f)) |
(let ((delete (and (memq last-command-char '(?\ ?\n ?\t ?\f)) |
1909 |
(memq this-command '(self-insert-command newline)))) |
(memq this-command '(self-insert-command newline)))) |
1910 |
head1 notlast name p really-delete over) |
head1 notlast name p really-delete over) |
1911 |
(and (save-excursion |
(and (save-excursion |
4232 |
fill-column) |
fill-column) |
4233 |
(let ((c (save-excursion (beginning-of-line) |
(let ((c (save-excursion (beginning-of-line) |
4234 |
(cperl-to-comment-or-eol) (point))) |
(cperl-to-comment-or-eol) (point))) |
4235 |
(s (memq (following-char) '(?\ ?\t))) marker) |
(s (memq (following-char) '(?\ ?\t))) marker) |
4236 |
(if (>= c (point)) nil |
(if (>= c (point)) nil |
4237 |
(setq marker (point-marker)) |
(setq marker (point-marker)) |
4238 |
(cperl-fill-paragraph) |
(cperl-fill-paragraph) |
4241 |
(if (bolp) (progn (re-search-forward "#+[ \t]*") |
(if (bolp) (progn (re-search-forward "#+[ \t]*") |
4242 |
(goto-char (match-end 0)))) |
(goto-char (match-end 0)))) |
4243 |
;; Following space could have gone: |
;; Following space could have gone: |
4244 |
(if (or (not s) (memq (following-char) '(?\ ?\t))) nil |
(if (or (not s) (memq (following-char) '(?\ ?\t))) nil |
4245 |
(insert " ") |
(insert " ") |
4246 |
(backward-char 1)) |
(backward-char 1)) |
4247 |
;; Previous space could have gone: |
;; Previous space could have gone: |
4248 |
(or (memq (preceding-char) '(?\ ?\t)) (insert " ")))))) |
(or (memq (preceding-char) '(?\ ?\t)) (insert " ")))))) |
4249 |
|
|
4250 |
(defun cperl-imenu-addback (lst &optional isback name) |
(defun cperl-imenu-addback (lst &optional isback name) |
4251 |
;; 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 |