January 2012 - XEmacs-Patches - XEmacs Mailing List Archives

commit/text-modes: 3 new changesets 12 years, 11 months

Bitbucket

3 new commits in text-modes: https://bitbucket.org/xemacs/text-modes/changeset/abd8765677a9/ changeset: abd8765677a9 user: Norbert Koch date: 2012-01-10 14:53:12 summary: XEmacs Package Release 2.01 affected #: 2 files diff -r a7ab7206d8faba2a250e5f8c7e2fbfb7c811f48c -r abd8765677a96f7fd376594909f5eaaaccd43c82 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2012-01-10 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 2.01 released. + 2010-10-19 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 2.00 released. diff -r a7ab7206d8faba2a250e5f8c7e2fbfb7c811f48c -r abd8765677a96f7fd376594909f5eaaaccd43c82 Makefile --- a/Makefile +++ b/Makefile ＠＠ -19,7 +19,7 ＠＠ # This XEmacs package contains independent single file lisp packages -VERSION = 2.00 +VERSION = 2.01 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org> PACKAGE = text-modes https://bitbucket.org/xemacs/text-modes/changeset/6e048e728a9a/ changeset: 6e048e728a9a user: Norbert Koch date: 2012-01-10 14:53:12 summary: Added tag text-modes-2_01 for changeset abd8765677a9 affected #: 1 file diff -r abd8765677a96f7fd376594909f5eaaaccd43c82 -r 6e048e728a9aa263c3ffa2dfe261f6672625c6bd .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -126,3 +126,4 ＠＠ 189b1312348ace5af87377cc74425039ec4b2103 text-modes-1_69 ae2e9f4cf11d24be7d951546779a35ce96a3ac7a sumo-2003-02-05 9b529017e4157f1a6b5d10a2c23dfc75bcb013b9 sumo-2006-05-10 +abd8765677a96f7fd376594909f5eaaaccd43c82 text-modes-2_01 https://bitbucket.org/xemacs/text-modes/changeset/3636573faa2b/ changeset: 3636573faa2b user: Norbert Koch date: 2012-01-13 13:07:51 summary: merge affected #: 31 files Diff too large to display. Repository URL: https://bitbucket.org/xemacs/text-modes/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/mmm-mode: 3 new changesets 12 years, 11 months

Bitbucket

3 new commits in mmm-mode: https://bitbucket.org/xemacs/mmm-mode/changeset/d326d4ce07f4/ changeset: d326d4ce07f4 user: Norbert Koch date: 2012-01-10 14:52:59 summary: XEmacs Package Release 1.06 affected #: 2 files diff -r 26abae702baea43f20c5297cc5e25461e0634a66 -r d326d4ce07f4392111bb829920f8146e2afcbd77 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2012-01-10 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 1.06 released. + 2010-02-09 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.05 released. diff -r 26abae702baea43f20c5297cc5e25461e0634a66 -r d326d4ce07f4392111bb829920f8146e2afcbd77 Makefile --- a/Makefile +++ b/Makefile ＠＠ -17,7 +17,7 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -VERSION = 1.05 +VERSION = 1.06 AUTHOR_VERSION = 0.4.8 MAINTAINER = Marcus Harnisch <marcus.harnisch(a)gmx.net> PACKAGE = mmm-mode https://bitbucket.org/xemacs/mmm-mode/changeset/d57fcb4ad259/ changeset: d57fcb4ad259 user: Norbert Koch date: 2012-01-10 14:52:59 summary: Added tag mmm-mode-1_06 for changeset d326d4ce07f4 affected #: 1 file diff -r d326d4ce07f4392111bb829920f8146e2afcbd77 -r d57fcb4ad259e351cc7ec208bdb6fe90f94758e7 .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -33,3 +33,4 ＠＠ 3818594a22eae321add52db167f52d577831c493 mmm-mode-1_03 4bc9c4bf426fc081b1597369b56c910f6844db06 sumo-2003-02-05 717a69f81ea14b450d818d8802e4001788543a04 sumo-2006-05-10 +d326d4ce07f4392111bb829920f8146e2afcbd77 mmm-mode-1_06 https://bitbucket.org/xemacs/mmm-mode/changeset/306282595cd6/ changeset: 306282595cd6 user: Norbert Koch date: 2012-01-13 12:36:57 summary: merge affected #: 2 files diff -r d57fcb4ad259e351cc7ec208bdb6fe90f94758e7 -r 306282595cd6c40b1ac35d774319165413dbf8b4 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -2,6 +2,18 ＠＠ * Makefile (VERSION): XEmacs package 1.06 released. +2011-12-01 Didier Verna <didier(a)xemacs.org> + + * mmm-class.el: Add compiler magic so code using + multiple-value-list compiled on 21.4 works on 21.5. + +2011-12-01 Didier Verna <didier(a)xemacs.org> + + * mmm-class.el (mmm-ify): Fix infinite loop in mmm-ify introduced + by revision f9f3c7b63268 (2010-02-07 Aidan Kehoe + <kehoea(a)parhasard.net> below). Re-incorporate the call to + mmm-match-region in the loop). + 2010-02-09 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.05 released. diff -r d57fcb4ad259e351cc7ec208bdb6fe90f94758e7 -r 306282595cd6c40b1ac35d774319165413dbf8b4 mmm-class.el --- a/mmm-class.el +++ b/mmm-class.el ＠＠ -39,7 +39,8 ＠＠ (eval-when-compile (when (eq 'list (symbol-function 'values)) (define-compiler-macro values (&rest args) `(list ,＠args)) - (define-compiler-macro values-list (arg) arg))) + (define-compiler-macro values-list (arg) arg) + (define-compiler-macro multiple-value-list (arg) arg))) ;;; CLASS SPECIFICATIONS ;;{{{ Get Class Specifications ＠＠ -127,84 +128,81 ＠＠ ;;{{{ Scan for Regions (defun* mmm-ify - (&rest all &key classes handler - submode match-submode - (start (point-min)) (stop (point-max)) - front back save-matches (case-fold-search t) - (beg-sticky (not (number-or-marker-p front))) - (end-sticky (not (number-or-marker-p back))) - include-front include-back - (front-offset 0) (back-offset 0) - (front-delim nil) (back-delim nil) - (delimiter-mode mmm-delimiter-mode) - front-face back-face - front-verify back-verify - front-form back-form - creation-hook - face match-face - save-name match-name - (front-match 0) (back-match 0) - end-not-begin - ;insert private - &allow-other-keys - ) + (&rest all + &key classes handler + submode match-submode + (start (point-min)) (stop (point-max)) + front back save-matches (case-fold-search t) + (beg-sticky (not (number-or-marker-p front))) + (end-sticky (not (number-or-marker-p back))) + include-front include-back + (front-offset 0) (back-offset 0) + (front-delim nil) (back-delim nil) + (delimiter-mode mmm-delimiter-mode) + front-face back-face + front-verify back-verify + front-form back-form + creation-hook + face match-face + save-name match-name + (front-match 0) (back-match 0) + end-not-begin + ;insert private + &allow-other-keys) "Create submode regions from START to STOP according to arguments. If CLASSES is supplied, it must be a list of valid CLASSes. Otherwise, the rest of the arguments are for an actual class being applied. See `mmm-classes-alist' for information on what they all mean." ;; Make sure we get the default values in the `all' list. (setq all (append - all - (list :start start :stop stop + all + (list :start start :stop stop :beg-sticky beg-sticky :end-sticky end-sticky :front-offset front-offset :back-offset back-offset :front-delim front-delim :back-delim back-delim - :front-match 0 :back-match 0 - ))) + :front-match 0 :back-match 0))) (cond - ;; If we have a class list, apply them all. - (classes - (mmm-apply-classes classes :start start :stop stop :face face)) - ;; Otherwise, apply this class. - ;; If we have a handler, call it. - (handler - (apply handler all)) - ;; Otherwise, we search from START to STOP for submode regions, - ;; continuining over errors, until we don't find any more. If FRONT - ;; and BACK are number-or-markers, this should only execute once. - (t - (mmm-save-all - (goto-char start) - (multiple-value-bind - (beg end front-pos back-pos matched-front matched-back - matched-submode matched-face matched-name invalid-resume - ok-resume) - (apply #'mmm-match-region :start (point) all) - (loop - while beg - if end ; match-submode, if present, succeeded. - do - (condition-case nil - (progn - (mmm-make-region - (or matched-submode submode) beg end -:face (or matched-face face) -:front front-pos :back back-pos -:evaporation 'front -:match-front matched-front :match-back matched-back -:beg-sticky beg-sticky :end-sticky end-sticky -:name matched-name -:delimiter-mode delimiter-mode -:front-face front-face :back-face back-face -:creation-hook creation-hook - ) - (goto-char ok-resume)) - ;; If our region is invalid, go back to the end of the - ;; front match and continue on. - (mmm-error (goto-char invalid-resume))) - ;; If match-submode was unable to find a match, go back to - ;; the end of the front match and continue on. - else do (goto-char invalid-resume))))))) + ;; If we have a class list, apply them all. + (classes + (mmm-apply-classes classes :start start :stop stop :face face)) + ;; Otherwise, apply this class. + ;; If we have a handler, call it. + (handler + (apply handler all)) + ;; Otherwise, we search from START to STOP for submode regions, + ;; continuining over errors, until we don't find any more. If FRONT + ;; and BACK are number-or-markers, this should only execute once. + (t + (mmm-save-all + (goto-char start) + (loop for (beg end front-pos back-pos matched-front matched-back + matched-submode matched-face matched-name + invalid-resume ok-resume) + = (multiple-value-list + (apply #'mmm-match-region :start (point) all)) + while beg + if end ; match-submode, if present, succeeded. + do + (condition-case nil + (progn + (mmm-make-region + (or matched-submode submode) beg end + :face (or matched-face face) + :front front-pos :back back-pos + :evaporation 'front + :match-front matched-front :match-back matched-back + :beg-sticky beg-sticky :end-sticky end-sticky + :name matched-name + :delimiter-mode delimiter-mode + :front-face front-face :back-face back-face + :creation-hook creation-hook) + (goto-char ok-resume)) + ;; If our region is invalid, go back to the end of the + ;; front match and continue on. + (mmm-error (goto-char invalid-resume))) + ;; If match-submode was unable to find a match, go back to + ;; the end of the front match and continue on. + else do (goto-char invalid-resume)))))) ;;}}} ;;{{{ Match Regions ＠＠ -328,4 +326,4 ＠＠ (provide 'mmm-class) -;;; mmm-class.el ends here \ No newline at end of file +;;; mmm-class.el ends here Repository URL: https://bitbucket.org/xemacs/mmm-mode/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/patcher: 2 new changesets 12 years, 11 months

Bitbucket

