Re: How to end-key

Article View: fj.editor.mule

Article #3184

#3184

From: Akio Tokaji
Date: Mon, 05 Feb 1996 00:00

24 lines
1163 bytes

$B8M3a!wIY;NDL$G$9!#(B

$BD{@5$G$9!#(B
$B$3$NJ}$,$h$$$G$7$g$&!#(B

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

-- 
$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.96Feb5203119@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.96Feb5203119@zaurus>
X-Deja-AN: 138066313
distribution: fj
references: <4f2pk0$5m7@minerva.pl-gakuen.ac.jp> <TOKAJI.96Feb5202544@zaurus>
organization: Fujitsu Ltd., Shin-yokohama, Kanagawa, Japan
newsgroups: fj.editor.mule

Reply to Parent Message