mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/woman.el (woman-push, woman-pop): Remove. (Bug#27962)

Browse source 
(woman2-RS): Use plain `push' instead of `woman-push'.
(woman2-RE): Conditionally `pop' instead of `woman-pop'.
This commit is contained in:
Noam Postavsky 2017-06-29 21:51:04 -04:00
parent 794c3cd3a2
commit 3f938e1aea
1 changed files with 6 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/woman.el
View file

@ -4261,22 +4261,11 @@ Delete line from point and eol unless LEAVE-EOL is non-nil."
(if (> i 0) (setq woman-prevailing-indent i))))
woman-prevailing-indent)
(defmacro woman-push (value stack)
"Push VALUE onto STACK."
`(setq ,stack (cons ,value ,stack)))
(defmacro woman-pop (variable stack)
"Pop into VARIABLE the value at the top of STACK.
Allow for mismatched requests!"
`(if ,stack
(setq ,variable (car ,stack)
,stack (cdr ,stack))))
(defun woman2-RS (to)
".RS i -- Start relative indent, move left margin in distance i.
Set prevailing indent to 5 for nested indents. Format paragraphs upto TO."
(woman-push woman-left-margin woman-RS-left-margin)
(woman-push woman-prevailing-indent woman-RS-prevailing-indent)
(push woman-left-margin woman-RS-left-margin)
(push woman-prevailing-indent woman-RS-prevailing-indent)
(setq woman-left-margin (+ woman-left-margin
(woman2-get-prevailing-indent))
woman-prevailing-indent woman-default-indent)
@ -4285,8 +4274,10 @@ Set prevailing indent to 5 for nested indents. Format paragraphs upto TO."
(defun woman2-RE (to)
".RE -- End of relative indent. Format paragraphs upto TO.
Set prevailing indent to amount of starting .RS."
(woman-pop woman-left-margin woman-RS-left-margin)
(woman-pop woman-prevailing-indent woman-RS-prevailing-indent)
(when woman-RS-left-margin
(setq woman-left-margin (pop woman-RS-left-margin)))
(when woman-RS-prevailing-indent
(setq woman-prevailing-indent (pop woman-RS-prevailing-indent)))
(woman-delete-line 1) ; ignore any arguments
(woman2-format-paragraphs to woman-left-margin))