2 new commits in patcher: https://bitbucket.org/xemacs/patcher/changeset/9baeea9f2ebe/ changeset: 9baeea9f2ebe user: didierverna date: 2012-01-13 11:26:43 summary: Concept Index. ChangeLog entries: 2012-01-13 Didier Verna <didier(a)xemacs.org> * doc/patcher.texi: New macros for concept indexing. * doc/patcher.texi (Top): * doc/patcher.texi (Setting up Patcher): * doc/patcher.texi (Calling Patcher): * doc/patcher.texi (Project Descriptors): * doc/patcher.texi (Themes): * doc/patcher.texi (Project inheritance): * doc/patcher.texi (Fallbacks): * doc/patcher.texi (Retrieval): * doc/patcher.texi (Mail Adaptation): * doc/patcher.texi (Subprojects): * doc/patcher.texi (Temporary Subprojects): * doc/patcher.texi (Permanent Subprojects): * doc/patcher.texi (Defining Subprojects): * doc/patcher.texi (Project Naming): * doc/patcher.texi (Command Directory): * doc/patcher.texi (Submodules): * doc/patcher.texi (Mail Methods): * doc/patcher.texi (Standard Mail Methods): * doc/patcher.texi (Other Mail Methods): * doc/patcher.texi (Message Customization): * doc/patcher.texi (Diff Command): * doc/patcher.texi (Diff Headers): * doc/patcher.texi (Diff Line Filter): * doc/patcher.texi (Diff Prologue): * doc/patcher.texi (ChangeLogs Naming): * doc/patcher.texi (ChangeLogs Updating): * doc/patcher.texi (Skeleton Generation): * doc/patcher.texi (Skeleton Parameters): * doc/patcher.texi (ChangeLog Files): * doc/patcher.texi (ChangeLogs Appearance): * doc/patcher.texi (ChangeLogs Prologue): * doc/patcher.texi (ChangeLogs Status): * doc/patcher.texi (Commit Command): * doc/patcher.texi (Log Message Handling): * doc/patcher.texi (Log Message Elements): * doc/patcher.texi (Commit Operation): * doc/patcher.texi (Before Sending): * doc/patcher.texi (After Sending): * doc/patcher.texi (Prefixing Commands): * doc/patcher.texi (Error Handling): * doc/patcher.texi (XEmacs Development): * doc/patcher.texi (Indexes): * doc/patcher.texi (Concept Index): * doc/patcher.texi (Variable Index): * doc/patcher.texi (Function Index): Add a bunch of concept index entries (project options, themes, subprojects etc.). affected #: 1 file diff -r ce7a0dc0b627e6e53f62cb5d715c52facca1c194 -r 9baeea9f2ebe545b8e839a76a3d248009c2bf33a doc/patcher.texi --- a/doc/patcher.texi +++ b/doc/patcher.texi ＠＠ -8,7 +8,7 ＠＠＠c Author: Didier Verna <didier(a)xemacs.org> ＠c Maintainer: Didier Verna <didier(a)xemacs.org> ＠c Created: Sun Apr 21 21:34:06 2002 -＠c Last Revision: Fri Jan 13 09:35:26 2012 +＠c Last Revision: Fri Jan 13 11:23:03 2012 ＠c This file is part of Patcher. ＠＠ -58,6 +58,37 ＠＠＠i{etc.} ＠end macro +＠c Subproject options index +＠macro spoindex{name} +＠cindex Subproject Option, ＠t{:\name\} +＠cindex ＠t{:\name\} (subproject option) +＠end macro + +＠c Project option index +＠macro poindex{name} +＠cindex Project Option, ＠t{:\name\} +＠cindex ＠t{:\name\} (project option) +＠end macro + +＠c Fallbacked project option index +＠macro fpoindex{name} +＠poindex{\name\} +＠vindex patcher-default-\name\ +＠end macro + +＠c Built-in theme index +＠macro bitindex{name} +＠cindex Built-in Theme, ＠t{\name\} +＠cindex Theme, Built-in, ＠t{\name\} +＠cindex ＠t{\name\} (built-in theme) +＠end macro + +＠c Built-in RCS theme index +＠macro birtindex{name} +＠bitindex{\name\} +＠bitindex{\name\-ws} +＠end macro + ＠c ==================================================================== ＠＠ -149,9 +180,7 ＠＠ * Quick Start:: For the brave and the impatient * User Manual:: A step-by-step guide to using Patcher * XEmacs Development:: An XEmacs specific sample setup -* Variables Index:: -* Functions Index:: -* Keystrokes Index:: +* Indexes:: Concept, Variable, Function and Keystroke ＠end menu Patcher is developed by Didier Verna ＠email{didier＠(a)xemacs.org}. ＠＠ -376,6 +405,8 ＠＠ :themes (git)))) ＠end lisp +＠cindex Project Descriptor +＠cindex Descriptor, Project ＠vindex patcher-projects As you can imagine, ＠code{patcher-projects} is a user option in which you store information about the projects you want to manage with ＠＠ -386,6 +417,8 ＠＠＠email{superproj-devel＠(a)superproj.org}. In addition to that, this project is handled by Git. +＠cindex Project Option +＠cindex Theme Note the particular syntax for specifying the mailing address. This is what's called a ＠dfn{project option}. Contrary to the project's name and directory, which are mandatory and always appear as the first and second ＠＠ -421,8 +454,7 ＠＠＠enumerate ＠item -＠vindex patcher-default-to-address -＠vindex:to-address +＠fpoindex{to-address}＠c Patcher prepares a mail buffer. The message will be sent to the address you specified with the ＠code{:to-address} project option, and the subject line now reads ``[PATCH] something sensible here''. ＠＠ -608,6 +640,8 ＠＠＠node Project Descriptors, Entry Points, Starting Up, Starting Up ＠subsection Project Descriptors +＠cindex Project Descriptor +＠cindex Descriptor, Project ＠vindex patcher-projects Projects specifications are stored in ＠code{patcher-projects}. This user option is actually a list of ＠dfn{project descriptors}. Each project ＠＠ -627,8 +661,8 ＠＠ several independent projects happen to share exactly the same set of options. ＠item -＠vindex patcher-default-to-address -＠vindex:to-address +＠cindex Project Option +＠fpoindex{to-address}＠c The remainder of a project descriptor is a sequence of zero or more option/value pairs that we call ＠dfn{project options}. All option names start with a colon. The type of a value depends on the corresponding ＠＠ -652,6 +686,7 ＠＠＠node Themes, Project inheritance, , Project Descriptors ＠subsubsection Themes +＠cindex Theme If you have several projects sharing the same option set, you might want to setup a theme. Themes are named collections of project options. ＠＠ -664,8 +699,7 ＠＠ a sequence of zero or more option/value pairs, just like in project descriptors. -＠vindex patcher-default-themes -＠vindex:themes +＠fpoindex{themes}＠c In order to use a theme in a given project, a ＠code{:themes} project option is provided. It is a list of theme names (symbols). Use this option in your project descriptor, and the project will implicitly ＠＠ -682,7 +716,15 ＠＠＠code{patcher-max-theme-depth} user option is provided. It represents the expected maximum theme nesting level and defaults to 8. +＠cindex Built-in Theme +＠cindex Theme, Built-in ＠vindex patcher-built-in-themes +＠birtindex{git}＠c +＠birtindex{hg}＠c +＠birtindex{darcs}＠c +＠birtindex{svn}＠c +＠birtindex{cvs}＠c +＠birtindex{prcs}＠c Patcher comes with a set of built-in themes for several revision control systems. These are Git, Mercurial (Hg), Darcs, Subversion (Svn), CVS and PRCS. Look at the value of ＠code{patcher-built-in-themes} to see what's ＠＠ -693,6 +735,7 ＠＠ when you let Patcher generate the ChangeLog entries (＠pxref{ChangeLogs Handling}). +＠vindex pather-themes While you can't modify the value of ＠code{patcher-built-in-themes}, you're free to do whatever you want in ＠code{patcher-themes}, including creating a theme with the same name as a built-in one. This ＠＠ -703,10 +746,11 ＠＠＠node Project inheritance, Fallbacks, Themes, Project Descriptors ＠subsubsection Project inheritance +＠cindex Project Inheritance When two projects are very similar, you might prefer to use the project inheritance mechanism described below over themes. -＠vindex:inheritance +＠poindex{inheritance}＠c There is a special project option called ＠code{:inheritance}. This option must be a list of project names (strings). The inheritance of a project defines a list of projects from which to inherit options. ＠＠ -733,8 +777,8 ＠＠＠node Fallbacks, Retrieval, Project inheritance, Project Descriptors ＠subsubsection Fallbacks -＠vindex patcher-default-to-address -＠vindex:to-address +＠cindex Fallback +＠fpoindex{to-address}＠c For each existing project option, Patcher also has a ＠dfn{fallback} user option with a default value that would be shared among all projects not setting the option explicitly. The name of the fallback is obtained by ＠＠ -765,15 +809,14 ＠＠ is given. ＠item -＠vindex patcher-default-themes -＠vindex:themes +＠fpoindex{themes}＠c ＠vindex patcher-themes If that fails, it next tries the given themes, if any. This involves recursively traversing the project's themes tree. Options successfully retrieved in themes are said to be ＠dfn{themed}. ＠item -＠vindex:inheritance +＠poindex{inheritance}＠c If that still fails, it then tries the inherited projects, if any. This involves recursively traversing the project's inheritance tree. Options successfully retrieved in inherited projects are said to be ＠＠ -883,8 +926,7 ＠＠ diff of your project. ＠end defun -＠vindex patcher-default-subject-rewrite-format -＠vindex:subject-rewrite-format +＠fpoindex{subject-rewrite-format}＠c When adapting a message to Patcher, you are always prompted for a new subject line, although you can just hit ＠kbd{Return} to leave it empty. If there is indeed a subject change (that is, if there is both an old ＠＠ -954,6 +996,7 ＠＠＠node Subprojects, Submodules, Project Relocation, Starting Up ＠subsection Subprojects +＠cindex Subproject As mentioned before (＠pxref{Entry Points}) the entry point functions all perform a global diff of your project just after having prepared the mail buffer. There might be times, however, when you want to work on a ＠＠ -987,6 +1030,8 ＠＠＠node Temporary Subprojects, Permanent Subprojects, Subprojects, Subprojects ＠subsubsection Temporary Subprojects +＠cindex Temporary Subproject +＠cindex Subproject, Temporary In order to work on a temporary subproject, call any of the entry point functions (＠pxref{Entry Points}) with a simple prefix argument (＠key{C-u}). Patcher will then prompt you for an optional subdirectory ＠＠ -1005,6 +1050,8 ＠＠＠node Permanent Subprojects, , Temporary Subprojects, Subprojects ＠subsubsection Permanent Subprojects +＠cindex Permanent Subproject +＠cindex Subproject, Permanent If you happen to work more than once on the same project subset, it will quickly become annoying to have to specify explicitly the same subdirectory and/or files over and over again. Consequently, Patcher ＠＠ -1020,6 +1067,8 ＠＠＠node Defining Subprojects, Project Naming, , Permanent Subprojects ＠b{Defining Subprojects} +＠cindex Subproject Descriptor +＠cindex Descriptor, Subproject ＠vindex patcher-subprojects The user option ＠code{patcher-subprojects} stores a list of ＠dfn{subproject descriptors}. A subproject descriptor is almost the same ＠＠ -1032,18 +1081,19 ＠＠ is based on. ＠item +＠cindex Subproject Option In addition to the standard project options we've already seen, two subproject options are available: ＠table ＠code ＠item :subdirectory -＠vindex:subdirectory +＠spoindex{subdirectory}＠c This lets you specify a subdirectory of the original project's directory in which the whole subproject resides. This subdirectory must be provided ＠emph{relative} to the original project's directory. ＠item :files -＠vindex:files +＠spoindex{files}＠c This lets you specify a list of files or directories composing the subproject. Each file specification may be provided ＠emph{relative} to the subdirectory above, if any, or to the original project's directory. ＠＠ -1054,7 +1104,7 ＠＠ (that would be meaningless). They can't appear in a theme either. ＠item -＠vindex:inheritance +＠poindex{inheritance}＠c Subprojects don't have an ＠code{:inheritance} mechanism. Instead, they implicitly inherit from their base project (which in turn can inherit from other projects). ＠＠ -1071,8 +1121,8 ＠＠ subprojects first, and then regular projects. ＠item -＠vindex:subdirectory -＠vindex:files +＠spoindex{subdirectory}＠c +＠spoindex{files}＠c A subproject with neither a ＠code{:subdirectory} nor a ＠code{:files} option is exactly the same as the base project, apart from project options that you would override. This can hence be seen as an elegant ＠＠ -1111,8 +1161,7 ＠＠ their commands. It would then be difficult to define project variants for the same directory but with different names. -＠vindex patcher-default-name -＠vindex:name +＠fpoindex{name}＠c To remedy this problem, patcher provides a ＠code{:name} project option. If set, it will be used by diff and commit commands instead of the project's name when necessary. See ＠ref{Diff Command} for details on how ＠＠ -1129,8 +1178,7 ＠＠ For example, PRCS (weird, did I mention it already?) can only work in the project's root directory. -＠vindex:command-directory -＠vindex patcher-default-command-directory +＠fpoindex{command-directory}＠c If you want to define projects for which the revision control system can be executed in only one directory, Patcher provides you with the ＠code{:command-directory} project option (a string). This directory must ＠＠ -1153,6 +1201,7 ＠＠＠node Submodules, Patcher Instances, Subprojects, Starting Up ＠subsection Submodules +＠cindex Submodule Related to the notion of subproject is that of ``submodule'' (or ``subrepo'') as some RCSes would put it. A submodule is a standalone project that appears under another project (so it looks like a ＠＠ -1169,14 +1218,15 ＠＠ umbrella project automatically, with their own name and directory, so that you don't need to define them by hand. -＠vindex:submodule-detection-function -＠vindex patcher-default-submodule-detection-function +＠birtindex{git}＠c +＠birtindex{hg}＠c +＠fpoindex{submodule-detection-function}＠c ＠findex patcher-hg-detect-submodules ＠findex patcher-git-detect-submodules Automatic detection of submodules is controlled via the ＠code{:submodule-detection-function} project option. Its value is a symbol naming a function, or ＠code{nil} if you don't want autodetection. -The built-in Mercurial and Git themes set this option to +The built-in Git and Mercurial themes set this option to ＠code{patcher-hg-detect-submodules} and ＠code{patcher-git-detect-submodules} respectively. ＠＠ -1234,8 +1284,7 ＠＠＠node Mail Methods, Message Customization, Message Generation, Message Generation ＠subsection Mail Methods -＠vindex patcher-default-mail-method -＠vindex:mail-method +＠fpoindex{mail-method}＠c Since there are different mail packages working in XEmacs, Patcher supports different methods for preparing messages. You can specify the method you prefer in the ＠code{:mail-method} project option. The value ＠＠ -1296,8 +1345,7 ＠＠ send with Patcher, most probably because they are sent to some mailing-list, such as ＠email{xemacs-patches＠(a)xemacs.org}. -＠vindex patcher-default-gnus-group -＠vindex:gnus-group +＠fpoindex{gnus-group}＠c This method uses a Gnus group name and acts as if you had type ＠samp{C-u a} on that group in the ＠code{*Group*} buffer, hence honoring the group parameters and posting-styles. If your project does not specify a Gnus ＠＠ -1349,8 +1397,7 ＠＠＠node Other Mail Methods, , Fake Mail Method, Mail Methods ＠subsubsection Other Mail Methods -＠vindex patcher-default-mail-method -＠vindex:mail-method +＠fpoindex{mail-method}＠c If you're not satisfied with the provided mail methods (want a ＠code{vm} one?), you can provide your own, more or less (patches welcome if you do so). Here's what to do: set your ＠code{:mail-method} project option to, ＠＠ -1375,29 +1422,25 ＠＠＠table ＠code ＠item :user-name -＠vindex patcher-default-user-name -＠vindex:user-name +＠fpoindex{user-name}＠c The name (your name) to use when composing the message. It will affect the ＠code{From:} header. This option is used by all mail methods but ＠code{fake}. If not given, ＠code{user-full-name} is used. ＠item :user-mail -＠vindex patcher-default-user-mail -＠vindex:user-mail +＠fpoindex{user-mail}＠c The mail (your mail) address to use when composing the message. It will affect the ＠code{From:} header. This option is used by all mail methods but ＠code{fake}. If not given, ＠code{user-mail-address} is used. ＠item :to-address -＠vindex patcher-default-to-address -＠vindex:to-address +＠fpoindex{to-address}＠c The address to send messages to (a string). This option is used by all mail methods but ＠code{gnus} and ＠code{fake}. If not given, it is prompted for when calling ＠code{patcher-mail}. ＠item :gnus-group -＠vindex patcher-default-gnus-group -＠vindex:gnus-group +＠fpoindex{gnus-group}＠c The Gnus group name to use for posting messages (a string). This option is used only by the ＠code{gnus} mail method. If not given, it is prompted for when calling ＠code{patcher-mail}. ＠＠ -1407,8 +1450,7 ＠＠ corresponding Patcher options. ＠item :subject-prefix -＠vindex patcher-default-subject-prefix -＠vindex:subject-prefix +＠fpoindex{subject-prefix}＠c A prefix for the subject line of messages. It can be ＠code{nil} or a string. By default, ``[PATCH]'' is used. This part of subjects is never prompted for. The subject prefix understands ＠samp{%n} and ＠samp{%N} ＠＠ -1417,8 +1459,7 ＠＠ remainder of the subject, when appropriate. ＠item :subject -＠vindex patcher-default-subject -＠vindex:subject +＠fpoindex{subject}＠c A default value for prompted subjects (a string). Please note that this is used ＠strong{only} to provide a default value for prompted subjects. Subjects are ＠strong{always} prompted for. The subject understands ＠＠ -1469,8 +1510,7 ＠＠＠node Diff Command, Diff Headers, Patch Generation, Patch Generation ＠subsection Diff Command -＠vindex patcher-default-diff-command -＠vindex:diff-command +＠fpoindex{diff-command}＠c ＠findex patcher-mail The diff command used to generate the patch is specified by the ＠code{:diff-command} project option. You can also punctually change this ＠＠ -1489,8 +1529,7 ＠＠＠table ＠code ＠item %n -＠vindex patcher-default-name -＠vindex:name +＠fpoindex{name}＠c A ＠samp{%n} will be replaced with the project's name, that is, either the value of the ＠samp{:name} option (＠pxref{Project Naming}) or the name of the project descriptor. This may be useful in commands with ＠＠ -1511,6 +1550,7 ＠＠ replaced by ＠samp{STR}. ＠end table +＠birtindex{git}＠c Here is an example to clarify this: the default diff command for Git in the ＠samp{git} built-in theme (＠pxref{Themes}) is the following: ＠＠ -1534,8 +1574,7 ＠＠ generate different diff outputs, making this association difficult to establish. -＠vindex patcher-default-diff-header -＠vindex:diff-header +＠fpoindex{diff-header}＠c Patcher provides a ＠code{:diff-header} project option to help. Its value is of the form ＠code{(REGEXP NUMBER1 NUMBER2)}. ＠code{REGEXP} is used to match the beginning of a diff output while NUMBER1 and NUMBER2 are the ＠＠ -1568,8 +1607,7 ＠＠ files present in your local copy but otherwise unknown to the server with a question mark in diff outputs. -＠vindex patcher-default-diff-line-filter -＠vindex:diff-line-filter +＠fpoindex{diff-line-filter}＠c Patcher has a project option named ＠code{:diff-line-filter} that lets filter out such unwanted lines. This must be a regular expression matching a whole line. Caution however: do not put beginning or end of ＠＠ -1582,8 +1620,7 ＠＠ the message in preparation. This prologue gives information such as the diff command used, the files affected and so on. -＠vindex patcher-default-diff-prologue-function -＠vindex:diff-prologue-function +＠fpoindex{diff-prologue-function}＠c ＠findex patcher-default-diff-prologue The function used to generate this prologue can be specified with the ＠code{:diff-prologue-function} project option. A value of ＠code{nil} ＠＠ -1654,8 +1691,7 ＠＠＠node ChangeLogs Naming, ChangeLogs Updating, ChangeLogs Handling, ChangeLogs Handling ＠subsection ChangeLogs Naming -＠vindex patcher-default-change-log-file-name -＠vindex:change-log-file-name +＠fpoindex{change-log-file-name}＠c By default, Patcher thinks that ChangeLog files are named ``ChangeLog''. That is very clever, but if for some obscure reason that is not the case in your project, you can change this by setting the ＠＠ -1674,8 +1710,7 ＠＠＠node ChangeLogs Updating, ChangeLogs Navigation, ChangeLogs Naming, ChangeLogs Handling ＠subsection ChangeLogs Updating -＠vindex patcher-default-change-logs-updating -＠vindex:change-logs-updating +＠fpoindex{change-logs-updating} The way Patcher deals with ChangeLogs is controlled via the ＠code{:change-logs-updating} project option. Its value (a symbol) must be one of ＠code{automatic} (the default), ＠code{manual} or ＠code{nil}. ＠＠ -1707,9 +1742,8 ＠＠＠node Skeleton Generation, Skeleton Parameters, Automatic ChangeLogs, Automatic ChangeLogs ＠findex patch-to-change-log -＠vindex patcher-default-diff-cleaner ＠findex patcher-default-diff-cleaner -＠vindex:diff-cleaner +＠fpoindex{diff-cleaner}＠c ChangeLog skeletons are not generated by Patcher directly, but rather by the function ＠code{patch-to-change-log} from the ＠code{add-log} library, itself from the ＠code{xemacs-base} package. This function supports only ＠＠ -1720,6 +1754,10 ＠＠ that will be used to ``cleanup'' the diff (so that it looks like a standard one, just before calling ＠code{patch-to-change-log}. +＠birtindex{git}＠c +＠birtindex{hg}＠c +＠birtindex{darcs}＠c +＠birtindex{prcs}＠c Patcher comes with a generic cleaner function named ＠code{patcher-default-diff-cleaner} which is used by default and works correctly with Git, Mercurial, Darcs and PRCS, as long as you use the ＠＠ -1730,14 +1768,10 ＠＠＠node Skeleton Parameters, ChangeLog Files, Skeleton Generation, Automatic ChangeLogs -＠vindex patcher-default-change-logs-user-name -＠vindex:change-logs-user-name -＠vindex patcher-default-user-name -＠vindex:user-name -＠vindex patcher-default-change-logs-user-mail -＠vindex:change-logs-user-mail -＠vindex patcher-default-user-mail -＠vindex:user-mail +＠fpoindex{change-logs-user-name}＠c +＠fpoindex{user-name}＠c +＠fpoindex{change-logs-user-mail}＠c +＠fpoindex{user-mail}＠c ＠findex patch-to-change-log ＠vindex user-full-name ＠vindex user-mail-address ＠＠ -1760,8 +1794,7 ＠＠＠itemize ＠bullet ＠item ＠code{:link-change-log-hook} -＠vindex patcher-default-link-change-log -＠vindex:link-change-log-hook +＠fpoindex{link-change-log-hook}＠c This hook is run every time Patcher ``links'' a ChangeLog file to a project. Linking a ChangeLog file in this context means figuring out that it is involved in the current patch. Every function in this hook ＠＠ -1770,8 +1803,7 ＠＠ run, the current directory (in whatever the current buffer is) is set to the project's directory. ＠item ＠code{:after-save-change-log-hook} -＠vindex patcher-default-after-save-change-log-hook -＠vindex:after-save-change-log-hook +＠fpoindex{after-save-change-log-hook}＠c This hook is run every time you save a ChangeLog file. The functions in this hook are executed in the ChangeLog's buffer. To be honest with you, I didn't invent anything here, and I must confess that this is not a ＠＠ -1784,6 +1816,9 ＠＠ fact, their existence comes from my desire to support Git projects by index. +＠birtindex{git}＠c +＠birtindex{git-index}＠c +＠bitindex{git-index-automatic-change-logs}＠c ＠vindex patcher-built-in-themes If you look at ＠code{patcher-built-in-themes}, you will find two themes for Git (along with their their whitespace-cleaning counterpart): ＠＠ -1791,8 +1826,8 ＠＠ on what's in the Git staging area. This is cool as long as ChangeLog files are written by hand ＠pxref{Manual ChangeLogs}. However, in automatic mode, we need a way to add them to the index once the -skeletons are filled in. This is done by another theme that you must add -explicitly to your project, called +skeletons are filled in. This is done by another built-in theme that you +must add explicitly to your project, called ＠code{git-index-automatic-change-logs}. This theme uses the two options described above to automatically add ChangeLog entries to the staging area. ＠＠ -1865,8 +1900,7 ＠＠＠node ChangeLogs Appearance, ChangeLogs Prologue, ChangeLogs Navigation, ChangeLogs Handling ＠subsection ChangeLogs Appearance -＠vindex patcher-default-change-logs-appearance -＠vindex:change-logs-appearance +＠fpoindex{change-logs-appearance}＠c The appearance of ChangeLog entries in the message is controlled by the ＠code{:change-logs-appearance} project option. Its value must be a symbol from the following: ＠＠ -1892,8 +1926,7 ＠＠ The ChangeLog entries don't appear in the message at all. ＠end table -＠vindex patcher-default-change-logs-diff-command -＠vindex:change-logs-diff-command +＠fpoindex{change-logs-diff-command}＠c When the ChangeLogs appearance is either ＠code{pack} or ＠code{patch}, the diff command used to generate the patch is controlled by the ＠code{:change-logs-diff-command} project option. The value can be ＠＠ -1905,8 +1938,8 ＠＠ contexts from the diff, because otherwise, ChangeLog patches often fail to apply correctly. -＠vindex patcher-default-diff-command -＠vindex:diff-command +＠birtindex{git}＠c +＠fpoindex{diff-command}＠c The ＠code{:change-logs-diff-command} project option supports the same substitution constructs as the ＠code{:diff-command} one (＠pxref{Diff Command}). For example, here is the ChangeLogs diff command used in the ＠＠ -1945,8 +1978,7 ＠＠ ChangeLog prologues are small pieces of informative text that Patcher adds above each ChangeLog insertion in the mail buffer. -＠vindex patcher-default-change-logs-prologue -＠vindex:change-logs-prologue +＠fpoindex{change-logs-prologue}＠c When the ChangeLogs appearance is ＠code{verbatim}, Patcher inserts one prologue per ChangeLog file. The prologue's contents is controlled by the ＠code{:change-logs-prologue} project option (a string). A ＠samp{%f} ＠＠ -1954,8 +1986,7 ＠＠ The default value for ＠code{patcher-default-change-logs-prologue} is ＠code{"%f addition:"}. -＠vindex patcher-default-diff-prologue-function -＠vindex:diff-prologue-function +＠fpoindex{diff-prologue-function}＠c ＠findex patcher-default-diff-prologue When the ChangeLogs appearance is ＠code{pack}, Patcher inserts only one prologue for the whole ChangeLogs patch. When ＠code{patch}, there is a ＠＠ -1976,16 +2007,14 ＠＠ how nice would it be to continue manipulating ChangeLog entries, as usual, but just not store them into files? -＠vindex patcher-default-change-logs-status -＠vindex:default-change-logs-status +＠fpoindex{default-change-logs-status}＠c Patcher can do that. It has a project option named ＠code{:change-logs-status} which can have two values (symbols). A value of ＠code{persistent} (the default) is in fact what we have assumed so far: there are ChangeLog files and they are part of the project. This is the traditional approach. -＠vindex patcher-default-change-log-file-name -＠vindex:change-log-file-name +＠fpoindex{change-log-file-name}＠c A value of ＠code{ephemeral} on the other hand means that your ChangeLog entries exist only temporarily, to be used in the commit log message and/or inserted verbatim in the mail. Patcher does this by creating a ＠＠ -2002,6 +2031,8 ＠＠ files (old ChangeLog files may for example be renamed to ＠file{ChangeLog.dead}). + +＠bitindex{ephemeral-change-logs}＠c Because there's only one, virtual, ephemeral ChangeLog file located at the project's base directory, the default value for the ChangeLogs prologue doesn't work very well in the ephemeral case. It doesn't make ＠＠ -2011,6 +2042,8 ＠＠ both set the ChangeLog status to ＠samp{ephemeral} and modify the prologue at the same time. +＠birtindex{git-index}＠c +＠bitindex{git-index-automatic-change-logs}＠c One final note: if you use the ＠code{git-index} built-in theme with ephemeral ChangeLogs, don't use it in conjunction with ＠code{git-index-automatic-change-logs}, even if the ChangeLogs entries ＠＠ -2044,8 +2077,7 ＠＠＠subsection Commit Command ＠findex patcher-mail-commit -＠vindex patcher-default-commit-command -＠vindex:commit-command +＠fpoindex{commit-command}＠c The command used to to commit a patch is specified by the ＠code{:commit-command} project option (a string). You can also temporarily change the command in question by calling ＠＠ -2077,6 +2109,7 ＠＠ your archival software does not support log messages. I'm not actually sure such a beast exists. +＠birtindex{git}＠c As an example, here is the commit command for the Git built-in theme (＠pxref{Themes}): ＠samp{git commit %!f＠{-a ＠}-F %s%?f＠{ -- ＠}%f} ＠＠ -2088,8 +2121,7 ＠＠ message}: a short yet informative message that accompany the commit operation, which is also stored in the repository. -＠vindex patcher-default-edit-log-message -＠vindex:edit-log-message +＠fpoindex{edit-log-message}＠c Before a commit operation, Patcher always builds an initial log message, based on certain elements under your control. What happens next is controlled the ＠code{:edit-log-message} project option: if ＠code{t} (the ＠＠ -2108,8 +2140,7 ＠＠＠node Log Message Elements, Log Message Editing, Log Message Handling, Log Message Handling ＠subsubsection Log Message Elements -＠vindex patcher-default-log-message-items -＠vindex:log-message-items +＠fpoindex{log-message-items}＠c Patcher has the ability to initialize the log message with different elements. These elements are specified with the ＠code{:log-message-items} project option. Its value is either ＠＠ -2130,8 +2161,7 ＠＠ The raw ChangeLog entries. ＠end table -＠vindex patcher-default-change-logs-separator -＠vindex:change-logs-separator +＠fpoindex{change-logs-separator}＠c By default, only the message's subject is used. When using more than one item, they appear in the order specified above. If anything appears before the raw ChangeLog entries, a separator string is used. This ＠＠ -2235,8 +2265,7 ＠＠ buffer if you have not required log message editing, or after typing ＠kbd{C-c C-p c} or ＠kbd{C-c C-c} from the log message buffer otherwise. -＠vindex patcher-default-edit-commit-command -＠vindex:edit-commit-command +＠fpoindex{edit-commit-command}＠c At that point, Patcher has constructed a proper commit command. What happens next depends on the value of the ＠code{:edit-commit-command} project option: if ＠code{nil}, Patcher performs the commit operation ＠＠ -2295,15 +2324,13 ＠＠＠itemize ＠bullet ＠item -＠vindex patcher-default-subject-committed-prefix -＠vindex:subject-committed-prefix +＠fpoindex{subject-committed-prefix}＠c The subject prefix is changed to that specified by the ＠code{:subject-committed-prefix} project option (a string), unless it is ＠code{nil}. By default, ``[COMMIT]'' is used. ＠item -＠vindex patcher-default-committed-notice -＠vindex:committed-notice +＠fpoindex{committed-notice}＠c A commit notice is added at the very beginning of the message's body. This notice is specified by the ＠code{:committed-notice} project option. It can be ＠code{nil} or a string. By default, it reads ``NOTE: this ＠＠ -2333,8 +2360,7 ＠＠＠itemize ＠bullet ＠item ChangeLogs insertion -＠vindex patcher-default-check-change-logs-insertion -＠vindex:check-change-logs-insertion +＠fpoindex{check-change-logs-insertion}＠c In case of manual ChangeLog insertion (＠pxref{ChangeLogs Appearance}), Patcher can check that you have indeed inserted the ChangeLog entries before sending the message. This behavior is controlled by the ＠＠ -2346,13 +2372,11 ＠＠＠item Commit Operation -＠vindex patcher-default-commit-privilege -＠vindex:commit-privilege +＠fpoindex{commit-privilege}＠c Patcher has a ＠code{:commit-privilege} project option; a Boolean specifying whether you're likely to commit your changes by yourself. -＠vindex patcher-default-check-commit -＠vindex:check-commit +＠fpoindex{check-commit}＠c In case of commit privilege, Patcher can check that you have indeed committed your changes before sending the message. This behavior is controlled by the ＠code{:check-commit} user option. A value of ＠＠ -2390,14 +2414,12 ＠＠＠table ＠code ＠item :kill-sources-after-sending -＠vindex patcher-default-kill-sources-after-sending -＠vindex:kill-sources-after-sending +＠fpoindex{kill-sources-after-sending}＠c Whether to kill source files after sending the message. If ＠code{nil}, the source files will remain visited. ＠item :kill-change-logs-after-sending -＠vindex patcher-default-kill-change-logs-after-sending -＠vindex:kill-change-logs-after-sending +＠fpoindex{kill-change-logs-after-sending}＠c Whether to kill ChangeLog files after sending the message. If ＠code{nil}, the ChangeLog files will remain visited. ＠end table ＠＠ -2430,8 +2452,7 ＠＠＠code{runsocks}. Of course, this can be done manually in all your command settings, but Patcher offers you a simpler way to do it. -＠vindex patcher-default-pre-command -＠vindex:pre-command +＠fpoindex{pre-command}＠c There is a project option named ＠code{:pre-command} which can be used for this kind of thing. It must be a string that will be prepended to all operations performed by Patcher. ＠＠ -2443,8 +2464,7 ＠＠ From time to time, commands may fail for different reasons. Patcher tracks command failures and lets you know when that happens. -＠vindex patcher-default-ignore-diff-status -＠vindex:ignore-diff-status +＠fpoindex{ignore-diff-status}＠c The first thing Patcher does is to check the external processes exit codes. A non-zero exit code will normally trigger a Patcher error. There is however one notable exception: ＠code{cvs diff} has this incredibly ＠＠ -2453,8 +2473,8 ＠＠＠code{:ignore-diff-status} that is set to ＠code{t} in the CVS theme. There should be no reason to use it in any other context. -＠vindex patcher-default-failed-command-regexp -＠vindex:failed-command-regexp +＠birtindex{cvs}＠c +＠fpoindex{failed-command-regexp}＠c Next, Patcher looks for specific strings in process output. The ＠code{:failed-command-regexp} project option lets you specify a regular expression to match with the output of an aborted command. In the CVS ＠＠ -2466,7 +2486,7 ＠＠＠c ==================================================================== ＠c XEmacs Development ＠c ==================================================================== -＠node XEmacs Development, Variables Index, User Manual, Top +＠node XEmacs Development, Indexes, User Manual, Top ＠appendix XEmacs Development XEmacs development occurs on a Mercurial repository. Patches are ＠＠ -2534,27 +2554,53 ＠＠＠c ==================================================================== -＠c Variables Index +＠c Indexes ＠c ==================================================================== -＠node Variables Index, Functions Index, XEmacs Development, Top -＠unnumbered Variables Index +＠node Indexes, , XEmacs Development, Top +＠appendix Indexes + +＠menu +* Concept Index:: +* Variable Index:: +* Function Index:: +* Keystroke Index:: +＠end menu + + +＠c ------------- +＠c Concept Index +＠c ------------- +＠node Concept Index, Variable Index, Indexes, Indexes +＠section Concepts +＠printindex cp +＠page + + +＠c -------------- +＠c Variable Index +＠c -------------- +＠node Variable Index, Function Index, Concept Index, Indexes +＠section Variables ＠printindex vr - - -＠c ==================================================================== -＠c Functions Index -＠c ==================================================================== -＠node Functions Index, Keystrokes Index, Variables Index, Top -＠unnumbered Functions Index +＠page + + +＠c -------------- +＠c Function Index +＠c -------------- +＠node Function Index, Keystroke Index, Variable Index, Indexes +＠section Functions ＠printindex fn - - -＠c ==================================================================== -＠c Keystrokes Index -＠c ==================================================================== -＠node Keystrokes Index, , Functions Index, Top -＠unnumbered Keystrokes Index +＠page + + +＠c --------------- +＠c Keystroke Index +＠c --------------- +＠node Keystroke Index, , Function Index, Indexes +＠section Keystrokes ＠printindex ky +＠page ＠bye https://bitbucket.org/xemacs/patcher/changeset/86f4cd2b333b/ changeset: 86f4cd2b333b user: didierverna date: 2012-01-13 11:30:32 summary: Rename Mercurial themes from 'mercurial[-ws] to 'hg[-ws]. This is more consistent with the other ones (like svn). ChangeLog entries: 2012-01-13 Didier Verna <didier(a)xemacs.org> * lisp/patcher.el (patcher-built-in-themes): Rename Mercurial themes from 'mercurial[-ws] to 'hg[-ws]. 2012-01-13 Didier Verna <didier(a)xemacs.org> * NEWS: Document it. affected #: 2 files diff -r 9baeea9f2ebe545b8e839a76a3d248009c2bf33a -r 86f4cd2b333b893910a961f7311bf63126a5f152 NEWS --- a/NEWS +++ b/NEWS ＠＠ -14,6 +14,8 ＠＠ * Version 4.0: ============= ** Backward incompatible changes +*** Mercurial themes renamed from 'mercurial to 'hg +in order to remain consistent with the other RCS theme names. *** ChangeLogs insertion in mail buffers rebound to C-c C-p l *** Compressed ChangeLogs insertion in logmsg buffers rebound to C-c C-p L *** Removed directory-sep-char hacks diff -r 9baeea9f2ebe545b8e839a76a3d248009c2bf33a -r 86f4cd2b333b893910a961f7311bf63126a5f152 lisp/patcher.el --- a/lisp/patcher.el +++ b/lisp/patcher.el ＠＠ -6,7 +6,7 ＠＠ ;; Author: Didier Verna <didier(a)xemacs.org> ;; Maintainer: Didier Verna <didier(a)xemacs.org> ;; Created: Tue Sep 28 18:12:43 1999 -;; Last Revision: Thu Jan 12 22:17:28 2012 +;; Last Revision: Fri Jan 13 11:28:16 2012 ;; Keywords: maint ＠＠ -239,11 +239,11 ＠＠ "git diff -U0 --relative --no-prefix HEAD%?f{ -- }%f" :commit-command "git commit %!f{-a }-F %s%?f{ -- }%f" :submodule-detection-function patcher-git-detect-submodules) - (mercurial-ws + (hg-ws :diff-command "hg diff --git --show-function -wbB %f" :change-logs-diff-command "hg extdiff -o -wbBtU0 %f" - :themes (mercurial ws)) - (mercurial + :themes (hg ws)) + (hg :diff-header ("\ ^diff .*\n\ \$\\(deleted file\\|new file\$.*\n\\)?\ Repository URL: https://bitbucket.org/xemacs/patcher/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/patcher: 5 new changesets 12 years, 11 months

