🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.bug
Article #88044

perl-indent-command is wrong

#88044
From: Joe Reiss
Date: Wed, 17 Aug 1994 01:00
35 lines
2060 bytes
In GNU Emacs 19.25.1 of Mon Aug 15 1994 on opus (mab-next-ns3)

There's a problem in perl-mode.  According to the docs...

>If `perl-tab-always-indent' is nil and point is not in the indentation
>area at the beginning of the line, simply insert a tab.

Unfortunately, the opposite behavior is observed.  Tabs are inserted
if the cursor is in the indentation, and the line is reindented if the
cursor is *after* the indentation.  The fix is simple and involves
just changing a <= to a >.  The patch is included below.

Thanks for emacs!
Joe


*** ../19.25/lisp/perl-mode.el  Tue May 17 15:08:33 1994
--- perl-mode.el        Tue Aug 16 19:44:53 1994
***************
*** 319,325 ****
    (if arg                             ; If arg, just indent this line
        (perl-indent-line "\f")
      (if (and (not perl-tab-always-indent)
!            (<= (current-column) (current-indentation)))
        (insert-tab)
        (let (bof lsexp delta (oldpnt (point)))
        (beginning-of-line) 
--- 319,325 ----
    (if arg                             ; If arg, just indent this line
        (perl-indent-line "\f")
      (if (and (not perl-tab-always-indent)
!            (> (current-column) (current-indentation)))
        (insert-tab)
        (let (bof lsexp delta (oldpnt (point)))
        (beginning-of-line) 
Technical Details
Message-ID: <9408170057.AA00941@opus.ohio-state.edu>
Path: arc1-ca.pugleaf.net!bga.com!news.sprintlink.net!uunet!newsfeed.ACO.net!news.sztaki.hu!EU.net!howland.reston.ans.net!cs.utexas.edu!sdd.hp.com!col.hp.com!csn!magnus.acs.ohio-state.edu!cis.ohio-state.edu!opus.ohio-state.EDU!joe

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fb2f1,42bc944e906586ee,start
X-Google-Attributes: gidfb2f1,public
X-Google-ArrivalTime: 1994-08-16 18:20:41 PST
Path: arc1-ca.pugleaf.net!bga.com!news.sprintlink.net!uunet!newsfeed.ACO.net!news.sztaki.hu!EU.net!howland.reston.ans.net!cs.utexas.edu!sdd.hp.com!col.hp.com!csn!magnus.acs.ohio-state.edu!cis.ohio-state.edu!opus.ohio-state.EDU!joe
From: joe@opus.ohio-state.EDU (Joe Reiss)
Newsgroups: gnu.emacs.bug
Subject: perl-indent-command is wrong
Date: 16 Aug 1994 21:00:32 -0400
Organization: GNUs Not Usenet
Lines: 35
Sender: daemon@cis.ohio-state.edu
Approved: bug-gnu-emacs@prep.ai.mit.edu
Distribution: gnu
Message-ID: <9408170057.AA00941@opus.ohio-state.edu>