Làm cách nào để xóa tất cả các khoảng trắng cho đến ký tự không phải khoảng trắng đầu tiên?

Tôi đang tìm kiếm một hàm emacs sẽ xóa tất cả khoảng trắng khỏi vị trí con trỏ (bao gồm cả dòng mới) cho đến ký tự không phải khoảng trắng đầu tiên.

Ví dụ: nếu con trỏ của tôi được định vị ở cuối dòng đầu tiên:

main(arg1,
     arg2)

Chức năng xóa sẽ dẫn đến:

main(arg1,arg2)

Bạn có thể tìm thấy các hungry-deletegói hữu ích. Cá nhân tôi liên kết C-cdeleteđể xóa khoảng trắng sau điểm và C-cbackspaceđể xóa khoảng trắng trước điểm như vậy

(global-set-key (kbd "C-c <backspace>") 'hungry-delete-backward)
(global-set-key (kbd "C-c <deletechar>") 'hungry-delete-forward)

cập nhật: kể từ ngày 12.2018 định nghĩa hàm đã thay đổi:

(global-set-key (kbd "C-c <backspace>") 'c-hungry-delete-backward)
(global-set-key (kbd "C-c <deletechar>") 'c-hungry-delete-forward)

Tôi sử dụng điều này khá thường xuyên:

(defun join-line* ()
  "Join this line with the next line deleting extra white space."
  (interactive)
  (join-line t))

(global-set-key (kbd "M-j") #'join-line*) ;; just key binding I use…

Một giải pháp khác

(defun foo ()
  (interactive)
  (delete-region (point)
                 (+ (save-excursion (skip-chars-forward " \n"))
                    (point))))