Secondo il nodo manuale Riempimento , molte delle funzioni di riempimento accettano un argomento JUSTIFY facoltativo che è possibile utilizzare. Quindi, per esempio, per riempire un paragrafo con la giusta giustificazione, puoi usare (fill-paragraph 'right).
È inoltre possibile utilizzare (justify-current-line 'right)per una singola riga.
Se si prevede di utilizzare queste opzioni molto, è possibile includerle in funzioni come quelle seguenti, quindi associare queste funzioni ai tasti desiderati:
(defun right-justify-current-line ()
"Right-justify this line."
(interactive)
(justify-current-line 'right))
(defun right-fill-paragraph ()
"Fill paragraph with right justification."
(interactive)
(fill-paragraph 'right))
Ecco una funzione che potresti inserire in sostituzione di fill-paragraph. Con vari prefissi, ti consente di decidere quale tipo di giustificazione utilizzare nel paragrafo che stai compilando:
(defun fill-paragraph-dwim (&optional arg)
"Fills the paragraph as normal with no prefix. With C-u,
right-justify. With C-u C-u, center-justify. With C-u C-u C-u,
full-justify."
(interactive "p")
(fill-paragraph (cond ((= arg 4) 'right)
((= arg 16) 'center)
((= arg 64) 'full))))
Se non si desidera riempire quando si esegue l' allineamento a destra, è possibile utilizzare la seguente funzione, che viene paralizzata direttamente dalla center-regionfunzione con una modifica a riga singola per allinearla correttamente:
(defun right-region (from to)
"Right-justify each nonblank line starting in the region."
(interactive "r")
(if (> from to)
(let ((tem to))
(setq to from from tem)))
(save-excursion
(save-restriction
(narrow-to-region from to)
(goto-char from)
(while (not (eobp))
(or (save-excursion (skip-chars-forward " \t") (eolp))
;; (center-line)) ; this was the original code
(justify-current-line 'right)) ; this is the new code
(forward-line 1)))))