Bitbucket

5 new commits in patcher: https://bitbucket.org/xemacs/patcher/changeset/718671f4cd47/ changeset: 718671f4cd47 user: didierverna date: 2012-01-03 17:38:13 summary: Ignore a committed project's ChangeLogs in patcher-kill-project. When a project has been committed, we don't want to offer the user the possibility to undo the ChangeLogs because that would leave them in an inconsistent state with respect to the repository. lisp/ChangeLog addition: 2012-01-03 Didier Verna <didier(a)xemacs.org> * patcher-instance.el (patcher-kill-project): Don't prompt for ChangeLog handling options if the project has been committed. affected #: 1 file diff -r 0667eac4a28e1032ec7a42442e8dddb60f444d44 -r 718671f4cd473b9786f5f99b5b3bc0d3c531cd9e lisp/patcher-instance.el --- a/lisp/patcher-instance.el +++ b/lisp/patcher-instance.el ＠＠ -551,8 +551,9 ＠＠ (defun patcher-kill-project (project) ;; Abort PROJECT. (when (yes-or-no-p "Really abort the project? ") - (unless (eq (patcher-project-option project :change-logs-status) - 'ephemeral) + (unless (or (eq (patcher-project-option project :change-logs-status) + 'ephemeral) + (patcher-project-committed-p project)) (with-fboundp '(patcher-generated-change-logs patcher-ungenerate-change-logs) (let ((change-log-buffers https://bitbucket.org/xemacs/patcher/changeset/9ceabfefd6c8/ changeset: 9ceabfefd6c8 user: didierverna date: 2012-01-12 22:10:26 summary: Use only one ChangeLog in the ephemeral case. Since ephemeral ChangeLog entries are only used in commit messages, it is important to root all files at the project's base directory. ../ChangeLog addition: 2012-01-12 Didier Verna <didier(a)xemacs.org> * lisp/patcher-instance.el (patcher-project): Rename DIRECTORY slot into BASE-DIRECTORY. This slot turned out to be unused previously. * lisp/patcher-instance.el (patcher-prompt-project): Set it. * lisp/patcher-change-log.el (patcher-locate-change-log): Use it to always return one ChangeLog file at the base directory for ephemeral ChangeLog status. affected #: 2 files diff -r 718671f4cd473b9786f5f99b5b3bc0d3c531cd9e -r 9ceabfefd6c85113769556110abedf1ac4d17566 lisp/patcher-change-log.el --- a/lisp/patcher-change-log.el +++ b/lisp/patcher-change-log.el ＠＠ -6,7 +6,7 ＠＠ ;; Author: Didier Verna <didier(a)xemacs.org> ;; Maintainer: Didier Verna <didier(a)xemacs.org> ;; Created: Sat Feb 13 22:20:24 2010 -;; Last Revision: Sun Dec 4 21:30:13 2011 +;; Last Revision: Thu Jan 12 21:56:06 2012 ;; Keywords: maint ＠＠ -70,27 +70,33 ＠＠ (patcher-project-option project :change-log-file-name))) ;; Locate PROJECT's ChangeLog file for SOURCE. ;; SOURCE must be an absolute file name. - ;; If PROJECT doesn't do ChangeLogs, return a ChangeLog file in SOURCE's - ;; directory (symlinks followed). Otherwise, try to find a ChangeLog file - ;; the usual way. - (setq source (file-truename source)) ;; follow SOURCE symlinks - (let* ((directory (file-name-directory source)) - (first-change-log (file-truename change-log-file-name directory))) - (if (patcher-project-option project :change-logs-updating) - (flet ((change-log-exists-p (change-log) - (or (get-file-buffer change-log) - (file-exists-p change-log)))) - (let ((change-log first-change-log)) - (while (and (not (change-log-exists-p change-log)) - (let ((parent (file-name-directory - (directory-file-name directory)))) - (prog1 (not (string= parent directory)) - (setq directory parent)))) - (setq change-log (file-truename change-log-file-name directory))) - (if (change-log-exists-p change-log) - change-log - first-change-log))) - first-change-log))) + ;; If PROJECT does only ephemeral ChangeLogs, return always the same one, + ;; located at the base directory. + ;; If PROJECT doesn't have ChangeLogs yet, return a ChangeLog file in + ;; SOURCE's directory (symlinks followed). Otherwise, try to find a + ;; ChangeLog file the usual way. + (if (eq (patcher-project-option project :change-logs-status) 'ephemeral) + (expand-file-name change-log-file-name + (patcher-project-base-directory project)) + (setq source (file-truename source)) ;; follow SOURCE symlinks + (let* ((directory (file-name-directory source)) + (first-change-log (file-truename change-log-file-name directory))) + (if (patcher-project-option project :change-logs-updating) + (flet ((change-log-exists-p (change-log) + (or (get-file-buffer change-log) + (file-exists-p change-log)))) + (let ((change-log first-change-log)) + (while (and (not (change-log-exists-p change-log)) + (let ((parent (file-name-directory + (directory-file-name directory)))) + (prog1 (not (string= parent directory)) + (setq directory parent)))) + (setq change-log + (file-truename change-log-file-name directory))) + (if (change-log-exists-p change-log) + change-log + first-change-log))) + first-change-log)))) (put 'patcher-mapcar-change-log-extents 'lisp-indent-function 1) (defmacro* patcher-mapcar-change-log-extents ＠＠ -190,8 +196,7 ＠＠ (defun patcher-detect-ephemeral-change-logs (project) ;; Detect ephemeral ChangeLogs for PROJECT. ;; Throw an undiffable-change-logs when detected. - (when (eq (patcher-project-option project :change-logs-status) - 'ephemeral) + (when (eq (patcher-project-option project :change-logs-status) 'ephemeral) (patcher-error 'undiffable-change-logs))) ＠＠ -490,8 +495,7 ＠＠ (defun patcher-save-change-logs (project) ;; Save PROJECT's ChangeLog buffers (unless ephemeral). - (unless (eq (patcher-project-option project :change-logs-status) - 'ephemeral) + (unless (eq (patcher-project-option project :change-logs-status) 'ephemeral) (patcher-save-buffers (patcher-change-log-buffers project)))) diff -r 718671f4cd473b9786f5f99b5b3bc0d3c531cd9e -r 9ceabfefd6c85113769556110abedf1ac4d17566 lisp/patcher-instance.el --- a/lisp/patcher-instance.el +++ b/lisp/patcher-instance.el ＠＠ -6,7 +6,7 ＠＠ ;; Author: Didier Verna <didier(a)xemacs.org> ;; Maintainer: Didier Verna <didier(a)xemacs.org> ;; Created: Sat Feb 13 22:43:33 2010 -;; Last Revision: Fri Dec 9 13:22:42 2011 +;; Last Revision: Thu Jan 12 22:04:43 2012 ;; Keywords: maint ＠＠ -78,9 +78,10 ＠＠ ;; the ability to override the project's commit command by giving a prefix ;; to `patcher-logmsg-commit'. commit-command - ;; The project's directory. This variable is needed because a temporary - ;; subproject may modify the original project's value for it. - directory + ;; The project's base directory. This variable is used to anchor ephemeral + ;; ChangeLogs, and is needed because a subproject may modify the original + ;; project's value for it. + base-directory ;; The project's command directory. This variable is needed for supporting ;; relocatable projects. command-directory ＠＠ -254,6 +255,7 ＠＠ (when base-directory (file-name-as-directory (expand-file-name ".." base-directory))) base-directory t nil patcher-directory-history)) + ;; Check that the relocation is valid: we need both a valid subdirectory ;; and command (super) directory. (when subdirectory ＠＠ -265,6 +267,7 ＠＠ base-directory)) (patcher-error "Unable to relocate command directory %s under %s" command-directory base-directory)))) + (setf (patcher-project-base-directory project) base-directory) ;; Compute the default working directory (that is, before a potential ;; override) and the actual one which may be overridden. ＠＠ -282,7 +285,6 ＠＠ default-working-directory t)) default-working-directory)) - (setf (patcher-project-directory project) working-directory) ;; #### WARNING: this filtering is very complicated to do because of the ;; possibility to use wildcards. The code below doesn't really work so for https://bitbucket.org/xemacs/patcher/changeset/73b9efe2a461/ changeset: 73b9efe2a461 user: didierverna date: 2012-01-12 22:23:30 summary: New theme 'ephemeral-change-logs. This theme not only sets the ChangeLogs status but also changes the prologue to avoid using the file name. ChangeLog entries: 2012-01-12 Didier Verna <didier(a)xemacs.org> * lisp/patcher.el (patcher-built-in-themes): New theme 'ephemeral-change-logs. Set the ChangeLogs status to 'ephemeral and the ChangeLogs prologue to "ChangeLog entries:". affected #: 1 file diff -r 9ceabfefd6c85113769556110abedf1ac4d17566 -r 73b9efe2a4610efcc5c35ae597b1d00cc12481e6 lisp/patcher.el --- a/lisp/patcher.el +++ b/lisp/patcher.el ＠＠ -6,7 +6,7 ＠＠ ;; Author: Didier Verna <didier(a)xemacs.org> ;; Maintainer: Didier Verna <didier(a)xemacs.org> ;; Created: Tue Sep 28 18:12:43 1999 -;; Last Revision: Sun Dec 11 13:55:27 2011 +;; Last Revision: Thu Jan 12 22:17:28 2012 ;; Keywords: maint ＠＠ -316,7 +316,10 ＠＠ (ws :committed-notice "\ NOTE: This patch has been committed. The version below is informational only. -In particular, whitespace difference have been removed."))) +In particular, whitespace difference have been removed.") + (ephemeral-change-logs + :change-logs-status ephemeral + :change-logs-prologue "ChangeLog entries:"))) (provide 'patcher) https://bitbucket.org/xemacs/patcher/changeset/7cd7bf97a948/ changeset: 7cd7bf97a948 user: didierverna date: 2012-01-13 09:00:56 summary: Update manual's copyright macros. ChangeLog entries: 2012-01-13 Didier Verna <didier(a)xemacs.org> * doc/patcher.texi (COPYRIGHT_DATE): Remove variable. * doc/patcher.texi (copyrightdate): New replacement macro. affected #: 1 file diff -r 73b9efe2a4610efcc5c35ae597b1d00cc12481e6 -r 7cd7bf97a94854f9deb0a3f2c9c87847865a8b14 doc/patcher.texi --- a/doc/patcher.texi +++ b/doc/patcher.texi ＠＠ -2,12 +2,13 ＠＠＠c patcher.texi --- Patcher documentation +＠c Copyright (C) 2012 Didier Verna. ＠c Copyright (C) 2002, 2003, 2004, 2007, 2008, 2009, 2010, 2011 Didier Verna. ＠c Author: Didier Verna <didier(a)xemacs.org> ＠c Maintainer: Didier Verna <didier(a)xemacs.org> ＠c Created: Sun Apr 21 21:34:06 2002 -＠c Last Revision: Sun Dec 18 18:03:24 2011 +＠c Last Revision: Fri Jan 13 08:58:37 2012 ＠c This file is part of Patcher. ＠＠ -46,7 +47,12 ＠＠＠c Definitions ＠c ==================================================================== ＠set VERSION 4.0 pre 1 -＠set COPYRIGHT_DATE 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011 +＠macro copyrightdate +Copyright ＠copyright{} 2010, 2011, 2012 Didier Verna.＠* +Copyright ＠copyright{} 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, ＠c +2008, 2009 Didier Verna. +＠end macro + ＠c ==================================================================== ＠＠ -57,7 +63,7 ＠＠＠value{VERSION}, an XEmacs package for automating the maintenance of RCS-based projects. -Copyright ＠copyright{} ＠value{COPYRIGHT_DATE} Didier Verna. +＠copyrightdate{} Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are ＠＠ -95,7 +101,7 ＠＠＠author Didier Verna <＠email{didier＠(a)xemacs.org}> ＠page ＠vskip 0pt plus 1filll -Copyright ＠copyright{} ＠value{COPYRIGHT_DATE} Didier Verna. +＠copyrightdate{} Permission is granted to make and distribute verbatim copies of this https://bitbucket.org/xemacs/patcher/changeset/ce7a0dc0b627/ changeset: ce7a0dc0b627 user: didierverna date: 2012-01-13 09:37:58 summary: Update documentation on ephemeral ChangeLogs. ChangeLog entries: 2012-01-13 Didier Verna <didier(a)xemacs.org> * doc/patcher.texi (ChangeLogs Status): Document the 'ephemeral-change-logs built-in themes. Reflect the fact that there's now only one ephemeral ChangeLog file located at the project's base directory. affected #: 1 file diff -r 7cd7bf97a94854f9deb0a3f2c9c87847865a8b14 -r ce7a0dc0b627e6e53f62cb5d715c52facca1c194 doc/patcher.texi --- a/doc/patcher.texi +++ b/doc/patcher.texi ＠＠ -8,7 +8,7 ＠＠＠c Author: Didier Verna <didier(a)xemacs.org> ＠c Maintainer: Didier Verna <didier(a)xemacs.org> ＠c Created: Sun Apr 21 21:34:06 2002 -＠c Last Revision: Fri Jan 13 08:58:37 2012 +＠c Last Revision: Fri Jan 13 09:35:26 2012 ＠c This file is part of Patcher. ＠＠ -47,12 +47,17 ＠＠＠c Definitions ＠c ==================================================================== ＠set VERSION 4.0 pre 1 + ＠macro copyrightdate Copyright ＠copyright{} 2010, 2011, 2012 Didier Verna.＠* Copyright ＠copyright{} 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, ＠c 2008, 2009 Didier Verna. ＠end macro +＠macro etc +(a)i{etc.} +＠end macro + ＠c ==================================================================== ＠＠ -563,8 +568,8 ＠＠＠findex patcher-version ＠kindex C-c C-p v At any time, and in any buffer related to a Patcher project (mail, -ChangeLog etc.), you can query the current version of Patcher by calling -the function ＠code{patcher-version}, bound to ＠kbd{C-c C-p v}. +ChangeLog ＠etc{}), you can query the current version of Patcher by +calling the function ＠code{patcher-version}, bound to ＠kbd{C-c C-p v}. ＠menu * Starting Up:: Patcher entry points ＠＠ -1983,20 +1988,29 ＠＠＠vindex :change-log-file-name A value of ＠code{ephemeral} on the other hand means that your ChangeLog entries exist only temporarily, to be used in the commit log message -and/or inserted verbatim in the mail. Patcher does this by creating -temporary ChangeLog files (named after the ＠code{:change-log-file-name} -project option) and getting rid of them after the mail is sent. As a -result, everything works just as if the ChangeLog files were real: -ChangeLog entries can be generated automatically or written manually, -you can navigate through them on a per-directory basis, whatever. - -The only restriction is that you cannot diff them because they are not -really part of the project, so their appearance can only be -＠code{verbatim}. Also, when you set a project to ephemeral ChangeLogs, -beware to use ChangeLog file names that don't conflict with existing -files (old ChangeLog files may for example be renamed +and/or inserted verbatim in the mail. Patcher does this by creating a +temporary ChangeLog file (named after the ＠code{:change-log-file-name} +project option) in the project's base directory, and getting rid of it +after the mail is sent. As a result, everything works just as if the +ChangeLog file was real: ChangeLog entries can be generated +automatically or written manually ＠etc{} + +The only restriction is that you cannot diff the ephemeral ChangeLog +entries because they are not really part of the project, so their +appearance can only be ＠code{verbatim}. Also, when you use an ephemeral +ChangeLog, beware to use a file name that doesn't conflict with existing +files (old ChangeLog files may for example be renamed to ＠file{ChangeLog.dead}). +Because there's only one, virtual, ephemeral ChangeLog file located at +the project's base directory, the default value for the ChangeLogs +prologue doesn't work very well in the ephemeral case. It doesn't make +sense to refer to the file itself, since it's only temporary. A simpler +prologue like ``ChangeLog entries:'' would suffice. Patcher provides a +built-in theme called ＠samp{ephemeral-change-logs} that you can use to +both set the ChangeLog status to ＠samp{ephemeral} and modify the +prologue at the same time. + One final note: if you use the ＠code{git-index} built-in theme with ephemeral ChangeLogs, don't use it in conjunction with ＠code{git-index-automatic-change-logs}, even if the ChangeLogs entries Repository URL: https://bitbucket.org/xemacs/patcher/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/edit-utils: 3 new changesets 12 years, 11 months

