January 2006 - xemacs-cvs＠xemacs.org - XEmacs Mailing List Archives

CVS update by viteno xemacs ... 18 years, 3 months

CVS Monitor

User: viteno Date: 06/01/12 23:51:04 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1406 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1405 retrieving revision 1.1406 diff -u -p -r1.1405 -r1.1406 --- version.sh 2006/01/11 22:51:08 1.1405 +++ version.sh 2006/01/12 22:51:03 1.1406 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060111)" +xemacs_extra_name="(+CVS-20060112)" xemacs_release_date="2005-12-19"

1 participants
0 comments

CVS update by adrian xemacsweb/Develop, packages.content ... 18 years, 3 months

CVS Monitor

User: adrian Date: 06/01/12 10:42:00 Modified: xemacsweb/Develop ChangeLog cvsaccess.content packages.content Log: xemacsweb: Global replace of cvs tag r21-5-current-beta with r21-5-latest-beta -------------------- ChangeLog entries follow: -------------------- Develop/ChangeLog addition: 2006-01-12 Adrian Aichner <adrian(a)xemacs.org> * cvsaccess.content: Remove no longer needed <hr /> tag. * packages.content: Remove misleading authorship and feedback information (reported by Simon Blanchard). Releases/ChangeLog addition: 2006-01-12 Adrian Aichner <adrian(a)xemacs.org> * 21.5.19.content: Global replace of cvs tag r21-5-current-beta with r21-5-latest-beta (reported by Simon Blanchard). * 21.5.2.content: Ditto. * 21.5.20.content: Ditto. * 21.5.21.content: Ditto. * 21.5.22.content: Ditto. * 21.5.23.content: Ditto. * 21.5.24.content: Ditto. Revision Changes Path 1.130 +11 -0 XEmacs/xemacsweb/Releases/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/ChangeLog,v retrieving revision 1.129 retrieving revision 1.130 diff -u -p -r1.129 -r1.130 --- ChangeLog 2006/01/06 11:55:58 1.129 +++ ChangeLog 2006/01/12 09:41:39 1.130 ＠＠ -1,3 +1,14 ＠＠ +2006-01-12 Adrian Aichner <adrian(a)xemacs.org> + + * 21.5.19.content: Global replace of cvs tag r21-5-current-beta + with r21-5-latest-beta (reported by Simon Blanchard). + * 21.5.2.content: Ditto. + * 21.5.20.content: Ditto. + * 21.5.21.content: Ditto. + * 21.5.22.content: Ditto. + * 21.5.23.content: Ditto. + * 21.5.24.content: Ditto. + 2006-01-06 Adrian Aichner <adrian(a)xemacs.org> * core-beta.txt: Add generated updates for pt.xemacs.org. 1.3 +1 -1 XEmacs/xemacsweb/Releases/21.5.19.content Index: 21.5.19.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/21.5.19.content,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- 21.5.19.content 2005/05/28 08:48:18 1.2 +++ 21.5.19.content 2006/01/12 09:41:40 1.3 ＠＠ -116,7 +116,7 ＠＠ On platforms with a Bourne shell and fin will convert your entire tree. Tags are also the same; to update to release 21.5.19, use the release -tag "r21-5-19". The tag "r21-5-current-beta" will always be an alias +tag "r21-5-19". The tag "r21-5-latest-beta" will always be an alias for the most recently released beta. Development occurs on the unnamed CVS trunk; to revert your tree to the trunk, use "cvs update -A". 1.3 +1 -1 XEmacs/xemacsweb/Releases/21.5.2.content Index: 21.5.2.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/21.5.2.content,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- 21.5.2.content 2003/01/13 21:37:14 1.2 +++ 21.5.2.content 2006/01/12 09:41:40 1.3 ＠＠ -33,7 +33,7 ＠＠ They will be moved once the Tux administ permissions. </p><p> The CVS procedures are unchanged, and as far as I can tell the r21-5-2 -tag has been added and the r21-5-current-beta tag has been moved to +tag has been added and the r21-5-latest-beta tag has been moved to reflect the release. If there is a problem with CVS, any of the reviewers with shell access at ftp.xemacs.org should be able to fix. Please do, I will be only intermittently able to access the 'net for 1.2 +1 -1 XEmacs/xemacsweb/Releases/21.5.20.content Index: 21.5.20.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/21.5.20.content,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- 21.5.20.content 2005/03/12 07:12:48 1.1 +++ 21.5.20.content 2006/01/12 09:41:40 1.2 ＠＠ -297,7 +297,7 ＠＠ On platforms with a Bourne shell and fin will convert your entire tree. Tags are also the same; to update to release 21.5.20, use the release -tag "r21-5-20". The tag "r21-5-current-beta" will always be an alias +tag "r21-5-20". The tag "r21-5-latest-beta" will always be an alias for the most recently released beta. Development occurs on the unnamed CVS trunk; to revert your tree to the trunk, use "cvs update -A". 1.4 +1 -1 XEmacs/xemacsweb/Releases/21.5.21.content Index: 21.5.21.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/21.5.21.content,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- 21.5.21.content 2005/05/31 22:36:47 1.3 +++ 21.5.21.content 2006/01/12 09:41:40 1.4 ＠＠ -103,7 +103,7 ＠＠ will convert your entire tree. To make it straightforward to access certain versions of the code, we have a standard tagging policy. To update to release 21.5.21, use the update flag "-r r21-5-21". To update to the current release without referring to -it specifically, use the flag "-r r21-5-current-beta". To update to the +it specifically, use the flag "-r r21-5-latest-beta". To update to the latest commits in CVS, use the flag "-A". Then rebuild XEmacs. 1.2 +1 -1 XEmacs/xemacsweb/Releases/21.5.22.content Index: 21.5.22.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/21.5.22.content,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- 21.5.22.content 2005/09/19 09:13:09 1.1 +++ 21.5.22.content 2006/01/12 09:41:40 1.2 ＠＠ -93,7 +93,7 ＠＠ will convert your entire tree. To make it straightforward to access certain versions of the code, we have a standard tagging policy. To update to release 21.5.22, use the update flag "-r r21-5-22". To update to the current release without referring to -it specifically, use the flag "-r r21-5-current-beta". To update to the +it specifically, use the flag "-r r21-5-latest-beta". To update to the latest commits in CVS, use the flag "-A". Then rebuild XEmacs. For more details, see 1.2 +1 -1 XEmacs/xemacsweb/Releases/21.5.23.content Index: 21.5.23.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/21.5.23.content,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- 21.5.23.content 2005/10/27 18:29:34 1.1 +++ 21.5.23.content 2006/01/12 09:41:41 1.2 ＠＠ -104,7 +104,7 ＠＠ will convert your entire tree. To make it straightforward to access certain versions of the code, we have a standard tagging policy. To update to release 21.5.23, use the update flag "-r r21-5-23". To update to the current release without referring to -it specifically, use the flag "-r r21-5-current-beta". To update to the +it specifically, use the flag "-r r21-5-latest-beta". To update to the latest commits in CVS, use the flag "-A". Then rebuild XEmacs. For more details, see 1.2 +1 -1 XEmacs/xemacsweb/Releases/21.5.24.content Index: 21.5.24.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Releases/21.5.24.content,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- 21.5.24.content 2005/12/19 05:48:59 1.1 +++ 21.5.24.content 2006/01/12 09:41:41 1.2 ＠＠ -116,7 +116,7 ＠＠ will convert your entire tree. To make it straightforward to access certain versions of the code, we have a standard tagging policy. To update to release 21.5.24, use the update flag "-r r21-5-24". To update to the current release without referring to -it specifically, use the flag "-r r21-5-current-beta". To update to the +it specifically, use the flag "-r r21-5-latest-beta". To update to the latest commits in CVS, use the flag "-A". Then rebuild XEmacs. For more details, see 1.103 +6 -0 XEmacs/xemacsweb/Develop/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Develop/ChangeLog,v retrieving revision 1.102 retrieving revision 1.103 diff -u -p -r1.102 -r1.103 --- ChangeLog 2006/01/09 20:45:18 1.102 +++ ChangeLog 2006/01/12 09:41:58 1.103 ＠＠ -1,3 +1,9 ＠＠ +2006-01-12 Adrian Aichner <adrian(a)xemacs.org> + + * cvsaccess.content: Remove no longer needed <hr /> tag. + * packages.content: Remove misleading authorship and feedback + information (reported by Simon Blanchard). + 2006-01-09 Adrian Aichner <adrian(a)xemacs.org> * cvsaccess.content: Remove misleading authorship and feedback 1.30 +0 -2 XEmacs/xemacsweb/Develop/cvsaccess.content Index: cvsaccess.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Develop/cvsaccess.content,v retrieving revision 1.29 retrieving revision 1.30 diff -u -p -r1.29 -r1.30 --- cvsaccess.content 2006/01/09 20:45:19 1.29 +++ cvsaccess.content 2006/01/12 09:41:58 1.30 ＠＠ -658,8 +658,6 ＠＠ cvs-rw commit ./ChangeLog ./etc/photos/n this may change to where the head is our development area, and you will have to use tags to grab a particular version.</p> - <hr /> - <!-- Keep this comment at the end of the file Local variables: mode: xml 1.36 +0 -4 XEmacs/xemacsweb/Develop/packages.content Index: packages.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Develop/packages.content,v retrieving revision 1.35 retrieving revision 1.36 diff -u -p -r1.35 -r1.36 --- packages.content 2005/04/04 19:29:38 1.35 +++ packages.content 2006/01/12 09:41:59 1.36 ＠＠ -201,10 +201,6 ＠＠ Ville Skyttä <scop@xemacs.org> <a href="index.html">Back</a> to the How to Help page. </p> - <hr /> - This site used to be maintained by - <address><a href="mailto:jareth＠xemacs.org">Jareth Hein</a></address> - <!-- Keep this comment at the end of the file Local variables: mode: xml

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 3 months

CVS Monitor

User: viteno Date: 06/01/11 23:51:08 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1405 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1404 retrieving revision 1.1405 diff -u -p -r1.1404 -r1.1405 --- version.sh 2006/01/10 22:51:05 1.1404 +++ version.sh 2006/01/11 22:51:08 1.1405 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060110)" +xemacs_extra_name="(+CVS-20060111)" xemacs_release_date="2005-12-19"

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 3 months

CVS Monitor

User: viteno Date: 06/01/10 23:51:06 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1404 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1403 retrieving revision 1.1404 diff -u -p -r1.1403 -r1.1404 --- version.sh 2006/01/09 22:51:09 1.1403 +++ version.sh 2006/01/10 22:51:05 1.1404 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060109)" +xemacs_extra_name="(+CVS-20060110)" xemacs_release_date="2005-12-19"

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 3 months

CVS Monitor

User: viteno Date: 06/01/09 23:51:10 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1403 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1402 retrieving revision 1.1403 diff -u -p -r1.1402 -r1.1403 --- version.sh 2006/01/08 22:51:52 1.1402 +++ version.sh 2006/01/09 22:51:09 1.1403 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060108)" +xemacs_extra_name="(+CVS-20060109)" xemacs_release_date="2005-12-19"

1 participants
0 comments

CVS update by adrian xemacsweb/Develop ... 18 years, 3 months

CVS Monitor

User: adrian Date: 06/01/09 21:45:19 Modified: xemacsweb/Develop ChangeLog cvsaccess.content Log: xemacsweb: Remove misleading authorship and feedback information from cvsaccess.content -------------------- ChangeLog entries follow: -------------------- Develop/ChangeLog addition: 2006-01-09 Adrian Aichner <adrian(a)xemacs.org> * cvsaccess.content: Remove misleading authorship and feedback information (reported by Simon Blanchard). Revision Changes Path 1.102 +5 -0 XEmacs/xemacsweb/Develop/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Develop/ChangeLog,v retrieving revision 1.101 retrieving revision 1.102 diff -u -p -r1.101 -r1.102 --- ChangeLog 2005/12/03 10:52:31 1.101 +++ ChangeLog 2006/01/09 20:45:18 1.102 ＠＠ -1,3 +1,8 ＠＠ +2006-01-09 Adrian Aichner <adrian(a)xemacs.org> + + * cvsaccess.content: Remove misleading authorship and feedback + information (reported by Simon Blanchard). + 2005-12-03 Adrian Aichner <adrian(a)xemacs.org> * adrian-testing-commit: quick fix. 1.29 +0 -3 XEmacs/xemacsweb/Develop/cvsaccess.content Index: cvsaccess.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Develop/cvsaccess.content,v retrieving revision 1.28 retrieving revision 1.29 diff -u -p -r1.28 -r1.29 --- cvsaccess.content 2004/03/29 07:14:28 1.28 +++ cvsaccess.content 2006/01/09 20:45:19 1.29 ＠＠ -660,9 +660,6 ＠＠ cvs-rw commit ./ChangeLog ./etc/photos/n <hr /> - This document used to be maintained by - <address><a href="mailto:jareth＠xemacs.org">Jareth Hein</a></address> - <!-- Keep this comment at the end of the file Local variables: mode: xml

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 3 months

CVS Monitor

User: viteno Date: 06/01/08 23:51:53 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1402 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1401 retrieving revision 1.1402 diff -u -p -r1.1401 -r1.1402 --- version.sh 2006/01/07 22:51:50 1.1401 +++ version.sh 2006/01/08 22:51:52 1.1402 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060107)" +xemacs_extra_name="(+CVS-20060108)" xemacs_release_date="2005-12-19"

1 participants
0 comments

CVS update by aidan xemacs/lisp ... 18 years, 3 months

CVS Monitor

User: aidan Date: 06/01/08 21:00:45 Modified: xemacs/lisp ChangeLog cmdloop.el Log: Handle some GNU read-quoted-char integration difficulties. Revision Changes Path 1.720 +6 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.719 retrieving revision 1.720 diff -u -p -r1.719 -r1.720 --- ChangeLog 2006/01/06 12:24:19 1.719 +++ ChangeLog 2006/01/08 20:00:41 1.720 ＠＠ -1,3 +1,9 ＠＠ +2006-01-08 Aidan Kehoe <kehoea(a)parhasard.net> + + * cmdloop.el (read-quoted-char): + Eliminate some char/event confusion introduced by a GNU Emacs + sync. + 2006-01-06 Adrian Aichner <adrian(a)xemacs.org> * package-get.el (package-get-download-sites): Add pt.xemacs.org, 1.19 +4 -2 XEmacs/xemacs/lisp/cmdloop.el Index: cmdloop.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cmdloop.el,v retrieving revision 1.18 retrieving revision 1.19 diff -u -p -r1.18 -r1.19 --- cmdloop.el 2005/06/26 18:04:49 1.18 +++ cmdloop.el 2006/01/08 20:00:43 1.19 ＠＠ -579,7 +579,8 ＠＠ any other non-digit terminates the chara (setq char (aref translated 0))))) (cond ((null char)) ((not (characterp char)) - (setq unread-command-events (list char) + ;; XEmacs change; event instead of char. + (setq unread-command-events (list event) done t)) ; ((/= (logand char ?\M-\^＠) 0) ; ;; Turn a meta-character into a character with the 0200 bit set. ＠＠ -598,7 +599,8 ＠＠ any other non-digit terminates the chara ((and (not first) (eq char ?\C-m)) (setq done t)) ((not first) - (setq unread-command-events (list char) + ;; XEmacs change; event instead of char. + (setq unread-command-events (list event) done t)) (t (setq code (char-to-int char) done t)))

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 3 months

CVS Monitor

User: viteno Date: 06/01/07 23:51:51 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1401 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1400 retrieving revision 1.1401 diff -u -p -r1.1400 -r1.1401 --- version.sh 2006/01/06 22:51:13 1.1400 +++ version.sh 2006/01/07 22:51:50 1.1401 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060106)" +xemacs_extra_name="(+CVS-20060107)" xemacs_release_date="2005-12-19"

1 participants
0 comments

CVS update by vins xemacs/lisp ... 18 years, 3 months

CVS Monitor

User: vins Date: 06/01/07 15:24:06 Branch: xemacs/lisp release-21-4 Modified: xemacs/lisp ChangeLog easymenu.el Log: Aidan's easymenu fix. Revision Changes Path 1.266.2.91 +13 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.266.2.90 retrieving revision 1.266.2.91 diff -u -p -r1.266.2.90 -r1.266.2.91 --- ChangeLog 2006/01/07 13:22:41 1.266.2.90 +++ ChangeLog 2006/01/07 14:24:01 1.266.2.91 ＠＠ -1,3 +1,16 ＠＠ +2006-01-03 Aidan Kehoe <kehoea(a)parhasard.net> + + * easymenu.el: Update copyright. + * easymenu.el (easy-menu-all-popups): + Add a docstring. + * easymenu.el (easy-menu-add): + Document a bug, rework the function to preserve any existing + non-default mode-popup-menu instead of overwriting it, and not to + bother normalising the menu title (nothing else does). + * easymenu.el (easy-menu-remove): + Restore the default mode-popup-menu instead of leaving an empty + one when we remove the last easy-menu popup. + 2006-01-06 Adrian Aichner <adrian(a)xemacs.org> * package-get.el (package-get-download-sites): Add pt.xemacs.org, 1.5.2.2 +50 -29 XEmacs/xemacs/lisp/easymenu.el Index: easymenu.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/easymenu.el,v retrieving revision 1.5.2.1 retrieving revision 1.5.2.2 diff -u -p -r1.5.2.1 -r1.5.2.2 --- easymenu.el 2005/11/28 02:10:08 1.5.2.1 +++ easymenu.el 2006/01/07 14:24:03 1.5.2.2 ＠＠ -1,6 +1,6 ＠＠ ;;; easymenu.el - Easy menu support for Emacs 19 and XEmacs. -;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 2005 Free Software Foundation, Inc. ;; Author: Per Abrahamsen <abraham(a)dina.kvl.dk> ;; Maintainer: XEmacs Development Team ＠＠ -159,32 +159,52 ＠＠ is a list of menu items, as above." ,doc (interactive "＠e") (run-hooks 'activate-menubar-hook) - (setq zmacs-region-stays 't) + (setq zmacs-region-stays t) (popup-menu ,symbol))))) (defun easy-menu-change (&rest args) (when (featurep 'menubar) (apply 'add-menu args))) -;; This variable hold the easy-menu mode menus of all major and -;; minor modes currently in effect in the current buffer. -(defvar easy-menu-all-popups nil) +(defvar easy-menu-all-popups nil + "Don't use this. +This variable holds the menus of all major and minor modes in effect in the +current buffer. ") (make-variable-buffer-local 'easy-menu-all-popups) (defun easy-menu-add (menu &optional map) "Add MENU to the current menu bar." + ;; If you uncomment the following, do an xemacs -vanilla, type M-x + ;; folding-mode RET, you'll see that this code, which theoretically has + ;; *scratch* as its buffer context, can't see *scratch*'s value for + ;; mode-popup-menu--the default overrides it. + ;; + ;; This is not specific to *scratch*--try it on ~/.xemacs/init.el--but it + ;; does appear to be specific to the first time mode-popup-menu is + ;; accessed as a buffer-local variable in non-interactive code (that is, + ;; M-: mode-popup-menu RET gives the correct value). + ;; + ;; My fixing this right now isn't going to happen. Aidan Kehoe, 2006-01-03 +; (message (concat "inside easy-menu-add, menu is %s, " +; "mode-popup-menu is %s, current buffer is %s, " +; "default-value mode-popup-menu is %s, " +; "easy-menu-all-popups is %s") +; menu mode-popup-menu (current-buffer) +; (default-value 'mode-popup-menu) easy-menu-all-popups) (when (featurep 'menubar) - (unless (member menu easy-menu-all-popups) - (push menu easy-menu-all-popups)) - (setq mode-popup-menu (if (> (length easy-menu-all-popups) 1) - (cons (easy-menu-title) - (reverse easy-menu-all-popups)) - (let ((same-as-menu - (car easy-menu-all-popups))) - (cons (normalize-menu-item-name - (car same-as-menu)) - (cdr same-as-menu))))) - + ;; Save the existing mode-popup-menu, if it's been changed. + (when (and (zerop (length easy-menu-all-popups)) + (not (equal (default-value 'mode-popup-menu) mode-popup-menu))) + (push mode-popup-menu easy-menu-all-popups)) + ;; Add the menu to our list of all the popups for the buffer. + (pushnew menu easy-menu-all-popups :test 'equal) + ;; If there are multiple popup menus available, make the popup menu + ;; normally shown with button-3 a menu of them. If there is just one, + ;; make that button show it, and no super-menu. + (setq mode-popup-menu (if (= 1 (length easy-menu-all-popups)) + (car easy-menu-all-popups) + (cons (easy-menu-title) + (reverse easy-menu-all-popups)))) (cond ((null current-menubar) ;; Don't add it to a non-existing menubar. nil) ＠＠ -202,16 +222,20 ＠＠ is a list of menu items, as above." (defun easy-menu-remove (menu) "Remove MENU from the current menu bar." (when (featurep 'menubar) - (setq easy-menu-all-popups (delq menu easy-menu-all-popups) - mode-popup-menu (if (> (length easy-menu-all-popups) 1) - (cons (easy-menu-title) - (reverse easy-menu-all-popups)) - (let ((same-as-menu - (car easy-menu-all-popups))) - (cons (normalize-menu-item-name - (car same-as-menu)) - (cdr same-as-menu))))) - + (setq + ;; Remove this menu from the list of popups we know about. + easy-menu-all-popups (delq menu easy-menu-all-popups) + ;; If there are multiple popup menus available, make the popup menu + ;; normally shown with button-3 a menu of them. If there is just one, + ;; make that button show it, and no super-menu. + mode-popup-menu (if (= 1 (length easy-menu-all-popups)) + (car easy-menu-all-popups) + (cons (easy-menu-title) + (reverse easy-menu-all-popups)))) + ;; If we've just set mode-popup-menu to an empty menu, change that menu + ;; to its default value (without intervention from easy-menu). + (if (zerop (length easy-menu-all-popups)) + (setq mode-popup-menu (default-value 'mode-popup-menu))) (and current-menubar (assoc (car menu) current-menubar) (delete-menu-item (list (car menu)))))) ＠＠ -260,9 +284,6 ＠＠ The return value can be used as an argum (when (featurep 'menubar) (delete-menu-item (append path (list name)) (easy-menu-normalize menu)))) - - - ;; Think up a good title for the menu. Take the major-mode of the ;; buffer, strip the -mode part, convert hyphens to spaces, and

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

xemacs-cvs January 2006