Как сделать так, чтобы нематериальный текст в emacs был полностью удален командами удаления? - PullRequest
Новая
       5

Как сделать так, чтобы нематериальный текст в emacs был полностью удален командами удаления?

1 голос
/ 29 сентября 2010

Я бы хотел, чтобы весь нематериальный текст был удален delete-char и backward-delete-char.Любой простой способ? 

(put-text-property (point-at-bol) (point-at-eol) 'intangible t)

kill-word и backward-kill-word удалит нематериальный текст, и я бы хотел, чтобы команды *-char делали то же самое.

В пользователеИнтерфейс, который я строю, какой-то критический текст невидим и нематериален.Поэтому, когда пользователь нажимает DEL ( Cd ) сразу после (до) скрытого, нематериального текста, весь текст должен исчезнуть.

Спасибо!

1 Ответ

1 голос
/ 29 сентября 2010

Используя Emacs без каких-либо файлов инициализации и предоставленный вами код (put-text..., я могу удалить символы в начале строки с помощью Mx delete-char ( Cd ) и удалите символы в конце строки с помощью Mx backward-delete-char ( DEL (ну, это действительно delete-backward-char)).

Отредактировано при уточнении вопроса :

Эти два совета удалят весь нематериальный регион: 

(defadvice delete-char (around delete-char-intangible activate)
  "when about to delete a char that's intangible, delete the whole region
Only do this when #chars is 1"
  (if (and (= (ad-get-arg 0) 1)
           (get-text-property (point) 'intangible))
      (kill-region (point) (save-excursion (forward-char 1) (point)))
    ad-do-it))

(defadvice delete-backward-char (around delete-backward-char-intangible activate)
  "when about to delete a char that's intangible, delete the whole region
Only do this interactively and when #chars is 1"
  (if (and (= (ad-get-arg 0) 1) (> (point) (point-min))
           (get-text-property (- (point) 1) 'intangible))
      (kill-region (point) (save-excursion (backward-char 1) (point)))
    ad-do-it))

Совет проверяет, вызывается ли команда с аргументом 1, и только после этого удаляет всю нематериальную область, в противном случае он ведет себя как обычно.

...