Re: How to end-key

Article View: fj.editor.mule

Article #3185

#3185

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

27 lines
1306 bytes

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

$B;EMM$KCi<B$J$N$O!"$3$l$+$J!)(B
$B:G8e$N9T$K(B "." $B$d(B "end" $B$r;D$7$^$;$s!#(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)
        )
      )
    )
  (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.96Feb5204019@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.96Feb5204019@zaurus>
X-Deja-AN: 138067574
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