Ограничения на привязку к объекту и AUCTeX

Question

Я использую LaTeX с Emacs и хочу иметь возможность передавать слова того, что я пишу, в команду оболочки. (В качестве примера я использую xargs echo.)

Для этой цели я определила интерактивную функцию Elisp:

(defun echo() 
    (interactive) 
    (let ((bnds (bounds-of-thing-at-point 'word))) 
    (shell-command-on-region (car bnds) (cdr bnds) "xargs echo"))) 

Это хорошо работает для большинства буферов, но не для латексных буферов, используя замок шрифта AucTeX. Большинство слов снова работают нормально, но не слова с кавычками на границе их слов.

Минимальный пример:

\documentclass{article} 
\usepackage{german} 

\begin{document} 
test "`Test"' 
\end{document} 

Во-первых, так же, как доказательство концепции: Если точка находится на test в моем LaTeX буфере, и я стараюсь мою команду (echo) я получаю test как результат в минибуфере. (Как и ожидалось.)

Теперь проблема: если точка указана на Test, и я использую свою команду, xargs жалуется на несогласованные двойные кавычки.

Причина этого в том, что командная оболочка оболочки не передает Test команде оболочки, а Test"'. Это я могу проверить, используя код elisp xargs -0. Затем я получаю результат в минибуфере:

Test"' 

Проблема возникает из-за блокировки шрифта AUCTeXs. (Что я хочу использовать!) Если я устанавливаю font-latex-quotes к nil, моя команда отлично работает (она возвращает Test в минибуфере), но, конечно, цитируемый содержание не будет fontified ...

Любые идеи, как я мог либо изменить мой код elisp для работы с AUCTeX или настроить AUCTeX так, чтобы он выделял цитируемый контент, но сохранял правильные границы слов?

Answer 1

(defun echo() 
    (interactive) 
    (let ((bnds (bounds-of-thing-at-point 'word))) 
    (shell-command-on-region (car bnds) (cdr bnds) "xargs echo") 
    (display-buffer "*Shell Command Output*"))) 

WRT свой комментарий, изменение синтаксиса таблицы временно с функцией modify-syntax-entry или использовать другой, как это:

(defun echo() 
    (interactive) 
    (with-syntax-table text-mode-syntax-table 
    (let ((bnds (bounds-of-thing-at-point 'word))) 
     (shell-command-on-region (car bnds) (cdr bnds) "xargs echo") 
     (display-buffer "*Shell Command Output*"))))