Bitbucket

3 new commits in edit-utils: https://bitbucket.org/xemacs/edit-utils/changeset/a62ad4a49792/ changeset: a62ad4a49792 user: Norbert Koch date: 2012-01-10 14:52:51 summary: XEmacs Package Release 2.45 affected #: 2 files diff -r 6809d81c434e115e3ac9ebb1d7775f516a65f800 -r a62ad4a49792d000ec06ca150d4d039e00909d0e ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2012-01-10 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 2.45 released. + 2011-05-11 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 2.44 released. diff -r 6809d81c434e115e3ac9ebb1d7775f516a65f800 -r a62ad4a49792d000ec06ca150d4d039e00909d0e Makefile --- a/Makefile +++ b/Makefile ＠＠ -19,7 +19,7 ＠＠ # This XEmacs package contains independent single file lisp packages -VERSION = 2.44 +VERSION = 2.45 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org> PACKAGE = edit-utils https://bitbucket.org/xemacs/edit-utils/changeset/98f601f1e9d1/ changeset: 98f601f1e9d1 user: Norbert Koch date: 2012-01-10 14:52:51 summary: Added tag edit-utils-2_45 for changeset a62ad4a49792 affected #: 1 file diff -r a62ad4a49792d000ec06ca150d4d039e00909d0e -r 98f601f1e9d1c836f33853a7aa387b4af4cce143 .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -150,3 +150,4 ＠＠ f100526f96c75342859221d56ee1386776c68776 sumo-2003-02-05 1aaed3ab7fa47ec2c7aa80aa20e74070d6e4ebb0 sumo-2006-05-10 129ef811720b9bdf33934e421726b0c991363018 edit-utils-2_42 +a62ad4a49792d000ec06ca150d4d039e00909d0e edit-utils-2_45 https://bitbucket.org/xemacs/edit-utils/changeset/ef38cca5c38e/ changeset: ef38cca5c38e user: Norbert Koch date: 2012-01-13 09:43:26 summary: merge affected #: 7 files diff -r 98f601f1e9d1c836f33853a7aa387b4af4cce143 -r ef38cca5c38e2ab5f8db1890e1d37e27534edaa9 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,7 +1,25 ＠＠ +2012-01-12 Vin Shelton <acs(a)xemacs.org> + + * buffer-colors.el: + * icon-themes.el: Remove autoloads that force package loading. + 2012-01-10 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 2.45 released. +2012-01-06 Steve Mitchell <smitchel(a)bnin.net> + Byrel Mitchell <byrel.mitchell(a)gmail.com> + + * buffer-colors.el : created buffer-colors.el + Allows easy changing of foreground/background colors + via customize buffer, menu, and rule based changing. + +2011-12-22 Vin Shelton <acs(a)xemacs.org> + + * allout.el (outline-version): + * winring.el (winring-version): Set $Revision to the most recent + CVS revision number. + 2011-05-11 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 2.44 released. diff -r 98f601f1e9d1c836f33853a7aa387b4af4cce143 -r ef38cca5c38e2ab5f8db1890e1d37e27534edaa9 Makefile --- a/Makefile +++ b/Makefile ＠＠ -40,9 +40,9 ＠＠ reportmail.elc resume.elc rsz-minibuf.elc saveconf.elc savehist.elc \ saveplace.elc scroll-in-place.elc shell-font.elc tempo.elc \ toolbar-utils.elc tree-menu.elc uniquify.elc where-was-i-db.elc \ - winring.elc vertical-mode.elc power-macros.elc \ + winring.elc vertical-mode.elc power-macros.elc icon-themes.elc \ search-buffers.elc setnu.elc align.elc autorevert.elc allout.elc \ - narrow-stack.elc highline.elc crm.elc wide-edit.elc + narrow-stack.elc highline.elc crm.elc wide-edit.elc buffer-colors.elc EXPLICIT_DOCS = $(PACKAGE).texi tempo.texi diff -r 98f601f1e9d1c836f33853a7aa387b4af4cce143 -r ef38cca5c38e2ab5f8db1890e1d37e27534edaa9 allout.el --- a/allout.el +++ b/allout.el ＠＠ -509,7 +509,7 ＠＠ ;;;_ : Version ;;;_ = outline-version (defvar outline-version - (let ((rcs-rev "$Revision$")) + (let ((rcs-rev "$Revision: 1.1 $")) (condition-case err (save-match-data (string-match "Revision: \$[0-9]+\\.[0-9]+\$" rcs-rev) diff -r 98f601f1e9d1c836f33853a7aa387b4af4cce143 -r ef38cca5c38e2ab5f8db1890e1d37e27534edaa9 buffer-colors.el --- /dev/null +++ b/buffer-colors.el ＠＠ -0,0 +1,422 ＠＠ +;;; buffer-colors.el +;;; Copyright (C) 2011 Byrel Mitchell and Steve Mitchell +;;; email: smitchel(a)bnin.net +;;; email: byrel.mitchell(a)gmail.com +;;; +;;; This program is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3, or (at your option) +;;; any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program; if not, write to the Free Software +;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +;;; +;;; +;;; Description: +;;; +;;; A menu system for setting buffer local face colors. +;;; Allows adding and removing menu entries, and storage of permanent custom colors. +;;; +;;; Afer the first time it runs, on startup, it loads a list of colors from custom.el. +;;; if none found, it creates a list of a few colors to start out with. Thereafter +;;; we keep a list in custom.el of all fg/bg pairs and load that list each time. +;;; +;;; These color changes are by default "by the buffer" (no matter the window or pane it is +;;; displayed in). It can also be set so the color changes will follow a window +;;; (no matter what buffer is displayed there) +;;; Easy to choose between these 2 methods either on the menu or in a customize buffer: +;;; M-x customize-group buffer-colors +;;; +;;; There is also a list of "rules" to colorize new buffers, based on things we can know +;;; about the file, such as read-only, or filename extension, or date-modified, etc. +;;; +;;; Purpose is to have an easy at-hand way to change buffer colors +;;; instead of a full customize buffer, making it easy to: +;;; -ease eye strain--change hourly, daily or as lighting conditions change. +;;; -On a 30" monitor I often have 3-4 buffers open and this helps me keep +;;; straight which file is which--especially when source code and file names +;;; are very, very similar between files. +;;; -organize buffers by catagory: +;;; have one fg/bg color pair for files that you load for referance +;;; have a fg/bg color you use for read only files +;;; have a fg/bg color you use for your try-out buffer +;;; have a fr/bg color for open emails, another pair for replies +;;; Four example "rules" are pre-programmed in, you can remove or reorder +;;; these, or add new rules. Anything you know about a file can be used +;;; to create a "rule" to decide how to colorize files when loading them. +;;; (after they are loaded, and colorized then, you can still change the +;;; colors at any time through either the Buffer Colors menu or +;;; through a customize buffer (under the Buffer Colors menu-->settings). +;;; +;;; Adds a toggle turn buffer colors on/off: Options-->Display-->Buffer Colors +;;; Adds a selection to the Buffers Menu: Buffer Colors. +;;; What it does: +;;; 1. Lets you specify foreground and background colors +;;; differently for each buffer on the fly. +;;; 2. Lets you set new combinations of fg/bg colors +;;; and save the list of colors to disk. +;;; 3. Displays a list in a buffer of valid colors +;;; with their names, for you to refer to. +;;; 3. Creates a file buffercolors.el in your ~/.xemacs directory, +;;; for storing fg/bg colors for the predefined choices on the menu. +;;; 4. All code is in the file buffer-color-menu.el, +;;; All settings are saved in custom.el +;;; +;;; TODO +;;; This implements buffer-colors as a behavior. Currently it needs enabled each session, +;;; by toggling Options-->Display-->Buffer-Colors +;;; We need to find a way to have it on by default. +;;; +(require 'menubar) ;contains add-menu-button +(require 'wid-edit) ;contains widget-value + +(define-specifier-tag 'buffer-colors) + +(define-specifier-tag 'bc-read-only) + +(defvar bc-fgbg-menu nil "Menu for Buffer Colors") + + +;; the behaviour lets us +;; disable Buffer Colors, +;; remove the Buffer Colors menu item, +;; and delete all previously set buffer colors, +;; restoring them to the colors in the default face. +(define-behavior 'buffer-colors + "A system for quickly changing the fg and bg colors of buffers. +It includes a rule-based system for coloring new buffers." +:enable 'bc-enable-behavior +:disable 'bc-disable-behavior) + +;;---- functions for rules ---------------------------------------- +(defun bc-read-only-p () + "Return t if current buffer is read only." + buffer-read-only) + +(defun bc-c-file-p () + "Return t if buffer file name ends in .c or .cpp." + (string-match "\\.c\$pp\$?$" buffer-file-name)) + +(defun bc-h-file-p () + "Return t if buffer file name ends in .h." + (string-match "\\.h$" buffer-file-name)) + +(defun bc-el-file-p () + "Return t if buffer file name ends in .el." + (string-match "\\.el$" buffer-file-name)) + +(defmacro bc-set-fgbg (fg bg tag-set) + "Sets the fg/bg properties of the default face for the current buffer locale." + `(progn + (set-face-foreground 'default ,fg + (if bc-per-window-flag + (selected-window) + (current-buffer)) ,tag-set) + (set-face-background 'default ,bg + (if bc-per-window-flag + (selected-window) + (current-buffer)) ,tag-set))) + + +(defun bc-set-buffer-fgbg (fg bg tag-set) + "Sets the colors of the current buffer to `FG'/`BG'. +This specifier will be associated with `TAG-SET'. +For the more general function, see `bc-set-fgbg'" + (let ((bc-per-window-flag nil)) + (bc-set-fgbg fg bg tag-set))) + + +(defmacro bc-equal-fgbg-p (fg bg) + "Checks if new `FG'/`BG' are same as current fg/bg." + `(and (equal ,fg (color-instance-name (face-foreground-instance 'default))) + (equal ,bg (color-instance-name (face-background-instance 'default))))) + + +(defun bc-add-fgbg-combination (&optional fg bg) + "Adds a foreground/background pair to Buffer Colors menu. +And applies this selection to current buffer.." + (when (not fg) + (setq fg (facemenu-read-color "Foreground Color Name? :"))) + (when (not bg) + (setq bg (facemenu-read-color "Background Color Name? :"))) + (setq bc-buffer-color-combos (append bc-buffer-color-combos + (list (cons (downcase fg) + (downcase bg))))) + (bc-refresh-buffer-color-menu) + (bc-set-fgbg fg bg 'buffer-colors)) + + +(defun bc-delete-fgbg (fg bg) + "Removes an entry from buffer colors menu." + (delete (cons fg bg) bc-buffer-color-combos) + (bc-refresh-buffer-color-menu)) + +;;;###autoload +(defun bc-refresh-buffer-color-menu () + "Refreshes buffer color menu from buffer-color-combos." + (setq bc-fgbg-menu `("Buffer Colors" + ,＠(bc-generate-select-menu) + ("Settings" + ["Use Windows Instead of Buffers" + (if bc-per-window-flag + (setq bc-per-window-flag nil) + (setq bc-per-window-flag t)) + :style toggle + :selected bc-per-window-flag] + ["New Colors On Bottom Of List" + (progn + (if bc-new-colors-at-bottom-flag + (setq bc-new-colors-at-bottom-flag nil) + (setq bc-new-colors-at-bottom-flag t)) + (bc-refresh-buffer-color-menu)) + :style toggle + :selected bc-new-colors-at-bottom-flag] + ["Customize Buffer Colors..." + (customize-group 'buffer-colors)]) + ("Custom Buffer Colors" + ["Show all colors..." list-colors-display] + ["Define Custom FG/BG" (bc-add-fgbg-combination)] + ["Store current list" (bc-write-current-fgbg)] + ("Delete colors from list" + ,＠(bc-generate-delete-menu))) + ["Reset Buffer to Defaults" (bc-clear-current-fgbg)] + ["Reset All to Defaults" (bc-clear-all-fgbg)])) + (add-submenu '("Buffers") bc-fgbg-menu "List All Buffers")) + + +(defun bc-clear-current-fgbg () + "Removes any buffer color specification from the current buffer." + (remove-specifier (face-foreground 'default) (current-buffer) 'buffer-colors) + (remove-specifier (face-background 'default) (current-buffer) 'buffer-colors) + (remove-specifier (face-foreground 'default) (selected-window) 'buffer-colors) + (remove-specifier (face-background 'default) (selected-window) 'buffer-colors)) + + +(defun bc-clear-all-fgbg () + "Removes all buffer color specifications from all buffers." + (loop for buffer being each buffer + do + (remove-specifier (face-foreground 'default) buffer 'buffer-colors) + (remove-specifier (face-background 'default) buffer 'buffer-colors)) + (loop for window being each window + do + (remove-specifier (face-foreground 'default) window 'buffer-colors) + (remove-specifier (face-background 'default) window 'buffer-colors))) + +;;;###autoload +(defun bc-enable-behavior () + "Enables Buffer Color package +By Default, this is done at load time." + (add-hook 'after-save-hook 'bc-remove-read-only-tags) + (add-hook 'find-file-hooks 'bc-evaluate-color-tests) + (bc-refresh-buffer-color-menu) + (add-menu-button '("Buffers") "---" "List All Buffers")) + + +;;;###autoload +(defun bc-disable-behavior () + "Disables Buffer Color package. +This removes the Buffer Color control menu and all currently colored buffers." + (bc-clear-all-fgbg) + (delete-menu-item '("Buffers" "Buffer Colors")) + (delete-menu-item '("Buffers" "---")) + (remove-hook 'after-save-hook 'bc-remove-read-only-tags) + (remove-hook 'find-file-hooks 'bc-evaluate-color-tests)) + +;;;###autoload +(defun bc-toggle-behavior () + (interactive) + (if (behavior-enabled-p 'buffer-colors) + (disable-behavior 'buffer-colors) + (enable-behavior 'buffer-colors))) + +(defun bc-write-current-fgbg () + "Writes buffer colors menu to file" + (custom-save-all)) + +(defun bc-generate-select-menu () + "Returns a list of fg/bg entries for buffer color menu" + (let ((temp (if bc-new-colors-at-bottom-flag + (reverse bc-buffer-color-combos) + bc-buffer-color-combos)) + (menu-list nil)) + (while temp + (let ((fg (caar temp)) + (bg (cdar temp))) + (setq menu-list + (cons `[,(concat (capitalize fg) " on " (capitalize bg)) + (bc-set-fgbg ,fg ,bg 'buffer-colors) + :style radio + :selected (bc-equal-fgbg-p ,fg ,bg)] menu-list)) + (setq temp (cdr temp)))) + menu-list)) + +(defun bc-generate-delete-menu () + "Returns a list of fg/bg entries for delete buffer color menu" + (let ((temp (if bc-new-colors-at-bottom-flag + (reverse bc-buffer-color-combos) bc-buffer-color-combos)) + (menu-list nil)) + (while temp + (let ((fg (caar temp)) + (bg (cdar temp))) + (setq menu-list + (cons `[ + ,(concat "Delete " (capitalize fg) " on " (capitalize bg)) + (bc-delete-fgbg ,fg ,bg) ] + menu-list)) + (setq temp (cdr temp)))) + menu-list)) + +(defun bc-remove-read-only-tags () + (remove-specifier (face-foreground 'default) (current-buffer) 'bc-read-only) + (remove-specifier (face-background 'default) (current-buffer) 'bc-read-only)) + +(defun bc-evaluate-color-tests () + "Evaluates color tests to find the initial colors for a new buffer." + (loop for (enabledp predicate fg bg tag-set) in bc-file-color-tests + do + (when (and enabledp (funcall predicate)) + (when tag-set + (unless (listp tag-set) + (setq tag-set (list tag-set)))) + (bc-set-buffer-fgbg fg bg (cons 'buffer-colors tag-set))))) + + + + +;;;;--- create a customization group and variables for a customize buffer --- +;;;###autoload +(defgroup buffer-colors nil + "A system for easily modifying default foreground and backgrounds of buffers.") + + +;; define new widget so in a customize buffer we can validate a user-input color name. +;; validates both string names and rgb Hex codes for colors. +;;;###autoload +(define-widget 'color 'string + "A widget for entering displayable color names. +Accepts either names or direct hex-codes (#rrggbb or #rrrrggggbbbb)." +:validate (lambda (widget) + (if (or (string-match "^#[0-9a-f]\\{6,6\\}\$[0-9a-f]\\{6,6\\}\$?$" (widget-value widget)) + (member (widget-value widget) (color-list))) + nil + (widget-put widget :error (concat (widget-value widget) " is not a valid color name.")))) + +:tag "Color" +:prompt-value (lambda (widget prompt value unbound) + (read-color prompt nil (unless unbound value)))) + +;; this variable controls whether the buffer colors follow windows or buffers. +;; if the colors follow by buffer, the buffer contents stay that color no matter which +;; windows the buffer is displayed in. +;; if the colors follow the window, then the window will stay those colors no matter +;; which buffer is displayed in that window. +;;;###autoload +(defcustom bc-per-window-flag nil + "Scope of color assignments. Colors can follow current window or current buffer." +:tag "Buffer color scope" +:group 'buffer-colors +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (bc-refresh-buffer-color-menu)) +:type '(choice :tag "Colors follow" + (const :tag "Buffer" nil) + (const :tag "Window" t))) + + +;; by default, additional color pairs are put in the top of the menu list. +;; this variable adds additional color pairs at the bottom of the menu list instead. +;;;###autoload +(defcustom bc-new-colors-at-bottom-flag nil + "Sorting direction for Buffer Colors menu" +:tag "Buffer Colors menu sort direction" +:group 'buffer-colors +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (bc-refresh-buffer-color-menu)) +:type '(choice :tag "Buffer Colors menu is sorted from" + (const :tag "Newest to Oldest" nil) + (const :tag "Oldest to Newest" t))) + + + +;; list of a few foreground/background color pairs to start out with. +;; usually only used the first time the program is run. +;; as soon as some fg/bg pairs are defined and saved in custom.el, +;; they are loaded instead of these. +;;;###autoload +(defcustom bc-buffer-color-combos '(("black" . "white") + ("white" . "black") + ("green" . "black") + ("yellow" . "black") + ("lightgoldenrod" . "sandybrown") + ("orchid" . "mediumvioletred") + ("deepskyblue" . "saddlebrowwn") + ("yellowgreen" . "darkslategrey") + ("slateblue" . "cornflowerblue") + ("yellow" . "navyblue") + ("darkslategrey" . "coral")) + "Foreground/background pairs for default buffer text. +These will show up on the Buffers->Buffer Colors menu." +:group 'buffer-colors +:initialize 'custom-initialize-default +:set (lambda (symbol value) + (set-default symbol value) + (bc-refresh-buffer-color-menu)) +:type '(repeat (cons :tag "Menu entry" + (color :tag "Foreground") + (color :tag "Background")))) + + +;; a list of rules to start out with. They can be individualy disabled +;; and as soon as more are added, and saved in custom.el, those are loaded +;; instead of this list. +;;;###autoload +(defcustom bc-file-color-tests '((t bc-read-only-p "tomato" "black" (bc-read-only)) + (t bc-c-file-p "mediumspringgreen" "black" nil) + (t bc-h-file-p "mediumspringgreen" "navy" nil) + (t bc-el-file-p "PaleGreen" "black" nil)) + "A list of rules for coloring new buffers. +If a Predicate evaluates to non-nil, the associated color pair will be +applied to the new buffer. Predicate will be evaluated in the new +buffer, so buffer-local variables (eg `buffer-file-name') will be +correct. +The last matching rule is used." +:group 'buffer-colors +:type '(repeat (list :tag "Rule" + :extra-offset 4 + (choice :tag "This rule is" + (const :tag "Enabled" t) + (const :tag "Disabled" nil)) + (symbol :tag "Predicate") + (string :tag "Foreground") + (string :tag "Background") + (choice :tag "Tag-set" + (const :tag "None" nil) + (repeat :tag "List" (symbol + :tag "Tag" + :value bc-read-only)))))) + +;;;;--- start up code ---------------------------------------------- + +(unless (featurep 'buffer-colors) + (add-menu-button '("Options" "Display") + "---")) ;add a separator only first time loaded + +(add-menu-button '("Options" "Display") + [ "Buffer Colors" bc-toggle-behavior + :style toggle + :selected (behavior-enabled-p 'buffer-colors)]) + +(provide 'buffer-colors) + +;;; end of buffer-colors.el + diff -r 98f601f1e9d1c836f33853a7aa387b4af4cce143 -r ef38cca5c38e2ab5f8db1890e1d37e27534edaa9 icon-themes.el --- /dev/null +++ b/icon-themes.el ＠＠ -0,0 +1,447 ＠＠ +;;-------- icon-themes.el +;; This implements themes for icons in the toolbar +;; and adds a menu item "icon-themes" +;; each theme is a list of icon files and sizes +;; all stored in the file "icon-themes-list.el" +;; see that file for a template to add themes. +;; +;; Authors: +;; Byrel Mitchell byrel.mitchell(a)gmail.com +;; Steve Mitchell smitchel(a)bnin.net +;; +;; Copyright (C) 2011 Byrel Mitchell <byrel.mitchell(a)gmail.com> +;; Copyright (C) 2011 Steven Mitchell <smitchel(a)bnin.net> +;; +;; +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Synched up with: Not in FSF. +;; + + +(require 'menubar) ;contains add-sub-menu + +;---- declare variables for icon-themes ------------------------------ + +(defvar theme-theme-list nil + "A list of all currently loaded themes.") +;;---- function definitions ----------------------------------------- + +;--- General Procedure to update the toolbar: +;--- first save a copy of the default toolbar. +;--- then remove the toolbar, +;--- then put the saved copy back in, which updates the toolbar +;--- doesn't seem to be any other way... +(defun theme-update-toolbar () + (let ((toolbar (copy-specifier default-toolbar))) + (remove-specifier default-toolbar) + (sit-for 0) + (set-specifier default-toolbar toolbar))) + + + +;--- adds theme-icon-search-path to the data-directory-list path +(defun theme-expand-path (file) + (setq file (substitute-in-file-name file)) + (if (file-name-absolute-p file) + (if (file-exists-p file) + file + nil) + (locate-file file (append theme-icon-search-path data-directory-list)))) ; when this is a package, would this path already be set? + + + +;--- theme check files confirms the list of icons in icon-themes-list-el +;--- to exist on disk so we don't get any missing icon file problems +;;;###autoload +(defun theme-check-files () + "Check to make sure all files can be found in all loaded themes." + (interactive) + (catch 'check-abort + (loop for theme-symbol in theme-theme-list + for theme = (symbol-value theme-symbol) + for theme-name = (car theme) do + (loop for (x y . buttons) in (cdr theme) do + (loop for (target . icons) in buttons do + (unless (assq target themeable-icons) + (unless (y-or-n-p (concat (prin1-to-string target) " not in themable icons, in theme " theme-name ". Continue? ")) ;or should it be continue checking? + (throw 'check-abort nil))) + (if (eq (type-of icons) 'string) + (setq icons (list icons))) + (loop for image in icons do + (when image + (unless (theme-expand-path image) + (unless (y-or-n-p (concat (prin1-to-string image) " (from theme " theme-name ") not found in path. Continue? ")) + (throw 'check-abort nil)))))))) + t)) + + +; takes the icons of a given theme/size and makes glyphs of them +(defun theme-load-theme ( theme-list ) + "Loads theme given by `THEME-LIST' into appropriate glyphs." + (loop for (target . icons) in theme-list + for target-var = (cdr (assq target themeable-icons)) + for target-icon = (when (boundp target-var) + (symbol-value target-var)) do + (when target-var ; Only update icon variable if target is listed in themable icons + (unless (boundp target-var) ;if not defined, define target variable + (set target-var nil)) + (if (eq (type-of icons) 'string) + (setq icons (list icons))) + (when (> (length icons) (length target-icon)) ;length of our list vs target list, includes "pressed",etc. up to 6 items in list + (setf (nthcdr (length target-icon) target-icon) (nthcdr (length target-icon) icons))) ;make sure target list is at least as long as the source list + (loop for a from 0 to (1- (min (length target-icon) (length icons))) + for source = (nth a icons) do + (if source + (if (theme-expand-path source) ;If we can resolve it to a file, use that. If it doesn't look like a filename, use the string as a glyph + (setf (nth a target-icon) (make-glyph (theme-expand-path source))) + (unless (string-match "\\.\$jpe?g\\|xpm\\|png\$$" source) + (setf (nth a target-icon) (make-glyph source)))) + (setf (nth a target-icon) nil))))) + (theme-update-toolbar)) ; at the end, update the toolbar + + +;;;###autoload +(defun theme-read-theme (theme-list &rest expressions) + "Used for loading a theme. +A theme definition file should contain this function with the theme as +an argument. If there are any further arguments after a theme definition, +they are evaluated and run as lisp commands." + (let ((theme-name (downcase (car theme-list))) ;Tango for instance has uppercase "T" in name + theme-symbol) + (while (string-match "[ \t\n]" theme-name) + (setq theme-name (replace-match "-" nil nil theme-name))) + (setq theme-symbol (intern + (concat "theme-" + theme-name + "-theme-def"))) + (set theme-symbol theme-list) + (unless (member theme-symbol theme-theme-list) + (push theme-symbol theme-theme-list))) + (eval `(progn ,＠expressions))) ;the part that evals any additional commands + ;it is used in the text icons to set the + ; toolbar face to bold. + + +;--- when a new theme is chosen, this function +;--- sets the toolbar height and sets the current theme +; variables and loads the theme. +;;;###autoload +(defun theme-set-theme (symbol theme-symbol &optional x y) + "Set the customizable variable theme-current-theme. +Also set theme-current-size if `X' and `Y' are specified. +`SYMBOL' is ignored." + (if (symbol-value theme-symbol) + (progn + (unless (and x y) ;unless an x and y are specified + (setq x (caadr (symbol-value theme-symbol)) ; get x from 1st size in theme + y (cadadr (symbol-value theme-symbol)))) ;get y from first size in theme + (let ((oursize + (loop for (newx newy . icon-list) in (cdr (symbol-value theme-symbol)) + until (and (eq x newx) ;once we find a size that matches + (eq y newy)) + finally return icon-list))) ;return the size we found + (theme-load-theme oursize) ;loads the theme with the size + (set-default 'theme-current-theme theme-symbol) ; set name of current theme + (set-specifier default-toolbar-height (+ 4 y)) ; set toolbar height to match icon height + (set-default 'theme-current-size (cons x y)))) ; set current size of theme + (when theme-symbol + (setq theme-current-theme theme-symbol)) ;update current theme name + (when x + (setf (car theme-current-size) x)) ;update width of icons + (when y + (setf (cdr theme-current-size) y)))) ;update height of icons + + + +;--- theme-set-size sets the size of the current theme +;--- and checks that it is a legitimate size +;;;###autoload +(defun theme-set-size (symbol size) + "Setting function for `theme-current-size' customizable variable." + (if (zerop (loop for (newx newy . icon-list) in (cdr (symbol-value theme-current-theme)) + count (and (eq (car size) newx) + (eq (cdr size) newy)))) + (message "No such size found") + (setq theme-current-size size))) + + +;--- theme-load-menu adds the new menu-item "icon-themes" +;--- the "current: <theme name>" is added to the title line +; of the submenu that lists available themes (by reading +; the file "theme-theme-list.el"). +;--- the section below starting with "collect (vector..." +; is to populate a sub-menu for each theme, +; showing sizes available in that theme +; +;;;###autoload +(defun theme-load-menu (menu-path &optional before) + "Adds an icon-themes menu to the toolbar. +`menu-path' is a list representing the menu to add the icon theme menu +to. `before' is a string indicating what element to add it before. For +more details, see `current-menubar'." + (add-submenu menu-path + '( "Icon Themes" :filter + (lambda (list) + (cons [ "Current: " :suffix (or (car (symbol-value theme-current-theme) ) "none")] ;shows name of cur. theme (or none) + ;in submenu title + (loop for theme-symbol in theme-theme-list + for theme = (symbol-value theme-symbol) + collect (cons (car theme) ; + (loop for (x yo) in (cdr theme) + for y = (eval yo) + collect (vector (format "%i x %i" x y) ; assemble a string of x y sizes + `(theme-set-theme nil (quote ,theme-symbol) ,x ,y) + :style 'radio :selected `(and (eq (quote ,theme-symbol) theme-current-theme) + (eq ,x (car theme-current-size)) + (eq ,y (cdr theme-current-size)))))))))) + before)) + + +(theme-read-theme +'("Text-Icons" + (32 (+ 10 (string-to-number (custom-face-font-size 'toolbar ))) + ; adjust 2nd number above for button height w/your font + ;height needs to be 4-6 pixels higher than font height + ;or text won't show in the toolbar buttons, + ;but buttons will still work + (open " Open " nil nil nil nil nil) ; to compact the length of toolbar + (dired " Dired " nil nil nil nil nil) ; remove the leading/trailing spaces + (save " Save " nil nil nil nil nil) ; and abbrev. the strings as desired. + (print " Print " nil nil nil nil nil) + (cut " Cut " nil nil nil nil nil) + (copy " Copy " nil nil nil nil nil) + (paste " Paste " nil nil nil nil nil) + (prev-window " Prev-win " nil nil nil nil nil) + (next-window " Next-win " nil nil nil nil nil) + (replace " Find-Replace " nil nil nil nil nil) + (spell " Spell " nil nil nil nil nil) + (undo " Undo " nil nil nil nil nil) + (compile " Compile " nil nil nil nil nil) + (debug " Debug " nil nil nil nil nil) + (email " Email " nil nil nil nil nil) + (info " Info " nil nil nil nil nil) + (news-reader " News-Reader " nil nil nil nil nil))) + ;after the list of icons, any lisp commands here will be eval'd + (custom-set-face-bold 'toolbar t )) ;set toolbar face, bold on + + +(theme-read-theme + '("Default-Icons" + (28 (cond ((specifier-instance toolbar-buttons-captioned-p) 38) (30)) + (open "toolbar/file-up.xpm" + nil + "toolbar/file-xx.xpm" + "toolbar/file-cap-up.xpm" + nil + "toolbar/file-cap-xx.xpm") + (dired "toolbar/folder-up.xpm" + nil + "toolbar/folder-xx.xpm" + "toolbar/folder-cap-up.xpm" + nil + "toolbar/folder-cap-xx.xpm") + (save "toolbar/disk-up.xpm" + nil + "toolbar/disk-xx.xpm" + "toolbar/disk-cap-up.xpm" + nil + "toolbar/disk-cap-xx.xpm") + (print "toolbar/printer-up.xpm" + nil + "toolbar/printer-xx.xpm" + "toolbar/printer-cap-up.xpm" + nil + "toolbar/printer-cap-xx.xpm") + (cut "toolbar/cut-up.xpm" + nil + "toolbar/cut-xx.xpm" + "toolbar/cut-cap-up.xpm" + nil + "toolbar/cut-cap-xx.xpm") + (copy "toolbar/copy-up.xpm" + nil + "toolbar/copy-xx.xpm" + "toolbar/copy-cap-up.xpm" + nil + "toolbar/copy-cap-xx.xpm") + (paste "toolbar/paste-up.xpm" + nil + "toolbar/paste-xx.xpm" + "toolbar/paste-cap-up.xpm" + nil + "toolbar/paste-cap-xx.xpm") + (prev-window "toolbar/last-win-up.xpm" + nil + "toolbar/last-win-xx.xpm" + "toolbar/last-win-cap-up.xpm" + nil + "toolbar/last-win-cap-xx.xpm") + (next-window "toolbar/next-win-up.xpm" + nil + "toolbar/next-win-xx.xpm" + "toolbar/next-win-cap-up.xpm" + nil + "toolbar/next-win-cap-xx.xpm") + (replace "toolbar/replace-up.xpm" + nil + "toolbar/replace-xx.xpm" + "toolbar/replace-cap-up.xpm" + nil + "toolbar/replace-cap-xx.xpm") + (spell "toolbar/spell-up.xpm" + nil + "toolbar/spell-xx.xpm" + "toolbar/spell-cap-up.xpm" + nil + "toolbar/spell-cap-xx.xpm") + (undo "toolbar/undo-up.xpm" + nil + "toolbar/undo-xx.xpm" + "toolbar/undo-cap-up.xpm" + nil + "toolbar/undo-cap-xx.xpm") + (info "toolbar/info-def-up.xpm" + nil + "toolbar/info-xx.xpm" + "toolbar/info-cap-up.xpm" + nil + "toolbar/info-cap-xx.xpm") + (compile "toolbar/compile-up.xpm" + nil + "toolbar/compile-xx.xpm" + "toolbar/compile-cap-up.xpm" + nil + "toolbar/compile-cap-xx.xpm") + (debug "toolbar/debug-up.xpm" + nil + "toolbar/debug-xx.xpm" + "toolbar/debug-cap-up.xpm" + nil + "toolbar/debug-cap-xx.xpm") + (email "toolbar/mail-up.xpm" + nil + "toolbar/mail-xx.xpm" + "toolbar/mail-cap-up.xpm" + nil + "toolbar/mail-cap-xx.xpm") + (news-reader "toolbar/news-up.xpm" + nil + "toolbar/news-xx.xpm" + "toolbar/news-cap-up.xpm" + nil + "toolbar/news-cap-xx.xpm")))) + +;;;;--- initialize icon-themes ------------------------------------------ + +(theme-load-menu '("Options") "Display") + + +;;;;---- customize group and variables for icon-themes ------------------------------ + +(defgroup icon-theme nil + "Icon theme customize group") + +(defcustom theme-current-size '(28 28) + "The current icon theme size. +Should be a list of two numbers, (x y)." +:type '(cons integer integer) +:version "21.5" +:set (lambda (unused size) + (theme-set-size nil size)) +:group 'icon-theme +:initialize 'custom-initialize-default) + + +(defcustom theme-current-theme 'theme-default-icons-theme-def + "Current icon theme." +:initialize 'custom-initialize-default +:type 'variable +:version "21.5" +:set (lambda (unused theme) + (theme-set-theme nil theme)) +:group 'icon-theme) + + +(defcustom theme-icon-search-path '("/usr/local/share/xemacs/xemacs-packages/etc/icon-themes") + "A list of directories to search for icons with relative path names. +This is in addition to the contents of 'data-directory-list'." +:type '(repeat :tag "Path" (string :tag "Directory")) +:version "21.5") + +(defcustom themeable-icons '((open . toolbar-file-icon) + (dired . toolbar-folder-icon) + (save . toolbar-disk-icon) + (print . toolbar-printer-icon) + (cut . toolbar-cut-icon) + (copy . toolbar-copy-icon) + (paste . toolbar-paste-icon) + (prev-window . toolbar-last-win-icon) + (next-window . toolbar-next-win-icon) + (replace . toolbar-replace-icon) + (spell . toolbar-spell-icon) + (undo . toolbar-undo-icon) + (compile . toolbar-compile-icon) + (debug . toolbar-debug-icon) + (email . toolbar-mail-icon) + (calc . toolbar-calc-icon) + (news-reader . toolbar-news-icon) + (info . toolbar-info-icon) + (info-exit . info::toolbar-exit-icon) + (info-next . info::toolbar-next-icon) + (info-prev . info::toolbar-prev-icon) + (info-up . info::toolbar-up-icon) + (xpm-show-chars . xpm-show-chars-icon) + (xpm-hide-chars . xpm-hide-chars-icon) + (xpm-add-color . xpm-color-icon) + (xpm-crop . xpm-crop-icon) + (xpm-pad . xpm-enlarge-icon) + (xpm-help . xpm-help-icon) + (xpm-mirror-h . xpm-m-horiz-icon) + (xpm-mirror-v . xpm-m-vert-icon) + (xpm-rotate-ccw . xpm-r-ccw-icon) + (xpm-rotate-cw . xpm-r-cw-icon) + (xpm-save . xpm-save-icon) + (xpm-shift-d . xpm-sh-d-icon) + (xpm-shift-l . xpm-sh-l-icon) + (xpm-shift-r . xpm-sh-r-icon) + (xpm-shift-u . xpm-sh-u-icon) + (xpm-undo . xpm-undo-icon) + (w3-back . w3-toolbar-back-icon) + (w3-find . w3-toolbar-find-icon) + (w3-forward . w3-toolbar-forw-icon) + (w3-help . w3-toolbar-help-icon) + (w3-home . w3-toolbar-home-icon) + (w3-hotlink . w3-toolbar-hotl-icon) + (w3-image . w3-toolbar-imag-icon) + (w3-open . w3-toolbar-open-icon) + (w3-print . w3-toolbar-print-icon) + (w3-reload . w3-toolbar-reld-icon) + (w3-stop . w3-toolbar-stop-icon)) + "Association list of icon names to variables they are stored in." +:type '(repeat + (cons + (symbol :tag "Name") + (variable :tag "Variable"))) +:tag "Themable Icons" +:version "21.5") + + +(provide 'icon-themes) + +;; icon-themes.el ends here diff -r 98f601f1e9d1c836f33853a7aa387b4af4cce143 -r ef38cca5c38e2ab5f8db1890e1d37e27534edaa9 package-info.in --- a/package-info.in +++ b/package-info.in ＠＠ -13,7 +13,7 ＠＠ filename FILENAME md5sum MD5SUM size SIZE - provides (abbrevlist after-save-commands atomic-extents avoid backup-dir balloon-help big-menubar blink-cursor blink-paren bookmark compare-w completion dabbrev desktop detached-minibuf edit-toolbar fast-lock file-part floating-toolbar flow-ctrl foldout func-menu hippie-exp icomplete id-select info-look iswitchb lazy-lock lazy-shot live-icon makesum man mic-paren paren mode-motion+ outl-mouse outln-18 page-ext blink-paren paren permanent-buffers popper power-macros recent-files redo reportmail resume rsz-minibuf saveconf savehist saveplace scroll-in-place setnu shell-font tempo toolbar-utils tree-menu uniquify vertical-mode where-was-i-db winring autorevert align allout outline narrow-stack highline) + provides (abbrevlist after-save-commands atomic-extents avoid backup-dir balloon-help big-menubar blink-cursor blink-paren bookmark compare-w completion dabbrev desktop detached-minibuf edit-toolbar fast-lock file-part floating-toolbar flow-ctrl foldout func-menu hippie-exp icomplete id-select info-look iswitchb lazy-lock lazy-shot live-icon makesum man mic-paren paren mode-motion+ outl-mouse outln-18 page-ext blink-paren paren permanent-buffers popper power-macros recent-files redo reportmail resume rsz-minibuf saveconf savehist saveplace scroll-in-place setnu shell-font tempo toolbar-utils tree-menu uniquify vertical-mode where-was-i-db winring autorevert align allout outline narrow-stack highline icon-themes buffer-colors) requires (REQUIRES) type single )) diff -r 98f601f1e9d1c836f33853a7aa387b4af4cce143 -r ef38cca5c38e2ab5f8db1890e1d37e27534edaa9 winring.el --- a/winring.el +++ b/winring.el ＠＠ -8,7 +8,7 ＠＠ ;; Created: March 1997 ;; Keywords: frames tools -(defconst winring-version "$Revision$" +(defconst winring-version "$Revision: 1.2 $" "winring version number.") ;; This file is part of GNU Emacs. Repository URL: https://bitbucket.org/xemacs/edit-utils/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/ede: 2 new changesets 12 years, 11 months

