N
Size: a a a
2020 April 22
A
добавь списпок из (company-lsp company-dabbrev)
Нашел проблему. Там порядок запуска был не правильный. Теперь все как надо :)
VL
я вот такую приблуду написал
(defun decode-sgml-entities (beg end)
(interactive "r")
(save-excursion
(narrow-to-region beg end)
(goto-char beg)
(xml-parse-string)
(widen)))
VL
выбираешь регион и декодишь
C
Кстати, про нативную емаксовую модальность - есть view-mode
видел
N
я вот такую приблуду написал
(defun decode-sgml-entities (beg end)
(interactive "r")
(save-excursion
(narrow-to-region beg end)
(goto-char beg)
(xml-parse-string)
(widen)))
у меня не пашет :(
N
вот это работает, но только в ручную как в команду запихнуть хз
N
Я хочу чтобы сразу весь буфер заменило, зову
replace-regexp, даю ему сначала
&#\([0-9]+\);, потом
\,(char-to-string (string-to-number (match-string 1)))и все пашет
N
Пытаюсь написать команду
говорит
(defun test()
(interactive)
(replace-regexp "&#\\([0-9]+\\);" "\\,(char-to-string (string-to-number \\1))"))
говорит
replace-match-maybe-edit: Invalid use of ‘\’ in replacement text
PG
This function is for interactive use only;
in Lisp code use `re-search-forward' and `replace-match' instead.
in Lisp code use `re-search-forward' and `replace-match' instead.
VL
у меня не пашет :(
вмысле, ты виделил текст?
N
я тот еще погромист конечно
N
вмысле, ты виделил текст?
ну да
PG
вот как я решаю похожую задачу
(replace-regexp-in-string
"[^./][^/]*/"
(lambda (match) (string (aref match 0) ?/))
(substring (abbreviate-file-name cwd) 0 -1))
VL
ну да
попробуй сначала встать в начало буфера
VL
M-: (xml-parse-string) RET
VL
если работает, значит у тебя что-то не так с narrowing
VL
он выключен по дефолту