Re: How to rebind keys "C-j" to join-line -- SOLVED!

[Alex Wei]

Hi H. Dieter Wilhelm

Thanks for disgussing, your understandings are almost right.

 

for

C-o  -- Yes, just  C-e <RET>, the same effect as Vim's  o command

C--   -- Kill whole line, same as  C-a C-k C-k, kill whole line along with the last carriage return.

C-=  -- Yes, I define it as copy whole line, the same effect as Vim's  yy command

C-.  -- Why binding this to set-mark-command, and not C-SPC, because It was defined by Windows to activate IME.

 

Why hook it up? Because other scripts override my key bindings after Emacs startup,  .emacs was executed the first.

Appending my codes for your reference.

 

(defun copy-whole-line ()
  "copy line"
  (interactive)
  (setq end-pos (if (< (line-end-position) (point-max)) (+ 1 (line-end-position)) (point-max)))
  (copy-region-as-kill (line-beginning-position) end-pos)
  (message "line copied.")
)

 

(defun kill-whole-line ()
  "cut line"
  (interactive)
  (setq end-pos (if (< (line-end-position) (point-max)) (+ 1 (line-end-position)) (point-max)))
  (kill-region (line-beginning-position) end-pos)
)

 

(defun open-newline ()
  "open newline below and place the cursor at newline."
  (interactive)
  (goto-char (line-end-position))
  (newline-and-indent) 
)

 

Best Regards

 

Alex Wei
Sierra Atlantic

----- Original Message -----

From: Dieter Wilhelm

To: Alex Wei

Cc: help-gnu-emacs@gnu.org

Sent: Wednesday, August 08, 2007 4:36 AM

Subject: Re: How to rebind keys "C-j" to join-line -- SOLVED!

"Alex Wei" <swei@arrayinc.com> writes:

> Hi all
> 
> I've figured out how to secure binding my keys :D , I found two hooks that will
> guarantee my key-bindings will not be overrided.
> 
> (defun my-key-binding ()
>   "Customize my key bindings after Emacs startup."
>   (interactive)
>   ;; Key
> bindings                                                              
>   (local-set-key (kbd "<RET>") 'newline-and-indent)
>   (local-set-key (kbd "C-.") 'set-mark-command)

Why not the standard binding (C-SPC)?

>   (local-set-key (kbd "C--") 'kill-whole-line)

the same here C-S-backspace? (OK, I answer it myself: One needs three
keys.)  But you are restricting yourself to M-- and C-u- for negative
prefix arguments.

>   (local-set-key (kbd "C-=") 'copy-whole-line)

Yes, this is a function I'm also missing badly in Emacs.

>   (local-set-key (kbd "C-o") 'open-newline)

What is open-newline, something like C-e RET?

>   (local-set-key (kbd "C-j") 'join-line)

As I said M-^ is not so bad either ;-)

> (add-hook 'emacs-startup-hook 'my-key-binding)
> (add-hook 'change-major-mode-hook 'my-key-binding)

Sorry I do not know these hooks, but wouldn't for example:

(global-set-key "\C-o" 'open-newline)

in your .emacs have the same effect without adding hooks?

> Thanks anyway!

You are very welcome.

--
    Best wishes

    H. Dieter Wilhelm
    Darmstadt, Germany