Bitbucket

2 new commits in ede: https://bitbucket.org/xemacs/ede/changeset/71b6b14e93f5/ changeset: 71b6b14e93f5 user: Norbert Koch date: 2012-01-10 14:52:40 summary: XEmacs Package Release 1.04 affected #: 2 files diff -r bec7ae251bbc7f1fe99285e6b0db8f6c5feaab6b -r 71b6b14e93f56696ce212ac1384686d97aa122da ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2012-01-10 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 1.04 released. + 2011-12-30 Aidan Kehoe <kehoea(a)parhasard.net> * ede.el (ede-load-cache): diff -r bec7ae251bbc7f1fe99285e6b0db8f6c5feaab6b -r 71b6b14e93f56696ce212ac1384686d97aa122da Makefile --- a/Makefile +++ b/Makefile ＠＠ -17,7 +17,7 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -VERSION = 1.03 +VERSION = 1.04 AUTHOR_VERSION = 1.0pre4 MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org> AUTHOR = Eric M. Ludlam <zappo(a)gnu.org> https://bitbucket.org/xemacs/ede/changeset/5200706cfcb5/ changeset: 5200706cfcb5 user: Norbert Koch date: 2012-01-10 14:52:40 summary: Added tag ede-1_04 for changeset 71b6b14e93f5 affected #: 1 file diff -r 71b6b14e93f56696ce212ac1384686d97aa122da -r 5200706cfcb56eeefed3d21d8f63f32dd491ca85 .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -4,3 +4,4 ＠＠ 88aede2b6087c1b0efdbd77fbec1e538e2541ddf ede-1_01 b4bd4b10f7ed540b2ca5997db36c1ff50878b1e9 ede-1_03 1ad16b0c09503986e6645345a9d4e3d46ba9f196 ede-1_02 +71b6b14e93f56696ce212ac1384686d97aa122da ede-1_04 Repository URL: https://bitbucket.org/xemacs/ede/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/cc-mode: 6 new changesets 12 years, 11 months

