From: Tak Ota <Takaaki.Ota@am.sony.com>
Cc: miles@gnu.org, miles@lsi.nec.co.jp, emacs-devel@gnu.org
Subject: Re: keymap in yank-excluded-properties
Date: Fri, 23 Aug 2002 16:04:27 -0700 (PDT) [thread overview]
Message-ID: <20020823.160427.60851399.Takaaki.Ota@am.sony.com> (raw)
In-Reply-To: <200208232229.g7NMTor08563@rum.cs.yale.edu>
Fri, 23 Aug 2002 18:29:49 -0400: "Stefan Monnier" <monnier+gnu/emacs@rum.cs.yale.edu> wrote:
> > > [BTW, if it's decided that this _is_ a good feature, please call the
> > > property something like `yank-preserved-properties' (actually I'm rather
> > > fond of `yankable-properties') and make it a list of property names or t.]
> >
> > Sorry that the diff makes the change look complicated but what I
> > proposed was an introduction of a new text property
> > `yank-preserve-all-properties' instead of a new variable
> > `yankable-properties' that holds properties to preserve. The actual
>
> Miles didn't propose a variable. He just suggested a more general
> property with a different name and which includes yours as a special case.
I see. Thanks for correcting my understanding. That makes sense. So
in case of table the value of `yankable-properties' property should be
like (keymap)? That is a good idea I think. The implementation
probably is a bit more elaborate than what I proposed though.
> Use the -b and -w switches to diff to make the diff more human
> readable (and a bit less computer-usable, but it's OK in this case).
Yes, it looks much better. Thanks.
*** ../../pure/emacs-21.3.50/lisp/subr.el Fri Aug 2 21:26:30 2002
--- subr.el Fri Aug 23 13:54:44 2002
***************
*** 1415,1420 ****
--- 1415,1421 ----
(defun remove-yank-excluded-properties (start end)
"Remove `yank-excluded-properties' between START and END positions.
Replaces `category' properties with their defined properties."
+ (unless (text-property-any start end 'yank-preserve-all-properties t)
(let ((inhibit-read-only t))
;; Replace any `category' property with the properties it stands for.
(unless (memq yank-excluded-properties '(t nil))
***************
*** 1435,1441 ****
(if (eq yank-excluded-properties t)
(set-text-properties start end nil)
(remove-list-of-text-properties start end
! yank-excluded-properties))))
(defun insert-for-yank (&rest strings)
"Insert STRINGS at point, stripping some text properties.
--- 1436,1442 ----
(if (eq yank-excluded-properties t)
(set-text-properties start end nil)
(remove-list-of-text-properties start end
! yank-excluded-properties)))))
(defun insert-for-yank (&rest strings)
"Insert STRINGS at point, stripping some text properties.
-Tak
next prev parent reply other threads:[~2002-08-23 23:04 UTC|newest]
Thread overview: 38+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-08-23 0:31 keymap in yank-excluded-properties Tak Ota
2002-08-23 1:55 ` Miles Bader
2002-08-23 22:21 ` Tak Ota
2002-08-23 22:29 ` Stefan Monnier
2002-08-23 23:04 ` Tak Ota [this message]
2002-08-23 9:52 ` Kim F. Storm
2002-08-25 5:25 ` Richard Stallman
2002-08-25 22:49 ` Kim F. Storm
2002-08-30 19:43 ` Tak Ota
2002-09-01 13:14 ` Richard Stallman
2002-09-02 15:02 ` Kim F. Storm
2002-09-03 13:26 ` Richard Stallman
2002-09-03 20:36 ` Tak Ota
2002-10-23 13:53 ` Kim F. Storm
2002-10-24 20:27 ` Tak Ota
2002-09-04 1:11 ` Miles Bader
2002-09-04 6:32 ` Juanma Barranquero
2002-09-04 8:45 ` Kim F. Storm
2002-09-04 8:02 ` Miles Bader
2002-09-04 8:50 ` Juanma Barranquero
2002-09-04 8:49 ` Juanma Barranquero
2002-09-04 12:48 ` Kim F. Storm
2002-09-04 14:10 ` Juanma Barranquero
2002-09-04 10:34 ` Per Abrahamsen
2002-09-04 12:35 ` Kim F. Storm
2002-09-05 1:10 ` Miles Bader
2002-09-05 13:18 ` Robert J. Chassell
2002-09-05 15:00 ` Kim F. Storm
2002-09-05 14:34 ` Per Abrahamsen
2002-09-05 15:15 ` Robert J. Chassell
2002-09-06 1:09 ` Miles Bader
2002-09-05 2:46 ` Richard Stallman
2002-09-05 14:48 ` Robert J. Chassell
2002-09-06 1:05 ` Miles Bader
2002-09-06 11:30 ` Andreas Schwab
2002-09-06 11:57 ` Modes: major, minor, context specific Robert J. Chassell
2002-09-06 20:03 ` keymap in yank-excluded-properties Richard Stallman
2002-09-01 13:15 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20020823.160427.60851399.Takaaki.Ota@am.sony.com \
--to=takaaki.ota@am.sony.com \
--cc=emacs-devel@gnu.org \
--cc=miles@gnu.org \
--cc=miles@lsi.nec.co.jp \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.