From: Richard M. Stallman Date: Tue, 11 Apr 1995 03:00:04 +0000 (+0000) Subject: (perl-comment-indent): Make extra space only when X-Git-Tag: emacs-19.34~4488 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=012733b38e2eaf7536c7f4381de4e320ae7abd6d;p=emacs.git (perl-comment-indent): Make extra space only when not at beginning of line. --- diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index fd12d9c7b77..d6c9d5802f9 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -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.