note jonadab <p>You could either change the wrap width in your prefs, or use the <a href="http://www.perlmonks.org/index.pl?node_id=297319&displaytype=displaycode">download the code</a> link as [bart] suggests. Or you could use an editor macro or function to undo the plus-wrapping. In Emacs, this should do it... </p> <code> (defun unplusify-buffer () (interactive) (save-excursion (goto-char (point-min)) (while (re-search-forward "^[+]") (backward-delete-char 2)))) </code> <p>The corresponding unplusify-region function is left as an exercise for the reader. Also note that I didn't worry about lines that legitimately start with +, because my obfu doesn't have any. A more general case would be a couple extra lines, as it would have to check whether the previous line is the same length as your wrap width.</p> <p><strong>update:</strong> like this:</p> <code> (defvar perlmonks-wrap-width 60) (defun perlmonks-unplusify-buffer () (interactive) (save-excursion (goto-char (point-min)) (while (re-search-forward "^[+]" (point-max) nil) (if (= perlmonks-wrap-width (save-excursion (previous-line 1) (end-of-line) (current-column))) (backward-delete-char 2))))) </code> <div class="pmsig"><div class="pmsig-230012"> <hr></hr> <code>$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/</code> </div></div> 297319 297333