简体   繁体   中英

Emacs: how to delete text without kill ring?

I'd like to just delete some text so I can yank some other text instead of it. How can I do that? Cw cuts the selected text to kill ring and I end up without the text I wanted to yank.

Also, is it possible to yank text directly instead of some text without even pressing buttons to kill it?

I type Mx delete-region quite often, but you can bind it it to a key.

With Delete Selection Mode in newer versions of Emacs you don't have to type a command just start typing:

By default, text insertion occurs normally even if the mark is active—for example, typing a inserts the character 'a', then deactivates the mark. Delete Selection mode, a minor mode, modifies this behavior: if you enable that mode, then inserting text while the mark is active causes the text in the region to be deleted first. Also, commands that normally delete just one character, such as Cd or DEL , will delete the entire region instead. To toggle Delete Selection mode on or off, type Mx delete-selection-mode.

You can use My after Cy to insert previous item from the kill ring, or use browse-kill-ring package.

As for the second question, see DeleteSelectionMode .

I have had the same issue. The closest thing I've got so far is to just make a small function that's essentially:

(defun ruthlessly-kill-line ()
  "Deletes a line, but does not put it in the kill-ring. (kinda)"
  (interactive)
  (move-beginning-of-line 1)
  (kill-line 1)
  (setq kill-ring (cdr kill-ring)))

Taken from the EmacsWiki :

The equivalent of 'kill-line' ( 'C-k' ) but without kill-ring side effects:

 (delete-region (point) (line-end-position))

Mx eval-expression (setq kill-ring (cdr kill-ring)) - 从 kill-ring 中删除最后一项

Most kill functions use kill-region to do the actual work of killing text. I use a lisp macro to create delete functions from kill functions.

(defmacro jpk/delete-instead-of-kill (&rest body)
  "Replaces `kill-region' with `delete-region' in BODY."
  `(cl-letf (((symbol-function 'kill-region)
              (lambda (beg end &optional yank-handler)
                (delete-region beg end))))
     ,@body))

(defun jpk/delete-word (arg)
  "Like `kill-word', but does not save to the `kill-ring'."
  (interactive "*p")
  (jpk/delete-instead-of-kill (kill-word arg)))

For your second question, alternatively to DeleteSelectionMode you can enable CUA Mode which additionally gives you a nice rectangle selection mode enabled by C-Return. CUA mode is part of emacs since 22.1.

Found an answer to this.

Posted it first here .

;; Ctrl-K with no kill
(defun delete-line-no-kill ()
  (interactive)
  (delete-region
   (point)
   (save-excursion (move-end-of-line 1) (point)))
 (delete-char 1)
)
(global-set-key (kbd "C-k") 'delete-line-no-kill)

Technically, the other answers are wrong on the first part.

Here is my implementation and motivation:

(defun delete-word (arg)
  "Delete characters backward until encountering the beginning of a word.
With argument ARG, do this that many times."
  (interactive "p")
  (delete-region (point) (progn (backward-word arg) (point))))

I adapted the code here from " kill-word " in simple.el . I switched kill-region with delete-region and forward-word for backward-word . This way it TRUELY does not affect the kill-ring , unlike the other situations where, outside of emacs, I noticed that the kill-ring was influenced.

My answer to first question: mark the text in emacs (using either mouse or set mark C-SPC ), and press "<- Backspace" button on keyboard instead of Cw . This way you can still paste over text in system clipboard, without worrying that the clipboard got overridden by text killed by Cw

Background for this answer: sometimes when I got text outside emacs that I want to use to replace a region in emacs, I often made a mistake by first copying that text into system clipboard (ie on Windows Ctrl + C ) , then doing a Cw in emacs to "delete" the region of text I want to replace, with the hope that a later Mw could recover my text in clipboard from kill-ring. Unfortunately the clipboard would be simply overridden by text killed by Cw , and original message in clipboard would never show in kill-ring.

For 2nd question, yes you can always mark the text in emacs first and then directly Cy

(defun copy-to-register-z (p1 p2)
  "Copy text selection to register named “z”."
  (interactive "r")
  (copy-to-register ?z p1 p2))
(defun replace-register-content-z (p1 p2)
  "Replace register named “z”'s content."
  (interactive "r")
  (delete-region p1 p2)
  (insert-register ?z))
(global-set-key (kbd "C-c c") 'copy-to-register-z)
(global-set-key (kbd "C-c v") 'replace-register-content-z)

As a complement to all answers. If you write elisp code to delete, you can call functions that kill as long as you use a local kill-ring object like this:

(defun delete-something()
  "Delete something without storing in kill ring."
  (let (kill-ring)
     (kill-something)))

Use any function that kill something in place of the kill-something. The function will then delete and nothing will be remembered in the real kill-ring.

Add a delete equivalent of kill-region and kill-line keys Cw and Ck as follows. Bound to keys Cv and Cz.

;; A keybinding to delete-region gives a good "Windows CUT Ctrl-x equivalent".
;; What keybinding to use is awkward to choose.
;; using C-v "Windows PASTE Ctrl-v" is quite a subversive option.
;;  C-v = scroll up in emacs which I have no use for.
(global-set-key (kbd "C-v") 'delete-region)

;; To have also a "Windows CUT" alternative to C-k (kill-line) this can be done:
(defun delete-line () "delete line, take it out of kill ring. bind this func to C-z"
 (interactive)
 (setq last-command 'delete-line)
 (kill-line)
 (setq kill-ring (cdr kill-ring))
 (setq kill-ring-yank-pointer kill-ring)
 (setq last-command 'delete-line)
)
(global-set-key (kbd "C-z") 'delete-line)
;; without setting of last-command 2+ C-zs mess up kill-ring

Here's a version of kill-region that doesn't force values into the kill-ring.

(defun kill-or-delete-region (beg end prefix)
  "Delete the region, storing it in the kill-ring.
If a prefix argument is given, don't change the kill-ring."
  (interactive "r\nP")
  (if prefix
      (delete-region beg end)
    (kill-region beg end)))

(global-set-key (kbd "C-w") 'kill-or-delete-region)

This enables you to do Cw as before, but Cu Cw now deletes text without changing the kill-ring.

how to delete text without kill ring?

the delete-region function will delete the selected region without adding it to the kill ring

Also, is it possible to yank text directly instead of some text without even pressing buttons to kill it?

I think you are asking how to replace the text in a selected region with something that you have already put on the kill ring.

Setting (delete-selection-mode 1) will allow you to yank/paste over a selected region. It also allows you to just type and replace a selected region.

On version 25.1.1 on OS XI also had to add (setq select-enable-primary nil) to prevent it from copying the selected region to the kill ring

The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM