Gnus development mailing list
 help / color / mirror / Atom feed
From: steve@miranova.com (Steven L. Baur)
Subject: [sgnus 0.14] customizing strings for mouse highlight fails
Date: 18 Nov 1995 15:07:51 -0800	[thread overview]
Message-ID: <m2viohjzco.fsf@diana.miranova.com> (raw)

This patch is divided into two parts, and should fix a problem on GNU
Emacs as well.

Problem: Customizing the Group format line fails on XEmacs.  All of
the selected text that should be highlighted by the mouse fails to
appear in the buffer.

Patch: Now that there is a unified interface to the mouse highlight
stuffs, it should not be disabled in gnus-xmas.el.

--- gnus-xmas.el~       Thu Nov 16 19:36:23 1995
+++ gnus-xmas.el        Sat Nov 18 15:00:19 1995
@@ -307,7 +307,6 @@
 
 
 (defun gnus-xmas-redefine ()
-  (fset 'gnus-mouse-face-function 'identity)
   (fset 'gnus-summary-make-display-table (lambda () nil))
   (fset 'gnus-visual-turn-off-edit-menu 'identity)
   (fset 'gnus-highlight-selected-summary

Problem: The gnus-mouse-face-function fails when attempting to render
a customized format.  This should affect both GNU Emacs 19.29 and
XEmacs 19.13.

Patch: An extraneous comma got left in gnus-mouse-face-function (the
function that compiles the string format specification).

--- gnus.el~    Thu Nov 16 19:36:25 1995
+++ gnus.el     Sat Nov 18 14:53:32 1995
@@ -2164,7 +2164,7 @@
 (defun gnus-mouse-face-function (form)
   (` (put-text-property
       (point) (progn (insert (, form)) (point))
-      ,gnus-mouse-face-prop gnus-mouse-face)))
+      gnus-mouse-face-prop gnus-mouse-face)))
 
 (defun gnus-max-width-function (el max-width)
   (or (numberp max-width) (signal 'wrong-type-argument '(numberp max-width)))


-- 
steve@miranova.com baur


                 reply	other threads:[~1995-11-18 23:07 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

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=m2viohjzco.fsf@diana.miranova.com \
    --to=steve@miranova.com \
    /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.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).