Re: [EPeterson@mcdonaldbradley.com: Kill ring leak in winemacs macros]

[Kevin Rodgers <ihs_4664@yahoo.com>]

Stuart D. Herring wrote:
 > The variables `interprogram-cut-function' and
 > `interprogram-paste-function' can be set to nil to suppress the
 > synchronization, but this isn't just a customization issue (as in
 > "this isn't a problem, you should set X to Y") because the issue only
 > arises during keyboard macro execution.  If we want to support this,
 > presumably we want a new variable thusly:
 >
 > (defcustom macro-private-kills nil
 >   "*Non-nil means kill and yank commands executed by a keyboard macro
 > don't interact with window system cut and paste facilities."
 >   :type 'boolean
 >   :group 'killing
 >   :version "22.1")
 >
 > Then `kill-new', `kill-append', and `current-kill' would be modified to
 > ignore `interprogram-*-function' if `macro-private-kills' is set and a
 > keyboard macro is executing.

It would be simpler to temporarily bind the interprogram-*-functions
variables to nil in execute-kbd-macro.

 > Better variable names and/or docstrings are of course welcome.

How about:

(defcustom kbd-macro-disable-interprogram-functions nil
   "Disable `interprogram-cut-function' and `interprogram-paste-function'
while executing a keyboard macro.  This allows keyboard macros to run
independently of other programs."
   :type 'boolean
   :group 'killing) ; no keyboard macro or window system group

(defadvice execute-kbd-macro (around
                               kbd-macro-disable-interprogram-functions
                               activate)
   "Respect `kbd-macro-disable-interprogram-fuctions'."
   (let ((interprogram-cut-function
          (if kbd-macro-disable-interprogram-functions
              nil
            interprogram-cut-function))
         (interprogram-paste-function
          (if kbd-macro-disable-interprogram-functions
              nil
            interprogram-paste-function)))
     ad-do-it))

Or perhaps -ignore- is preferred over -disable- in variable names.

P.S.  I know that execute-kbd-macro is a built-in function defined in
src/macros.c, and defadvice is not allowed in the lisp/*.el files.  This
is for illustration only.

-- 
Kevin Rodgers