From mboxrd@z Thu Jan 1 00:00:00 1970 Path: quimby.gnus.org!not-for-mail From: storm@cua.dk (Kim F. Storm) Newsgroups: gmane.emacs.devel Subject: Re: "Overwrite" toggle in the Edit menu Date: 12 Feb 2002 01:06:56 +0100 Message-ID: <5xy9hzh8bj.fsf@kfs2.cua.dk> References: <1190-Sat09Feb2002164320+0200-eliz@is.elta.co.il> <5xr8ntrugh.fsf@kfs2.cua.dk> <200202111847.g1BIlxB06888@aztec.santafe.edu> NNTP-Posting-Host: quimby2.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: quimby2.netfonds.no 1013472999 4513 195.204.10.66 (12 Feb 2002 00:16:39 GMT) X-Complaints-To: usenet@quimby2.netfonds.no NNTP-Posting-Date: 12 Feb 2002 00:16:39 GMT Cc: emacs-devel@gnu.org Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby2.netfonds.no with esmtp (Exim 3.12 #1 (Debian)) id 16aQch-0001Ah-00 for ; Tue, 12 Feb 2002 01:16:39 +0100 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.33 #1 (Debian)) id 16aQSY-0006k9-00; Mon, 11 Feb 2002 19:06:10 -0500 Original-Received: from mail.filanet.dk ([195.215.206.179]) by fencepost.gnu.org with smtp (Exim 3.33 #1 (Debian)) id 16aQS8-0006il-00; Mon, 11 Feb 2002 19:05:44 -0500 Original-Received: from kfs2.cua.dk.cua.dk (unknown [10.1.82.3]) by mail.filanet.dk (Postfix) with SMTP id 4B51C7C035; Tue, 12 Feb 2002 00:05:43 +0000 (GMT) Original-To: rms@gnu.org In-Reply-To: <200202111847.g1BIlxB06888@aztec.santafe.edu> Original-Lines: 50 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.50 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.5 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: quimby.gnus.org gmane.emacs.devel:1016 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:1016 Richard Stallman writes: > I noticed this a week ago and started implementing a new feature > to make it work reliably. It almost works, but has a strange bug: > the mouse menu completely stopped working. > Here are the changes. Can anyone debug this problem? Could it be that in the new code below, mode-line-minor-mode-keymap is used literally (as a symbol) rather than its value ? > (setq-default mode-line-modes > (list > (propertize " %[(" 'help-echo help-echo) > ! '(:propertize ("" mode-name mode-line-process minor-mode-alist) > ! help-echo "mouse-3: minor mode menu" > ! local-map mode-line-minor-mode-keymap) > (propertize "%n" 'help-echo "mouse-2: widen" > 'local-map (make-mode-line-mouse-map > 'mouse-2 #'mode-line-widen)) In the old code, its value was used through this function: > - (defun mode-line-mode-name () "\ > - Return a string to display in the mode line for the current mode name." > - (when (stringp mode-name) > - (if (equal mode-name mode-line-copied-mode-name) > - mode-line-copied-mode-name > - (setq mode-line-copied-mode-name > - (propertize mode-name > - 'local-map mode-line-minor-mode-keymap > - 'help-echo "mouse-3: minor mode menu")))) > - mode-line-copied-mode-name) > - Maybe something like this will work: (setq-default mode-line-modes (list (propertize " %[(" 'help-echo help-echo) `(:propertize ("" mode-name mode-line-process minor-mode-alist) help-echo "mouse-3: minor mode menu" local-map ,mode-line-minor-mode-keymap) (propertize "%n" 'help-echo "mouse-2: widen" 'local-map (make-mode-line-mouse-map 'mouse-2 #'mode-line-widen)) -- Kim F. Storm http://www.cua.dk _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://mail.gnu.org/mailman/listinfo/emacs-devel