From 68ba37fbd97f96c75a13609a80fd4c1a5b147e3f Mon Sep 17 00:00:00 2001 From: Ken Manheimer Date: Thu, 30 Jun 2011 10:38:35 -0400 Subject: [PATCH] * allout.el (allout-yank-processing): Fix injection of extra space between bullet and non-whitespace character in first topic when pasting, ensuring that the actual spacing in the pasted topic following the bullet char is preserved. This extra space was causing pasted encrypted topics to get a decrypted status even when the content was actually still encrypted. Now the decryption status from before the paste is preserved. (allout-flag-region): Set all allout overlays so they evaporate when reduced to zero length (evanescent), to prevent overlay leakage. --- lisp/ChangeLog | 14 ++++++++++++++ lisp/allout.el | 4 ++-- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e6cf29a130b..5c063b9603b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,17 @@ +2011-06-30 Ken Manheimer + + * allout.el (allout-yank-processing): Fix injection of extra space + between bullet and non-whitespace character in first topic when + pasting, ensuring that the actual spacing in the pasted topic + following the bullet char is preserved. This extra space was + causing pasted encrypted topics to get a decrypted status even + when the content was actually still encrypted. Now the decryption + status from before the paste is preserved. + + (allout-flag-region): Set all allout overlays so they evaporate + when reduced to zero length (evanescent), to prevent overlay + leakage. + 2011-06-30 Glenn Morris * w32-fns.el (w32-charset-info-alist): Declare. diff --git a/lisp/allout.el b/lisp/allout.el index 1d4d4a20e11..552f9461335 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -4605,8 +4605,7 @@ however, are left exactly like normal, non-allout-specific yanks." ; and delete residual subj ; prefix digits and space: (while (looking-at "[0-9]") (delete-char 1)) - (if (looking-at " ") - (delete-char 1)))) + (delete-char -1))) ;; Assert new topic's bullet - minimal effort if unchanged: (allout-rebullet-heading (string-to-char prefix-bullet))) (exchange-point-and-mark)))) @@ -4736,6 +4735,7 @@ arguments as this function, after the exposure changes are made." (when flag (let ((o (make-overlay from to nil 'front-advance))) (overlay-put o 'category 'allout-exposure-category) + (overlay-put o 'evaporate t) (when (featurep 'xemacs) (let ((props (symbol-plist 'allout-exposure-category))) (while props -- 2.39.2