🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.editor.mule
Article #3186

Re: How to end-key

#3186
From: Akio Tokaji
Date: Mon, 05 Feb 1996 00:00
41 lines
1568 bytes
$B8M3a!wIY;NDL$G$9!#(B
$B$$$$$3$H$r;W$$$D$-$^$7$?(B(^^)/$B!#(B

(1) .emacs $B$K0J2<$rF~$l$F$*$-$^$9!#(B

(progn
  (defun newline-special () (interactive)
    (let ( end-flag )
      (setq end-flag
            (and (eobp)
                 (save-excursion
                   (beginning-of-line)
                   (looking-at "\\([.]\\|end\\)$"))))
      (if (not end-flag)
          (call-interactively 'newline)
        (delete-region (point) (progn (beginning-of-line) (point)))
        (save-buffers-kill-emacs t)
        )
      )
    )
  (defun special-editor-mode ()
    (global-set-key "\C-m" 'newline-special)
    )
  )

(2) .cshrc $B$K0J2<$rF~$l$F$*$-$^$9(B(`se' $B$O!"(Bspecial editor $B$NN,(B)$B!#(B

alias se 'mule -f special-editor-mode'

(3) $B%3%^%s%I%i%$%s$G0J2<$N$h$&$K$7$^$9!#(B

% se

$B$^$?$O(B

% se mail.txt

-- 
$B8M3a(B $BL@IW(B ($B$H$+$8(B $B$"$-$*(B)
$BIY;NDL(B($B3t(B) $B%_%I%k%&%'%";v6HK\It(B $BBh0l%_%I%k%&%'%";v6HIt(B $BBh0l3+H/It(B
E-mail:tokaji@db.nm.fujitsu.co.jp (Nifty:GDG02564) Tel:045-471-0294
Technical Details
Message-ID: <TOKAJI.96Feb5205505@zaurus>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <4f2pk0$5m7@minerva.pl-gakuen.ac.jp> <TOKAJI.96Feb5202544@zaurus>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 10eba4,b6e1f73df748b4e
X-Google-Attributes: gid10eba4,public
From: tokaji@db.nm.fujitsu.co.jp (Akio Tokaji)
Subject: Re: How to end-key
Date: 1996/02/05
Message-ID: <TOKAJI.96Feb5205505@zaurus>
X-Deja-AN: 138068277
distribution: fj
references: <4f2pk0$5m7@minerva.pl-gakuen.ac.jp> <TOKAJI.96Feb5202544@zaurus>
organization: Fujitsu Ltd., Shin-yokohama, Kanagawa, Japan
newsgroups: fj.editor.mule