Commit 012733b3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(perl-comment-indent): Make extra space only when

not at beginning of line.
parent bf47de8e
......@@ -3,6 +3,7 @@
;; Copyright (C) 1990, 1994 Free Software Foundation, Inc.
;; Author: William F. Mann
;; Maintainer: FSF
;; Adapted-By: ESR
;; Keywords: languages
......@@ -282,8 +283,10 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'."
0 ;Existing comment at bol stays there.
(save-excursion
(skip-chars-backward " \t")
(max (1+ (current-column)) ;Else indent at comment column
comment-column)))) ; except leave at least one space.
(max (if (bolp) ;Else indent at comment column
0 ; except leave at least one space if
(1+ (current-column))) ; not at beginning of line.
comment-column))))
(defun electric-perl-terminator (arg)
"Insert character and adjust indentation.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment