program - emacs source code

¿Cómo obtengo la región(selección) programáticamente en Emacs Lisp?

Question

Necesito acceder a la selección en el buffer de Emacs. He encontrado este artículo ¿Cómo accedo a los contenidos de la región actual en Emacs Lisp? y me ayuda mucho

Pero hay un problema. La primera vez que selecciono (resaltar) una región, funciona bien, pero cuando presiono Cg y muevo el cursor normalmente a otro lugar sin resaltar ningún carácter, recibí una cadena de la última marca hasta el punto actual mientras esperaba una vacía. .

De hecho, necesito implementar una función que devuelva la selección actual (resaltada) como una cadena, o una cadena vacía si no hay nada resaltado. El siguiente código puede expresarme más claramente.

(defun get-search-term ()
  (interactive)
  (let (
        (selection (buffer-substring-no-properties (region-beginning) (region-end))))
    (if (= (length selection) 0)
        (message "empty string")
      (message selection))))

¿Alguna sugerencia? ¡Muchas gracias!

Answer 1

Verifique la variable marca activa, por ej. Ch v mark-active

==> mark-active es una variable definida en `C source code ''. Su valor es nulo Local en buffer Apropos ; el valor global es nulo

Automáticamente se convierte en buffer-local cuando se establece de cualquier manera.

Documentación: No-nil significa que la marca y la región están activas actualmente en este búfer.

(defun get-search-term ()
  (interactive)
  (if mark-active
      (let (
        (selection (buffer-substring-no-properties (region-beginning) (region-end))))
    (if (= (length selection) 0)
        (message "empty string")
      (message selection))
    )
    (error "mark not active"))
  )

Answer 2

La especificación "r" de interactiva es tonta. Estás viendo por qué.

(defun get-search-term (beg end)
  "message region or /"empty string/" if none highlighted"
  (interactive (if (use-region-p)
                   (list (region-beginning) (region-end))
                 (list (point-min) (point-min))))
  (let ((selection (buffer-substring-no-properties beg end)))
    (if (= (length selection) 0)
        (message "empty string")
      (message selection))))

No me refiero a "tonto" como en estúpido y no útil; solo que no le importa si la marca está activa o no. Creo que es anterior a transient-mark-mode.

EDITAR : Usar (point-min) dos veces más arriba hace que el código sea más difícil de entender al volver a leer. Aquí hay una mejor implementación:

(defun get-search-term (beg end)
  "message region or /"empty string/" if none highlighted"
  (interactive (if (use-region-p)
                   (list (region-beginning) (region-end))
                 (list nil nil)))
  (message "%s" (if (and beg end)
                    (buffer-substring-no-properties beg end)
                  "empty string")))