aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2023-12-10 14:48:33 +0100
committerStefan Kangas2023-12-10 14:48:33 +0100
commitbdf7e646f88a6c67b7b578591ee372b0a55d27d3 (patch)
treef737d4b04d07dd73a177f52fc19724807724da4d
parent2773cf9e013a989df99a689317de941bde2cbf29 (diff)
downloademacs-scratch/codespell.tar.gz
emacs-scratch/codespell.zip
Add script admin/run-codespell and supporting filesscratch/codespell
* admin/codespell/README: * admin/codespell/codespell.dictionary: * admin/codespell/codespell.exclude: * admin/codespell/codespell.ignore: * admin/codespell/codespell.rc: * admin/run-codespell: New files.
Diffstat
-rw-r--r--admin/codespell/README27
-rw-r--r--admin/codespell/codespell.dictionary17
-rw-r--r--admin/codespell/codespell.exclude1550
-rw-r--r--admin/codespell/codespell.ignore41
-rw-r--r--admin/codespell/codespell.rc4
-rwxr-xr-xadmin/run-codespell68
6 files changed, 1707 insertions, 0 deletions
diff --git a/admin/codespell/README b/admin/codespell/README
new file mode 100644
index 00000000000..fcc5e3b41d0
--- /dev/null
+++ b/admin/codespell/README
@@ -0,0 +1,27 @@
1This directory contains supporting files for running codespell.
2See the ./admin/run-codespell script.
3
4codespell.dictionary
5
6 This file contains additional, Emacs-specific corrections. When
7 fixing typos in Emacs, consider adding them to this file.
8
9codespell.exclude
10
11 This file contains lines that are correct and should be ignored by
12 codespell. Add any false positives to this file.
13
14 The lines must match lines in the Emacs source tree exactly,
15 including any whitespace.
16
17codespell.ignore
18
19 This file contains any words that are correct in the context of
20 Emacs, or that we otherwise choose to ignore. Use your best
21 judgment when adding words to this file. Common typos that are
22 only correct in highly specific contexts should probably be in
23 codespell.exclude instead.
24
25codespell.rc
26
27 This file contains the Emacs specific codespell configuration.
diff --git a/admin/codespell/codespell.dictionary b/admin/codespell/codespell.dictionary
new file mode 100644
index 00000000000..b082a48fe99
--- /dev/null
+++ b/admin/codespell/codespell.dictionary
@@ -0,0 +1,17 @@
1alis->alist, alias, alas, axis, alms,
2boostrap-clean->bootstrap-clean
3brunches->branches
4defalis->defalias
5defalises->defaliases
6ecmacs->emacs
7ehsell->eshell
8emcs->emacs
9finis->finish
10firs->first
11file-writeable-p->file-writable-p
12hep->help
13least-favourite->least-favorite
14lien->line
15liens->lines
16mecas->emacs
17sehell->eshell, shell,
diff --git a/admin/codespell/codespell.exclude b/admin/codespell/codespell.exclude
new file mode 100644
index 00000000000..89b8a951f93
--- /dev/null
+++ b/admin/codespell/codespell.exclude
@@ -0,0 +1,1550 @@
1Bonus: Return a cons cell: (COMPILED . UPTODATE).
2Bonus: Return a cons cell: (COMPILED . UPTODATE)."
3(defun semantic-grammar-create-package (&optional force uptodate)
4If the Lisp code seems up to date, do nothing (if UPTODATE
5 (if uptodate (setq output nil)))
6;; Updated by the RIPE Network Coordination Center.
7;; Thanks to jond@miter.org (Jonathan Doughty) for help with code for
8 \"VHDL Modeling Guidelines\".
9# PCRE LICENSE
10# General Purpose Licence (GPL), or Lesser General Purpose Licence (LGPL),
11# then the terms of that licence shall supersede any condition above with
12 Li, Luo et al. "The CRI-CAM02UCS colour rendering index." COLOR research
13 Luo et al. "Uniform colour spaces based on CIECAM02 colour appearance
14 "[o]utput/save MIME part; save [a]ll parts; \n"
15;; Jari Aalto <jaalto@tre.tele.nokia.fi>
16;; Alon Albert <alon@milcse.rtsg.mot.com>
17;; Jari Aalto <jaalto@tre.tele.nokia.fi>.
18 ("IRCnet: EU, AT, Linz" IRCnet "linz.irc.at" ((6666 6668)))
19 ["Januar" "Februar" "März" "April" "Mai" "Juni" "Juli" "August"
20Both types of item should be moved en bloc to the new category,
21 return dum// -7-
22 struct Dum {
23 mutable a::b::Foo::Dum dumdum;
24 "Mot de Passe :" ; localized (Bug#29729)
25 (leapyear, ydhms_diff, guess_time_tm, __mktime_internal): Use it.
26 * config.bat: Build-in the first step towards X11 support with
27 * configure.ac (emacs_config_features): Don’t worry about GIR.
28 * configure.ac (WEBKIT, GIR, CAIRO): Use EMACS_CHECK_MODULES, not PKG_.
29 * configure.ac (emacs_config_features): Add XWIDGETS, WEBKIT, GIR.
301995-04-20 Kevin Rodgers <kevinr@ihs.com>
31(seq-mapn #'concat '("moskito" "bite") ["bee" "sting"])
32Steven E. Harris (seh at panix.com),
33Kevin Rodgers (kevin.rodgers at ihs.com),
34plot,x,alog(x+5*sin(x) + 2),
35be shown. On positions 3,4, and 7, the @samp{alog} function will be
36As is my wont, I started hacking on it almost immediately. I first
37The latter criterion is the "je ne sais quoi" of the artistic aspect of
38order but are now listed consecutively en bloc.
39 "mot de passe" "Mot de passe")
40 Reported by Mor Zahavi <morzahavi@me.com>. (Bug#51271)
41 * etc/refcards/fr-refcard.tex (section{Formater}): Remove mention
42 Reported by Ture Pålsson.
43 9261a219ec * doc/emacs/windows.texi (Window Convenience): Describe mor...
44 650a664ccd Let imenu to work on the menu bar when its list is a singl...
45 "\\(?:Currentl?y\\|Now\\) drawing from '\\(AC\\|Battery\\) Power'"
46 ;; Move done items en bloc to top of done items section.
47 * erc-complete.el: * added docfixes (thanks ore)
48 (interactive "DDelete directory from file cache: ")
49 some Agian scripts. */
50 Rename from "Gnus Maintainance Guide".
51 * gnus-coding.texi (Gnus Maintainance Guide): Update to mention Emacs
52 * gnus-coding.texi (Gnus Maintainance Guide): Fix title typo.
53 * gnus-coding.texi (Gnus Maintainance Guide): Update conventions for
542005-10-23 Lars Hansen <larsh@soem.dk>
551998-07-17 Gordon Matzigkeit <gord@fig.org>
561998-04-26 James Troup <J.J.Troup@scm.brad.ac.uk>
572003-06-11 Daniel Néri <done@mayonnaise.net>
582001-07-26 10:00:00 Steven E. Harris <seh@speakeasy.org>
592001-01-15 Jack Twilley <jmt@tbe.net>
60
61 matching LAMDA as a word. Noted by Stefan Monnier.
62 completion variant for every "LAMDA" name (bug#30513).
63 "foto"
64 ("foto" . 0.375)
65 Add configury for GMP library
66 Include w32inevt.h, basetyps.h and unknwn.h.
67 * make-docfile.c (write_c_args): Correctly handle prefixes of "defalt".
68 * hexl.c [DOSNT]: Include fcntl.h.
69 * make-docfile.c (write_c_args): Print an argument named "defalt"
702003-03-07 Kevin Rodgers <kevin.rodgers@ihs.com> (tiny change)
712003-03-06 Kevin Rodgers <kevin.rodgers@ihs.com> (tiny change)
72 "Speedwave", "Simili", "Synopsys Design Compiler", "Cadence NC",
73 with-parsed-tramp-file-name macro which is wont to produce such stuff.
742004-12-29 Sanghyuk Suh <han9kin@mac.com>
752007-02-28 Lars Hansen <larsh@soem.dk>
762006-11-24 Lars Hansen <larsh@soem.dk>
772006-10-29 Lars Hansen <larsh@soem.dk>
782006-09-12 Lars Hansen <larsh@soem.dk>
792006-06-23 Lars Hansen <larsh@soem.dk>
802006-05-14 Lars Hansen <larsh@soem.dk>
812006-05-13 Lars Hansen <larsh@soem.dk>
822006-02-09 Lars Hansen <larsh@soem.dk>
832006-02-06 Lars Hansen <larsh@soem.dk>
842005-11-22 Lars Hansen <larsh@soem.dk>
852005-11-08 Lars Hansen <larsh@soem.dk>
862005-11-03 Lars Hansen <larsh@soem.dk>
872005-11-02 Lars Hansen <larsh@soem.dk>
882005-10-08 Lars Hansen <larsh@soem.dk>
892005-08-10 Lars Hansen <larsh@soem.dk>
902005-07-12 Lars Hansen <larsh@soem.dk>
912011-02-22 Seppo Sade <sepposade1@gmail.com> (tiny change)
922012-09-21 Joel Bion <jpbion@westvi.com> (tiny change)
93 * rmail.el: Major changes from Bob Weiner <weiner@pts.mot.com>
94 * rmailsum.el: Big rewrite from weiner@pts.mot.com.
951995-05-19 Kevin Rodgers <kevinr@ihs.com> (tiny change)
961994-08-29 Tom Tromey (tromey@creche.colorado.edu)
971994-07-11 Kevin Rodgers <kevinr@ihs.com> (tiny change)
981994-06-17 Kevin Rodgers (kevinr@ihs.com) (tiny change)
991995-12-13 Kevin Rodgers <kevinr@ihs.com>
1001995-11-10 Kevin Rodgers <kevinr@ihs.com>
1011995-06-30 Kevin Rodgers <kevinr@ihs.com>
1021998-07-07 Kevin Rodgers <kevinr@ihs.com> (tiny change)
1031998-06-03 Kevin Rodgers <kevinr@ihs.com> (tiny change)
1041997-12-22 Kevin Rodgers <kevinr@ihs.com> (tiny change)
1051997-11-02 Kevin Rodgers <kevinr@ihs.com>
1061997-10-21 Brad Howes <bhowes@cssun3.corp.mot.com>
1071997-06-22 Howard Melman <melman@absolut.osf.org>
1081997-03-24 Kevin Rodgers <kevinr@ihs.com>
1091996-11-04 Kevin Rodgers <kevinr@ihs.com>
1101996-10-20 Kevin Rodgers <kevinr@ihs.com>
1111996-09-12 Kevin Rodgers <kevinr@ihs.com>
1121999-11-16 Reto Zimmermann <reto@synopsys.com>
1131999-06-12 Reto Zimmermann <reto@synopsys.com>
1141999-05-15 Reto Zimmermann <reto@Synopsys.COM>
1151998-08-26 Kevin Rodgers <kevinr@ihs.com> (tiny change)
116 directories. From Kevin Rodgers <kevinr@ihs.com>.
117 "du Radis" "de la Ruche" "du Gainier"
118 Iinclude string.h, stdlib.h unconditionally.
1192006-04-23 Lars Hansen <larsh@soem.dk>
1202006-04-20 Lars Hansen <larsh@soem.dk>
1212005-11-10 Lars Hansen <larsh@soem.dk>
122 explicitly sets the defalt value.
123 Unexpect wait_object in case of x errors (memory leak).
124 (receive_incremental_selection): Don't unexpect wait_object when done
125 append "CCL: Quitted" when the CCL program is quitted.
126 the loop. When quitted, show a proper error message.
127 (read_minibuf_noninteractive): If defalt is cons, set val to its car.
128 (read_minibuf): If defalt is cons, set histstring to its car.
129 (Fcompleting_read): If defalt is cons, set val to its car.
130 but it still has blocs in it, don't return it to the system,
131 any, in the DEFALT argument into the root of the Emacs build or
132 * fileio.c (Fexpand_file_name): Default DEFALT at beginning,
1331992-03-03 Wilson H. Tien (wtien@urbana.mcd.mot.com)
134 * fileio.c (Fexpand_file_name): Pass DEFALT through
135 * ralloc.c (relocate_some_blocs): Handle BLOC == NIL_BLOC.
136 malloc heap, zero it out even if we don't have any blocs in the
137 (r_alloc_sbrk): Provide hysteresis in relocating the blocs.
138 (get_bloc): Return zero if we can't allocate the new bloc.
139 * ralloc.c (r_re_alloc): Instead of allocating a new bloc at the
140 original bloc, just expand the original block. This saves a copy
141 If string quotes don't match up, don't take value from OFROM;
142 Globally replaced INTERRUPTABLE with INTERRUPTIBLE.
143 * fileio.c (Fread_file_name): If defalt is nil and user tries to use
1441995-03-23 Kevin Rodgers <kevinr@ihs.com> (tiny change)
145 * fileio.c (Fexpand_file_name): Look for a handler for defalt.
1461994-09-21 Tom Tromey <tromey@creche.colorado.edu>
147 (r_alloc_sbrk): Refuse to move blocs, if frozen.
1481994-08-26 Kevin Rodgers <kevinr@ihs.com>
149 (Fcall_process_region) [DOSNT]: Canonicalize slashes in filename.
150 * minibuf.c (read_minibuf): Do use DEFALT in place of empty input
151 * minibuf.c (read_minibuf): Return DEFALT here, if minibuffer is empty.
152 (read_minibuf): Now static. New arg DEFALT. Callers changed.
153 CHAR_TABLE_ORDINARY_SLOTS for top, defalt, parent, and purpose.
154 is moved before `contents' so that XCHAT_TABLE (val)->defalt can
155 for an ASCII font, not defalt slot.
156 /* And if the configury during frame creation has been
157 Bob Desinger <hpsemc!bd@hplabs.hp.com>
158/* Calculate the checksum of a SOM header record. */
159 to preserve. Then we map these VAs to the section entries in the
160#include <unknwn.h>
161 /* weiner@footloose.sps.mot.com reports that this causes
162 (VARN+1 SLOTN+1))
163dum@dots{} Nice tune, that@dots{} la la la@dots{} What, you're back?
164C'est la vie.
165 ("gnus-warning" "duplicat\\(e\\|ion\\) of message" "duplicate")
166James Troup,
167@cindex @code{multline}, AMS-LaTeX environment
168@code{align}, @code{gather}, @code{multline}, @code{flalign},
169 \openin 1 #1.pdf \ifeof 1
170 \openin 1 #1.PDF \ifeof 1
171 \openin 1 #1.png \ifeof 1
172 \openin 1 #1.jpg \ifeof 1
173 \openin 1 #1.jpeg \ifeof 1
174 \openin 1 #1.JPG \ifeof 1
175 \def\adn#1{\addtokens{\toksC}{#1}\global\countA=1\let\next=\maketoks}
176 \openin 1 \jobname.\indexname s
177 % If the index file exists but is empty, then \openin leaves \ifeof
178\setbox\balancedcolumns=\vbox{shouldnt see this}%
179 \openin 1 \tocreadfilename\space
180 \openin 1 \jobname.aux
181\openin 1 = epsf.tex
182 \openin 1 txi-#1.tex
183 \openin 1 txi-#1.tex
184 @openin 1 texinfo.cnf
185 '("En" "To" "Tre"))
186=project.clj=, =build.boot= or =deps.edn=, falling back on
187 ("(.H)J" (1 :otf=beng=half+))
188- (".H" :otf=beng=blwf,half,vatu+)
189+ (".+H" :otf=beng=blwf,half,vatu+)
190 \quad \B{p}art: a)uthor (from), s)ubject, x)refs (cross-post), d)ate, l)ines,
191 message-i)d, t)references (parent), f)ollowup, b)ody, h)ead (all headers);\\*
192\key{show subtree in indirect buffer, ded.\ frame}{C-c C-x b}
193@tindex alog
194mode setting. With the Inverse flag [@code{alog}], this command is
195@r{ a b@: I B @: @: 2 @:alog@:(a,b) b^a}
196@r{ a b@: I f I @: @: 2 @:alog@:(a,b) b^a}
197 Change comment about the iif hook to reflect the actual reason.
198 "I + E (ln), L (exp), B (alog: B^X); f E (lnp1), f L (expm1)"
199 (let (numer denom)
200 (setq numer (car (math-read-expr-list)))
201 (if (and (Math-num-integerp numer)
202 (list 'frac numer denom)
203 (list '/ numer denom))))
204 (calc-binary-op "alog" 'calcFunc-alog arg)
205 (let ((dum (math-lud-pivot-check sum)))
206 (if (or (math-zerop big) (Math-lessp big dum))
207 (setq big dum
208 (calc-pop-push-record-list 0 "larg"
209 (interactive "NNumber of columns = ")
210 (calc-binary-op "cros" 'calcFunc-cross arg)))
211 (calc-binary-op "unio" 'calcFunc-vunion arg '(vec) 'calcFunc-rdup)))
212 (calc-tabular-command 'calcFunc-table "Index" "tabl"
213 (ptd (file-truename pd)))
214 (string-match (concat "^" (regexp-quote ptd)) ftn)))
215 (let ((aci (autoconf-parameters-for-macro "AC_INIT"))
216 ((> (length aci) 1)
217 (setq name (nth 0 aci)
218 ver (nth 1 aci)
219 bugrep (nth 2 aci)))
220 (princ "\nKnown members of ")
221 (peom (save-excursion (c-end-of-macro) (point))))
222 (when (> (point) peom)
223 (let ((larg (car args))
224 (if (stringp larg)
225 (setq larg (semantic-tag-new-variable
226 larg nil nil)))
227 (srecode-semantic-tag (semantic-tag-name larg)
228 :prime larg)
229 (princ "\n--------------------------------------------\n\nNumber of tables: ")
230;; avk@rtsg.mot.com (Andrew V. Klein) for a dired tip.
231 (args docstring interactive orig &optional befores arounds afters)
232and BEFORES, AROUNDS and AFTERS are the lists of advices with which ORIG
233 (dolist (advice befores)
234 (let* ((nam (buffer-substring (match-beginning 2) (match-end 2)))
235 (setq nmlst (cons nam nmlst)
236 "If we are in an rmail summary buffer, then chart out the froms."
237 (let* ((nam (buffer-substring (match-beginning 1) (match-end 1)))
238 (m (member nam nmlst)))
239 (message "Scanned username %s" nam)
240 (setq nmlst (cons nam nmlst)
241 ((memq word '(concat concating))
242 (crypted (cl-loop with str = (make-string (* 2 (length orig-name)) 0)
243 for c-sym = (concat prefix crypted "_" human-readable "_"
244 (concat prefix crypted "_" human-readable "_0"))))
245 (let* ((acces (plist-get soptions :accessor))
246 (when acces
247 (push `(cl-defmethod (setf ,acces) (value (this ,name))
248 (push `(cl-defmethod ,acces ((this ,name))
249 (push `(cl-defmethod ,acces ((this (subclass ,name)))
250;; => "(\\(c\\(atch\\|ond\\(ition-case\\)?\\)\\|if\\|let\\*?\\|prog[12n]\\|save-\\(current-buffer\\|excursion\\|match-data\\|restriction\\|window-excursion\\)\\|throw\\|un\\(less\\|wind-protect\\)\\|wh\\(en\\|ile\\)\\)\\>"
251G-C-g: Keyboard Quit |Ex Ext Cmd|Fill Regio| REPLACE | UND W |
252;; lisp example from Jari Aalto <jaalto@tre.tele.nokia.fi>
253;; perl example from Jari Aalto <jaalto@tre.tele.nokia.fi>
254;; '(("\\<\\(uno\\|due\\|tre\\)\\>" . 'font-lock-keyword-face)
255 "define\\|e\\(?:l\\(?:if\\|se\\)\\|ndif\\|rror\\)\\|file\\|i\\(?:f\\(?:n?def\\)?\\|mport\\|nclude\\)\\|line\\|pragma\\|undef\\|warning"
2562003-06-11 Daniel Néri <dne@mayonnaise.net>
257 (lambda (valu symb)
258 (let ((anumber (string-to-number
259 (< anumber bnumber)))))
260 (curren . 164)
261 ;; Now we must merge the Dows with the Doms. To do that, we
262 (dows dow-list)
263 ;; second add all possible dows
264 (while (setq day (pop dows))
265;; Added by gord@enci.ucalgary.ca (Gordon Matzigkeit).
266 didnt nnmaildir--file nnmaildir-article-file-name
267 (setq didnt (cons (nnmaildir--art-num article) didnt)))
268 (setq didnt (cons (nnmaildir--art-num article) didnt))
269 didnt)))
270 (insert "\nKnown Certificates:\n"))))
271;; We could use `symbol-file' but this is a wee bit more efficient.
272 (beng . bengali)
273 (maka . makasar)
274 ,(font-spec :registry "iso10646-1" :otf '(beng nil (rphf))))
275 (khmer ,(font-spec :registry "iso10646-1" :otf '(khmr nil (pres))))
276 ("wee" . "Latin-2") ; MS Windows Lower Sorbian
277 ;; Unicode uses the spelling "lamda" in character
278 (string-match "\\<LAMDA\\>" new-name))
279 "WINDOWS-1258 (Viet Nam)"
280 "mot de passe" ; fr
281Je/sli czytasz ten tekst, to albo przegl/adasz plik /xr/od/lowy
282W drugim przypadku mo/zesz usun/a/c tekst z ekranu, stosuj/ac
283 przekodowuj/a zaznaczony fragment wzgl/ednie ca/ly buffor.
284 Poni/zsze przyk/lady powinny wyja/sni/c, jakich parametr/ow
285 Funkcje biblioteki odwo/luj/a si/e do pi/eciu zmiennych, kt/ore
286 ("capetown" "Cape Town, South Africa")
287 (progn (error msg "preced") 0)))
288 <larsh@soem.dk> 2005-08-10.
289 (dolist (slot '(answers authorities additionals))
290 queries answers authorities additionals)
291 (setq additionals (dns-read-bytes 2))
292 (additionals ,additionals))
293 [nil ; 1 ACI Item N
294 ("&curren;" . "(#)")
295;; Author: Alon Albert <alon@milcse.rtsg.mot.com>
296 "Mark region appropriately. The next char REGION is d(efun),s(-exp),b(uffer),
297l(ines)."
298 (t (message "Mark: d(efun),s(-exp),b(uf),p(arag),P(age),f(unct),w(ord),e(os),l(ines)")
299 "Verify spelling for the objects specified by char UNIT : [b(uffer),
300 (t (message "Spell check: b(uffer), r(egion), s(tring), w(ord)")
301sWith: " )
302(defun org-babel-perl--var-to-perl (var &optional varn)
303 (if varn
304 (concat "my $" (symbol-name varn) "=" (when lvar "\n")
305 (if org-agenda-entry-text-mode " ETxt" "")
306 ("curren" "\\textcurrency{}" nil "&curren;" "curr." "¤" "¤")
307 (interactive "nNumber of clones to produce: ")
308N is the number of WHATs to shift.
309multlinewidth The width of the multline environment.
310 (list :tag "multlinewidth (width to use for the multline environment)"
311 "align" "gather" "multline" "flalign" "alignat"
312 ("ca" :default "Autor")
313 ("cs" :default "Autor")
314 ("de" :default "Autor")
315 ("es" :default "Autor")
316 ("et" :default "Autor")
317 ("pl" :default "Autor")
318 ("pt_BR" :default "Autor")
319 ("ro" :default "Autor")
320 ("sl" :default "Seznam tabel")
321 ("nl" :default "Zie tabel %s"
322 :html "Zie tabel&nbsp;%s" :latex "Zie tabel~%s")
323 ("et" :default "Tabel")
324 ("nl" :default "Tabel")
325 ("ro" :default "Tabel")
326 ("ro" :default "Tabele")
327 ("da" :default "Tabel %d")
328 ("et" :default "Tabel %d")
329 ("nl" :default "Tabel %d:" :html "Tabel&nbsp;%d:")
330 ("ro" :default "Tabel %d")
331 ("pl" :html "Spis tre&#x015b;ci")
332 (thier their (their))
333 (whats up) (whats new) (what\'s up) (what\'s new)
334 refer refered referred refers
335 (c++-mode . "#\\(assert\\|cpu\\|define\\|endif\\|el\\(if\\|se\\)\\|i\\(dent\\|f\\(def\\|ndef\\)?\\|mport\\|nclude\\(_next\\)?\\)\\|line\\|machine\\|pragma\\|system\\|un\\(assert\\|def\\)\\|warning\\)\\>"))
336 "^\\(?:Error\\|Warnin\\(g\\)\\) \\(?:[FEW][0-9]+ \\)?\
337: \\(?:see declaration\\|\\(?:warnin\\(g\\)\\|[a-z ]+\\) C[0-9]+:\\)"
338 "^\\([^ \n]+\\)(\\([0-9]+\\)): \\(?:error\\|warnin\\(g\\)\\|remar\\(k\\)\\)"
339 "^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:"
340 \\(?:warnin\\(g\\)\\|informationa\\(l\\)\\)?" 1 2 3 (4 . 5))
341 "^ *\\([0-9]+\\)\\.[ \t]+.*\n +\\(<-*>\n\\*\\*\\* \\(?:Error\\|Warnin\\(g\\)\\)\\)"
342 "^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char\
343 ": \\(?:ERROR\\|WARNIN\\(G\\)\\|REMAR\\(K\\)\\) \\(?:[[:alnum:] ]+, \\)?\
344 (" --?o\\(?:utfile\\|utput\\)?[= ]\\(\\S +\\)" . 1)
345 "^[ \t]*\\(format\\)[ \t]*\\([a-zA-Z0-9_]+\\)?[ \t]*=[ \t]*$" ;FRMAT
346 (insert "\n[U]nknown conditionals: ")
347 (struc info file tags-file &optional view where)
348STRUC is an `ebrowse-bs' structure (or a structure including that)
349FILE is not taken out of STRUC here because the filename in STRUC
350 (ebrowse-bs-name struc)))
351 (setf ebrowse-temp-position-to-view struc
352 (ebrowse-find-pattern struc info))))
353 "cexp" "log" "alog" "dlog" "clog" "log10"
354 '("ASCII" "addto" "also" "and" "angle" "atleast" "batchmode"
355 "bre~ak" "bti~tle" "c~hange" "cl~ear" "col~umn" "conn~ect"
356 "repf~ooter" "reph~eader" "r~un" "sav~e" "sho~w" "shutdown"
357 "copyc~ommit" "copytypecheck" "def~ine" "describe"
358That is, all code between \"// synopsys translate_off\" and
359\"// synopsys translate_on\" is highlighted using a different background color
360option to intermix between input/output/inouts.
361 :help "Help on AUTOINOUT - adding inouts from cells"]
362 (eval-when-compile (verilog-regexp-words '("Outputs" "Inouts" "Inputs" "Interfaces" "Interfaced"))))
363 '("surefire" "0in" "auto" "leda" "rtl_synthesis" "synopsys"
364 (structres nil)
365 (setq structres (verilog-in-struct-nested-p))
366 (cond ((not structres) nil)
367 ;;((and structres (equal (char-after) ?\})) (throw 'nesting 'struct-close))
368 ((> structres 0) (throw 'nesting 'nested-struct))
369 ((= structres 0) (throw 'nesting 'block))
370 (list 'block structres))
371// Created : <credate>
372 (search-forward "<credate>") (replace-match "" t t)
373Return an array of [outputs inouts inputs wire reg assign const gparam intf]."
374 (when (looking-at "[^\n]*\\(auto\\|synopsys\\)\\s +enum\\s +\\([a-zA-Z0-9_]+\\)")
375Return an array of [ outputs inouts inputs ] signals for modules that are
376 (while (re-search-forward "\\s *(?\\s *// Inouts" end-inst-point t)
377 (if (looking-at "[^\n]*\\(auto\\|synopsys\\)\\s +enum\\s +\\([a-zA-Z0-9_]+\\)")
378 "// Inouts"
379 Inouts are not supported, as assignments must be unidirectional.
380 (verilog-auto-inst-port-list "// Inouts\n"
381 This ONLY detects inouts of AUTOINSTants (see `verilog-read-sub-decls').
382 // Beginning of automatic inouts
383 // Inouts
384from only extracting inouts starting with i:
385 (verilog-insert-indent "// Beginning of automatic inouts (from unused autoinst inouts)\n")
386 // Beginning of automatic in/out/inouts
387 (verilog-insert-indent "// Beginning of automatic in/out/inouts (from specific module)\n")
388 // Beginning of automatic in/out/inouts (from modport)
389 (verilog-insert-indent "// Beginning of automatic in/out/inouts (from modport)\n")
390finds all inputs and inouts in the module, and if that input is not otherwise
391First, parameters are built into an enumeration using the synopsys enum
392 \"synopsys enum\" may be used in place of \"auto enum\".
393 default: state_ascii_r = \"%Erro\";
394 `verilog-auto-inout' for AUTOINOUT making hierarchy inouts
395 `verilog-auto-unused' for AUTOUNUSED unused inputs/inouts
396 ;; duluth: *E,430 (test.vhd,13): identifier (POSITIV) is not declared
397 ("GHDL" "ghdl" "-i --workdir=\\1 --ieee=synopsys -fexplicit " "make" "-f \\1"
398 ;; ERROR: test.vhd(14): Unknown identifier: positiv
399 ;; ProVHDL, Synopsys LEDA: provhdl -w work -f test.vhd
400 ;; Synopsys, VHDL Analyzer (sim): vhdlan -nc test.vhd
401 ("Synopsys" "vhdlan" "-nc -work \\1" "make" "-f \\1"
402 nil "mkdir \\1" "./" "work/" "Makefile" "synopsys"
403 ;; Synopsys, VHDL Analyzer (syn): vhdlan -nc -spc test.vhd
404 ("Synopsys Design Compiler" "vhdlan" "-nc -spc -work \\1" "make" "-f \\1"
405 ("Synopsys" "-vhdl87 \\2" "-f \\1 top_level" ((".*/datapath/.*" . "-optimize \\3") (".*_tb\\.vhd" . nil))))
406(defcustom vhdl-directive-keywords '("psl" "pragma" "synopsys")
407 (eq (vhdl-decision-query nil "(d)eclaration or (b)ody?") ?b))
408 (eq (vhdl-decision-query nil "(d)eclaration or (b)ody?") ?b)))
409;; Author: Alex Rezinsky <alexr@msil.sps.mot.com>
410;; Thanks to Gord Wait <Gord_Wait@spectrumsignal.com> for
411;; Thanks to Paul Furnanz <pfurnanz@synopsys.com> for XEmacs compatibility
412;; Thanks to Kevin Rodgers <kevinr@ihs.com> for handling control characters
413;; * Check `ps-paper-type': Sudhakar Frederick <sfrederi@asc.corp.mot.com>
414;; Thanks to Kevin Rodgers <kevinr@ihs.com> for adding support for color and
415;; Thanks to Avishai Yacobi, avishaiy@mcil.comm.mot.com, for writing the
416;; Ralf Brown's Interrupt List. file INTERRUP.F, D-2138, Table 01400
417 ("portugues" ; Portuguese mode
418 ("portugues" "pt_PT")
419;; of the document. If WRAPP is true then wrap the search to the
420(defun reftex-isearch-switch-to-next-file (crt-buf &optional wrapp)
421 (if wrapp
422f / c Toggle follow mode / Toggle display of [c]ontext.
423 F t c Toggle: [F]ile borders, [t]able of contents, [c]ontext
424\\`l' \\`i' \\`c' \\`F' Toggle display of [l]abels, [i]ndex, [c]ontext, [F]ile borders.
425 ;; OK, get the makro name
426 ("multline" ?e nil nil t)
427 "nbsp" "iexcl" "cent" "pound" "curren" "yen" "brvbar" "sect"
428;; |ment\|
429;; horizontale disigatan fenestron, si- horizontally split window similar to
430;; ^jus anta^ue faris C-x C-f. file if you just did C-x C-f.
431;; per C-x u kaj plue modifu la du continue to edit the two buffers.
432;; Programistoj eble ^satus la eblecon Programmers might like the ability
433;; iliajn finojn dum redaktado. won't see their end during editing.
434 "news:" "nfs://" "nntp://" "opaquelocktoken:" "pop://" "pres:"
435;; Bob Weiner <weiner@footloose.sps.mot.com>,
436 control whether we try to do keep-alives for our connections.
437 keep-alives to time out on cached documents with no known
438 ;; seconds for the keep-alives to time out on some servers.
439 msglen = ccl->quit_silently ? 0 : sprintf (msg, "\nCCL: Quitted.");
440 Quitted" to the generated text when
441 CCL program is quitted. */
442 followings. */
443 /* Followings are target of code detection. */
444 /* Followings are NOT target of code detection. */
445 /* The followings are extra attributes for each type. */
446 Aadd,
447 case Aadd : accum += next; break;
448 case Aadd : mpz_add (mpz[0], *accum, *next); break;
449 case Aadd : overflow = INT_ADD_WRAPV (accum, next, &a); break;
450 return nargs == 1 ? a : arith_driver (Aadd, nargs, args, a);
451 /* The followings are used only for a font-entity and a font-object. */
452 /* The followings are used only for a font-object. */
453 /* We have already tried this element and the followings
454/* According to RBIL (INTERRUP.A, V-1000), 160 is the maximum possible
455 hole between the first bloc and the end of malloc storage. */
456 /* First bloc in this heap. */
457 /* Last bloc in this heap. */
458 struct heap *heap; /* Heap this bloc is in. */
459/* Find the bloc referenced by the address in PTR. Returns a pointer
460 callers that always expect a bloc to be returned should abort
461/* Allocate a bloc of SIZE bytes and append it to the chain of blocs.
462 Returns a pointer to the new bloc, or zero if we couldn't allocate
463 /* Put this bloc on the doubly-linked list of blocs. */
464/* Calculate new locations of blocs in the list beginning with BLOC,
465in the quitted window.
466 trough color and main window's background color.
467 means the truck and arrow colors, and "trough" means the
468 bg[ACTIVE] = "blue"@ @ @ @ # @r{Trough color.}
469also for the trough of a scroll bar, i.e., @code{bg[ACTIVE] = "red"}
470sets the scroll bar trough to red. Buttons that have been armed
471 (while (search-forward "nam" nil t)
472 (search-forward "som")
473 (search-forward "Nam")
474 (0 ":rando!~u@bivkhq8yav938.irc PRIVMSG tester :[09:17:51] u thur?")
475 (0.01 ":alice/foonet PRIVMSG #chan/foonet :bob: Sir, his wife some two months since fled from his house: her pretence is a pilgrimage to Saint Jaques le Grand; which holy undertaking with most austere sanctimony she accomplished; and, there residing, the tenderness of her nature became as a prey to her grief; in fine, made a groan of her last breath, and now she sings in heaven.")
476 "sav"
477 (if valu
478 (cons symb valu)))
479 (sample-text . "Er is een aantal manieren waarop je dit kan doen")
480Tai Daeng (also known as Red Tai or Tai Rouge),
481 ;; Ith character and the followings matches precomposable
482 sprintf (css, "scrollbar trough { background-color: #%06x; }",
483 OFROM[I] is position of the earliest comment-starter seen
484 sprintf (css, "scrollbar trough { background-color: #%02x%02x%02x; }",
485 /* Note: "background" is the thumb color, and "trough" is the color behind
486 (uptodate t))
487 (while (and files uptodate)
488 (setq uptodate nil)))))
489 uptodate)))
490 ptrdiff_t acount = 0; /* The # of consecutive times A won. */
491 acount = 0;
492 ++acount;
493 if (acount >= min_gallop)
494 acount = k;
495 } while (acount >= GALLOP_WIN_MIN || bcount >= GALLOP_WIN_MIN);
496 ptrdiff_t acount = 0; /* The # of consecutive times A won. */
497 ++acount;
498 if (acount >= min_gallop)
499 acount = 0;
500 acount = k;
501 } while (acount >= GALLOP_WIN_MIN || bcount >= GALLOP_WIN_MIN);
502 154cd116be (origin/emacs-27) * admin/release-process: Adapt bug numbe...
503 a38da0d cc-mode.texi: Work around makeinfo alignment bug. Fix proble...
504 fd35804971 (origin/emacs-26) * doc/lispref/strings.texi (Case Convers...
505 be in line with the raison d'être of compiling printer which is speed.
506mace <mace@kirjakaapeli.lib.hel.fi>
507at that position, the result is @samp{fro!b}, with point between the
508doesnt
509minimize(xfit(gaus(a,b,c,d,x), x, [a,b,c], data)_5, d, guess)
510where @code{gaus} represents the Gaussian model with background,
511* Score Decays:: It can be useful to let scores wither away.
512providers if they were to do this---their @emph{raison d'être} is to
513While this design may be internally consistent with the raison d'être of
514Finally, just to whet your appetite for what can be done with the
515Wedler, Alan Williams, Roland Winkler, Hans-Christoph Wirth, Eli
516 "Some Place\nIn some City\nSome country.")
517@c andrewm@@optimation.co.nz
518Emacs Macht Alle Computer Schoen
519GLib-GObject-WARNING **: /build/buildd/glib2.0-2.14.5/gobject/gsignal.c:1741: instance `0x8206790' has no handler with id `1234' at t-compilation-perl-gtk.pl line 3.
520 \quad \B{A}ction: I)ncrease, L)ower;\\*
521 (calc-unary-op "flor" 'calcFunc-ffloor arg)
522 (calc-unary-op "flor" 'calcFunc-floor arg)))))
523 ["de la Vertu" "du Génie" "du Travail" "de la Raison" "des Récompenses"
524 "de la Cuve" "de la Pomme de terre" "de l'Immortelle"
525 "de la Raison" "des Récompenses" "de la Révolution"]
526 (string-match "config\\(ure\\.\\(in\\|ac\\)\\|\\.status\\)?$" f)
527 ("\\.\\(dll\\|drv\\|386\\|vxd\\|fon\\|fnt\\|fot\\|ttf\\|grp\\)$" . t)
528 (insert (format "\nIn %s:\n" form)))
529 (format "\nIn macro %s:" (cadr form)))
530 (format "\nIn variable %s:" (cadr form)))
531 (insert "\nIn " package)
532 "\nIn order to use version `%s' of gnus, you will need to set\n"
533znak/ow diakrytycznych. Funkcje te mo/zna pogrupowa/c nast/epuj/aco.
534 oraz ich warto/sci domy/slne s/a nast/epuj/ace:
535 (insert "\nIn " (emacs-version))
536 "[n]ew messages; [']ticked messages; [s]earch;\n"
537 (?/ "Limit to [c]c, ran[g]e, fro[m], [s]ubject, [t]o; [w]iden")
538 (dictionary-send-command "show strat")
539r(egion), s(tring), w(ord) ]."
540 "ncl" "nfd" "ngu" "nin" "nma" "nmu" "nod" "nop" "npp" "nsf"
541 (theyre they\'re (they are))
542 (insert "\n[K]nown conditionals: ")
543 "[T]rue Face" "[F]alse Face" "[W]rite"))
544 "[ \t]*in\\(?:put\\|clude\\)[ \t]*{\\(.*%s\\)}")))
545 (let ((siz (cond ((numberp size)
546 (and (< siz 0)
547 siz))
548 "\tHow to report bugs and contribute improvements to Emacs\n"
549 "\tHow to obtain the latest version of Emacs\n"
550 (insert "\tHow to report bugs and contribute improvements to Emacs\n\n")
551 (insert "\tHow to get the latest version of GNU Emacs\n")
552 ("/mod\\(?:ules\\|probe\\)\\.conf" . "alias\\|in\\(?:clude\\|stall\\)\\|options\\|remove")
553 ("/dictionary\\.lst\\'" . "DICT\\|HYPH\\|THES")
554 ;; use-mark sizeA dateA sizeB dateB filename
555;; nin, nil are placeholders. See ediff-make-new-meta-list-element in
556;; Andrew McRae <andrewm@optimation.co.nz>
557 * xmenu.c (apply_systemfont_to_menu): *childs was incorrectly used.
558DEFUN ("catch", Fcatch, Scatch, 1, UNEVALLED, 0,
559 defsubr (&Scatch);
560DEFUN ("elt", Felt, Selt, 2, 2, 0,
561 defsubr (&Selt);
562 (should (equal (string-truncate-left "longstring" 8) "...tring")))
563 (0.06 ":joe!~u@6d9pasqcqwb2s.irc PRIVMSG #chan :mike: Lady, I will commend you to mine own heart.")
564 (perl "GLib-GObject-WARNING **: /build/buildd/glib2.0-2.14.5/gobject/gsignal.c:1741: instance `0x8206790' has no handler with id `1234' at t-compilation-perl-gtk.pl line 3."
565 (rxp "Error: Mismatched end tag: expected </geroup>, got </group>\nin unnamed entity at line 71 char 8 of file:///home/reto/test/group.xml"
566 (rxp "Warning: Start tag for undeclared element geroup\nin unnamed entity at line 4 char 8 of file:///home/reto/test/group.xml"
567 (string= (python-util-strip-string "\n str \nin \tg \n\r") "str \nin \tg"))
568 (insert "hel")
569 (format "\nIn function %s:" (cadr form)))
570 (t "\nIn top level expression:"))))
571 All suggested by Ned Ludd.
572;; 2002-07-27 Added DELETESCRIPT. Suggested by Ned Ludd.
573;; Ned Ludd.
574To: Ned Freed <ned@innosoft.com>
575@strong{Te Deum}
576 If the termcap entry does not define the "ti" or "te" string,
577 and the "te" string is used to set it back on exit.
578 (te (solar-time-equation date ut)))
579 (setq ut (- ut te))
580 (let ((te (semantic-tag-end aftertag)))
581 (when (not te)
582 (goto-char te)
583 ("te" . "Telugu")
584 ("\\.te?xt\\'" . text-mode)
585 ("\\.te?xi\\'" . texinfo-mode)
586 '(("\\.te?xt$\\|\\.doc$\\|read.*me\\|\\.c?$\\|\\.h$\\|\\.bat$\\|\\.asm$\\|makefile" "cat %s | sed 's/\r$//'")
587 ("\\.\\(te?xt\\|doc\\|c\\|h\\)$" "text/plain")
588 (not (string-match "\\.te?xi\\'" name)) ;; not .texi
589 (?\ተ "te")
590 (?\ቴ "tE")
591 (?\ጠ "Te")
592 (?\ጤ "TE")
593 (?\∃ "TE")
594 (?\て "te")
595 (?\テ "Te")
596 ("te" "Telugu" utf-8) ; Telugu
597 "సంకేతపదము" ; te
598 * org-clock.el (org-clocktable-steps): Allow ts and te to be day
599 issue face m te ts dt ov)
600 te nil ts nil)
601 te (match-string 3)
602 te (float-time (org-time-string-to-time te))
603 dt (- te ts))))
604 (setq tlend (or te tlend) tlstart (or ts tlstart))
605 ts te s h m remove)
606 (setq te (org-insert-time-stamp (or at-time now) 'with-hm 'inactive))
607 (org-time-string-to-time te)
608 te (org-duration-from-minutes (+ (* 60 h) m)))
609 (te (float-time
610 (dt (- (if tend (min te tend) te)
611 (te (plist-get params :tend))
612 te (nth 1 cc)))
613 (unless (or block (and ts te))
614 (te (plist-get params :tend))
615 te (nth 1 cc)))
616 (when (integerp te) (setq te (calendar-gregorian-from-absolute te)))
617 (when (and te (listp te))
618 (setq te (format "%4d-%02d-%02d" (nth 2 te) (car te) (nth 1 te))))
619 (if te (setq te (org-matcher-time te)))
620 (org-clock-sum ts te
621 ts te h m s neg)
622 te (match-string 3))
623 (apply #'encode-time (org-parse-time-string te)))
624;; Emulate more complete preprocessor support for tbl (.TS/.TE)
625This applies to text between .TE and .TS directives.
626 ;; ((looking-at "[te]") (setq c nil)) ; reject t(roff) and e(ven page)
627 (set-marker to (woman-find-next-control-line "TE"))
628 tty->TS_end_termcap_modes = tgetstr ("te", address);
629 const char *TS_end_termcap_modes; /* "te" */
630 (0 ":joe!~u@286u8jcpis84e.irc PRIVMSG #chan :[09:19:19] mike: Chi non te vede, non te pretia.")
631 (0.1 ":mike!~u@wvys46tx8tpmk.irc PRIVMSG #chan :joe: Chi non te vede, non te pretia.")
632 "un moyen, et te trompant ainsi sur la route =C3=A0 suivre les voil=C3=A0 bi=\n"
633 "ent=C3=B4t qui te d=C3=A9gradent, car si leur musique est vulgaire ils te f=\n"
634 "abriquent pour te la vendre une =C3=A2me vulgaire."))
635 "un moyen, et te trompant ainsi sur la route à suivre les voilà bi"
636 "entôt qui te dégradent, car si leur musique est vulgaire ils te f"
637 "abriquent pour te la vendre une âme vulgaire."))
638 (".TS" . ".TE")
639 (define-key vhdl-template-map "te" #'vhdl-template-terminal)
640 ("te" "telugu")
641 (format "%s.TE\n"
642:NR:te=\\E[47l:ti=\\E[47h\
643 ;; don't define :te=\\E[2J\\E[?47l\\E8:ti=\\E7\\E[?47h\
644 nil nil nil nil "FA" "C." "dP" "TE" "~TE" "/0"
645(defalias 'woman2-TE #'woman2-fi)
646;;; Preliminary table support (.TS/.TE)
647 ;; ".TE -- End of table code for the tbl processor."
648 8804ac857b * src/buffer.c (syms_of_buffer) <ctl-arrow>: Doc fix. (Bu...
649 da00a6f317 Fix Xaw widget text disappearing when built with cairo (bu...
6502020-11-10 Andrew G Cohen <cohen@andy.bu.edu>
6512020-09-23 Andrew G Cohen <cohen@andy.bu.edu>
6522020-09-11 Andrew G Cohen <cohen@andy.bu.edu>
6532020-09-10 Andrew G Cohen <cohen@andy.bu.edu>
6542020-09-09 Andrew G Cohen <cohen@andy.bu.edu>
6552020-09-07 Andrew G Cohen <cohen@andy.bu.edu>
6562020-09-05 Andrew G Cohen <cohen@andy.bu.edu>
6572020-08-29 Andrew G Cohen <cohen@andy.bu.edu>
6582020-08-27 Andrew G Cohen <cohen@andy.bu.edu>
659 121be3e118 ; * etc/NEWS: Remove temporary note on documentation. (Bu...
660 224e8d1464 Make call_process call signal_after_change. This fixes bu...
661 891f7de8ed * test/lisp/simple-tests.el: Full path to Emacs binary (bu...
662 8b7c776 * lisp/simple.el (kill-do-not-save-duplicates): Doc fix. (Bu...
663 beb4eac * doc/lispref/display.texi (Showing Images): Fix a typo. (Bu...
664 60b5c10 Provide more details in doc-string of 'delete-windows-on' (Bu...
665 57bcdc7 Don't call XGetGeometry for frames without outer X window (Bu...
666 f64c277 (origin/emacs-26) Let bookmark-jump override window-point (Bu...
667 4bd43b0 Increase max-lisp-eval-depth adjustment while in debugger (bu...
668 55c9bb9f3c Fix comint-get-old-input-default for output field case (Bu...
669 e244fed Clarify that nil doesn't match itself as a cl-case clause (Bu...
670 e21f018 * doc/lispref/functions.texi (Inline Functions): Fix typo (Bu...
671 c59ecb005e New customization variable for python-mode indentation (Bu...
672 a36a090 * lisp/progmodes/verilog-mode.el (verilog-mode): Fix typo (Bu...
673 98ca7d5 Improve edit-kbd-macro prompting in case of remapped keys (Bu...
674 804b37ca63 Save and restore text-pixel height and width of frames (Bu...
675 9715317dfd * lisp/dired.el (dired-find-alternate-file): Doc fix. (Bu...
676 234b1e3864 Flymake backends must check proc obsoleteness in source bu...
677 dc8812829b Remove resizable attribute on macOS undecorated frames (bu...
678 43fac3beae Make "unsafe directory" error message more informative (Bu...
6792017-04-25 Andrew G Cohen <cohen@andy.bu.edu>
6802017-04-23 Andrew G Cohen <cohen@andy.bu.edu>
681 dbb3410 python.el: Fix detection of native completion in Python 3 (bu...
682 4b2d77d * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Fix (bu...
683 d59bcbc Handle mouse leaving initial window in `mouse-set-region' (Bu...
684 586b213 * lisp/url/url.el (url-retrieve-synchronously): Doc fix. (Bu...
685 f3653ec * configure.ac (HAVE_MODULES): Treat gnu like gnu-linux. (Bu...
6862010-12-15 Andrew Cohen <cohen@andy.bu.edu>
6872010-12-14 Andrew Cohen <cohen@andy.bu.edu>
6882010-12-13 Andrew Cohen <cohen@andy.bu.edu>
689;; Author: Joe Wells <jbw@bigbird.bu.edu>
690 (define-key calc-mode-map "bu" 'calc-unpack-bits)
691 (ruby-mode "*.r[bu]" "*.rake" "*.gemspec" "*.erb" "*.haml"
6922002-03-31 Andrew Cohen <cohen@andy.bu.edu> (tiny change)
6932013-05-04 Andrew Cohen <cohen@bu.edu>
6942013-04-25 Andrew Cohen <cohen@bu.edu>
6952013-04-24 Andrew Cohen <cohen@bu.edu>
6962013-04-14 Andrew Cohen <cohen@bu.edu>
6972013-04-10 Andrew Cohen <cohen@bu.edu>
6982013-04-04 Andrew Cohen <cohen@bu.edu>
6992013-04-01 Andrew Cohen <cohen@bu.edu>
7002013-03-31 Andrew Cohen <cohen@bu.edu>
7012013-03-30 Andrew Cohen <cohen@bu.edu>
7022013-03-29 Andrew Cohen <cohen@bu.edu>
7032013-03-27 Andrew Cohen <cohen@bu.edu>
7042013-03-26 Andrew Cohen <cohen@bu.edu>
7052012-07-22 Andrew Cohen <cohen@bu.edu>
7062011-09-12 Andrew Cohen <cohen@andy.bu.edu>
7072011-09-05 Andrew Cohen <cohen@andy.bu.edu>
7082011-09-01 Andrew Cohen <cohen@andy.bu.edu>
7092011-08-11 Andrew Cohen <cohen@andy.bu.edu>
7102011-08-05 Andrew Cohen <cohen@andy.bu.edu>
7112011-08-04 Andrew Cohen <cohen@andy.bu.edu>
7122011-08-03 Andrew Cohen <cohen@andy.bu.edu>
7132011-08-02 Andrew Cohen <cohen@andy.bu.edu>
7142011-07-24 Andrew Cohen <cohen@andy.bu.edu>
7152011-07-23 Andrew Cohen <cohen@andy.bu.edu>
7162011-07-20 Andrew Cohen <cohen@andy.bu.edu>
7172011-07-14 Andrew Cohen <cohen@andy.bu.edu>
7182011-07-02 Andrew Cohen <cohen@andy.bu.edu>
7192011-07-01 Andrew Cohen <cohen@andy.bu.edu>
7202011-06-30 Andrew Cohen <cohen@andy.bu.edu>
7212011-06-21 Andrew Cohen <cohen@andy.bu.edu>
7222011-02-22 Andrew Cohen <cohen@andy.bu.edu>
7232010-12-17 Andrew Cohen <cohen@andy.bu.edu>
7242010-12-16 Andrew Cohen <cohen@andy.bu.edu>
7252010-12-10 Andrew Cohen <cohen@andy.bu.edu>
7262010-12-08 Andrew Cohen <cohen@andy.bu.edu>
7272010-12-07 Andrew Cohen <cohen@andy.bu.edu>
7282010-12-06 Andrew Cohen <cohen@andy.bu.edu>
7292010-12-05 Andrew Cohen <cohen@andy.bu.edu>
7302010-12-04 Andrew Cohen <cohen@andy.bu.edu>
7312010-12-03 Andrew Cohen <cohen@andy.bu.edu>
7322010-12-02 Andrew Cohen <cohen@andy.bu.edu>
7332010-12-01 Andrew Cohen <cohen@andy.bu.edu>
7342010-11-29 Andrew Cohen <cohen@andy.bu.edu>
7352010-11-28 Andrew Cohen <cohen@andy.bu.edu>
7362010-11-27 Andrew Cohen <cohen@andy.bu.edu>
7372010-11-23 Andrew Cohen <cohen@andy.bu.edu>
7382010-11-21 Andrew Cohen <cohen@andy.bu.edu>
7392010-11-17 Andrew Cohen <cohen@andy.bu.edu>
7402010-11-11 Andrew Cohen <cohen@andy.bu.edu>
7412010-11-06 Andrew Cohen <cohen@andy.bu.edu>
7422010-11-04 Andrew Cohen <cohen@andy.bu.edu>
7432010-11-03 Andrew Cohen <cohen@andy.bu.edu>
7442010-11-01 Andrew Cohen <cohen@andy.bu.edu>
7452010-10-31 Andrew Cohen <cohen@andy.bu.edu>
7462010-10-30 Andrew Cohen <cohen@andy.bu.edu>
7472010-10-22 Andrew Cohen <cohen@andy.bu.edu>
7482010-10-18 Andrew Cohen <cohen@andy.bu.edu>
7492010-10-16 Andrew Cohen <cohen@andy.bu.edu>
7502010-10-15 Andrew Cohen <cohen@andy.bu.edu>
7512010-10-14 Andrew Cohen <cohen@andy.bu.edu>
7522010-10-10 Andrew Cohen <cohen@andy.bu.edu>
7532010-09-25 Andrew Cohen <cohen@andy.bu.edu> (tiny change)
7542010-09-23 Andrew Cohen <cohen@andy.bu.edu>
7552004-02-26 Andrew Cohen <cohen@andy.bu.edu>
756 <cohen@andy.bu.edu>.
757 syntax table here. Reported by Andrew Cohen <cohen@andy.bu.edu>.
758 ;; Fix by Mike Dugan <dugan@bucrf16.bu.edu>.
759;; Author: Andrew Cohen <cohen@andy.bu.edu>
760 (?\ቡ "bu")
761 (?\ぶ "bu")
762 (?\ブ "Bu")
763;; Author: Joe Wells <jbw@cs.bu.edu>
764;; Tue Mar 23 21:23:18 1993 Joe Wells (jbw at csd.bu.edu)
765;; Mon Mar 22 21:20:56 1993 Joe Wells (jbw at bigbird.bu.edu)
766;; Mon Mar 22 20:16:57 1993 Joe Wells (jbw at bigbird.bu.edu)
767;; Mon Mar 22 00:46:12 1993 Joe Wells (jbw at bigbird.bu.edu)
768;; Sun Mar 21 21:41:06 1993 Joe Wells (jbw at bigbird.bu.edu)
769;; Sun Mar 21 14:39:38 1993 Joe Wells (jbw at bigbird.bu.edu)
770;; Mon Feb 1 22:23:31 1993 Joe Wells (jbw at bigbird.bu.edu)
771;; Mon Apr 6 23:59:09 1992 Joe Wells (jbw at bigbird.bu.edu)
772;; Sun Apr 5 19:39:08 1992 Joe Wells (jbw at bigbird.bu.edu)
773;; Sun Feb 2 14:45:24 1992 Joe Wells (jbw at bigbird.bu.edu)
774 " --------Unsent Message below:" ; from sendmail at BU
775;; Mostly rewritten by Andrew Cohen <cohen@bu.edu> from 2010
776 ((string= "*" bullet) "\\(bu")
777 (gud-def gud-finish "bu\\t" "\C-f" "Finish executing current function.")
778 ("bu" "*" "\267" . t) ; bullet
779 '("+l" "#s" "#bu")))
780 da6234e2df Make sure pixel sizes are zero when setting window size fo...
781 d38fd9229c0 Narrow scope of modification hook renabling in org-src fo...
782is the last word in the buffer that starts with @samp{fo}. A numeric
783after the first @samp{FO}; the @samp{F} in that @samp{FO} might not be
784expression @samp{fo}, which matches only the string @samp{fo}. To do
785expression. Thus, @samp{fo*} has a repeating @samp{o}, not a repeating
786@samp{fo}. It matches @samp{f}, @samp{fo}, @samp{foo}, and so on.
787$ ls -li fo*
788(file-name-all-completions "fo" "")
789 nil t "fo")
790Complete a foo: fo@point{}
791and @samp{o} to get the regular expression @samp{fo}, which matches only
792the string @samp{fo}. Still trivial. To do something more powerful, you
793fo
794@samp{fo#.el} matches @file{f.el}, @file{fo.el}, @file{foo.el}, etc.
795@samp{fo#.el} matches @file{fo.el}, @file{foo.el}, @file{fooo.el},
796 <style:text-properties fo:background-color="#ff0000"/>
797 <style:paragraph-properties fo:break-before="page"/>
798 \futurelet\next\fo@t
799M-f Fo Alias (keep?)
800% | fo |
801 fo ;; List of final overloaded functions
802 (if (get s 'constant-flag) fo ov))
803 (when fo
804 (mapc #'mode-local-print-binding fo))
805 :eval (string-match-p "^[fo]+" "foobar"))
806 :eval (and (string-match "^\\([fo]+\\)b" "foobar")
807 ("fo" . "Faroese")
808 (?\ፎ "fo")
809 ("fo" . "Latin-1") ; Faroese
810 ("fo" "Faroe Islands")
811 M-f -> Fo Alias (keep?)
812 ;; quotes (for example), we end up completing "fo" to "foobar and throwing
813 ;; completing "fo" to "foO" when completing against "FOO" (bug#4219).
814 <style:table-properties style:rel-width=\"%s%%\" fo:margin-top=\"0cm\" fo:margin-bottom=\"0.20cm\" table:align=\"center\"/>
815 <style:paragraph-properties fo:background-color=\"%s\" fo:padding=\"0.049cm\" fo:border=\"0.51pt solid #000000\" style:shadow=\"none\">
816 <style:text-properties fo:color=\"%s\"/>
817 (format " fo:min-width=\"%0.2fcm\"" (or width .2))))
818 (concat (format " fo:min-height=\"%0.2fcm\"" (or height .2))
819 <style:text-properties fo:color=\"%s\"/>
820 ;; Are we coalescing two tokens together, e.g. "fo o"
821 ;; user from completing "fo" to "foo/" when she
822;; | | | fo | | fo | | |
823page-height == bm + print-height + tm - fo - fh
824 ("fo+bar" nil "2nd")
825 ("fo*bar" nil "3rd")))
826 (should (equal (ert--abbreviate-string "foo" 2 nil) "fo"))
827 (should (equal (string-limit "foo" 2) "fo"))
828 (should (equal (string-limit "foó" 10 nil 'utf-8) "fo\303\263"))
829 (should (equal (string-limit "foó" 3 nil 'utf-8) "fo"))
830 (should (equal (string-limit "foó" 4 nil 'utf-8) "fo\303\263"))
831 (should (equal (string-limit "foóa" 4 nil 'utf-8) "fo\303\263"))
832 (should (equal (string-limit "foóá" 4 nil 'utf-8) "fo\303\263"))
833 (should (equal (string-limit "foóa" 4 nil 'iso-8859-1) "fo\363a"))
834 (should (equal (string-limit "foóá" 4 nil 'iso-8859-1) "fo\363\341"))
835 (should (equal (string-limit "foó" 10 t 'utf-8) "fo\303\263"))
836 (should (equal (string-limit "foó" 4 t 'utf-8) "fo\303\263"))
837 (should (equal (string-limit "foóa" 4 t 'iso-8859-1) "fo\363a"))
838 (should (equal (string-limit "foóá" 4 t 'iso-8859-1) "fo\363\341"))
839 " fo"))
840 (("foo" 2 nil nil "...") . "fo") ;; XEmacs failure?
841 (non-directories '("/abso-folder/fo" "rela-folder/fo"
842 "/testdir/Mail/rela-folder/fo"
843 (format "+%s/fo" mh-test-rel-folder) nil 'lambda)))))
844 (format "+%s/fo" mh-test-abs-folder) nil 'lambda)))))
845 (should (equal (file-name-completion "fo" tmp-name) "foo."))
846 (sort (file-name-all-completions "fo" tmp-name) #'string-lessp)
847 (should (equal (file-name-completion "fo" tmp-name) "foo"))
848 (equal (file-name-all-completions "fo" tmp-name) '("foo")))
849 (should (equal (file-name-completion "fo" tmp-name) "foo"))
850 (should (equal (string-replace "fo" "bar" "lafofofozot")
851 (should (= (replace-regexp-in-region "fo+" "new" (point-min) (point-max))
852 (should (= (replace-regexp-in-region "fo+" "new" (point-min) 14)
853 (should-error (replace-regexp-in-region "fo+" "new" (point-min) 30)))
854 (should (= (replace-regexp-in-region "Fo+" "new" (point-min))
855 (should-not (yank-media--utf-16-p "fo"))
856 (should (equal (fns-tests--with-region base64-encode-region "fo") "Zm8="))
857 (should (equal (base64-encode-string "fo") "Zm8="))
858 (should (equal (fns-tests--with-region base64url-encode-region "fo") "Zm8="))
859 (should (equal (fns-tests--with-region base64url-encode-region "fo" t) "Zm8"))
860 (should (equal (fns-tests--with-region base64url-encode-region (fns-tests--string-repeat "fo" 50) t)
861 (should (equal (base64url-encode-string "fo") "Zm8="))
862 (should (equal (base64url-encode-string "fo" t) "Zm8"))
863 (should (equal (base64url-encode-string (fns-tests--string-repeat "fo" 50) t) (concat (fns-tests--string-repeat "Zm9mb2Zv" 16) "Zm9mbw")))
864 (should (equal (base64-decode-string "Zm8=") "fo"))
865 (should (equal (base64-decode-string "Zm8" t) "fo"))
866 (should (equal (base64-decode-string "Zm8=" t) "fo"))
867 (fns-tests--string-repeat "fo" 50)))
868@samp{o} (oblique), @samp{ri} (reverse italic), or @samp{ot} (other).
869@deffn Method project-update-version :AFTER ot
870The @code{:version} of the project @var{OT} has been updated.
871@deffn Method project-remove-file :AFTER ot fnnd
872Remove the current buffer from project target @var{OT}.
873@deffn Method project-delete-target :AFTER ot
874Delete the current target @var{OT} from its parent project.
875@deffn Method project-edit-file-target :AFTER ot
876Edit the target @var{OT} associated with this file.
877@deffn Method project-add-file :AFTER ot file
878Add the current buffer into project target @var{OT}.
879- (font (nil phetsarath\ ot unicode-bmp)))
880 "Remove the current buffer from project target OT.
881(cl-defmethod project-update-version ((ot ede-project))
882 "The :version of the project OT has been updated.
883 (error "project-update-version not supported by %s" (eieio-object-name ot)))
884 ;; no so ea we ne se nw sw up do in ot
885 ;; no so ea we ne se nw sw up do in ot
886 (define-key vhdl-template-map "ot" #'vhdl-template-others)
887 { 200, { "italic" ,"i", "ot" }},
888(cl-defmethod oclosure-interactive-form ((ot oclosure-test))
889 (let ((snd (oclosure-test--snd ot)))
890 (math-simplify-divisor): Only bind math-simplify-divisor-[nd]over
891 @result{} Nd
892 "s section[eg- emacs / p4-blame]:\nD source-dir: \nD output-dir: ")
893(define-key ctl-x-map "nd" 'narrow-to-defun)
894 (aref ["th" "st" "nd" "rd"] (% n 10))))
895 (let* ((nd date)
896 (setq nd (list (car date) (1+ (cadr date))
897 (setq nd (list (car date) (1- (cadr date))
898 (setq nd (calendar-gregorian-from-absolute ; date standardization
899 (calendar-absolute-from-gregorian nd)))
900 (list nd ut)))
901 (interactive "*P\nd")
902 (interactive "^p\nd")
903 (interactive "^p\nd\nd")
904 (if (string= "" nd)
905 (concat "\\`" (regexp-quote nd)))
906 (nd (file-name-nondirectory auto-save-list-file-prefix)))
907 ((= digit 2) "nd")
908 \"s section[eg- emacs / p4-blame]:\\nD source-dir: \\nD output-dir: \")
909 (interactive "D source directory: \nD output directory: ")
910(defun mailcap-parse-mailcap-extras (st nd)
911 (narrow-to-region st nd)
912 ("New York" . "ny") ("North Carolina" . "nc") ("North Dakota" . "nd")
913 '(Lu Ll Lt Lm Lo Mn Mc Me Nd Nl No Pc Pd
914(xsdre-def-derived-category 'N '(union Nd Nl No))
915 "cm=^p=%+ %+ :cr=^p^a:le=^p^b:nd=^p^f:"
916p(aragraph), P(age), f(unction in C/Pascal etc.), w(ord), e(nd of sentence),
917;; - an ordinal suffix (st, nd, rd, th) for the year
918 - an ordinal suffix (st, nd, rd, th) for the year
919 '(", *\\(e\\(nd\\|rr\\)\\)\\> *\\(= *\\([0-9]+\\)\\)?"
920 "\\<\\(&&\\|and\\|b\\(egin\\|reak\\)\\|c\\(ase\\|o\\(mpile_opt\\|ntinue\\)\\)\\|do\\|e\\(lse\\|nd\\(case\\|else\\|for\\|if\\|rep\\|switch\\|while\\)?\\|q\\)\\|for\\(ward_function\\)?\\|g\\(oto\\|[et]\\)\\|i\\(f\\|nherits\\)\\|l[et]\\|mod\\|n\\(e\\|ot\\)\\|o\\(n_\\(error\\|ioerror\\)\\|[fr]\\)\\|re\\(peat\\|turn\\)\\|switch\\|then\\|until\\|while\\|xor\\|||\\)\\>")
921 "and\\|begin\\|case\\|do\\|e\\(lse\\|nd\\)\\|for\\|i[fn]\\|"
922 (interactive "P\nd")
923 (interactive "*p\nd")
924 Right (tty) = tgetstr ("nd", address);
925 "c\nd\n")))
926 (insert "a\nb\nc\nd\ne\nf")
927 (insert "a\nb\nc\nd\ne")
928 (interactive "i\nd\nP")
929 * lisp/term.el (term-termcap-format): Fix a typo in the "ue="
930Urban Engberg (ue at cci.dk),
931 * quail/latin-post.el ("german-postfix"): Do not translate ue to
932 (define-key calc-mode-map "ue" 'calc-explain-units)
933 le ue pe)
934 (bindat--make :ue ,(bindat--toplevel 'unpack type)
935 Trivial patch from Urban Engberg <ue@ccieurope.com>.
936 ("ü" "ue")
937 ("Ü" "Ue")
938;; AE -> Ä OE -> Ö UE -> Ü
939;; ae -> ä oe -> ö ue -> ü ss -> ß
940;; AEE -> AE OEE -> OE UEE -> UE
941;; aee -> ae oee -> oe uee -> ue sss -> ss"
942;; ("UE" ?Ü)
943;; ("ue" ?ü)
944;; ("UEE" "UE")
945;; ("uee" "ue")
946 ("Uuml" "\\\"{U}" nil "&Uuml;" "Ue" "Ü" "Ü")
947 ("uuml" "\\\"{u}" nil "&uuml;" "ue" "ü" "ü")
948:so=\\E[7m:se=\\E[m:us=\\E[4m:ue=\\E[m:md=\\E[1m:mr=\\E[7m:me=\\E[m\
949 (("\"U" "\\\"U") . "Ue") ; "U,\"U -> Ue
950 (("\"u" "\\\"u") . "ue") ; "u,\"u -> ue
951/^#undef INTERNAL_TERMINAL *$/s,^.*$,#define INTERNAL_TERMINAL "pc|bios|IBM PC with color display::co#80:li#25:Co#16:pa#256:km:ms:cm=<CM>:cl=<CL>:ce=<CE>::se=</SO>:so=<SO>:us=<UL>:ue=</UL>:md=<BD>:mh=<DIM>:mb=<BL>:mr=<RV>:me=<NV>::AB=<BG %d>:AF=<FG %d>:op=<DefC>:",
952 * s/msdos.h (INTERNAL_TERMINAL): Add capabilities se, so, us, ue,
953 tty->TS_exit_underline_mode = tgetstr ("ue", address);
954:bl=^G:do=^J:le=^H:ta=^I:se=\\E[27m:ue=\\E[24m\
955 const char *TS_enter_underline_mode; /* "ue" -- end underlining. */
956 ((equal (aref (car lines) 0) "fpr")
957 (let* ((fpr (epg-sub-key-fingerprint subkey))
958 (candidates (epg-list-keys context fpr 'secret))
959 (error "Found %d secret keys with same fingerprint %s" candno fpr))
960 (fpr (epg-sub-key-fingerprint primary)))
961 (string-match-p (concat fingerprint "$") fpr)
962 (dolist (fpr signer-fprs nil)
963 fpr
964 (substring fpr -16 nil)))
965 (let ((fpr (if (eq protocol 'OpenPGP)
966 (should (string-match-p (concat "-r " fpr) match))))
967 time. The reverse is true in Ireland, where standard time "IST"
968(e.g., especially with l(ist) and k(ill)).
969;; <http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.42.6421&rep=rep1&type=pdf>
970 ;; <http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.42.6421&rep=rep1&type=pdf>.
971 ("ist" "İstanbul, Turkey")
972 consistency (e.g., esp. with l(ist) and k(ill).
973 (?F "[l]ist; [v]isit folder;\n"
974 "[s]equences, [l]ist,\n"
975 "exec~ute" "exit" "get" "help" "ho~st" "[$]" "i~nput" "l~ist"
976 (calendar-standard-time-zone-name "IST")
977 "1972-07-01 05:29:59.999 +0530 (IST)"))
978 (let ((thi (if (math-lessp hi '(float -2 0))
979 (math-float lo) (math-float thi) 'inf)
980 lo thi)))
981Joakim Hove wrote @file{html2text.el}, a html to plain text converter.
982Hove, Denis Howe, Lars Ingebrigtsen, Andrew Innes, Seiichiro Inoue,
983 * html2text.el: New file from Joakim Hove <hove@phys.ntnu.no>.
984;; Author: Joakim Hove <hove@phys.ntnu.no>
985Damon Anton Permezel wrote @file{hanoi.el}, an animated demonstration of
986Jeff Peck, Damon Anton Permezel, Tom Perrine, William M. Perry, Per
987;; Author: Damon Anton Permezel
988; Author (a) 1985, Damon Anton Permezel
989;; JAVE I preferred ecmascript-mode.
990;;JAVE break needs labels
991;JAVE this just instantiates a default empty ebrowse struct?
992JAVE: stub for needs-refresh, because, how do we know if BROWSE files
993;JAVE what it actually seems to do is split the original tree in "tables" associated with files
994 ;(semantic-fetch-tags) ;JAVE could this go here?
995JAVE this thing would need to be recursive to handle java and csharp"
996; (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isn't generic enough for different languages
997 clen cidx)
998 (setq clen (length lao-consonant))
999 str (if (= clen 1)
1000 * bidi.c (bidi_level_of_next_char): clen should be EMACS_NT, not int.
1001 if (ident_length == 6 && memcmp (ident_start, "defalt", 6) == 0)
1002 if (! NILP (XCHAR_TABLE (table)->defalt))
1003 Fcopy_sequence (XCHAR_TABLE (table)->defalt));
1004make_sub_char_table (int depth, int min_char, Lisp_Object defalt)
1005 XSUB_CHAR_TABLE (table)->contents[i] = defalt;
1006 set_char_table_defalt (copy, XCHAR_TABLE (table)->defalt);
1007 val = tbl->defalt;
1008 Lisp_Object defalt, bool is_uniprop, bool is_subtable)
1009 defalt, is_uniprop);
1010 val = defalt;
1011 Lisp_Object defalt, bool is_uniprop)
1012 defalt, is_uniprop, true);
1013 defalt, is_uniprop, true);
1014 tbl->defalt, is_uniprop, false);
1015 tbl->defalt, is_uniprop, false);
1016 val = XCHAR_TABLE (char_table)->defalt;
1017 this = XCHAR_TABLE (top)->defalt;
1018 ? (dp)->defalt \
1019decode_env_path (const char *evarname, const char *defalt, bool empty)
1020 path = ns_relocate (defalt);
1021 path = defalt;
1022 (name, defalt)
1023 if (NILP (defalt))
1024 CHECK_STRING (defalt);
1025 if (CHAR_TABLE_P (vector) && ! NILP (XCHAR_TABLE (vector)->defalt))
1026 (*elt_describer) (XCHAR_TABLE (vector)->defalt, args);
1027 The size counts the defalt, parent, purpose, ascii,
1028 Lisp_Object defalt;
1029 val = tbl->defalt;
1030 counts the ordinary slots and the top, defalt, parent, and purpose
1031verify (offsetof (struct Lisp_Char_Table, defalt) == header_size);
1032 XCHAR_TABLE (table)->defalt = val;
1033 string, and DEFALT is a string, read from DEFALT instead of VAL. */
1034string_to_object (Lisp_Object val, Lisp_Object defalt)
1035 if (STRINGP (defalt))
1036 else if (CONSP (defalt) && STRINGP (XCAR (defalt)))
1037 Lisp_Object defalt)
1038 val = string_to_object (val, CONSP (defalt) ? XCAR (defalt) : defalt);
1039 DEFALT specifies the default value for the sake of history commands.
1040 Lisp_Object histvar, Lisp_Object histpos, Lisp_Object defalt,
1041 specbind (Qminibuffer_default, defalt);
1042 val = read_minibuf_noninteractive (prompt, expflag, defalt);
1043 else if (STRINGP (defalt))
1044 else if (CONSP (defalt) && STRINGP (XCAR (defalt)))
1045 val = string_to_object (val, defalt);
1046 Lisp_Object defalt = Fassq (prop, Vtext_property_default_nonsticky);
1047 if (ignore_previous_character || (CONSP (defalt) && !NILP (XCDR (defalt))))
1048 val = dp->defalt;
1049 Lisp_Object name, defalt;
1050 defalt = current_buffer->directory;
1051 newdir = SDATA (defalt);
1052 val = defalt;
1053 val = XCAR (defalt);
1054 histstring = defalt;
1055 histstring = XCAR (defalt);
1056 EIEIO: Promote the CLOS behavior over the EIEIO-specific behavior
1057 Change the implementation of `:initform` to better match the CLOS semantics,
1058 (CLOS compatibility, Wish List): Adjust to new featureset.
1059@cindex CLOS
1060(@acronym{CLOS}), this support is based on @dfn{generic functions}.
1061The Emacs generic functions closely follow @acronym{CLOS}, including
1062use of similar names, so if you have experience with @acronym{CLOS},
1063 * eieio.texi (Accessing Slots, CLOS compatibility): Adjust wording
1064 (Method Invocation, CLOS compatibility):
1065 * eieio.texi (Class Values, CLOS compatibility):
1066 EIEIO and CLOS from 'Building Classes' to here.
1067 (Class Values, CLOS compatibility): Mention that
1068 * eieio.texi (top): Make clear that EIEIO is not a full CLOS
1069to Emacs Lisp programmers. CLOS and Common Lisp streams are fine
1070a subset of CLOS functionality. @xref{Top, , Introduction, eieio, EIEIO}.)
1071The Common Lisp Object System (CLOS) is not implemented,
1072CLOS functionality.
1073bugs in @ede{}. A knowledge of Emacs Lisp, and some @eieio{}(CLOS) is
1074@ede{} uses @eieio{}, the CLOS package for Emacs, to define two object
1075concepts of the Common Lisp Object System (CLOS). It provides a
1076* CLOS compatibility:: What are the differences?
1077Lisp Object System (CLOS) and also differs from it in several aspects,
1078on the other hand you are already familiar with CLOS, you should be
1079aware that @eieio{} does not implement the full CLOS specification and
1080@pxref{CLOS compatibility}).
1081and methods using inheritance similar to CLOS.
1082Method definitions similar to CLOS.
1083Public and private classifications for slots (extensions to CLOS)
1084Customization support in a class (extension to CLOS)
1085Due to restrictions in the Emacs Lisp language, CLOS cannot be
1086setf. Here are some important CLOS features that @eieio{} presently
1087This CLOS method tag is non-functional.
1088will use the list as a value. This is incompatible with CLOS (which would
1089This option is in the CLOS spec, but is not fully compliant in @eieio{}.
1090This option is specific to Emacs, and is not in the CLOS spec.
1091what CLOS does when a monotonic class structure is defined.
1092Unsupported CLOS option. Enables the use of a different base class other
1093Unsupported CLOS option. Specifies a list of initargs to be used when
1094@xref{CLOS compatibility}, for more details on CLOS tags versus
1095The following accessors are defined by CLOS to reference or modify
1096This is not a CLOS function. It is therefore
1097of CLOS.
1098objects. In CLOS, this would be named @code{STANDARD-CLASS}, and that
1099This function takes arguments in a different order than in CLOS.
1100In @var{clos}, the argument list is (@var{class} @var{object} @var{slot-name}), but
1101@node CLOS compatibility
1102@chapter CLOS compatibility
1103CLOS.
1104CLOS supports the @code{describe} command, but @eieio{} provides
1105@eieio{} is an incomplete implementation of CLOS@. Finding ways to
1106improve the compatibility would help make CLOS style programs run
1107@c LocalWords: cb cdr charquote checkcache cindex CLOS
1108System (CLOS). It is used by the other CEDET packages.
1109CLOS class and slot documentation.
1110 "Convert a list of CLOS class slot PARTLIST to `variable' tags."
1111C++ and CLOS can define methods that are not in the body of a class
1112Some languages such as C++ and CLOS permit the declaration of member
1113the class. C++ and CLOS both permit methods of a class to be defined
1114;; Standard CLOS name.
1115This may prevent classes from CLOS applications from being used with EIEIO
1116since EIEIO does not support all CLOS tags.")
1117 ;; not by CLOS and is mildly inconsistent with the :initform thingy, so
1118 ;; (but not CLOS) but is a bad idea (for one: it's slower).
1119 "Abstractly modify a CLOS object."
1120 "Instance of a CLOS class."
1121;; CLOS, the Common Lisp Object System. In addition, EIEIO also adds
1122The following are extensions on CLOS:
1123Options in CLOS not supported in EIEIO:
1124 ;; test, so we can let typep have the CLOS documented behavior
1125;;; Handy CLOS macros
1126;; CLOS name, maybe?
1127The CLOS function `class-direct-superclasses' is aliased to this function."
1128The CLOS function `class-direct-subclasses' is aliased to this function."
1129;; Official CLOS functions.
1130;;; CLOS queries into classes and slots
1131;; FIXME: CLOS uses "&rest INITARGS" instead.
1132In CLOS, the argument list is (CLASS OBJECT SLOT-NAME), but
1133;;; Unimplemented functions from CLOS
1134 ;; CLOS and EIEIO
1135 ;; this works for SOS, STklos, SCOOPS, Meroon and Tiny CLOS.
1136 ;; EIEIO's :initform is not 100% compatible with CLOS in
1137;; Also test behavior of `call-next-method'. From clos.org:
1138 ;; CLOS form of make-instance
1139 (interactive "p\nd\nd")
1140 (interactive "p\nd")
1141 (let (st nd pt)
1142 (setq nd (match-beginning 0)
1143 pt nd)
1144 (setq nd (match-beginning 0)
1145 (setq nd (match-beginning 0))))
1146 (setq nd (match-beginning 0)))
1147 (or st nd))))
1148 (narrow-to-region (or st (point-min)) (or nd (point-max)))
1149 (when nd
1150 (goto-char nd)
1151 (fortran-blink-match "e\\(nd[ \t]*if\\|lse\\([ \t]*if\\)?\\)\\b"
1152 ;; FIXME: `foo a!nd bar' should transpose into `bar and foo'.
1153 (make-directory nd t)
1154 (speedbar-goto-this-file nd)
1155 (let ((nd (file-name-nondirectory file)))
1156 (concat "] \\(" (regexp-quote nd)
1157:nd=\\E[C:up=\\E[A:ce=\\E[K:ho=\\E[H:pt\
1158(defun url-http-content-length-after-change-function (_st nd _length)
1159 (funcall byte-count-to-string-function (- nd url-http-end-of-headers))
1160 (url-percentage (- nd url-http-end-of-headers)
1161 (funcall byte-count-to-string-function (- nd url-http-end-of-headers))
1162 (url-percentage (- nd url-http-end-of-headers)
1163 (if (> (- nd url-http-end-of-headers) url-http-content-length)
1164(defun url-http-chunked-encoding-after-change-function (st nd length)
1165 url-http-chunked-counter st nd length)
1166 (if (> nd (+ url-http-chunked-start url-http-chunked-length))
1167 nd))
1168(defun url-http-wait-for-headers-change-function (_st nd _length)
1169 (setq nd (- nd (url-http-clean-headers)))))
1170 (when (> nd url-http-end-of-headers)
1171 (marker-position url-http-end-of-headers) nd
1172 (- nd url-http-end-of-headers))))
1173 ((> nd url-http-end-of-headers)
1174 nd
1175 (- nd url-http-end-of-headers)))
1176 Lu, Ll, Lt, Lm, Lo, Mn, Mc, Me, Nd, Nl, No, Pc, Pd, Ps, Pe, Pi, Pf, Po,
1177 const char *cm_right; /* right (nd) */
1178 (should (equal (ert-test-result-messages result) "a\nb\nc\nd\n")))))
1179 (insert "a\nb\nc\nd\n")
1180 (insert "a\nb\nc\nd\n")
1181 (insert "a\nb\nc\nd\n")
1182 (insert "a\nb\nc\nd\n")
1183 (insert "a\nb\nc\nd\n")
1184 (should (string= (buffer-string) "Abc\nd efg\n(h ijk)."))))
1185 (nd (read-directory-name "Create directory: "
1186DESCRIPTION:In this meeting\\, we will cover topics from product and enginee
1187@item @samp{.crate} ---
1188@cindex @file{crate} file archive suffix
1189@cindex file archive suffix @file{crate}
1190;; * ".crate" - Cargo (Rust) packages
1191 "crate" ;; Cargo (Rust) packages. Not in libarchive testsuite.
1192 ;; RFC5546 refers to uninvited attendees as "party crashers".
1193That includes both spelling (e.g., "behavior", not "behaviour") and
1194 * doc/lispref/control.texi (Signalling Errors)
1195 * doc/lispref/control.texi (Signalling Errors)
1196Re "behavior" vs "behaviour", etc.
1197+ [[https://protesilaos.com/codelog/2020-07-08-modus-themes-nuanced-colours/][Modus themes: major review of "nuanced" colours]] (2020-07-08)
1198+ [[https://protesilaos.com/codelog/2020-09-14-modus-themes-review-blues/][Modus themes: review of blue colours]] (2020-09-14)
1199+ [[https://protesilaos.com/codelog/2021-01-11-modus-themes-review-select-faint-colours/][Modus themes: review of select "faint" colours]] (2021-01-11)
1200+ [[https://protesilaos.com/codelog/2022-01-02-review-modus-themes-org-habit-colours/][Modus themes: review of the org-habit graph colours]] (2022-01-02)
1201+ [[https://protesilaos.com/codelog/2022-04-20-modus-themes-case-study-avy/][Modus themes: case study on Avy faces and colour combinations]] (2022-04-20)
1202+ [[https://protesilaos.com/codelog/2022-04-21-modus-themes-colour-theory/][Emacs: colour theory and techniques used in the Modus themes]] (2022-04-21)
1203 * :- initialise
1204 * :- finalise
1205 "initialise", "finalise", "mutable", "module", "interface", "implementation",
1206;;; ( A cancelled ) Ignore this cache entry;
1207 (.DEFAULT): Use $(FLAVOUR) instead of $@ for clarity.
12081998-04-26 Justin Sheehy <justin@linus.mitre.org>
12091997-10-25 David S. Goldberg <dsg@linus.mitre.org>
1210;; Updated by the RIPE Network Coordination Centre.
1211;; Thanks to jond@mitre.org (Jonathan Doughty) for help with code for
1212 (when (and ok tod (not (string-match "\\`DONE\\|CANCELLED" evt)))
1213"all" "analyse" "analyze" "and" "array" "asc" "as" "asymmetric"
1214 \"VHDL Modelling Guidelines\".
1215 {WSAECANCELLED , "Operation cancelled"}, /* not sure */
1216 {WSA_E_CANCELLED , "Operation already cancelled"}, /* really not sure */
1217 2013-09-26 dup2, dup3: work around another cygwin crasher
1218 cc3ad9a ; * CONTRIBUTE: Clarify rules for committing to release branc...
1219Paul Raines (raines at slack.stanford.edu),
1220 \qquad date: b)efore, a)t, n)this,\\*
1221place an (I)nstall flag on the available version and a (D)elete flag
1222 Improved verbiage of prompt. Aliases are now inserted "[b]efore"
1223 or "[a]fter" the existing alias instead of "[i]nsert" or
1224 "[b]efore or [a]fter: ")
1225 (let* ((max (read-char "Number of [e]ntries [t]odos [T]ags [E]ffort? "))
1226 (mark_image): Move from allo.c.
1227Forward propagate immediate involed in assignments." ; FIXME: Typo. Involved or invoked?
1228 (setq te (org-insert-time-stamp (or at-time now) 'with-hm 'inactive))
1229 (org-time-string-to-time te)
1230 (te (org-time-string-to-seconds se))
1231 (dt (- (if tend (min te tend) te)
1232 te (match-string 3))
1233 (setq s (- (org-time-string-to-seconds te)
1234 ("te" :babel-ini-only "telugu" :polyglossia "telugu" :lang-name "Telugu")
12352016-09-10 Toke Høiland-Jørgensen <toke@toke.dk> (tiny change)
1236 Reported by Toke Høiland-Jørgensen <toke@toke.dk>.
12372012-07-17 Toke Høiland-Jørgensen <toke@toke.dk> (tiny change)
12382012-06-17 Toke Høiland-Jørgensen <toke@toke.dk> (tiny change)
1239(doctor-put-meaning toke 'toke)
1240 "\\|" ; per toke.c
1241 const struct sockaddr *to, int tolen);
12422014-11-26 Toke Høiland-Jørgensen <toke@toke.dk> (tiny change)
1243 ptrdiff_t tolen = strlen (key_symbols[i].to);
1244 eassert (tolen <= fromlen);
1245 memcpy (match, key_symbols[i].to, tolen);
1246 memmove (match + tolen, match + fromlen,
1247 len -= fromlen - tolen;
1248 p = match + tolen;
1249 const struct sockaddr * to, int tolen);
1250 const struct sockaddr * to, int tolen)
1251 int rc = pfn_sendto (SOCK_HANDLE (s), buf, len, flags, to, tolen);
1252Put dialogue in buffer."
1253 "Function called by ], the ket. View registers and call ]]."
1254;; Matches a char which is a constituent of a variable or number, or a ket
1255(defun verilog-expand-vector-internal (bra ket)
1256 "Given start brace BRA, and end brace KET, expand one line into many lines."
1257 (regexp-quote ket)
1258 (int-to-string (car vec)) ket sig-tail "\n"))
1259 "Given start brace BRA, and end brace KET, expand one line into many lines."
1260 m | mo | mot | moti | motif ) val=motif ;;
1261 i | in | ino | inot | inoti | inotif | inotify ) val=inotify ;;
12622001-04-23 Kahlil Hodgson <kahlil@discus.anu.edu.au>
1263 (funcall expect 20 "ingenuous")))))
1264 (0.1 ":joe!~u@kd7gmjbnbkn8c.irc PRIVMSG #chan :mike: Mehercle! if their sons be ingenuous, they shall want no instruction; if their daughters be capable, I will put it to them. But, vir sapit qui pauca loquitur. A soul feminine saluteth us."))
1265 (search-forward "return te")
1266 "fn test() -> i32 { let test=3; return te; }"))))
1267 ts te h m s neg)
1268 te (match-string 3))
1269 (setq s (- (org-time-string-to-seconds te)
1270 Rename from whitespace-skipping-for-quotes-not-ouside.
1271 (whitespace-skipping-for-quotes-not-ouside)
1272Thread-Modell: posix
1273Thread-Modell: posix
1274(ert-deftest indent-sexp-cant-go ()
1275(ert-deftest thunk-let-bound-vars-cant-be-set-test ()
1276 (mml-secure-cust-fpr-lookup context 'encrypt "sub@example.org")))
1277 (let ((p-e-fprs (mml-secure-cust-fpr-lookup
1278 (p-s-fprs (mml-secure-cust-fpr-lookup
1279 (let ((p-e-fprs (mml-secure-cust-fpr-lookup
1280 (p-s-fprs (mml-secure-cust-fpr-lookup
1281 (let ((s-e-fprs (mml-secure-cust-fpr-lookup
1282 (s-s-fprs (mml-secure-cust-fpr-lookup
1283(ert-deftest doesnt-time-out ()
1284(ert-deftest json-el-cant-serialize-this ()
1285 (should (equal (try-completion "B-hel" subvtable)
1286 (should (equal (all-completions "B-hel" subvtable) '("-hello")))
1287 (should (equal (completion-boundaries "B-hel" subvtable
1288(ert-deftest ruby-regexp-doesnt-start-in-string ()
1289 Rename from wisent-inaccessable-symbols, fixing a misspelling.
1290 ("calc-math" calcFunc-alog calcFunc-arccos
1291 ( ?B 2 calcFunc-alog )
1292 (change-log-function-face, change-log-acknowledgement-face):
1293 (bs-appearance) <defgroup>: Renamed from bs-appearence.
1294 typo `fortran-strip-sqeuence-nos'.
1295 * progmodes/fortran.el (fortran-strip-sqeuence-nos): Doc fix.
1296 (fortran-strip-sqeuence-nos): Make arg optional. Fix regexp and
12971999-06-01 Jae-youn Chung <jay@compiler.kaist.ac.kr>
1298doc/emacs/docstyle.texi:14: fied ==> field
1299(define-obsolete-variable-alias 'hfy-optimisations 'hfy-optimizations "25.1")
1300(define-obsolete-function-alias 'hfy-colour-vals #'hfy-color-vals "27.1")
1301(define-obsolete-function-alias 'hfy-colour #'hfy-color "27.1")
1302(define-obsolete-variable-alias 'eglot-ignored-server-capabilities
1303 setenv ("TZ", "IST-02IDT-03,M4.1.6/00:00,M9.5.6/01:00", 0);
1304 "kana-TA", "kana-CHI", "kana-TSU", "kana-TE",
1305 (internal--after-with-selected-window): Fix typo seleted->selected.
1306 * subr.el (internal--before-with-seleted-window)
1307 (internal--after-with-seleted-window): New functions.
1308 * follow.el (follow-inactive-menu): Rename from follow-deactive-menu.
1309 * emacs-lisp/cconv.el (cconv-analyse-form): Warn use of ((λ ...) ...).
1310 (feedmail-sendmail-f-doesnt-sell-me-out)
1311 (feedmail-sendmail-f-doesnt-sell-me-out)
1312 Respect feedmail-sendmail-f-doesnt-sell-me-out.
1313 * terminal.el (te-get-char, te-tic-sentinel):
1314from server-external-socket-initialised, since it should be
1315 * lisp/server.el: (server-external-socket-initialised): New
1316 Rename from help-fns--analyse-function.
1317 c-ambiguous-overloadable-or-identifier-prefices. Caller changed.
1318 * lisp/progmodes/cc-langs.el (c-ambiguous-overloadable-or-identifier-prefices)
1319 Rename from nndiary-last-occurence.
1320 Rename from nndiary-next-occurence. All uses changed.
1321 lisp/textmodes/flyspell.el (flyspell-ajust-cursor-point): Rename to
1322 * test/file-organization.org: Rename from test/file-organisation.org.
1323 character class (namely ‘fo’ leaving ‘o’ in the string), but since the
1324 change-log-acknowledgement-face):
1325 9daf1cf * etc/NEWS: Improve wording of vc-git-log-output-coding-syste...
1326 a05fb21 * lisp/emacs-lisp/package.el (package-install-selected-packag...
1327 5cc6919 Fix a caching bug, which led to inordinately slow c-beginnin...
1328 (mml-secure-cust-usage-lookup, mml-secure-cust-fpr-lookup)
1329 * test/file-organisation.org: New file.
1330 ("test/file-organisation.org" . "file-organization.org")
1331 `message-insert-formated-citation-line'.
1332 info.addons = (\"hald-addon-acpi\")
1333 deactive->inactive, inactivate->deactivate spelling fixes (Bug#10150)
1334 (org-detach-overlay): Rename from `org-detatch-overlay'.
1335 (change-log-acknowledgement): Remove "-face" suffix from face names.
1336 (appt-visible): Rename from appt-visable.
1337 (pascal-seperator-keywords): Renamed to pascal-separator-keywords.
1338 mouse-union-first-prefered.
1339 * sc.el (sc-consistent-cite-p): Renamed from sc-consistant-cite-p.
1340 bibtex-name-alignement.
1341 "d-elete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, h-elp"))
1342 (erc-coding-sytem-for-target): Removed.
1343 (erc-coding-sytem-for-target): New.
1344Paul Raines (raines at slac.stanford.edu),
1345 "union" "unsafe" "use" "where" "while" (crate) (self) (super)
1346 term-ansi-face-alredy-done.
1347 (ebnf-syntactic): Change group name and tag from "ebnf-syntatic".
1348 "ebnf-syntatic".
1349 Rename from ucs-input-inactivate.
1350 Rename from hangul-input-method-inactivate.
1351 * terminal.el (te-create-terminfo): Use make-temp-file
1352 (org-detatch-overlay, org-move-overlay, org-overlay-put):
1353 'gnus-score-find-favourite-words
1354 'nndiary-last-occurence
1355 'nndiary-next-occurence
1356(define-obsolete-function-alias 'org-truely-invisible-p
1357(define-obsolete-variable-alias 'eglot-ignored-server-capabilites
1358 ("`fo" . "format" )
1359(define-obsolete-function-alias 'rtree-normalise-range
1360 `org-attch-delete'. Add a security query before deleting the
1361 `org-toggel-region-headings'.
1362 "3 Oktober 2000 16:30 multiline
1363 "September" "Oktober" "November" "Dezember"])
1364 "de la Cognée" "de l'Ellébore" "du Brocoli"
1365 1fe596d89f (origin/emacs-27) Fix another compilation problem in a bui...
1366 "du Buis" "du Lichen" "de l'If"
1367 if (c == BIG) { /* caint get thar from here */
1368 Christoph Groth <cwg@falma.de> and Liu Xin <x_liu@neusoft.com>.
1369 "passord" ; nb
1370 (should (equal (rfc6068-unhexify-string "caf%C3%A9") "café")))
1371 (equal (rfc6068-parse-mailto-url "mailto:user@example.org?subject=caf%C3%A9&body=caf%C3%A9")
1372;; Paul Lew <paullew@cisco.com> suggested implementing fixed width
1373 (TUNG@WAIF.MIT.EDU <8704130324.AA10879@prep.ai.mit.edu>)
1374 (ruby-ts-mode "*.r[bu]" "*.rake" "*.gemspec" "*.erb" "*.haml"
1375(doctor-put-meaning cunt 'sexnoun)
1376(doctor-put-meaning cunts 'sexnoun)
1377(doctor-put-meaning skool 'school)
1378 Add ".crate" to Tramp archive file suffixes.
1379 * lisp/net/tramp-archive.el (tramp-archive-suffixes): Add ".crate".
13802021-11-10 Benj <Benjamin.Schwerdtner@gmail.com> (tiny change)
1381 allow party crashers to respond to ical events
1382 calling those respondents "party crashers".
13832019-12-17 Antoine Kalmbach <ane@iki.fi> (tiny change)
13842014-02-18 Matus Goljer <dota.keys@gmail.com>
13852014-02-13 Matus Goljer <dota.keys@gmail.com>
13862004-05-20 Magnus Henoch <mange@freemail.hu>
13872004-11-14 Magnus Henoch <mange@freemail.hu>
13882006-10-16 Magnus Henoch <mange@freemail.hu>
13892006-11-01 Magnus Henoch <mange@freemail.hu>
13902006-11-08 Magnus Henoch <mange@freemail.hu>
13912006-11-15 Magnus Henoch <mange@freemail.hu>
13922006-11-26 Magnus Henoch <mange@freemail.hu>
13932006-12-08 Magnus Henoch <mange@freemail.hu>
13942007-01-14 Magnus Henoch <mange@freemail.hu>
13952007-10-28 Magnus Henoch <mange@freemail.hu>
13962007-12-03 Magnus Henoch <mange@freemail.hu>
13972008-02-04 Magnus Henoch <mange@freemail.hu>
13982008-03-09 Magnus Henoch <mange@freemail.hu>
13992008-09-30 Magnus Henoch <mange@freemail.hu>
1400 (secnd (cdr (cadr dlist))))
1401 (car secnd))) ; fetch_date
1402 secnd (cdr secnd))
1403 (car secnd))) ; Keep_flag
1404 secnd (cdr secnd))
1405 (car secnd))) ; NOV_entry_position
1406@c LocalWords: DesBrisay Dcc devel dir dired docstring filll forw
1407Older versions of the themes provided options ~grayscale~ (or ~greyscale~)
1408 > The requestor should delete [...] the property specified in the
1409 We are not the requestor, so we should not be deleting this property
1410 needs to remain available as the requestor will generally want to read
1411 [t]ime [s]cheduled [d]eadline [c]reated cloc[k]ing
1412 (message "Sparse tree: [r]egexp [t]odo [T]odo-kwd [m]atch [p]roperty
1413;; -grey Render in greyscale as 8bits/pixel.
1414 -grey Render in greyscale as 8bits/pixel.
1415 (if (looking-at "p\\(ublic\\|rotected\\|rivate\\)")
1416 "\\=p\\(r\\(ivate\\|otected\\)\\|ublic\\)\\>[^_]" nil t)
1417 "\\(p\\(r\\(ivate\\|otected\\)\\|ublic\\)\\|more\\)\\>"
1418 * sysdep.c (WRITABLE): Renamed from WRITEABLE.
1419DEFUN ("cond", Fcond, Scond, 0, UNEVALLED, 0,
1420 defsubr (&Scond);
1421 /* XXX: who is wrong, the requestor or the implementation? */
1422 /* "Data" to send a requestor for a failed MULTIPLE subtarget. */
1423 /* This formula is from a paper titled `Colour metric' by Thiadmer Riemersma.
1424 (0.1 ":mike!~u@286u8jcpis84e.irc PRIVMSG #chan :joe: Good gentleman, go your gait, and let poor volk pass. An chud ha' bin zwaggered out of my life, 'twould not ha' bin zo long as 'tis by a vortnight. Nay, come not near th' old man; keep out, che vor ye, or ise try whether your costard or my ballow be the harder. Chill be plain with you.")
1425 db "create table if not exists test10 (col1 text, col2 blob, col3 numbre)")
1426 (const :format "[%v] %t\n" :tag "Alias for `gray-background'" greyscale)
14272008-09-11 Magnus Henoch <mange@freemail.hu>
1428 <mange@freemail.hu>.
14292006-10-07 Magnus Henoch <mange@freemail.hu>
14302006-09-07 Magnus Henoch <mange@freemail.hu>
1431 Reported by Magnus Henoch <mange@freemail.hu>.
14322005-09-24 Magnus Henoch <mange@freemail.hu>
14332005-09-17 Magnus Henoch <mange@freemail.hu>
14342005-09-10 Magnus Henoch <mange@freemail.hu>
14352005-08-09 Magnus Henoch <mange@freemail.hu>
14362008-10-16 Magnus Henoch <mange@freemail.hu>
14372008-10-01 Magnus Henoch <mange@freemail.hu>
14382008-07-02 Magnus Henoch <mange@freemail.hu>
14392008-04-23 Magnus Henoch <mange@freemail.hu>
14402008-03-28 Magnus Henoch <mange@freemail.hu>
1441 * bibtex.el (bibtex-entry): Add OPTkey/annote. If OPTcrossref set
1442;; :booktitle :month :annote :abstract
1443 (:annote . "An annotation. It is not used by the standard bibliography styles, but may be used by others that produce an annotated bibliography.")
1444 :annote (or (cdr (assoc "annote" entry)) "[no annotation]")
1445 '(("annote" "Personal annotation (ignored)"))
1446 (r2b-put-field "annote" r2bv-annote)
14472006-10-29 Magnus Henoch <mange@freemail.hu>
14482006-10-28 Magnus Henoch <mange@freemail.hu>
14492006-10-27 Magnus Henoch <mange@freemail.hu>
14502006-10-12 Magnus Henoch <mange@freemail.hu>
14512006-10-11 Magnus Henoch <mange@freemail.hu>
14522006-10-09 Magnus Henoch <mange@freemail.hu>
14532008-10-16 Magnus Henoch <mange@freemail.hu>
14542007-12-31 Magnus Henoch <mange@freemail.hu>
14552007-12-05 Magnus Henoch <mange@freemail.hu>
1456 (ENUMABLE): Remove; no longer needed.
1457 * lisp.h (ENUMABLE) [!_AIX]: Don't define to 0 merely because we're
1458 * lisp.h (ENUMABLE, DEFINE_GDB_SYMBOL_ENUM): New macros.
1459 * lisp.h (ENUMABLE, DEFINE_GDB_SYMBOL_ENUM): Delete macros.
1460 * lisp.h (ENUMABLE, DEFINE_GDB_SYMBOL_ENUM): New macros.
14612023-06-29 Andrew G Cohen <cohen@andy.bu.edu>
14622023-05-07 Andrew G Cohen <cohen@andy.bu.edu>
1463 C-x b fo
1464 avoid failures due to MS-Windows "numeric tails" (mis)feature and
14652022-04-07 Andrew G Cohen <cohen@andy.bu.edu>
14662022-04-03 Andrew G Cohen <cohen@andy.bu.edu>
14672022-03-22 Andrew G Cohen <cohen@andy.bu.edu>
14682022-03-20 Andrew G Cohen <cohen@andy.bu.edu>
14692022-03-17 Andrew G Cohen <cohen@andy.bu.edu>
14702022-03-17 Andrew G Cohen <cohen@andy.bu.edu>
14712022-03-04 Andrew G Cohen <cohen@andy.bu.edu>
14722022-02-18 Andrew G Cohen <cohen@andy.bu.edu>
14732022-02-18 Andrew G Cohen <cohen@andy.bu.edu>
14742022-02-11 Andrew G Cohen <cohen@andy.bu.edu>
14752022-02-08 Andrew G Cohen <cohen@andy.bu.edu>
14762022-02-03 Andrew G Cohen <cohen@andy.bu.edu>
14772021-12-21 Andrew G Cohen <cohen@andy.bu.edu>
14782021-12-18 Andrew G Cohen <cohen@andy.bu.edu>
1479 6d5886e780 * test/lisp/repeat-tests.el (repeat-tests-call-b): Test fo...
1480 0771d8939a * etc/PROBLEMS: Mention problems with regexp matcher. (Bu...
1481 59df93e2dd * lisp/help.el (help--analyze-key): Add new arg BUFFER (bu...
1482 3832b983cf In Fdelete_other_windows_internal fix new total window siz...
1483 3a9d5f04fb Mention ffap-file-name-with-spaces in the ffap doc strin
1484 Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*)
1485 # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE.
1486@item Unform
1487J. Otto Tennant,
1488extern struct servent *hes_getservbyname (/* char *, char * */);
1489 struct servent *servent;
1490 servent = hes_getservbyname (service, "tcp");
1491 if (servent)
1492 servent = getservbyname (service, "tcp");
1493 if (servent)
1494 struct servent *srv = getservbyname (service, protocol);
14952003-04-10 Sebastian Tennant <seb@albert.vcisp.net> (tiny change)
1496 Reported by Sebastian Tennant <sebyte@smolny.plus.com>.
1497 causing truncation of AUTOWIRE signals. Reported by Bruce Tennant.
1498 Tennant.
14991997-10-21 Jens Lautenbacher <jens@metrix.de>
1500 unform Use unformatted display: add(a, mul(b,c)).
1501 (memq calc-language '(nil flat unform))
1502 (memq calc-language '(nil flat unform)))
1503 '(flat big unform))))
1504;; Sebastian Tennant <sebyte@smolny.plus.com>
1505 (message "Mark as unread: (n)one / (a)ll / all (d)ownloaded articles? (n) ")
1506 (wheight (window-height))
1507 (rest (- wheight pheight)))
1508 (vai #xA500)
1509 (vai\ . vai)
1510 ts te h m s neg)
1511 te (match-string 3))
1512 (setq s (- (org-time-string-to-seconds te)
1513(defun dun-listify-string (strin)
1514 (while (setq end-pos (string-match "[ ,:;]" (substring strin pos)))
1515 (substring strin pos end-pos))))))
1516(defun dun-listify-string2 (strin)
1517 (while (setq end-pos (string-search " " (substring strin pos)))
1518 (substring strin pos end-pos))))))
1519"any" "append" "as" "asc" "ascic" "async" "at_begin" "at_end" "audit"
1520 "attribute" "(d)eclaration or (s)pecification?" t) ?s)
1521 "quantity" "(f)ree, (b)ranch, or (s)ource quantity?" t)))
1522 "Spacify table frame.
1523 ("\\oint" . ?∮)
1524struct servent * sys_getservbyname (const char * name, const char * proto);
1525 Supplement, Latin Extended-A/B, Vai, Supplemental Punctuation, Tai
1526 Remove the "mis;tak-+;;" line from the code; apparently this
1527 it->dpvec_char_len if dpend reached.
1528 3:000MSTRIN[0]STRIN[1]STRIN[2]
1529 [2:000MSTRIN[0]STRIN[1]STRIN[2]]
1530 Lisp_Object *dpvec, *dpend;
1531 struct servent *svc_info
1532struct servent * (PASCAL *pfn_getservbyname) (const char * name, const char * proto);
1533struct servent *
1534 struct servent * serv;
1535 struct servent *srv = sys_getservbyname (service, protocol);
1536 /* Reset bits 4 (Phonetic), 12 (Vai), 14 (Nko), 27 (Balinese). */
1537 DEFSYM (Qvai, "vai");
1538 it->dpend = v->contents + v->header.size;
1539 it->dpend = default_invis_vector + 3;
1540 it->dpend = v->contents + v->header.size;
1541 it->dpend = it->dpvec + ctl_len;
1542 if (it->dpvec + it->current.dpvec_index >= it->dpend)
1543 if (it->dpend - it->dpvec > 0 /* empty dpvec[] is invalid */
1544 if (it->current.dpvec_index < it->dpend - it->dpvec - 1)
1545 && it->dpvec + it->current.dpvec_index + 1 >= it->dpend)))
1546 && it->dpvec + it->current.dpvec_index != it->dpend);
1547VERY VERY LONG STRIN | VERY VERY LONG STRIN
1548 (ert-info ("Joined by bouncer to #foo, pal persent")
1549 (ert-info ("Joined by bouncer to #chan@foonet, pal persent")
1550 (ert-info ("Joined by bouncer to #chan@barnet, pal persent")
diff --git a/admin/codespell/codespell.ignore b/admin/codespell/codespell.ignore
new file mode 100644
index 00000000000..34de02e969b
--- /dev/null
+++ b/admin/codespell/codespell.ignore
@@ -0,0 +1,41 @@
1acknowledgements
2afile
3ake
4analogue
5ans
6bloc
7blocs
8callint
9clen
10crossreference
11crossreferences
12debbugs
13dedented
14dependant
15doas
16ede
17grey
18gud
19ifset
20inout
21keypair
22keyserver
23keyservers
24lightening
25mapp
26master
27mimicks
28mitre
29msdos
30ot
31parm
32parms
33reenable
34reenabled
35requestor
36sie
37spawnve
38statics
39stdio
40texline
41typdef
diff --git a/admin/codespell/codespell.rc b/admin/codespell/codespell.rc
new file mode 100644
index 00000000000..9ef5f40369c
--- /dev/null
+++ b/admin/codespell/codespell.rc
@@ -0,0 +1,4 @@
1[codespell]
2skip=.git/*,*.elc,*.eln,*.gpg,*.gz,*.icns,*.jpg,*.kbx,*.key,*.pbm,*.png,*.rnc,*.so,*.tiff,*.tit,*.xml,*.xpm,*.zip,*random_seed
3builtin=clear,rare,en-GB_to_en-US
4quiet-level=35
diff --git a/admin/run-codespell b/admin/run-codespell
new file mode 100755
index 00000000000..384fb528295
--- /dev/null
+++ b/admin/run-codespell
@@ -0,0 +1,68 @@
1#!/bin/bash
2### run-codespell - run codespell on Emacs
3
4## Copyright (C) 2023 Free Software Foundation, Inc.
5
6## Author: Stefan Kangas <stefankangas@gmail.com>
7
8## This file is part of GNU Emacs.
9
10## GNU Emacs is free software: you can redistribute it and/or modify
11## it under the terms of the GNU General Public License as published by
12## the Free Software Foundation, either version 3 of the License, or
13## (at your option) any later version.
14
15## GNU Emacs is distributed in the hope that it will be useful,
16## but WITHOUT ANY WARRANTY; without even the implied warranty of
17## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18## GNU General Public License for more details.
19
20## You should have received a copy of the GNU General Public License
21## along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
22
23### Commentary:
24
25## Run codespell on the Emacs source tree.
26##
27## codespell 2.2.2 or later is recommended. Earlier versions had a
28## bug where the line count was incorrect for files containing "^L"
29## characters.
30
31source "${0%/*}/emacs-shell-lib"
32
33CODESPELL_DIR="${PD}/codespell"
34
35CODESPELL_RC="${CODESPELL_DIR}/codespell.rc"
36CODESPELL_EXCLUDE="${CODESPELL_DIR}/codespell.exclude"
37CODESPELL_IGNORE="${CODESPELL_DIR}/codespell.ignore"
38CODESPELL_DICTIONARY="${CODESPELL_DIR}/codespell.dictionary"
39
40emacs_run_codespell ()
41{
42 git ls-files |\
43 grep -v -E -e '^(lib|m4)/.*' |\
44 grep -v -E -e '^admin/(charsets|codespell|unidata)/.*' |\
45 grep -v -E -e '^doc/misc/texinfo.tex$' |\
46 grep -v -E -e '^etc/(AUTHORS|HELLO|publicsuffix.txt)$' |\
47 grep -v -E -e '^etc/refcards/(cs|de|fr|pl|pt|sk)-.+.tex$' |\
48 grep -v -E -e '^etc/tutorials/TUTORIAL\..+' |\
49 grep -v -E -e '^leim/(MISC|SKK)-DIC/.*' |\
50 grep -v -E -e '^lisp/language/ethio-util.el' |\
51 grep -v -E -e '^lisp/ldefs-boot.el' |\
52 grep -v -E -e '^lisp/leim/.*' |\
53 grep -v -E -e '^test/lisp/net/puny-resources/IdnaTestV2.txt' |\
54 grep -v -E -e '^test/manual/(etags|indent)/.*' |\
55 grep -v -E -e '^test/src/regex-resources/.*' |\
56 xargs codespell \
57 --config "$CODESPELL_RC" \
58 --exclude-file "$CODESPELL_EXCLUDE" \
59 --ignore-words "$CODESPELL_IGNORE" \
60 --disable-colors \
61 --write-changes \
62 $@
63}
64
65emacs_run_codespell
66emacs_run_codespell --dictionary "$CODESPELL_DICTIONARY"
67
68exit 0
generated by cgit v1.2.1 (git 2.18.0) at 2026-01-12 03:58:27 +0000