Bitbucket

6 new commits in cc-mode: https://bitbucket.org/xemacs/cc-mode/changeset/cf928ff09601/ changeset: cf928ff09601 user: Norbert Koch date: 2012-01-10 14:52:34 summary: XEmacs Package Release 1.46 affected #: 2 files diff -r 80e775dd57e67ebaee902b4bfbca6fa3a5767482 -r cf928ff0960132c8301cdec98fd4c328107aabc7 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2012-01-10 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 1.46 released. + 2005-05-24 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.45 released. diff -r 80e775dd57e67ebaee902b4bfbca6fa3a5767482 -r cf928ff0960132c8301cdec98fd4c328107aabc7 Makefile --- a/Makefile +++ b/Makefile ＠＠ -17,7 +17,7 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -VERSION = 1.45 +VERSION = 1.46 AUTHOR_VERSION = 5.30.10 MAINTAINER = Martin Stjernholm <bug-cc-mode(a)gnu.org> PACKAGE = cc-mode https://bitbucket.org/xemacs/cc-mode/changeset/4a2f8e05140e/ changeset: 4a2f8e05140e user: Norbert Koch date: 2012-01-10 14:52:34 summary: Added tag cc-mode-1_46 for changeset cf928ff09601 affected #: 1 file diff -r cf928ff0960132c8301cdec98fd4c328107aabc7 -r 4a2f8e05140e81b05b075812eba2acf9ac2593bc .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -78,3 +78,4 ＠＠ 1864083554e5bff2cfe7248168cbd7e510e9407c pending-sumo-release 1c1a0c2376c6bc500e62acf5179a583b1c08a5cf sumo-2007-04-27 bcc131a37d5a2fca134e5071ee6d000010d6a70f sumo-2003-10-03 +cf928ff0960132c8301cdec98fd4c328107aabc7 cc-mode-1_46 https://bitbucket.org/xemacs/cc-mode/changeset/1af191b522b5/ changeset: 1af191b522b5 user: Norbert Koch date: 2012-01-10 15:40:08 summary: XEmacs Package Release 1.47 affected #: 2 files diff -r 4a2f8e05140e81b05b075812eba2acf9ac2593bc -r 1af191b522b555f4f3c03e9a2bbb06475927ddef ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2012-01-10 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 1.47 released. + 2012-01-10 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.46 released. diff -r 4a2f8e05140e81b05b075812eba2acf9ac2593bc -r 1af191b522b555f4f3c03e9a2bbb06475927ddef Makefile --- a/Makefile +++ b/Makefile ＠＠ -17,7 +17,7 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -VERSION = 1.46 +VERSION = 1.47 AUTHOR_VERSION = 5.30.10 MAINTAINER = Martin Stjernholm <bug-cc-mode(a)gnu.org> PACKAGE = cc-mode https://bitbucket.org/xemacs/cc-mode/changeset/3647259c12f1/ changeset: 3647259c12f1 user: Norbert Koch date: 2012-01-10 15:40:08 summary: Added tag cc-mode-1_47 for changeset 1af191b522b5 affected #: 1 file diff -r 1af191b522b555f4f3c03e9a2bbb06475927ddef -r 3647259c12f14a75ffe1fe5bace483dc3bb648bf .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -79,3 +79,4 ＠＠ 1c1a0c2376c6bc500e62acf5179a583b1c08a5cf sumo-2007-04-27 bcc131a37d5a2fca134e5071ee6d000010d6a70f sumo-2003-10-03 cf928ff0960132c8301cdec98fd4c328107aabc7 cc-mode-1_46 +1af191b522b555f4f3c03e9a2bbb06475927ddef cc-mode-1_47 https://bitbucket.org/xemacs/cc-mode/changeset/b5a8942ec9e5/ changeset: b5a8942ec9e5 user: Norbert Koch date: 2012-01-13 09:32:48 summary: Merge affected #: 24 files Diff too large to display. https://bitbucket.org/xemacs/cc-mode/changeset/63d797bdebeb/ changeset: 63d797bdebeb user: Norbert Koch date: 2012-01-13 09:33:23 summary: Merge affected #: 1 file diff -r b5a8942ec9e5b0617e8809e94c19a3d42b6adb95 -r 63d797bdebeb27d35d7ab76852e9055d010e8f91 cc-engine.el --- a/cc-engine.el +++ b/cc-engine.el ＠＠ -4225,12 +4225,14 ＠＠ Note that this function might do hidden buffer changes. See the comment at the start of cc-engine.el for more info." - (let* ((safe-place (c-state-safe-place (point))) - (lit (c-state-pp-to-literal safe-place (point)))) - (or (cadr lit) - (and detect-cpp - (save-excursion (c-beginning-of-macro)) - 'pound)))) + (save-restriction + (widen) + (let* ((safe-place (c-state-safe-place (point))) + (lit (c-state-pp-to-literal safe-place (point)))) + (or (cadr lit) + (and detect-cpp + (save-excursion (c-beginning-of-macro)) + 'pound))))) (defun c-literal-limits (&optional lim near not-in-delimiter) "Return a cons of the beginning and end positions of the comment or ＠＠ -4250,9 +4252,10 ＠＠ (save-excursion (let* ((pos (point)) (lim (or lim (c-state-safe-place pos))) - (pp-to-lit (c-state-pp-to-literal lim pos)) + (pp-to-lit (save-restriction + (widen) + (c-state-pp-to-literal lim pos))) (state (car pp-to-lit)) - (lit-type (cadr pp-to-lit)) (lit-limits (car (cddr pp-to-lit)))) (cond Repository URL: https://bitbucket.org/xemacs/cc-mode/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/Sun: 2 new changesets 12 years, 11 months

