From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Leo Newsgroups: gmane.emacs.bugs Subject: bug#6304: 23.2; [PATCH] advising yank Date: Sat, 22 Jan 2011 11:50:37 +0800 Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1295668502 9283 80.91.229.12 (22 Jan 2011 03:55:02 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sat, 22 Jan 2011 03:55:02 +0000 (UTC) Cc: Johan =?UTF-8?Q?Bockg=C3=A5rd?= To: 6304@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Jan 22 04:54:54 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PgUYw-0005uj-Br for geb-bug-gnu-emacs@m.gmane.org; Sat, 22 Jan 2011 04:54:54 +0100 Original-Received: from localhost ([127.0.0.1]:53038 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PgUYv-0008LY-VD for geb-bug-gnu-emacs@m.gmane.org; Fri, 21 Jan 2011 22:54:54 -0500 Original-Received: from [140.186.70.92] (port=36779 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PgUYs-0008Jo-6I for bug-gnu-emacs@gnu.org; Fri, 21 Jan 2011 22:54:51 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PgUYr-0005sN-3W for bug-gnu-emacs@gnu.org; Fri, 21 Jan 2011 22:54:50 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:56318) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PgUYq-0005sJ-RI for bug-gnu-emacs@gnu.org; Fri, 21 Jan 2011 22:54:49 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1PgUNS-0003GV-2n; Fri, 21 Jan 2011 22:43:02 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: Resent-From: Leo Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 22 Jan 2011 03:43:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 6304 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 6304-submit@debbugs.gnu.org id=B6304.129566777912541 (code B ref 6304); Sat, 22 Jan 2011 03:43:01 +0000 Original-Received: (at 6304) by debbugs.gnu.org; 22 Jan 2011 03:42:59 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1PgUNP-0003GE-IC for submit@debbugs.gnu.org; Fri, 21 Jan 2011 22:42:59 -0500 Original-Received: from mail-px0-f172.google.com ([209.85.212.172]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1PgUNN-0003G1-6H for 6304@debbugs.gnu.org; Fri, 21 Jan 2011 22:42:57 -0500 Original-Received: by pxi6 with SMTP id 6so435894pxi.3 for <6304@debbugs.gnu.org>; Fri, 21 Jan 2011 19:50:52 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:from:to:cc:subject:date:message-id:user-agent :mime-version:content-type; bh=dh6HTKpdPdUj1q9yPihzB0MPBc2zt6XPbiA5GHYVxL8=; b=VYW7NXR4UcmqT7suF00idLPWOvGMjgyJvO3ZQ+SBGdIOAv2GmGdmawjsT6MclzcyhE UAd5WU7ngwLqiBGLp0NxrDPVheYbWgbJn6vtVQz3mqmqfmFunCnijNQjTa6gyXz9CRjD AnBQ+/PrFwAKPWy4Kev8M7qgyHVf58CxQvbbI= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=from:to:cc:subject:date:message-id:user-agent:mime-version :content-type; b=xVY5oN+GsYxoBA7tohn97/g1q9v59tzfZnaS+/PmHo7brpoNeFrp7N6uJSQ6AwMx9n /STyhy6T+y8JLkA1giQ6ExIwk3J3/wWMrwHtH/FO7wtxYgGBMThdf/mz5JcVhQYxt2Y2 0fZ5t5pZ20G4zJj7pjhpmM49FyuNr2cd4Iacw= Original-Received: by 10.142.245.3 with SMTP id s3mr637030wfh.198.1295668252126; Fri, 21 Jan 2011 19:50:52 -0800 (PST) Original-Received: from Victoria.local ([222.79.249.212]) by mx.google.com with ESMTPS id e14sm13575359wfg.8.2011.01.21.19.50.47 (version=TLSv1/SSLv3 cipher=RC4-MD5); Fri, 21 Jan 2011 19:50:50 -0800 (PST) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2.91 (Mac OS X 10.6.6) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Fri, 21 Jan 2011 22:43:02 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:43523 Archived-At: >From 238f221401cbdafe1df6634cbb69480e2748cced Mon Sep 17 00:00:00 2001 Date: Sat, 22 Jan 2011 11:40:15 +0800 Subject: [PATCH] Fix bug #6304 The text property in the documentation string may be removed by substitute-command-keys. --- lisp/emacs-lisp/advice.el | 4 +--- lisp/help-mode.el | 7 +++++++ 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 9267bc8a..02696d9e 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -3007,9 +3007,7 @@ (defun ad-make-advised-docstring (function &optional style) (setq usage (if (null usage) t (setq origdoc (cdr usage)) (car usage))) (if origdoc (setq paragraphs (list origdoc))) (unless (eq style 'plain) - (push (propertize (concat "This " origtype " is advised.") - 'face 'font-lock-warning-face) - paragraphs)) + (push (concat "This " origtype " is advised.") paragraphs)) (ad-dolist (class ad-advice-classes) (ad-dolist (advice (ad-get-enabled-advices function class)) (setq advice-docstring diff --git a/lisp/help-mode.el b/lisp/help-mode.el index f115e425..14ff164e 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -302,6 +302,13 @@ (defun help-mode-finish () ;; View mode's read-only status of existing *Help* buffer is lost ;; by with-output-to-temp-buffer. (toggle-read-only 1) + (save-excursion + (goto-char (point-min)) + (let ((inhibit-read-only t)) + (when (re-search-forward "^This \\w+ is advised.$" nil t) + (put-text-property (match-beginning 0) + (match-end 0) + 'face 'font-lock-warning-face)))) (help-make-xrefs (current-buffer)))) ;; Grokking cross-reference information in doc strings and -- 1.7.4.rc1