From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?ISO-8859-1?Q?R=FCdiger?= Sonderfeld Newsgroups: gmane.emacs.devel Subject: [PATCH 2/2] progmodes/vhdl-mode: Fixed use of obsolete functions/variables. Date: Wed, 23 May 2012 14:53:53 +0200 Message-ID: <2512224.EvGJyR5CcB@descartes> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1337777653 22558 80.91.229.3 (23 May 2012 12:54:13 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 23 May 2012 12:54:13 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed May 23 14:54:11 2012 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1SXB4o-0001qk-JZ for ged-emacs-devel@m.gmane.org; Wed, 23 May 2012 14:54:06 +0200 Original-Received: from localhost ([::1]:50584 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SXB4o-0003v8-4d for ged-emacs-devel@m.gmane.org; Wed, 23 May 2012 08:54:06 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:45755) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SXB4h-0003uh-5r for emacs-devel@gnu.org; Wed, 23 May 2012 08:54:04 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SXB4f-0006xD-6Z for emacs-devel@gnu.org; Wed, 23 May 2012 08:53:58 -0400 Original-Received: from ptmx.org ([178.63.28.110]:38099) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SXB4f-0006x3-0Z for emacs-devel@gnu.org; Wed, 23 May 2012 08:53:57 -0400 Original-Received: from localhost (localhost [127.0.0.1]) by ptmx.org (Postfix) with ESMTP id D086F21DD8; Wed, 23 May 2012 14:53:55 +0200 (CEST) X-Virus-Scanned: Debian amavisd-new at ptmx.org Original-Received: from ptmx.org ([127.0.0.1]) by localhost (ptmx.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 0vPc55lt-FuO; Wed, 23 May 2012 14:53:54 +0200 (CEST) Original-Received: from descartes.localnet (chello080108246092.7.14.vie.surfer.at [80.108.246.92]) by ptmx.org (Postfix) with ESMTPSA id 425551FF90; Wed, 23 May 2012 14:53:54 +0200 (CEST) User-Agent: KMail/4.8.2 (Linux/3.2.0-24-generic; KDE/4.8.2; x86_64; ; ) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 178.63.28.110 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:150615 Archived-At: (interactive-p) -> (called-interactively-p 'interactive) speedbar-key-map -> speedbar-mode-map Signed-off-by: R=C3=BCdiger Sonderfeld --- lisp/progmodes/vhdl-mode.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 27215de..0b02d3d 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -14400,10 +14400,10 @@ if required." =09 (define-key vhdl-speedbar-key-map (int-to-string key) =09 `(lambda () (interactive) (vhdl-speedbar-set-depth ,key))) =09 (setq key (1+ key))))) - (define-key speedbar-key-map "h" + (define-key speedbar-mode-map "h" (lambda () (interactive) =09(speedbar-change-initial-expansion-list "vhdl directory"))) - (define-key speedbar-key-map "H" + (define-key speedbar-mode-map "H" (lambda () (interactive) =09(speedbar-change-initial-expansion-list "vhdl project"))) ;; menu @@ -17415,7 +17415,8 @@ to visually support naming conventions.") "Display VARIABLE's documentation in *Help* buffer." (interactive) (unless (featurep 'xemacs) - (help-setup-xref (list #'vhdl-doc-variable variable) (interactive-= p))) + (help-setup-xref (list #'vhdl-doc-variable variable) + (called-interactively-p 'interactive))) (with-output-to-temp-buffer (if (fboundp 'help-buffer) (help-buffer) "*Help*") (princ (documentation-property variable 'variable-documentation)) @@ -17427,7 +17428,8 @@ to visually support naming conventions.") "Display VHDL Mode documentation in *Help* buffer." (interactive) (unless (featurep 'xemacs) - (help-setup-xref (list #'vhdl-doc-mode) (interactive-p))) + (help-setup-xref (list #'vhdl-doc-mode) + (called-interactively-p 'interactive))) (with-output-to-temp-buffer (if (fboundp 'help-buffer) (help-buffer) "*Help*") (princ mode-name) --=20 1.7.10