Bitbucket

2 new commits in Sun: https://bitbucket.org/xemacs/sun/changeset/cd59740f768f/ changeset: cd59740f768f user: Norbert Koch date: 2012-01-10 14:52:28 summary: XEmacs Package Release 1.17 affected #: 2 files diff -r 61bf20c678a11dd6441d359e773590b8ecc469da -r cd59740f768fac56cdf6b6b29db542198f017b8a ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,7 ＠＠ +2012-01-10 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 1.17 released. + 2011-12-30 Aidan Kehoe <kehoea(a)parhasard.net> * sunpro-sparcworks.el: diff -r 61bf20c678a11dd6441d359e773590b8ecc469da -r cd59740f768fac56cdf6b6b29db542198f017b8a Makefile --- a/Makefile +++ b/Makefile ＠＠ -17,7 +17,7 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -VERSION = 1.16 +VERSION = 1.17 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org> PACKAGE = Sun https://bitbucket.org/xemacs/sun/changeset/849b8b229f52/ changeset: 849b8b229f52 user: Norbert Koch date: 2012-01-10 14:52:28 summary: Added tag Sun-1_17 for changeset cd59740f768f affected #: 1 file diff -r cd59740f768fac56cdf6b6b29db542198f017b8a -r 849b8b229f520245da0641755272578cdb5b61a0 .hgtags --- a/.hgtags +++ b/.hgtags ＠＠ -57,3 +57,4 ＠＠ d0a82e9bcea8fa714c4c23f0bbeec5e268249437 XEMACS_BEFORE_MOVE_TO_SUNSITE_DK 0e0a05a1b95bda20538806158d0ca9e33ae548af sumo-2003-02-05 8a04cd2266df998743a918eb10fcaa52fe91ad80 sumo-2006-05-10 +cd59740f768fac56cdf6b6b29db542198f017b8a Sun-1_17 Repository URL: https://bitbucket.org/xemacs/sun/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/xemacsweb: sperber: Replace xemacs-cvs@ by xemacs-commits@ 12 years, 11 months

Bitbucket

1 new commit in xemacsweb: https://bitbucket.org/xemacs/xemacsweb/changeset/0c1cabd5f3a6/ changeset: 0c1cabd5f3a6 user: sperber date: 2012-01-13 08:21:06 summary: Replace xemacs-cvs＠ by xemacs-commits＠ 2012-01-12 Michael Sperber <mike(a)xemacs.org> * index.content: xemacs-cvs(a)xemacs.org has been replaced by xemacs-commits(a)xemacs.org. affected #: 2 files diff -r f885bc75be85a5b1036b0f303433a1a2caaaeb8a -r 0c1cabd5f3a62df0ae35ab63977f51efd5ebfcde Lists/ChangeLog --- a/Lists/ChangeLog +++ b/Lists/ChangeLog ＠＠ -1,3 +1,8 ＠＠ +2012-01-12 Michael Sperber <mike(a)xemacs.org> + + * index.content: xemacs-cvs(a)xemacs.org has been replaced by + xemacs-commits(a)xemacs.org. + 2010-01-20 Stephen J. Turnbull <stephen(a)xemacs.org> * index.content: Convert archive URLs to list-archive.xemacs.org. diff -r f885bc75be85a5b1036b0f303433a1a2caaaeb8a -r 0c1cabd5f3a62df0ae35ab63977f51efd5ebfcde Lists/index.content --- a/Lists/index.content +++ b/Lists/index.content ＠＠ -83,7 +83,7 ＠＠ <li><a href="#xemacs-announce">xemacs-announce</a></li><li><a href="#xemacs-beta">xemacs-beta</a></li><li><a href="#xemacs-buildreports">xemacs-buildreports</a></li> - <li><a href="#xemacs-cvs">xemacs-cvs</a></li> + <li><a href="#xemacs-commits">xemacs-commits</a></li><li><a href="#xemacs-patches">xemacs-patches</a></li></ul> ＠＠ -243,22 +243,22 ＠＠ </tr><tr valign="top"><td rowspan="1" colspan="1"> - xemacs-cvs is a read-only list for notices - and information on what has been committed to the XEmacs CVS - trees, by whom, and for what. (For more information on the - XEmacs CVS Archive: <a href=""></a>.) + xemacs-commits is a read-only list for notices + and information on what has been committed to the XEmacs Mercurial + repositories, by whom, and for what. (For more information on the + XEmacs Mercurial repositories: <a href=""></a>.)</td><td rowspan="1" colspan="1"><dl> - <dt><a id="xemacs-cvs" name="xemacs-cvs">Archive</a>:</dt> - <dd><a href="http://list-archive.xemacs.org/pipermail/xemacs-cvs/">http://list-a...> + <dt><a id="xemacs-commits" name="xemacs-commits">Archive</a>:</dt> + <dd><a href="http://list-archive.xemacs.org/pipermail/xemacs-commits/">http://li... by E-mail:</dt> - <dd><a href="mailto:xemacs-cvs-request＠xemacs.org?body=subscribe address=...">mailto:xemacs-cvs-request＠xemacs.org?body=subscribe address=...</a></dd> + <dd><a href="mailto:xemacs-commits-request＠xemacs.org?body=subscribe address=...">mailto:xemacs-commits-request＠xemacs.org?body=subscribe address=...</a></dd><dt>Subscribe or change subscription by HTTP:</dt> - <dd><a href="http://calypso.tux.org/mailman/listinfo/xemacs-cvs/">http://calypso...> + <dd><a href="http://calypso.tux.org/mailman/listinfo/xemacs-commits/">http://cal...> Repository URL: https://bitbucket.org/xemacs/xemacsweb/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit/edit-utils: Vin Shelton: Remove autoload cookies that force loading of buffer-colors.el and icon-themes.el 12 years, 11 months

Bitbucket

1 new commit in edit-utils: https://bitbucket.org/xemacs/edit-utils/changeset/d325310d61df/ changeset: d325310d61df user: Vin Shelton date: 2012-01-13 04:11:18 summary: Remove autoload cookies that force loading of buffer-colors.el and icon-themes.el affected #: 3 files diff -r 6cab68dcb147b0b83bcaa1818d139b46679f498a -r d325310d61dffb44882457fb051be888ca7a8e71 ChangeLog --- a/ChangeLog +++ b/ChangeLog ＠＠ -1,3 +1,8 ＠＠ +2012-01-12 Vin Shelton <acs(a)xemacs.org> + + * buffer-colors.el: + * icon-themes.el: Remove autoloads that force package loading. + 2012-01-06 Steve Mitchell <smitchel(a)bnin.net> Byrel Mitchell <byrel.mitchell(a)gmail.com> diff -r 6cab68dcb147b0b83bcaa1818d139b46679f498a -r d325310d61dffb44882457fb051be888ca7a8e71 buffer-colors.el --- a/buffer-colors.el +++ b/buffer-colors.el ＠＠ -407,11 +407,10 ＠＠ ;;;;--- start up code ---------------------------------------------- -;;;###autoload (unless (featurep 'buffer-colors) (add-menu-button '("Options" "Display") "---")) ;add a separator only first time loaded -;;;###autoload + (add-menu-button '("Options" "Display") [ "Buffer Colors" bc-toggle-behavior :style toggle diff -r 6cab68dcb147b0b83bcaa1818d139b46679f498a -r d325310d61dffb44882457fb051be888ca7a8e71 icon-themes.el --- a/icon-themes.el +++ b/icon-themes.el ＠＠ -349,7 +349,6 ＠＠ ;;;;--- initialize icon-themes ------------------------------------------ -;;;###autoload (theme-load-menu '("Options") "Display") ＠＠ -445,4 +444,4 ＠＠ (provide 'icon-themes) -;; icon-themes.el ends here \ No newline at end of file +;; icon-themes.el ends here Repository URL: https://bitbucket.org/xemacs/edit-utils/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches

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

2003

XEmacs-Patches January 2012