-
Notifications
You must be signed in to change notification settings - Fork 2
/
eliemacs.elc
1260 lines (1086 loc) · 190 KB
/
eliemacs.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
;ELC
;;; Compiled
;;; in Emacs version 28.1.50
;;; with all optimizations.
(defconst eli-version "[2022-05-30]")
#@42 The full path of the EliEmacs directory.
(defvar eli-dir (byte-code "\303\304\206 \206 \n!!\207" [load-file-name buffer-file-name default-directory expand-file-name file-name-directory] 3) (#$ . 125))
(add-to-list 'load-path eli-dir)
(defvar eli-include-dir (concat eli-dir "include/"))
#@13
(fn FILE)
(defalias 'load/include '(macro . #[257 "\301Q\302!\203, \303\304\305\"r\211q\210\306\307\"\216\310c\210\311!\210db\210\312c\210eb\210\313p!*\207\314D\207" [eli-include-dir ".el" file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "(progn\n" insert-file-contents ")" read load] 6 (#$ . 422)]))
#@47 *Default color style to use: 'dark or 'light.
(defvar eli-color-style 'dark (#$ . -816))
#@139 *Default size for EliEmacs - a list of two numbers.
Setting this to nil leaves either the default, or stuff from
`window-configurations'.
(defvar eli-size nil (#$ . -912))
#@115 *Default font for EliEmacs.
Setting this to nil leaves either the default, or stuff from
`window-configurations'.
(defvar eli-font nil (#$ . -1091))
#@37 *If non-nil, use a blinking cursor.
(defvar eli-blink-cursor nil (#$ . -1246))
#@102 *Default position of EliEmacs (nil for default).
Note that this does not include window decorations.
(defvar eli-window-pos nil (#$ . -1332))
#@45 *Specifies whether EliEmacs uses a menubar.
(defvar eli-use-menubar (byte-code "\205 \301\207" [window-system t] 1) (#$ . -1480))
#@45 *Specifies whether EliEmacs uses a toolbar.
(defvar eli-use-toolbar nil (#$ . -1618))
#@139 *Specifies whether EliEmacs uses a scrollbar and on what side.
Value should be 'left, 'right, t for default side or nil for no scrollbar.
(defvar eli-use-scrollbar 'left (#$ . -1711))
#@45 *Specifies wether EliEmacs uses a modeline.
(defvar eli-use-modeline t (#$ . -1901))
#@323 *Some visual indications for files.
This variable control some visual indicators - for files (you can set the
default values to get them everywhere).
Set this variable to a list containing 'trailing-whitespaces, or
'cursor-stretch to stretch the cursor over underlying character (eg, tabs).
Set it to t to get everything.
(defvar eli-text-indications t (#$ . -1993))
#@441 *The way that backups are created in EliEmacs.
Possible values are:
t - normal backups
nil - no backups
STR - where STR names a directory, save backups there. STR must end with
a slash, and if no such directory or file exists, it will be created.
Autosave files will be placed in that directory too.
safe - normal backups, with multiple versions, ignore `eli-max-backup-size'
etc - lots of backups.
(defvar eli-backup-method "~/.backups/" (#$ . -2367))
#@90 *The maximum file-size that will get backed up.
If t always backup, if nil never backup.
(defvar eli-max-backup-size 2097152 (#$ . -2867))
#@121 *The maximum file-size that will get autosaved.
If t always autosave, if nil never (like turning off `auto-save-mode').
(defvar eli-max-autosave-size 10485760 (#$ . -3013))
#@257 *If this is non-nil, redefine `ask-user-about-supersession-threat' so trying
to edit a buffer will automatically revert it.
Set before loading the environment. Also, will automatically get set if
`eli-backup-method' is 'safe and no value given to it yet.
(defvar eli-auto-revert-on-change (byte-code "\301=?\207" [eli-backup-method safe] 2) (#$ . -3193))
#@65 Ignore errors in BODY, but beep if there were.
(fn &rest BODY)
(defalias 'ignore-errors-beep '(macro . #[128 "\300\301\302B\303BBB\207" [condition-case nil progn ((error (beep)))] 5 (#$ . 3556)]))
#@74 Returns the list of values from LIST that PRED verifies.
(fn PRED LIST)
(defalias 'filter #[514 "\300\203 @!\203 @B\262A\262\202 \211\237\207" [nil] 5 (#$ . 3761)])
#@108 Finds the first element that satisfies PRED in LIST, or DEFAULT if none.
(fn PRED LIST &optional DEFAULT)
(defalias 'findif #[770 "\3002 \211\203 \211@!\203 \301\300\"\210A\266\202\202 \210\2110\207" [done throw] 8 (#$ . 3945)])
(defalias 'list* 'cl-list*)
#@76 Replace FROM to TO in the current buffer (for use in elisp).
(fn FROM TO)
(defalias 'eli-replace #[514 "\212\300 \301\302\"\216eb\210\303\304\305#\205 \306\304\305#\210\202 )\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] search-forward nil t replace-match] 7 (#$ . 4218)])
#@76 Replace FROM to TO in the current buffer (for use in elisp).
(fn FROM TO)
(defalias 'eli-replace-regexp #[514 "\212\300 \301\302\"\216eb\210\303\304\305#\205 \306\304\211#\210\202 )\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward nil t replace-match] 7 (#$ . 4551)])
#@187 Same as `message', but a first argument specifies how much time to sit after
the message. If it is negative, sit for that time and then hide the message.
(fn &optional SIT &rest ARGS)
(defalias 'message-sit #[384 "\204\n \300\262\202 ;\203 B\262\300\262\301\302\"\210\303\304!!\210\305W\205+ \302\306!\207" [-1 apply message sit-for abs 0 nil] 5 (#$ . 4895)])
#@339 Like `read-key-sequence-vector', but arranges for the cursor to be in the
echo area, does the usual thing for C-g, and possibly returns nil if you use
the same key as for `this-command'.
If `not-this-command' is non-nil, return nil when the key read is the one used
to invoke the current command.
(fn PROMPT &optional NOT-THIS-COMMAND)
(defalias 'eli-get-key #[513 "\302\303\304\302#\305!\306\304!\210\203 \211 =\203 \304\202( \211\307=\203' \307 \202( )\207" [cursor-in-echo-area this-command t read-key-sequence-vector nil key-binding message keyboard-quit] 6 (#$ . 5276)])
#@486 Define many keys.
The KEYS/FUNCS-OR-MAPS arguments are a list of:
- (KEY FUNC) - bind KEY to function FUNC
- (FUNC1 FUNC2) - replace FUNC1 globally-bound keys with FUNC2 in the map
- (FUNC1 FUNC2 t) - same but replace locally bound FUNC1 keys
- keymap - use this keymap from now on.
- keymap-symbol - a symbol that should evaluate to a keymap, 'global or
'local (error if the symbol's value is not a keymap).
- nil - silently ignored.
(fn &rest KEYS/FUNCS-OR-MAPS)
(defalias 'define-keys #[128 "\300 \301\205\251 @\262A\262\211\203 \302!\203 \211\262\202 \2119\203[ \211\303=\203/ \300 \202G \211\304=\203: \305 \202G \306!\203F \307!\202G \301\262\203 \302!\204 \310\311\"\210\202 \203 \211<\203\213 \211@9\203\213 \312@!\203\213 \313@A@\3148\315=\203\204 \202\206 \300 $\210\202 \211<\203 \316\317@;\203\243 \320@!AB\202\244 #\210\202 \207" [current-global-map nil keymapp global local current-local-map boundp eval error "%S did not evaluate to a keymap" commandp substitute-key-definition 2 t apply define-key kbd] 9 (#$ . 5868)])
(byte-code "\302\303\304\"\210\302\303\305\"\210\302\303\306\"\210\307=\2040 \310\311\312!!\311\312!\232\2040 \313\314\315\310\311\312!!P\311\312!B\"\210\307=\203J \316\317 \"\203D \320\321!\210\202J \322\323\324 #\302\207" [system-type abbreviated-home-dir add-hook comint-output-filter-functions comint-watch-for-password-prompt comint-postoutput-scroll-to-bottom ansi-color-process-output windows-nt file-truename getenv "HOME" add-to-list directory-abbrev-alist "^" string-match "\\[" warn "looks like `abbreviated-home-dir' has a range, not hacking it" replace-regexp-in-string "/" "[/\\\\]"] 6)
#@61 Alist of local user -- homedir mapping. t = uninitialized.
(defvar eli-user-homedirs (byte-code "\300\301!\205N r\302\303!q\210\304\301\305\211\211\306%\210eb\210\305m\2049 \307\310!\2032 \311\312!\313\311\314!!\311\315!EB\262\316\314!\210\202 \317p!\210\320\321\"\322\323\"\324\325\"\266\202\262)\207" [file-readable-p "/etc/passwd" generate-new-buffer " passwd" insert-file-contents nil t looking-at "[+-]?\\([^:@\n+]+\\):[^:\n]*:\\([^:\n]*\\):[^:\n]*:[^:\n]*:\\([^\n:]+\\):" match-string 1 string-to-number 2 3 beginning-of-line kill-buffer filter #[257 "\211AA@\300\235\206 \211A@\301W?\207" [("/" "/nonexistent") 800] 3 "\n\n(fn X)"] sort #[514 "@@\231\207" #1=[] 4 "\n\n(fn X Y)"] mapcar #[257 "\211@AA@B\207" #1# 3 "\n\n(fn X)"]] 6) (#$ . 7568))
(byte-code "\302\303\304\"\305\"\211\2031 \211@\211A\306\232\204* @\232\204* \307\310\311A\312Q\313@\306QB\"\210A\266\202\202 \210\314\315\316\"\207" [eli-user-homedirs user-login-name sort append nil #[514 "AA\231\207" [] 4 "\n\n(fn X Y)"] "/" add-to-list directory-abbrev-alist "\\`" "\\(/\\|\\'\\)" "~" add-hook dired-mode-hook #[0 "\300 \207" [hl-line-mode] 1]] 8)
(defvar in-display-buffer-pop-to nil)
#@18
(fn BUF ALIST)
(defalias 'display-buffer-pop-to #[514 "?\205% \302\303!\210p\304!=\205$ rq\210\301\236\211\203! \211A\210)\302)\207" [in-display-buffer-pop-to truncate-lines t pop-to-buffer get-buffer] 5 (#$ . 8755)])
(byte-code "\306\307\310\"\210\306\307\311\"\210\306\307\312\"\210\306\307\313\"\210\314\315\316\"\210\317\320!\210\321\322!\203' \322\323!\210\324\325!\210\326\327\330\"\210\326\331\332\"\210\326\333\330\"\210\326\334\335\"\210\326\336\335\"\210\326\337\335\"\210\326\340\341\"\210\326\342\330\"\210\326\343\330\"\210\326\344\330\"\210\326\345\330\"\210\326\346\330\"\210\326\347\335\"\210\326\350\330\"\210\326\351\323\"\210\326\352\353\"\210\326\354\335\"\210\326\355\330\"\210\326\356\335\"\210\326\357\335\"\210\326\360\335\"\210\326\361\330\"\210\326\362\363\"\210\326\364\365\"\210\326\366\335\"\210\326\367\370\"\210\326\371\335\"\210\326\372\335\"\210\326\373\330\"\210\326\374\335\"\210\326\375\376\"\210\326\377\330\"\210\326\201H \335\"\210\326\201I \330\"\210\326\201J \335\"\210\326\201K \330\"\210\326\201L \330\"\210\326\201M \330\"\210\326\201N \330\"\210\326\201O \330\"\210\326\201P \335\"\210\326\201Q \201R \"\210\326\201S \201T \"\210\326\201U \330\"\210\326\201V \201W \"\210\326\201X \330\"\210\326\201Y \201Z \"\210\326\201[ \201\\ \"\210\326\201] \330\"\210\326\201^ \201_ \"\210\326\201` \201_ \"\210\326\201a \330\"\210\326\201b \330\"\210\326\201c \330\"\210\326\201d \330\"\210\326\201e \335\"\210\326\201f \201g \"\210\326\201h \330\"\210\326\201i \201j \"\210\326\201k \201l \"\210\326\201m \201n \"\210\326\201o \330\"\210\326\201p \330\"\210\326\201q \330\"\210\326\201r \330\"\210\326\201s \330\"\210\326\201t \330\"\210\326\201u \201v \"\210\326\201w \201x \"\210\326\201y \201z \"\210\326\201{ \335\"\210\326\201| \330\"\210\326\201} \201~ \"\210\326\201 \330\"\210\326\201\200 \201\201 \"\210\326\201\202 \201x \"\210\326\201\203 \201\204 \"\210\326\201\205 \201\206 \"\210\326\201\207 \330\"\210\326\201\210 \330\"\210\326\201\211 \201x \"\210\326\201\212 \330\"\210\326\201\213 \330\"\210\326\201\214 \201\215 \"\210\326\201\216 \201\201 \"\210\326\201\217 \201\220 \"\210\326\201\221 \201\222 \"\210\326\201\223 \201n \"\210\326\201\224 \335\"\210\326\201\225 \330\"\210\326\201\226 \330\"\210\326\201\227 \330\"\210\326\201\230 \201R \"\210\326\201\231 \201\232 \"\210\326\201\233 \201\234 \"\210\326\201\235 \330\"\210\326\201\236 \330\"\210\326\201\237 \330\"\210\326\201\240 \201\220 \"\210\326\201\241 \335\"\210\326\201\242 \330\"\210\326\201\243 \335\"\210\326\201\244 \335\"\210\326\201\245 \330\"\210\326\201\246 \335\"\210\326\201\247 \330\"\210\326\201\250 \330\"\210\326\201\251 \330\"\210\326\201\252 \330\"\210\326\201\253 \335\"\210\326\201\254 \330\"\210\326\201\255 \201\256 \"\210\326\201\257 \330\"\210\326\201\260 \201\261 \"\210\326\201\262 \201\263 \"\210\326\201\264 \201\265 \"\210\326\201\266 \201\267 \"\210\326\201\270 \330\"\210\326\201\271 \201\272 \"\210\326\201\273 \201\274 \"\210\326\201\275 \330\"\210\326\201\276 \201\277 \"\210\326\201\300 \330\"\210\326\201\301 \201T \"\210\326\201\302 \330\"\210\326\201\303 \335\"\210\326\201\304 \201\305 \"\210\326\201\306 \330\"\210\326\201\307 \330\"\210\326\201\310 \335\"\210\326\201\311 \335\"\210\326\201\312 \330\"\210\326\201\313 \330\"\210\326\201\314 \201\315 \"\210\326\201\316 \201\317 \"\210\326\201\320 \201\321 \"\210\326\201\322 \330\"\210\326\201\323 \335\"\210\326\201\324 \201l \"\210\326\201\325 \330\"\210\326\201\326 \201\327 \"\210\326\201\330 \201\331 \"\210\326\201\332 \201\333 \"\210\326\201\334 \201\335 \"\210\326\201\336 \335\"\210\326\201\337 \330\"\210\326\201\340 \330\"\210\326\201\341 \335\"\210\326\201\342 \335\"\210\326\201\343 \330\"\210\326\201\344 \330\"\210\326\201\345 \201\346 \"\210\326\201\347 \335\"\210\326\201\350 \201\351 \"\210\326\201\352 \335\"\210\326\201\353 \335\"\210\326\201\354 \335\"\210\326\201\355 \335\"\210\326\201\356 \330\"\210\326\201\357 \335\"\210\326\201\360 \330\"\210\326\201\361 \330\"\210\326\201\362 \201\363 \"\210\326\201\364 \335\"\210\326\201\365 \335\"\210\326\201\366 \330\"\210\326\201\367 \330\"\210\326\201\370 \330\"\210\326\201\371 \201\372 \"\210\326\201\373 \201\374 \"\210\326\201\375 \201\376 \"\210\326\201\377 \335\"\210\326\201 \330\"\210\326\201\201\"\210\326\201\330\"\210\326\201\330\"\210\326\201\330\"\210\326\201\335\"\210\326\201\335\"\210\326\201\330\"\210\326\201 \330\"\210\326\201\330\"\210\326\201\n\330\"\210\326\201 \335\"\210\326\201\f\335\"\210\326\201\330\"\210\326\201\335\"\210\326\201\335\"\210\326\201\201x \"\210\326\201\201\"\210\326\201\201\"\210\326\201\201\"\210\326\201\201=?\"\210\326\201\330\"\210\326\201\335\"\210\326\201\330\"\210\326\201 \330\"\210\326\201 \330\"\210\326\201 \201 \"\210\326\201 \201\220 \"\210\326\201!\330\"\210\326\201\"\330\"\210\326\201#\335\"\210\326\201$\201x \"\210\326\201%\335\"\210\326\201&\330\"\210\326\201'\335\"\210\326\201(\335\"\210\326\201)\330\"\210\326\201*\330\"\210\326\201+\330\"\210\326\201,\335\"\210\326\201-\335\"\210\326\201.\335\"\210\326\201/\201\220 \"\210\326\2010\335\"\210\326\2011\201\351 \"\210\326\2012\335\"\210\326\2013\330\"\210\326\2014\2015\"\210\326\2016\335\"\210\326\2017\2018\"\210\326\2019\201\222 \"\210\326\201:\201n \"\210\326\201;\330\"\210\326\201<\330\"\210\326\201=\201>\"\210\326\201?\330\"\210\326\201@\335\"\210\326\201A\201B\"\210\326\201C\323\"\210\326\201D\323\"\210\326\201E\201l \"\210\326\201F\201l \"\210\326\201G\201l \"\210\326\201H\201l \"\210\326\201I\201l \"\210\326\201J\323\"\210\326\201K\323\"\210\326\201L\323\"\210\326\201M\335\"\210\326\201N\323\"\210\326\201O\201_ \"\210\326\201P\330\"\210\326\201Q\330\"\210\326\201R\323\"\210\326\201S\323\"\210\326\201T\323\"\210\326\201U\330\"\210\326\201V\330\"\210\326\201W\201X\"\210\326\201Y\201Z\"\210\326\201[\330\"\210\326\201\\\335\"\210\326\201]\330\"\210\326\201^\335\"\210\326\201_\330\"\210\326\201`\330\"\210\326\201a\201b\"\210\326\201c\201d\"\210\326\201e\201f\"\210\326\201g\201h\"\210\326\201i\330\"\210\326\201j\335\"\210\326\201k\335\"\210\326\201l\335\"\210\326\201m\335\"\210\326\201n\201o\"\210\326\201p\335\"\210\326\201q\330\"\210\326\201r\330\"\210\326\201s\335\"\210\326\201t\201u\"\210\326\201v\335\"\210\326\201w\201x\"\210\326\201y\201\"\210\326\201z\335\"\210\326\201{\335\"\210\326\201|\201}\"\210\326\201~\201\"\210\326\201\200\330\"\210\326\201\201\201\202\"\210\326\201\203\335\"\210\326\201\204\201\205\"\210\326\201\206\330\"\210\326\201\207\330\"\210\326\201\210\201\211\"\210\326\201\212\335\"\210\326\201\213\330\"\210\326\201\214\201x \"\210\326\201\215\335\"\210\326\201\216\201\217\"\210\326\201\220\330\"\210\326\201\221\330\"\210\326\201\222\330\"\210\326\201\223\335\"\210\326\201\224\330\"\210\326\201\225\335\"\210\326\201\226\330\"\210\326\201\227\201\230 \"\210\326\201\231\330\"\210\326\201\232\201u\"\210\326\201\233\335\"\210\326\201\234\201\235\"\210\326\201\236\330\"\210\326\201\237\323\"\210\326\201\240\330\"\210\326\201\241\363\"\210\326\201\242\330\"\210\326\201\243\201T \"\210\326\201\244\335\"\210\326\201\245\330\"\210\326\201\246\330\"\210\326\201\247\335\"\210\326\201\250\335\"\210\326\201\251\330\"\210\326\201\252\335\"\210\326\201\253\201\204 \"\210\326\201\254\201\255\"\210\326\201\256\201\217\"\210\326\201\257\335\"\210\326\201\260\335\"\210\326\201\261\330\"\210\326\201\262\201\263\"\210\326\201\264\330\"\210\326\201\265\201x \"\210\326\201\266\201\267\"\210\326\201\270\201\271\"\210\326\201\272\201\204 \"\210\326\201\273\201\204 \"\210\326\201\274\201\204 \"\210\326\201\275\201\276\"\210\326\201\277\330\"\210\326\201\300\330\"\210\326\201\301\330\"\210\326\201\302\330\"\210\326\201\303\201\304\"\210\326\201\305\323\"\210\326\201\306\201\307\"\210\326\201\310\330\"\210\326\201\311\335\"\210\326\201\312\335\"\210\326\201\313\330\"\210\326\201\314\335\"\210\326\201\315\201\316\"\210\326\201\317\330\"\210\326\201\320\201\321\"\210\326\201\322\201\321\"\210\326\201\323\323\"\210\326\201\324\201\325\"\210\326\201\326\330\"\210\326\201\327\201x \"\210\326\201\330\201\331\"\210\326\201\332\201l \"\210\326\201\333\323\"\210\326\201\334\201\307\"\210\326\201\335\330\"\210\326\201\336\335\"\210\326\201\337\330\"\210\326\201\340\330\"\210\326\201\341\330\"\210\326\201\342\335\"\210\326\201\343\335\"\210\326\201\344\335\"\210\326\201\345\201\346\"\210\326\201\347\201\350\"\210\326\201\351\330\"\210\326\201\352\201\353\"\210\326\201\354\330\"\210\326\201\355\330\"\210\326\201\356\330\"\210\326\201\357\330\"\210\326\201\360\330\"\210\326\201\361\335\"\210\326\201\362\330\"\210\326\201\363\201j \"\210\326\201\364\330\"\210\326\201\365\335\"\210 \201\366\231\203K \326\201\367\330\"\210\202R \326\201\370\335\"\210\306\201\371\201\372\"\210\201\373\201\374\201\375\335#\210\201\373\201\376\201\375\335#\210\201\373\201\377\201\375\335#\210\201\373\201 \201\375\335#\210\314\201\201\"\210\201\201\201\"\210\n\204\251 \302\201x !\210\201\373\201\201\216\201\331#\210\201\373\201\227\201\330#\210\201\201\201 \"\210 \204\330 \303\201x !\210\201=\203v\f\326\201\n\330\"\210\326\201 \201\f\"\210\326\201\201\f\"\210\326\201\201\f\"\210\326\201\335\"\210\326\201\330\"\210\326\201\330\"\210\326\201\330\"\210\326\201\335\"\210\326\201\330\"\210\326\201\330\"\210\326\201\335\"\210\326\201\330\"\210\326\201\201\"\210\326\201\330\"\210\326\201\330\"\210\326\201 \335\"\210\326\201 \330\"\210\326\201 \330\"\210\326\201 \201 \"\210\201\373\201h\201!\201x #\210\201\373\201\"\201!\201x #\210\201\373\201#\201!\201l #\210\201\373\201$\201!\323#\210\201\373\201%\201!\323#\210\201\373\201&\201!\201x #\210\201\373\201'\201!\201x #\210\201\373\201(\201!\201x #\210\201\373\201)\201!\201x #\210\201\373\201*\201!\201x #\210\201\373\201+\201!\201x #\210\201\373\201,\201!\201x #\210\201\373\201-\201!\201x #\210\201\373\201.\201!\201x #\210\201\373\201/\201!\201x #\210\201\373\2010\201!\323#\210\201\373\2011\201!\201x #\210\201\373\2012\201!\201x #\210\201\373\2013\201!\201x #\210\201\373\2014\201!\201x #\210\201\373\2015\201!\201l #\210\201\373\2016\201!\201x #\210\201\373\2017\201!\201x #\210\201\373\2018\201!\201x #\210\201\373\2019\201!\201x #\210\201\373\201:\201!\201x #\210\201\373\201;\201!\201x #\210\201\373\201<\201!\201x #\210\201\373\201=\201!\201x #\210\201\373\201>\201!\201x #\210\201\373\201?\201!\201x #\210\201\373\201@\201!\201l #\210\201\373\201A\201!\201x #\210\201\373\201B\201!\201x #\210\201\373\201C\201!\201x #\210\201\373\201D\201!\201x #\210\201\373\201E\201!\201x #\210\201\373\201F\201!\201x #\210\201\373\201G\201!\201x #\210\201\373\201H\201!\201x #\210\201\373\201I\201!\201x #\210\201l \211\201J@\201KA\201LB\335C\330\211DE\335\211FG\335\207" [system-type emacs-version auto-compression-mode mouse-wheel-mode calendar-week-start-day calendar-offset add-to-list display-buffer-alist ("^[*]shell\\(?:: .+?\\)?[*]\\(?:<[0-9]+>\\)?$" (display-buffer-reuse-window display-buffer-same-window)) ("^[*]Shell Command Output[*]$" display-buffer-pop-to (truncate-lines . t)) ("^[*]Async Shell Command[*]" display-buffer-pop-up-window) ("^[*]grep[*]" display-buffer-pop-to (truncate-lines . t)) add-hook grep-setup-hook #[0 "\301\300!\210\302\211\207" [compilation-always-kill make-local-variable t] 2] set-language-environment "UTF-8" functionp set-fringe-mode 2 require uniquify set-default delete-active-region t kill-ring-max 100 save-interprogram-paste-before-kill kill-do-not-save-duplicates nil yank-pop-change-selection kill-read-only-ok backward-delete-char-untabify-method untabify kill-whole-line select-enable-clipboard select-enable-primary x-select-enable-clipboard x-select-enable-primary select-active-regions x-select-enable-clipboard-manager standard-indent tab-always-indent complete indent-tabs-mode paragraph-ignore-fill-prefix sentence-end-double-space fill-individual-varying-indent colon-double-space adaptive-fill-mode default-justification left fill-column 72 comment-fill-column comment-style indent electric-indent-mode electric-pair-mode electric-pair-skip-self electric-pair-open-newline-between-pairs electric-pair-skip-whitespace chomp electric-layout-mode calendar-date-display-form calendar-time-display-form calendar-today-visible-hook calendar-view-holidays-initially-flag calendar-mark-holidays-flag calendar-hebrew-all-holidays-flag calendar-christian-all-holidays-flag calendar-islamic-all-holidays-flag electric-quote-mode case-replace replace-char-fold query-replace-skip-read-only query-replace-show-replacement query-replace-highlight query-replace-lazy-highlight case-fold-search blink-matching-paren blink-matching-paren-distance 200000 blink-matching-delay 0.5 search-exit-option search-upper-case not-yanks search-nonincremental-instead search-whitespace-regexp "\\s-+" search-invisible open isearch-hide-immediately search-ring-max 32 regexp-search-ring-max search-highlight isearch-lazy-highlight isearch-allow-scroll isearch-lax-whitespace isearch-regexp-lax-whitespace search-default-mode char-fold-to-regexp lazy-highlight-cleanup lazy-highlight-initial-delay 0.25 lazy-highlight-interval 0 lazy-highlight-max-at-a-time 20 ispell-lazy-highlight multi-isearch-search multi-isearch-pause completion-show-help enable-completion save-completions-flag save-completions-retention-time 672 completions-file-versions-kept 1 completion-search-distance 150000 mouse-yank-at-point mouse-drag-copy-region mouse-1-click-follows-link 450 mouse-1-click-in-non-selected-windows mouse-scroll-delay 0.1 mouse-scroll-min-lines mouse-buffer-menu-maxlen 40 mouse-wheel-scroll-amount (5 ((shift) . 1) ((control))) mouse-wheel-progressive-speed mouse-wheel-follow-mouse mouse-highlight make-pointer-invisible tooltip-mode tooltip-delay 0.8 tooltip-short-delay tooltip-hide-delay 10 tooltip-x-offset 5 tooltip-y-offset tooltip-use-echo-area input-method-verbose-flag input-method-highlight-flag input-method-use-echo-area undo-limit undo-strong-limit 300000 undo-outer-limit 30000000 require-final-newline mode-require-final-newline change-major-mode-with-file-name read-quoted-char-radix use-empty-active-region shift-select-mode next-line-add-newlines track-eol line-move-ignore-invisible line-move-visual transient-mark-mode mark-even-if-inactive parse-sexp-ignore-comments rectangle-preview confirm-kill-emacs repeat-on-final-keystroke visual-line-fringe-indicators (up-arrow down-arrow) Buffer-menu-use-header-line Buffer-menu-buffer+size-width 25 Buffer-menu-name-width 19 Buffer-menu-size-width 7 Buffer-menu-mode-width 14 Buffer-menu-use-frame-buffer-list whitespace-style (face tabs trailing lines-tail indentation empty space-after-tab space-before-tab) whitespace-line-column 79 whitespace-global-modes linum-format dynamic linum-eager linum-delay find-file-wildcards find-file-suppress-same-file-warnings large-file-warning-threshold 50000000 auto-mode-case-fold find-file-existing-other-name find-file-visit-truename revert-without-query find-file-run-dired enable-local-variables enable-local-eval maybe confirm-nonexistent-file-or-buffer after-completion uniquify-buffer-name-style post-forward uniquify-after-kill-buffer-p uniquify-ask-about-buffer-names-p uniquify-min-dir-content uniquify-strip-common-suffix list-directory-brief-switches "-CF" list-directory-verbose-switches "-laFh" directory-free-space-args "-h" dired-listing-switches "-laFhv --dired --time-style=iso" dired-subdir-switches dired-dwim-target dired-copy-preserve-time dired-dnd-protocol-alist dired-hide-details-hide-symlink-targets dired-hide-details-hide-information-lines dired-auto-revert-buffer dired-recursive-deletes top dired-no-confirm dired-recursive-copies always ls-lisp-emulation ls-lisp-ignore-case ls-lisp-use-string-collate ls-lisp-UCA-like-collation ls-lisp-dirs-first ls-lisp-verbosity ls-lisp-use-insert-directory-program ls-lisp-support-shell-wildcards ls-lisp-format-time-list ("%m-%d %H:%M" "%Y-%m-%d") ls-lisp-use-localized-time-format dired-find-subdir dired-enable-local-variables dired-clean-up-buffers-too dired-x-hands-off-my-keys find-exec-terminator "+" find-ls-option ("-exec ls -ldaF --time-style=iso {} +" . "-ldaF") find-ls-subdir-switches "-ldaF --time-style=iso" wdired-use-interactive-rename wdired-confirm-overwrite wdired-use-dired-vertical-movement sometimes wdired-allow-to-redirect-links wdired-allow-to-change-permissions wdired-keep-marker-rename view-read-only view-scroll-auto-exit ansi-color-for-comint-mode ansi-color-bold-is-bright ansi-color-for-compilation-mode comint-prompt-read-only comint-input-autoexpand comint-input-ignoredups comint-scroll-to-bottom-on-input comint-move-point-for-output comint-scroll-show-maximum-output comint-buffer-maximum-size 5000 comint-input-ring-size 2000 comint-move-point-for-matching-input end-of-line comint-process-echoes windows-nt comint-eol-on-send comint-use-prompt-regexp comint-completion-addsuffix pcomplete-ignore-case pcomplete-autolist pcomplete-termination-string " " compilation-window-height compilation-read-command compilation-ask-about-save compilation-auto-jump-to-first-error compilation-skip-threshold compilation-skip-visited compilation-scroll-output compilation-always-kill mode-compile-save-all-p mode-compile-always-save-buffer-p next-error-highlight next-error-highlight-no-select next-error-recenter shell-input-autoexpand grep-save-buffers grep-window-height grep-scroll-output grep-highlight-matches term-input-autoexpand term-input-ignoredups term-scroll-to-bottom-on-output others term-scroll-show-maximum-output term-buffer-maximum-size 4096 eval-expression-print-level eval-expression-print-length eval-expression-debug-on-error parens-require-spaces eldoc-minor-mode-string " Doc" global-eldoc-mode scheme-mit-dialect scheme-program-name "racket" css-indent-offset js-indent-level js-expr-indent-offset js-paren-indent-offset js-square-indent-offset js-curly-indent-offset js-switch-indent-offset opascal-indent-level pascal-indent-level perl-indent-level ruby-indent-tabs-mode ruby-indent-level ruby-comment-column ruby-insert-encoding-magic-comment ruby-use-encoding-map sh-indentation sh-basic-offset tcl-indent-level calculator-electric-mode calculator-bind-escape compare-windows-sync compare-windows-sync-default-function compare-windows-sync-string-size 24 compare-windows-highlight vc-follow-symlinks vc-display-status vc-suppress-confirm vc-git-diff-switches vc-svn-diff-switches read-mail-command rmail mail-user-agent sendmail-user-agent send-mail-function smtpmail-send-it ispell-highlight-p block ispell-check-comments ispell-query-replace-choices ispell-following-word ispell-help-in-bufferp ispell-quietly ispell-format-word-function #[257 "\300\300Q\207" ["\""] 4 "\n\n(fn S)"] ispell-use-framepop-p Info-fontify-visited-nodes Info-use-header-line Info-additional-directory-list major-mode indented-text-mode garbage-collection-messages max-specpdl-size 10000 max-lisp-eval-depth debug-on-error debug-on-quit message-log-max 400 remote-shell-program "ssh" completion-auto-help completion-styles (partial-completion) completion-cycle-threshold completions-format vertical read-file-name-completion-ignore-case insert-default-directory completion-pcm-word-delimiters "-_./:| " completion-pcm-complete-word-inserts-delimiters minibuffer-eldef-shorten-default echo-keystrokes enable-recursive-minibuffers history-length 1000 history-delete-duplicates read-buffer-completion-ignore-case minibuffer-beginning-of-buffer-movement minibuffer-auto-raise completion-ignore-case initial-buffer-choice inhibit-startup-screen inhibit-startup-echo-area-message user-login-name inhibit-startup-buffer-menu initial-major-mode initial-scratch-message cursor-in-non-selected-windows (hbar . 4) display-hourglass fringe-mode indicate-empty-lines indicate-buffer-boundaries overflow-newline-into-fringe idle-update-delay tty-menu-open-use-tmm cursor-type ctl-arrow truncate-lines word-wrap selective-display-ellipses visible-bell truncate-partial-width-windows line-number-display-limit 5000000 line-number-display-limit-width highlight-nonselected-windows mouse-autoselect-window x-stretch-cursor text-scale-mode-step 1.25 auto-hscroll-mode suggest-key-bindings help-event-list (help f1) list-command-history-max 320 yank-menu-length buffers-menu-max-size buffers-menu-buffer-name-length buffers-menu-show-directories unless-uniquify buffers-menu-show-status use-dialog-box use-file-dialog menu-prompting tmm-mid-prompt "=>" window-min-height window-min-width 4 split-window-keep-point pop-up-frames display-buffer-reuse-frames pop-up-windows even-window-heights recenter-positions (middle top bottom) scroll-error-top-bottom scroll-up-aggressively 0.0 scroll-down-aggressively next-screen-context-lines scroll-preserve-screen-position in-place window-combination-resize scroll-step scroll-conservatively 500 scroll-margin hscroll-margin hscroll-step make-cursor-line-fully-visible scroll-bar-adjust-thumb-portion help-window-select help-enable-auto-load help-downcase-arguments custom-unlispify-remove-prefixes custom-unlispify-tag-names custom-buffer-sort-alphabetically custom-buffer-order-groups last custom-buffer-style links custom-buffer-done-kill custom-buffer-indent 3 custom-magic-show-button apropos-do-all apropos-sort-by-scores apropos-documentation-sort-by-scores image-animate-loop minibuffer-allow-text-properties resize-mini-windows max-mini-window-height redisplay-dont-pause gnutls-min-prime-bits "27" switch-to-visible-buffer switch-to-prev-buffer-skip auto-mode-alist ("\\.rkt.?$" . scheme-mode) put narrow-to-page disabled narrow-to-region upcase-region downcase-region emacs-startup-hook delete-other-windows eval-after-load "jka-cmpr-hook" #[0 "\302B\303B\304 B\305 B\306 \207" [jka-compr-compression-info-list jka-compr-mode-alist-additions ["\\.txz\\'" "XZ compressing" "xz" ("-c" "-q") "XZ uncompressing" "xz" ("-c" "-q" "-d") t nil "\3757zXZ "] ["\\.tlz\\'" "LZip compressing" "lzip" ("-c" "-q") "LZip uncompressing" "lzip" ("-c" "-q" "-d") t nil "LZIP"] ("\\.txz\\'" . tar-mode) ("\\.tlz\\'" . tar-mode) jka-compr-update] 2] file-name-history saved-value "cc-mode" #[0 "\300\301\302\"\207" [c-add-style "java" ((c-basic-offset . 2))] 3] w32-alt-is-meta w32-apps-modifier super w32-lwindow-modifier w32-rwindow-modifier w32-pass-alt-to-system w32-pass-lwindow-to-system w32-pass-rwindow-to-system w32-pass-multimedia-buttons-to-system w32-capslock-is-shiftlock w32-enable-caps-lock w32-enable-num-lock w32-scroll-lock-modifier w32-use-w32-font-dialog buffer-file-coding-system mule-utf-8-unix w32-allow-system-shell w32-quote-process-args w32-downcase-file-names w32-get-true-file-attributes w32-grab-focus-on-raise display-time-mail-file x lisp-indent-function case cond do do* dolist dotimes eval-when flet handler-case if labels let let* macrolet multiple-value-bind unless select simple-error symbol-macrolet tagbody typecase unwind-protect with-clipping with-clipping-box with-delayed-redraw with-foreground-color with-background-color with-background-mode with-events-disabled with-font with-hourglass with-line-width with-lock with-mouse-captured with-open-file with-open-stream with-output-to-string with-paint-operation when while ((if dayname (concat dayname ", ")) day " " monthname " " year) (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")")) calendar-mark-today] 5)
#@496 Display or return message saying how to restore windows after help command.
This function assumes that `standard-output' is the help buffer.
It computes a message, and applies the optional argument FUNCTION to it.
If FUNCTION is nil, it applies `message', thus displaying the message.
In addition, this function sets up `help-return-method', which see, that
specifies what to do when the user exits the help buffer.
Do not call this in the scope of `with-help-window'.
(fn &optional FUNCTION)
(defalias 'help-print-return-message #[256 "\304!?\205v \204 \305\306!!\203 \307 \310B\311\202C \312\310!\204+ \307 \313B\314\202C \2038 \307 \310B\315\202C \307 \316 \317 \320 F\321\206H \322\205O \323!\205T \324 \206] \305\306!!?\205r \325\306!!\203o \323\326!\202r \323\327!Q!\262\207" [standard-output pop-up-frames help-return-method pop-up-windows get-buffer-window special-display-p buffer-name selected-window t nil one-window-p quit-window "Type \\[display-buffer] RET to restore the other window." "Type \\[delete-other-windows] to remove help window." window-buffer window-start window-point "Type \\[switch-to-buffer] RET to remove help window." identity substitute-command-keys " " same-window-p "\\[scroll-up-command] to scroll the help." "\\[scroll-other-window] to scroll the help."] 8 (#$ . 32533)])
#@71 Window configuration to restore after quitting viewing a temp buffer.
(defvar eli-popup-exit-conf nil (#$ . 33869))
(make-variable-buffer-local 'eli-popup-exit-conf)
#@15
(fn BUF OP)
(defalias 'buffer-op-and-restore-winconf #[514 "\300\301\"\302\303 !\204 !\210\211\205 \304 \305!=\205 \306!\207" [buffer-local-value eli-popup-exit-conf window-minibuffer-p selected-window selected-frame window-configuration-frame set-window-configuration] 6 (#$ . 34041)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [add-hook help-mode-hook #[0 "\301\211\207" [view-exit-action #[257 "\300\301\"\207" [buffer-op-and-restore-winconf kill-buffer] 4 "\n\n(fn BUF)"]] 2] apropos-mode-hook #[0 "\301\211\207" [view-exit-action #[257 "\300\301\"\207" [buffer-op-and-restore-winconf bury-buffer] 4 "\n\n(fn BUF)"]] 2] temp-buffer-resize-mode 1] 3)
#@28
(fn BUF &optional ALIST)
(defalias 'eli-temp-buffer-show-function #[513 "p\305!\306\211\307 \310!\311 \312!=\204 \313\312!!\210\211\314\315\"\210\316\315\"\210\317!\320\232\204] \321!\210q\210=\203D \211=\204F \322\323!\210\304\236\211\203T \211A\210\321!\210\324\325!\210*\266\326\207" [temp-buffer-show-function display-buffer-alist minibuffer-scroll-window eli-popup-exit-conf truncate-lines get-buffer-window nil current-window-configuration display-buffer selected-frame window-frame make-frame-visible set-window-start 0 set-window-hscroll buffer-name "*Completions*" select-window run-hooks temp-buffer-show-hook view-mode 1 t] 10 (#$ . 34736)])
(byte-code "\301\211\207" [temp-buffer-show-function eli-temp-buffer-show-function] 2)
(defvar eli-buffer-reverted 0 nil)
(byte-code "\301\302!\210\203 \303\304!\210\305\306\307\"\210\305\310\311\"\210\203 \305\310\312\"\210\304\207" [eli-auto-revert-on-change make-variable-buffer-local eli-buffer-reverted (lambda (#1=#:def-tmp-var) (defvar inside-ask-user-about-supersession-threat #1#)) nil eval-after-load "userlock" #[0 "\300\301\302\"\207" [defalias ask-user-about-supersession-threat #[257 "?\205i \304\305p!`\306!\304\n<\307 \210\310 \210\211\205 \n\311 \203% \304\312 \210\313\304\211\211#\210\314d^\"\210d^b\210\203U B\262\211e[BB\262edBB\262\266\310 \210 T\315\316\317\320!D\"*\266\204\207" [inside-ask-user-about-supersession-threat inhibit-read-only buffer-undo-list eli-buffer-reverted t get-buffer-window window-start discard-input undo-boundary buffer-string erase-buffer revert-buffer set-window-start signal file-supersession "File reverted" file-name-nondirectory] 11 "(DON'T!) Ask a user who is about to modify an obsolete buffer what to do.\nThis function has two choices: it can return, in which case the modification\nof the buffer will proceed, or it can (signal \\='file-supersession (file)),\nin which case the proposed buffer modification will not be made.\n\nYou can rewrite this to use any criterion you like to choose which one to do.\nThe buffer in question is current when this function is called.\n\nTHIS IS A MODIFIED VERSION THAT AUTOMATICALLY RELOADS THE FILE.\n\n(fn FN)"]] 3] "files" #[0 "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [defalias eli-join-paths #[514 "\300!\203 \207\301!P\207" [file-name-absolute-p file-name-as-directory] 4 "\n\n(fn P1 P2)"] directory-dirtree #[513 "\300\301#\302\303\"\"\304\305\306\307\"\"B\207" [make-closure #[257 "\302\303\304!\"?\205 \305\300\"\306!\205 \307\301\"\262\207" [V0 V1 string-match "\\`\\.\\.?\\'" file-name-nondirectory eli-join-paths file-accessible-directory-p directory-dirtree] 5 "\n\n(fn NAME)"] mapcar directory-files apply nconc delq nil] 10 "\n\n(fn DIRECTORY &optional FULL)"] file-expand-wildcards #[513 "\300 \301\302\"\216\303!\304!\211\203* \305\306\307\310\"\206 \"\203* \311\312\313\314!!\"\202, \211C\315\211\203\204 \211@\211\203> \316!\203} \317\315\311\320 \321\232\203U \322\206O \323\"\202b \324\206[ \323\325!#\"\"\203w \204w \311\301\326\"\"\202x \211\244\262\210A\266\202\202. \210\266\203)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] file-name-nondirectory file-name-directory string-match "[[*?]" file-remote-p localname mapcar file-name-as-directory file-expand-wildcards directory-file-name nil file-accessible-directory-p delq #[257 "\300\301\302!\"?\205 \211\207" [string-match "\\`\\.\\.?\\'" file-name-nondirectory] 5 "\n\n(fn NAME)"] "**" directory-dirtree "." directory-files wildcard-to-regexp #[257 "\301\300\"\207" [V0 eli-join-paths] 4 "\n\n(fn NAME)"]] 18 "Expand wildcard pattern PATTERN.\nThis returns a list of file names that match the pattern.\nFiles are sorted in `string<' order.\n\nIf PATTERN is written as an absolute file name,\nthe values are absolute also.\n\nIf PATTERN is written as a relative file name, it is interpreted\nrelative to the current default directory, `default-directory'.\nThe file names returned are normally also relative to the current\ndefault directory. However, if FULL is non-nil, they are absolute.\n\n(fn PATTERN &optional FULL)"]] 3] #[0 "\300\301\302\"\207" [defalias find-file-noselect #[1025 "\306\307!!\262\310!\203* \203% \311\312 \203 \306\313!!\202! \"\206s\314\315\"\207\211\203a \n\203a \316\317\"\204a \316\320\"\203a \3211L \322\323\"0\202O \210C\324\211\204[ \325!\202_ \326\325\")\207\327!\306\313!!\330!\331\233?\205y \332!\211\203\243 \204\230 \204\230 \333!\230\204\230 \334\335\n\333!#\210\f\204\240 \203\243 \211\262\204\313 \204\313 \336\3378\262\340 \n?$\341=\203\302 \323\262\342\3378\262!\210\203[\324\204E\343!\204E\344\n!\204\357 \323\262\345\346 \"\210\202E\347!\204-\324\203\316@\"\203\323\262A\262\202\370 \262\203-rq\210\345\350 \"\210\351\323\211\"\210\345\352 \"\210)\202E\345\353\354\f!\347 !\203>\355\202?\356#\210\357\323!\210rq\210\360!?\204\200\211@=\204\200\211A=\204\200 \204}\211\203m\361\202n\362\363\364\211$\365!\266\202\203\200\211A@?B?=\204X\211\204XC\366>\204X\347 \203\n\367\203\246\370\202\247\371\354\f!\" D\365\203\270\372\202\271\373!)\203\324\374 \210\375 &\210\202X\365\203\336\376\202\337\377!\203\366\375 &\210\202X\314\203\201E \202\201F !\210\202X\367\203\201G \202\201H \354\f!\" D\365\203,\201I \202/\201J !)\203G\375 &\210\202X\314\203S\201E \202V\201F !\210)\207\201K !\262\375\n\n\n&\266\205\207" [find-file-run-dired find-file-visit-truename find-file-wildcards find-file-suppress-same-file-warnings find-file-existing-other-name revert-without-query abbreviate-file-name expand-file-name file-directory-p run-hook-with-args-until-success find-directory-functions file-truename error "%s is a directory" string-match "\\`/:" "[[*?]" (error) file-expand-wildcards t nil find-file-noselect mapcar get-file-buffer file-attributes 10 find-buffer-visiting buffer-file-name files--message "%s and %s are the same file" abort-if-file-too-large 7 "open" raw warn-maybe-out-of-memory verify-visited-file-modtime file-exists-p message "File %s no longer exists!" buffer-modified-p "Reverting file %s..." revert-buffer "Reverting file %s...done" "File %s changed on disk!%s" file-name-nondirectory " (note: local modifications)" " (touch to revert)" ding file-writable-p "read-only" "writable" format "File %s is %s on disk. Make buffer %s, too? " y-or-n-p (hexl-mode image-mode) format-message "The file %s is already visited normally,\nand you have edited the buffer. Now you have asked to visit it literally,\nmeaning no coding system handling, format conversion, or local variables.\nEmacs can visit a file in only one way at a time." "The file %s is already visited literally,\nmeaning no coding system handling, format conversion, or local variables.\nYou have edited the buffer. Now you have asked to visit the file normally,\nbut Emacs can visit a file in only one way at a time." "Do you want to save the file, and visit it literally instead? " "Do you want to save the file, and visit it normally instead? " save-buffer find-file-noselect-1 "Do you want to discard your changes, and visit the file literally now? " "Do you want to discard your changes, and visit the file normally now? " buffer-file-read-only buffer-read-only find-file-literally major-mode help-form "File already visited non-literally" "File already visited literally" "The file %s is already visited normally.\nYou have asked to visit it literally,\nmeaning no coding system decoding, format conversion, or local variables.\nBut Emacs can visit a file in only one way at a time." "The file %s is already visited literally,\nmeaning no coding system decoding, format conversion, or local variables.\nYou have asked to visit it normally,\nbut Emacs can visit a file in only one way at a time." "Do you want to revisit the file literally now? " "Do you want to revisit the file normally now? " create-file-buffer] 17 "Read file FILENAME into a buffer and return the buffer.\nIf a buffer exists visiting FILENAME, return that one, but\nverify that the file has not changed since visited or saved.\nThe buffer is not selected, just returned to the caller.\nOptional second arg NOWARN non-nil means suppress any warning messages.\nOptional third arg RAWFILE non-nil means the file is read literally.\nOptional fourth arg WILDCARDS non-nil means do wildcard processing\nand visit all the matching files. When wildcards are actually\nused and expanded, return a list of buffers that are visiting\nthe various files.\n\n(fn FILENAME &optional NOWARN RAWFILE WILDCARDS)"]] 3]] 3)
(defalias 'isearch-post-command-hook #[0 "\203# \306!\211\204 \307!\204 \310\311 \266\202# b\210\310\312 \266 \313=\2030 \n\2030 \314 \210 \203o `=\204m \315\f\206@ `\"\203L \316!\262\211\317\320\321#\322\f\206^ `X\211\203i b\210\323 \266\310\324 \207" [isearch-pre-scroll-point isearch-allow-scroll isearch-lazy-highlight isearch-pre-move-point isearch-other-end isearch-opoint isearch-string-out-of-window pos-visible-in-window-p nil isearch-exit isearch-update unlimited isearch-lazy-highlight-new-loop buffer-substring-no-properties regexp-quote mapconcat isearch-text-char-description "" t isearch-search-and-update force-mode-line-update isearch-regexp isearch-string isearch-message isearch-yank-flag isearch-forward] 6])
#@13
(fn NAME)
(defalias 'add-^-to-interactive-command '(macro . #[257 "\300\301D\302BB\207" [advice-add quote (:filter-return (lambda (x) "Add ^ to the interactive spec of this function" (interactive (lambda (o) (advice-eval-interactive-spec (concat "^" o)))) x))] 4 (#$ . 44287)]))
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\306\307\310\"\210\306\311\312\"\207" [advice-add forward-page :filter-return #[257 "\207" #1=[] 2 "Add ^ to the interactive spec of this function\n\n(fn X)" #[257 "\300\301P!\207" [advice-eval-interactive-spec #2="^"] 4 "\n\n(fn O)"]] backward-page #[257 "\207" #1# 2 "Add ^ to the interactive spec of this function\n\n(fn X)" #[257 "\300\301P!\207" [advice-eval-interactive-spec #2#] 4 "\n\n(fn O)"]] eval-after-load "dired" #[0 "\300\301\302\303#\210\300\304\302\305#\207" [advice-add dired-next-dirline :filter-return #[257 "\207" #1# 2 "Add ^ to the interactive spec of this function\n\n(fn X)" #[257 "\300\301P!\207" [advice-eval-interactive-spec #2#] 4 "\n\n(fn O)"]] dired-prev-dirline #[257 "\207" #1# 2 "Add ^ to the interactive spec of this function\n\n(fn X)" #[257 "\300\301P!\207" [advice-eval-interactive-spec #2#] 4 "\n\n(fn O)"]]] 4] "server" #[0 "\300\301\302\"\210\300\303\304\"\207" [defalias server-kill-emacs-query-function #[0 "\301\211\203 \211@\302\303\304\305\306\"\">\203 \302\262A\266\202\202 \210\211\262?\206) \307\310!\207" [server-clients nil t mapcar #[257 "\300!\205 \301!\207" [buffer-live-p buffer-modified-p] 3 "\n\n(fn BUF)"] process-get buffers yes-or-no-p "This Emacs session has clients; exit anyway? "] 9 "Ask before exiting Emacs if it has live clients."] server-kill-buffer-query-function #[0 "?\206: \302 ?\206: \303\211\203+ \211@\211 >\203$ \304!\305=\203$ \306\262A\266\202\202 \210\211\262\206: \307\310\311\312p!\"!\207" [server-buffer-clients server-clients buffer-modified-p t process-status open nil yes-or-no-p format "Buffer `%s' still has clients; kill it? " buffer-name] 5 "Ask before killing a server buffer."]] 3]] 4)
(defvar delsel-undo-to-tweak t nil)
(byte-code "\300\301!\210\302\303\304\"\207" [make-variable-buffer-local delsel-undo-to-tweak eval-after-load "delsel" #[0 "\301\302\303\304\305DD\306\307\310\311\312\313\314\315\316& \210\317\302\320\"\210\321\322!\210\323\324N\204( \325\323\324\326#\210\325\323\327\330#\210\325\323\331\322C#\210\332\302\322\333\300!\205? \322\211%\210\317\334\335\"\210\317\336\337\"\210\317\340\341\"\207" [delete-selection-mode-map custom-declare-variable delete-selection-mode funcall function #[0 "\300\207" [nil] 1 #1=""] "Non-nil if Delete-Selection mode is enabled.\nSee the `delete-selection-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `delete-selection-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group editing-basics defalias #[256 "\302 \303\301\304=\203 \305\301!?\202! \247\203 \306W\203 \307\202! \310\"\210\311\300!\2038 \312\301\"\305\301!\2038 \301B \204I \313\314\315\"\210\313\316\317\"\210\202S \320\314\315\"\210\320\316\317\"\210\321\322\305\301!\203_ \323\202` \324\"\210\325\326!\203\210 \327\301!\210\302 \203x \211\302 \232\203\210 \330\331\305\301!\203\204 \332\202\205 \333\334#\210\210\335 \210\305\301!\207" [global-minor-modes delete-selection-mode current-message set-default toggle default-value 1 nil t boundp delq remove-hook pre-command-hook delete-selection-pre-hook post-command-hook delete-selection-post-hook add-hook run-hooks delete-selection-mode-hook delete-selection-mode-on-hook delete-selection-mode-off-hook called-interactively-p any customize-mark-as-set message "Delete-Selection mode %sabled%s" "en" "dis" #1# force-mode-line-update] 6 "Toggle Delete Selection mode.\nInteractively, with a prefix argument, enable\nDelete Selection mode if the prefix argument is positive,\nand disable it otherwise. If called from Lisp, toggle\nthe mode if ARG is `toggle', disable the mode if ARG is\na non-positive integer, and enable the mode otherwise\n(including if ARG is omitted or nil or a positive integer).\n\nWhen Delete Selection mode is enabled, typed text replaces the selection\nif the selection is active. Otherwise, typed text is just inserted at\npoint regardless of any selection.\n\nSee `delete-selection-helper' and `delete-selection-pre-hook' for\ninformation on adapting behavior of commands in Delete Selection mode.\n\n(fn &optional ARG)" (byte-code "\203\n \301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)] (lambda (#2=#:def-tmp-var) (defvar delete-selection-mode-hook #2#)) nil delete-selection-mode-hook variable-documentation put "Hook run after entering or leaving `delete-selection-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value add-minor-mode boundp delete-selection-pre-hook #[0 "\2051 \306 \2051 ?\2051 \n\f\3079\205 \310N!\210\211\f\232\204& \311\312 \n=\205/ \311\211\262\207" [delete-selection-mode buffer-read-only buffer-undo-list delsel-undo-to-tweak eli-buffer-reverted this-command use-region-p delete-selection-helper delete-selection t delete-selection-command-after-revert] 4 "Function run before commands that delete selections are executed.\nCommands which will delete the selection need a `delete-selection'\nproperty on their symbol; commands which insert text but don't\nhave this property won't delete the selection.\nSee `delete-selection-helper'."] delete-selection-command-after-revert #[128 "\300\301!\207" [message "Buffer reverted, edit canceled"] 3 "\n\n(fn &rest _)" nil] delete-selection-post-hook #[0 "<\205Q <\205Q \302\303\203/ =\204/ @\203% @B\262\202( \304\262A\262\202 \211\203L =\203L \203J \211A\262\242B\262\2029 \266\304\211\207" [buffer-undo-list delsel-undo-to-tweak (nil) nil t] 5 "Function run after commands to make `delete-selection' deletions not\nhave an extra undo boundary." nil]] 12]] 3)
#@1483 Get a symbol or a string SPEC, and make it into a face if it doesn't exist.
In order for it to properly create the face, the following naming convention
must be used:
attr[-attr][...]
Example: (simple-make-face 'yellow/blue4-bold) creates and returns an
appropriate face named `yellow/blue4-bold'. (Actually, the color spec can be
anywhere.)
Attribute can be one of: ultra-condensed extra-condensed condensed
semi-condensed semi-expanded expanded extra-expanded ultra-expanded ultra-bold
extra-bold bold semi-bold semi-light light extra-light ultra-light underline
ununderline overline unoverline inverse uninverse italic oblique reverse-italic
reverse-oblique. It can also be `normal', which will be used for width,
weight, and slant (but attributes are processed from left to right).
(See `set-face-attribute'.)
Attributes can also be in these forms:
* `fgcolor/bgcolor', where each color can be
- a color name,
- `hexH' (H is some hex color), or `hH', or `#H'
- `*' or `default', or just empty
* `box[N]' for a box with width N, defaults to 1
* `big[N]', `small[N]' for a multiplier or divider of N0%, defaults to 25%
* `scale[N]' for a scale of N%
* `height[N]' for a fixed height of N
* `ext(end)` to set the `:extend` attribute (showing colors beyond an EOL)
An optional argument FACE-NAME will make it be defined as the result face, and
force the face to be modified if it exists (good for setting properties of
existing faces).
(fn SPEC &optional FACE-NAME)
(defalias 'simple-make-face #[513 ";\203 \202\f \300!\211\301\232\203 \302\303!\202 \211\206 \304!\204, \305N\232\204j \306\307\"\310\311\"\312 >\204? \313!\210\314 \315\316\"\216\211\203Z \211@\317\"\210A\266\202\202G \210)\210\204h \320\305#\210\266\207" [symbol-name "" error "Empty face spec" intern simple-face-spec split-string "-" mapcar #[257 "\300\301\302\303$\207" [replace-regexp-in-string "_" "-" t] 6 "\n\n(fn A)"] face-list make-face match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] simple-set-face-attribute put] 13 (#$ . 50444)])
#@18
(fn FACE ATTR)
(defalias 'simple-set-face-attribute #[514 "\300!\211\301=\203 \302\303\304\257\202\213 \211\305>\203 \302D\202\213 \211\306>\203, \303D\202\213 \211\307>\2038 \304D\202\213 \211\310=\203B \311\202\213 \211\312>\203L \313\202\213 \211\314=\203V \315\202\213 \211\316>\203` \317\202\213 \211\320=\203j \321\202\213 \211\322>\203t \323\202\213 \211\324>\203~ \325\202\213 \211\326>\203\210 \327\202\213 \330!\3311\227 \332\333\334$0\207\210\334\207" [intern normal :width :weight :slant (ultra-expanded extra-expanded expanded semi-expanded semi-condensed condensed extra-condensed ultra-condensed) (ultra-light extra-light light semi-light semi-bold bold extra-bold ultra-bold) (reverse-oblique reverse-italic oblique italic) underline (:underline t) (nounderline ununderline) (:underline nil) overline (:overline t) (nooverline unoverline) (:overline nil) inverse (:inverse t) (noinverse uninverse) (:inverse nil) (extend ext) (:extend t) (noextend noext unextend unext) (:extend nil) simple-face-parse-compound-attr (error) apply set-face-attribute nil] 9 (#$ . 52539)])
#@13
(fn ATTR)
(defalias 'simple-face-parse-compound-attr #[257 "\301\302\"\203N \303\304\"\303\305\"\211\205 \306!\307\232\203$ \211\2061 \310\2021 \310\203/ \311_\2020 \312\\\313\245\314\232\203? \315\245\202@ \211\316\317\232\203K \202L D\207\301\320\"\203i \321\304\224\203f \322\306\303\304\"!D\202g \323D\207\301\324\"\203\205 \303\304\"\325P\325\303\305\"P\326\327!\327!\"\207\211\330\235\203\215 \331\207\301\332\"\203\302 \304\224\203\237 \333\224?\202\241 \333\224\203\302 \305\224\303\334\"\203\264 \335P\202\265 \211\304\224\203\276 \336\202\277 \337D\207\301\340\"\203\322 \337\335\303\304\"PD\207\341\227\"\203\336 \337D\207\342\343\"\207" [color-name-rgb-alist string-match "\\`\\(big\\|small\\|scale\\|height\\)\\([0-9]+\\)?\\'" match-string 1 2 string-to-number "scale" 100 10 25 100.0 "small" 1.0 :height "height" "\\`box\\([0-9]+\\)?\\'" :box :line-width t "\\`\\([^/]+\\)/\\([^/]+\\)\\'" "/" append simple-face-parse-compound-attr ("" "/" "*" "*/" "/*" "default" "default/" "/default") nil "\\`\\(/\\)?\\(#\\|[hH]\\|hex\\|HEX\\)?\\([^/]*\\)\\(/\\)?\\'" 4 3 "#" :background :foreground "\\`\\(?:#\\|[hH]\\|hex\\|HEX\\)\\([^/]*\\)\\'" assoc error "Bad component in face spec: %S"] 9 (#$ . 53647)])
#@13
(fn FACE)
(defalias 'simple-make-face-if-undefined #[257 "\211;\203 \300!\202\f \211\301!\203 \207\302!\207" [intern facep simple-make-face] 4 (#$ . 54897)])
#@709 Read one or more face names, prompting with PROMPT.
PROMPT should not end in a space or a colon.
Return DEFAULT if the user enters the empty string.
If DEFAULT is non-nil, it should be a single face or a list of face names
(symbols or strings). In the latter case, return the `car' of DEFAULT
(if MULTIPLE is nil, see below), or DEFAULT (if MULTIPLE is non-nil).
If MULTIPLE is non-nil, this function uses `completing-read-multiple'
to read multiple faces with "[ \t]*,[ \t]*" as the separator regexp
and it returns a list of face names. Otherwise, it reads and returns
a single face name.
** Modified to accept anything, and use `simple-make-face-if-undefined'.
(fn PROMPT &optional DEFAULT MULTIPLE)
(defalias 'read-face-name #[769 "\203& ;\204& 9\203 \301!\202$ \211\203 \302\303\304#\202$ \301@!\262\203: \211\204: \305\306!\210\307\310#@\262\203F \311\312#\202J \311\313\"\314C\314C\314\315\316\317#!\210\203\224 \320\321\242\242\"\314\211\211\322\f&\211\203\220 \211@\323!\203\202 \324!B\262\202\211 \325!B\262A\266\202\202l \210\211\237\207\326\321\242\242\"\314\211\211\322\f&\323!\203\257 \324!\207\325!\207" [crm-separator symbol-name mapconcat #[257 "\2119\203 \300!\207\207" [symbol-name] 3 "\n\n(fn F)"] ", " require crm split-string t format "%s (default `%s'): " "%s: " nil mapatoms make-closure #[257 "\302!\205 \211\303N\203 \300\304!\300\242B\240\207\301\304!\301\242B\240\207" [V0 V1 facep face-alias symbol-name] 4 "\n\n(fn S)"] completing-read-multiple completion-table-in-turn face-name-history facep intern simple-make-face-if-undefined completing-read] 15 (#$ . 55069)])
#@447 Set the face of a region.
Make the region from BEG to END to have face FACE.
Will use face properties, unless font-lock is active -- in that case it will
use overlays. If the optional argument FORCE-OVERLAYS is t (prefix argument
when called interactively), will use overlays anyway. If its value is 'both,
will use both overlays and properties (overlays don't stick in copied text).
(fn BEG END FACE &optional FORCE-OVERLAYS DONT-MAKE-FACE)
(defalias 'set-region-face #[1283 "\211\203 \202 \306!\206 \205 \211?\206 \307=\310\211\310 \311 \312\211 \312 \313\314\"\216\203I \315 \"\316\317\312#\210\316\320#\266\205V \321 \320$,\262+\207" [font-lock-mode font-lock-defaults deactivate-mark buffer-file-name buffer-file-truename buffer-undo-list simple-make-face both nil buffer-modified-p t make-closure #[0 "\300?\205 \301\302!\207" [V0 restore-buffer-modified-p nil] 2] make-overlay overlay-put set-region-face face put-text-property inhibit-read-only inhibit-modification-hooks] 15 (#$ . 56727) (byte-code "\203 \302 \303 \304\305! \205 \306\307\257\207\310\311!\207" [mark-active current-prefix-arg region-beginning region-end read-face-name "Face" t nil error "Use the mark, luke."] 5)])
(put 'set-region-face 'safe-local-eval-function t)
#@44 Removes overlays set by `set-region-face'.
(defalias 'remove-set-face-overlays #[0 "\300\301\211\302\303$\207" [remove-overlays nil set-region-face t] 5 (#$ . 58018) nil])
(put 'remove-set-face-overlays 'safe-local-eval-function t)
#@213 Set the face of all occurrences of REGEXP to FACE.
FACE can be a list of pairs of a subexp number and its color: (SUB . COLOR).
Uses `set-region-face' to set the faces.
(fn REGEXP FACE &optional FORCE-OVERLAYS)
(defalias 'set-regexp-face #[770 "<\203 \211\203 \211@\211\300A!\241\210A\266\202\202 \210\202\" \300!\212eb\210\301\302\303\302$\205g \211<\203Z \211\211\203V \211@\211@\224\203O \304@\224@\225A\303%\210A\266\202\2025 \210\202& \304\305\224\305\225\303%\210\202& )\207" [simple-make-face re-search-forward nil t set-region-face 0] 12 (#$ . 58257) (byte-code "\301\302\303 \205 \304\305\306 \307 \"!\310\211\311%\312\313!\205 \314E\207" [current-prefix-arg read-from-minibuffer "Pattern to highlight: " use-region-p regexp-quote buffer-substring-no-properties region-beginning region-end nil regexp-history read-face-name "Face" t] 6)])
(put 'set-regexp-face 'safe-local-eval-function t)
#@49 List of colors added using `add-color-pattern'.
(defvar added-color-patterns nil (#$ . 59184))
#@857 Add a pattern for this buffer's `font-lock-keywords'.
REGEXP is the pattern to be colored with FACE. When called programatically - a
third integer argument EXPNUM specifies the regexp to hilight, and a fourth
argument OVERRIDE is the override flag. Possible MORE arguments will specify
more faces, numbers and flags.
When called interactively, a positive prefix argument will make it an
overriding addition, negative prefix makes it a normal addition, and no prefix
make the style appended over any existing style. When OVERRIDE is set to
anything other than `t' or `nil', the new pattern will be added to the end of
`font-lock-keywords'.
Examples:
(add-color-pattern "regexp" 'face)
(add-color-pattern "\\(r\\)egexp" 'face 1 t)
(add-color-pattern "\\(r\\)egex\\(p\\)" 'face1 1 t 'face2 2 nil)
(fn REGEXP FACE &optional EXPNUM OVERRIDE &rest MORE)
(defalias 'add-color-pattern #[1154 "\303\304!\203 \204 \305\202 \306!\307Y\203 \310\202 \311\262\307\262\312!\203* \202- \313!\314D\2065 \307\310F\203G A\203G \211C\202H \211\203\200 A\203\200 \211A\262\242\312!\203a \211\202d \313!\211A\262\242\314D\211A\262\n\242\310FC\244\266\202H B\262\315\301!\210\211 \235?\205\264 \211 B\316\311C\317>?\205\242 \310#\210\n\204\262 \320\321!\210\322\320\323!\210\324 \207" [current-prefix-arg added-color-patterns font-lock-defaults called-interactively-p any prepend prefix-numeric-value 0 t nil facep simple-make-face quote make-local-variable font-lock-add-keywords (t nil) font-lock-mode -1 (nil) 1 font-lock-flush] 15 (#$ . 59286) (byte-code "\300\301\302 \205 \303\304\305 \306 \"!\307\211\310%\311\312!D\207" [read-from-minibuffer "Pattern to highlight: " use-region-p regexp-quote buffer-substring-no-properties region-beginning region-end nil regexp-history read-face-name "Face"] 6)])
(put 'add-color-pattern 'safe-local-eval-function t)
(defvar patterns-history-list nil)
#@266 Remove the a pattern added with `add-color-pattern'.
Automatically removes a single-added pattern, otherwise asks which one to
remove. With a numeric prefix argumet, remove that number of patterns (last
one added first), if negative removes all.
(fn &optional N)
(defalias 'remove-added-color-pattern #[256 "\211\205 \302!\204 \303\304!\266\202u \211\203 \211\305W\204$ G\306U\203/ \307\310\"\210\310\210\202u \211\203R \203N \211\305V\203t \307\310\211A\242C\"\210\211S\262\2023 \210\202u \311\312\"\313\314\315\310\316@@\301\306B&\"\307\310C\"\210\317\")\210\210\320 \207" [added-color-patterns patterns-history-list prefix-numeric-value message "No patterns to remove." 0 1 font-lock-remove-keywords nil mapcar car assoc completing-read "Pattern to unhighlight: " t delq font-lock-flush] 11 (#$ . 61216) "P"])
(byte-code "\306\307\310\311#\210\311\211\312\313\314\315\316\317!\210\320\321 \"\210\322\323\324 \"\210\325\326!\210\327\330!\210\322 \331=\2036 \332\2027 \333\334\"\210\311 \335\336!!\312\207" [font-lock-global-modes font-lock-maximum-decoration jit-lock-stealth-verbose jit-lock-stealth-time jit-lock-chunk-size jit-lock-stealth-nice put remove-added-color-pattern safe-local-eval-function t nil 3 500 0.2 global-font-lock-mode 1 set-default frame-background-mode mapc frame-set-background-mode frame-list set-cursor-color "purple" require whitespace dark #[257 "\300A@@\"\207" [simple-make-face] 4 "\n\n(fn X)"] #[257 "\300\3018\206\n A@@\"\207" [simple-make-face 2] 4 "\n\n(fn X)"] ((default white/black black/white) (fringe white/gray10 black/gray90) (scroll-bar white/gray10 black/gray90) (mode-line yellow/red2-uninverse-scale75 red2/yellow-uninverse-scale75) (mode-line-inactive orange3/red4-uninverse-scale65 orange3/yellow4-uninverse-scale65) (mode-line-buffer-id bold) (header-line yellow/green4-bold green4/yellow-bold) (tooltip black/gray75-bold-small10) (minibuffer-prompt yellow/*-bold black/*-bold) (region yellow/h339 blue4/yellow) (secondary-selection yellow/h838 cyan4/yellow) (highlight yellow/purple4-bold purple4/yellow-bold) (isearch yellow/red2 red2/yellow) (query-replace yellow/red2 red2/yellow) (match */red4 red2/*) (lazy-highlight */red4 red2/*) (next-error yellow/purple3 purple3/yellow) (trailing-whitespace */gray20 */gray80) (whitespace-line */gray20 */gray80) (whitespace-empty */gray20 */gray80) (whitespace-trailing */gray20 */gray80) (whitespace-space */gray20 */gray80) (whitespace-hspace */gray20 */gray80) (whitespace-tab */gray20 */gray80) (whitespace-indentation */h220 */hdd0) (whitespace-space-after-tab */h220 */hdd0) (whitespace-space-before-tab */h440 */hbb0) (button */grey20-underline */grey80-underline) (help-argument-name underline-italic) (buffer-menu-buffer yellow/red4-bold red4/yellow-bold) (shadow gray40/*) (escape-glyph gray60/*) (nobreak-space gray30/* gray70/*) (completions-common-part gray60/* gray40/*) (completions-first-difference yellow/red4 red4/yellow) (font-lock-keyword-face yellow1-underline blue4-underline) (font-lock-function-name-face skyblue1-bold purple4-bold) (font-lock-variable-name-face seagreen1-bold green4-bold) (font-lock-comment-face chocolate1 red3) (font-lock-comment-delimiter-face chocolate2 red2) (font-lock-string-face indianred1 cyan4) (font-lock-constant-face skyblue1-bold skyblue4-bold) (font-lock-type-face orange1-bold orange3-bold) (font-lock-doc-face indianred1-italic indianred4-italic) (font-lock-builtin-face yellow1-bold pink4-bold) (font-lock-warning-face yellow1/skyblue4-bold yellow4/red4-bold) (font-lock-preprocessor-face bold) (font-lock-regexp-grouping-backslash underline) (font-lock-regexp-grouping-construct underline)) simple-make-face yellow/orangered4-bold eli-color-style mode-line-in-non-selected-windows display-time-mail-face] 5)
#@23 Version of mic-paren.
(defvar mic-paren-version "3.13" (#$ . 65028))
(byte-code "\3001\f \301\302!0\210\202 \210\303\304!\204 \305\304\306\307B\"\210\303\310!\204' \305\310\306\311B\"\210\303\312!\2044 \305\312\306\313B\"\210\314\315\316\317\320\321\322\323&\210\324\325\326\327\330DD\331\332\333\322\315&\210\324\334\326\327\335DD\336\337\340\341\342\332\343\322\315& \210\324\344\326\327\345DD\346\332\347\322\315&\210\324\350\326\327\351DD\352\332\353\322\315&\210\324\354\326\327\355DD\356\332\357\322\315&\210\324\360\326\327\361DD\362\332\363\322\315&\210\324\364\326\327\365DD\366\332\367\322\315&\210\324\370\326\327\371DD\372\332\373\322\315&\210\324\374\326\327\375DD\376\332\377\322\315&\210\324\201@ \326\327\201A DD\201B \332\357\322\315&\210\324\201C \326\327\201D DD\201E \332\343\322\315&\210\324\201F \326\327\201G DD\201H \332\357\322\315&\210\324\201I \326\327\201J DD\201K \332\201L \322\315&\210\324\201M \326\327\201N DD\201O \332\357\322\315&\210\324\201P \326\327\201Q DD\201R \332\357\322\315&\210\324\201S \326\327\201T DD\201U \332\357\322\315&\210\201V \201W \201X \201Y \322\201Z \322\315&\210\201V \201[ \201\\ \201] \322\201Z \322\315&\210\201V \201^ \201_ \201` \322\201Z \322\315&\210\324\201a \326\327\201b DD\201c \332\201d \322\315&\210\324\201e \326\327\201f DD\201g \332\201d \322\315&\210\324\201h \326\327\201i DD\201j \332\201d \322\315&\207" [(error) require custom fboundp defgroup defalias macro #[128 "\300\207" [nil] 2 "\n\n(fn &rest REST)"] defcustom #[899 "\300F\207" [defvar] 8 "\n\n(fn SYM VAL STR &rest REST)"] defface #[899 "\300\301\302DDF\207" [defvar make-face quote] 9 "\n\n(fn SYM VAL STR &rest REST)"] custom-declare-group mic-paren-matching nil "Enable advanced (un)matching of parens and expressions." :prefix "paren-" :group paren-matching custom-declare-variable paren-priority funcall function #[0 "\300\207" [both] 1 #1=""] "*Control behavior in a \"abutted close-open\" situation.\nThis occurs when point is between a closing and an opening\nparenthesis, such as: (A B)(C D)\n ^\n point\nclose -- highlight the parenthesis matching the close-parenthesis\n before the point (highlight opening paren before A).\nopen -- highlight the parenthesis matching the open-parenthesis after\n the point (highlight closing paren after D).\nboth -- highlight both parenthesis matching the parenthesis beside\n the point (highlight opening before A and closing after D)." :type (choice (const :tag "Match close" close) (const :tag "Match open" open) (const :tag "Match both" both)) paren-overlay-priority #[0 "\300\207" [999] 1 #1#] "*Non-negative integer to specify paren overlay priority.\nFor details, see info node `(elisp) Overlays'.\nNormally you don't want to change the default value!" :set #[514 "\300W\203 \301_\202 L\207" [0 -1] 5 "\n\n(fn SYMBOL VALUE)"] :initialize custom-initialize-default integer paren-sexp-mode #[0 "\300\207" [nil] 1 #1#] "*Control in which situations the whole sexp should be highlighted.\nThis means the whole s-expression between the matching parentheses is\nhighlighted instead of only the matching/mismatching parenthesis.\n\nt -- Always highlight the whole s-expression.\nnil -- Never highlight the whole s-expression.\nmatch -- Highlight the whole s-expression only if the parens match.\nmismatch -- Highlight the whole s-expression only if the parens don't match." (choice (const :tag "Never sexp-mode" nil) (const :tag "Always sexp-mode" t) (const :tag "If match" match) (const :tag "If mismatch" mismatch)) paren-highlight-at-point #[0 "\300\207" [t] 1 #1#] "*Non-nil highlights both parens when point is after the close-paren.\nIf nil, only the open parenthesis is highlighted." (choice (const :tag "Highlight both" t) (const :tag "Highlight open" nil)) paren-highlight-offscreen #[0 "\300\207" [nil] 1 #1#] "*Non-nil enables highlighting text not visible in the current buffer.\n\nThis is useful if you regularly display the current buffer in\nmultiple windows or frames (e.g., if you use Follow mode, by\nandersl@csd.uu.se). Note: this option may slow down your Emacs.\n\nThis variable is ignored (treated as non-nil) if you set\n`paren-sexp-mode' to non-nil." boolean paren-display-message #[0 "\300\207" [only] 1 #1#] "*Display message if matching parenthesis is off-screen.\nPossible settings are:\nalways -- message is always displayed regardless if offscreen or not\nonly -- message is only displayed when matching is offscreen\nnever -- never a message is displayed." (choice (const :tag "Display always" always) (const :tag "Display if offscreen" only) (const :tag "No Message display" never)) paren-message-linefeed-display #[0 "\300\207" [" RET "] 1 #1#] "*String for displaying a linefeed in the matching paren context message.\nThere are three predefined values:\n- Displays linefeeds with \" RET \" in the message.\n- Displays linefeeds with a SPACE in the message.\n- Displays linefeeds in the standard-form, means with \"^J\".\nBut you can also specify any user-defined string for it.\n\nFor further explanations about message displaying look at\n`paren-display-message'." (choice (const :tag "Display with \"RET\"" :value " RET ") (const :tag "Display with a SPACE" :value " ") (const :tag "Standard" :value "^J") (string :tag "User defined")) paren-message-show-linenumber #[0 "\300\207" [sexp] 1 #1#] "*Determine the computation of the offscreen-message-linenumber.\n\nIf the matching paren is offscreen, then maybe a message with the\ncontext of the matching paren and it's linenumber is displayed\n(depends on the setting in `paren-display-message'). Here the\ncomputation of the linenumber can be determined:\n\nsexp -- Display the number of lines between the matching parens. Then the\n number of lines is displayed as negative number if the matching paren\n is somewhere above. Otherwise the number has a positive sign.\n\nabsolute -- Display the absolute linenumber of the machting paren computed\n from the beginning of the buffer." (choice (const :tag "Count accros sexp" sexp) (const :tag "Absolute number" absolute)) paren-message-no-match #[0 "\300\207" [t] 1 #1#] "*Display message if no matching parenthesis is found." (choice (const :tag "Display message" t) (const :tag "No message" nil)) paren-message-truncate-lines #[0 "\300\207" [t] 1 #1#] "*Non nil means truncate lines for all messages mic-paren can display.\nThis option has only an effect with GNU Emacs 21.x!" paren-max-message-length #[0 "\300\207" [0] 1 #1#] "*If positive, the max length `mic-paren-nolog-message' should output.\nThe length is reduced by removing the middle section of the message.\nA value of zero means do not modify the message." paren-ding-unmatched #[0 "\300\207" [nil] 1 #1#] "*Non-nil means make noise in unmatched situations.\nAn unmatched situation occurs if the cursor is at an unmatched\nparenthesis or no matching parenthesis is found.\nEven if nil, typing an unmatched parenthesis produces a ding." paren-delay #[0 "\300\207" [nil] 1 #1#] "*This variable controls when highlighting is done.\nThe variable has different meaning in different versions of Emacs.\n\nIn Emacs 19.29 and below:\n This variable is ignored.\n\nIn Emacs 19.30:\n A value of nil will make highlighting happen immediately (this may slow\n down your Emacs if running on a slow system). Any non-nil value will\n delay highlighting for the time specified by post-command-idle-delay.\n\nIn Emacs 19.31 and above:\n A value of nil will make highlighting happen immediately (this may slow\n down your Emacs if running on a slow system). If not nil, the value\n should be a number (possible a floating point number if your Emacs\n support floating point numbers). The number is the delay in seconds\n before mic-paren performs highlighting.\n\nIf you change this variable when mic-paren is active you have to\nre-activate (with M-x paren-activate) mic-paren for the change to take\neffect." (choice (number :tag "Delay time") (const :tag "No delay" nil)) paren-dont-touch-blink #[0 "\300\207" [nil] 1 #1#] "*Non-nil means not to change the value of `blink-matching-paren'.\nThis takes effect when mic-paren is activated or deactivated. If nil\nmic-paren turns of blinking when activated and turns on blinking when\ndeactivated." paren-dont-load-timer #[0 "\301\302\"?\207" [emacs-version string-match "XEmacs\\|Lucid"] 3 #1#] "*Non-nil inhibits loading `timer'.\n\n(I have no idea why Emacs user ever want to set this to non-nil but I hate\npackages which loads/activates stuff I don't want to use so I provide this\nway to prevent the loading if someone doesn't want timers to be loaded.)" paren-bind-modified-sexp-functions #[0 "\300\207" [t] 1 #1#] "*Automatic binding of the new sexp-functions to the old bindings.\nIf non nil mic-paren checks at load-time the keybindings for the functions\n`forward-sexp' and `backward-sexp' and binds the modified sexp-functions\n`paren-forward-sexp' and `paren-backward-sexp' to exactly these\nbindings if and only if matching quoted/escaped parens is turned on by\n`paren-toggle-matching-quoted-paren'. These new bindings are done only\nin a buffer-local keymap, therefore if you activate the quoted matching\nonly in some modes from within a hook only in these buffers the new\nbindings are active and in all other not.\n\nIf you deactivate the quoted matching feature by\n`paren-toggle-matching-quoted-paren' then `forward-sexp' and\n`backward-sexp' will be bound again to their original key-bindings!" custom-declare-face paren-face-match ((((class color)) (:background "turquoise")) (t (:background "gray"))) "Mic-paren mode face used for a matching paren." faces paren-face-mismatch ((((class color)) (:foreground "white" :background "purple")) (t (:reverse-video t))) "Mic-paren mode face used for a mismatching paren." paren-face-no-match ((((class color)) (:foreground "black" :background "yellow")) (t (:reverse-video t))) "Mic-paren mode face used for an unmatched paren." paren-match-face #[0 "\300\207" [paren-face-match] 1 #1#] "*Face to use for showing the matching parenthesis." face paren-mismatch-face #[0 "\300\207" [paren-face-mismatch] 1 #1#] "*Face to use when highlighting a mismatched parenthesis." paren-no-match-face #[0 "\300\207" [paren-face-no-match] 1 #1#] "*Face to use when highlighting an unmatched parenthesis."] 12)
#@1283 *Non-nil enables matching properly quoted (or escaped) parens.
E.g., "\(x-3y + z = 7\)") in a TeX file. GNU Emacs can not match
quoted parens, so we must temporally deactivate the quoting until emacs
has done its sexp-parsing. Therefore emacs itself does not (can not!)
take into consideration if either both matched parens are quoted or none.
But nevertheless we do this! Only symmetric balanced parens are matched;
either both matching parens must be quoted or none, otherwise they we will
be highlighted as mismatched.
This package offers also two slightly modified versions of sexp traversal
functions: `paren-forward-sexp' and `paren-backward-sexp'. These versions
can also jump to escaped/quoted parens.
If this variable is not nil and `paren-bind-modified-sexp-functions' is
set to non nil, then `paren-toggle-matching-quoted-paren' will also toggle
the original binding of `forward-sexp' and `backward-sexp' between the
original functions and the modified equivalents.
Do NOT set this variable directly but use
`paren-toggle-matching-quoted-paren' to activate/deactivate/toggle this
feature! The best method is to do this in a mode hook, e.g.:
(add-hook 'LaTeX-mode-hook
(function (lambda ()
(paren-toggle-matching-quoted-paren 1))))
(defvar paren-match-quoted-paren nil (#$ . -75491))
(make-variable-buffer-local 'paren-match-quoted-paren)
#@483 *Non-nil enables matching of characters with syntax "$".
E.g., in LaTeX "$...$" is equivalent to "\(...\)".
Unlike to parens quoted/escaped paired delimiter will never match.
Do NOT set this variable directly but use
`paren-toggle-matching-paired-delimiter' to activate/deactivate/toggle
this feature! The best method is to do this in a mode hook, e.g.:
(add-hook 'LaTeX-mode-hook
(function (lambda ()
(paren-toggle-matching-paired-delimiter 1))))
(defvar paren-match-paired-delimiter nil (#$ . -76887))
(make-variable-buffer-local 'paren-match-paired-delimiter)
#@1321 *Controls which context of the matching open paren will be displayed.
This takes effect if the matching open paren is offscreen or
`paren-display-message' is `always' (see `paren-display-message')
and the matching open paren has no previous text in the same line.
Possible values:
nil -- Contents of the **next** not empty and not whitespace-line will be
displayed. This value is useful for example in functional programming
languages like (emacs)lisp.
not-nil -- Contents of the first **previous** not empty and not only
whitespace-line will be displayed. This value is useful for example in
procedural programming languages like C, C++, Java etc.
Lets take a look at a short example:
In languages like C++ we often have situations like
if (i > VALUE)
{
// some code
}
With a value non nil the displayed opening-brace context would be
"if (i > VALUE)^J{" but with nil it would be "{^J // some code"
which would be in C++ lesser useful as the non nil version.
(The ^J stands for a newline in the buffer).
Do NOT set this variable directly but use `paren-toggle-open-paren-context'
to change the value of this option! The best method is to do this in a
mode hook, e.g.:
(add-hook 'c-common-mode-hook
(function (lambda ()
(paren-toggle-open-paren-context 1))))
(defvar paren-open-paren-context-backward nil (#$ . -77492))
(make-variable-buffer-local 'paren-open-paren-context-backward)
(defconst mic-paren-original-keybinding-of-sexp-functions (byte-code "\300\301!@\300\302!@D\207" [where-is-internal forward-sexp backward-sexp] 3))
(byte-code "\301\302\"\203 \303\304M\210\305\306M\210\307\310M\210\311\312M\210\313\314M\210\2022 \303\315M\210\305\316M\210\307\317M\210\311\320M\210\313\321M\210\301\207" [emacs-version string-match "\\(Lucid\\|XEmacs\\)" mic-make-overlay make-extent mic-delete-overlay delete-extent mic-overlay-put set-extent-property mic-cancel-timer delete-itimer mic-run-with-idle-timer start-itimer make-overlay delete-overlay overlay-put cancel-timer run-with-idle-timer] 3)
#@161 Remove the middle of STR if it exceeds `paren-max-message-length'.
However, if STR is `nil' or `paren-max-message-length' is zero,
simply return STR.
(fn STR)
(defalias 'paren-clamp-string-maybe #[257 "\211\203\n \301U\203 \207\302!\211X\203 \207\303\302\304!Z\305\"\301O\304Z\306OQ\207" [paren-max-message-length 0 string-width ash "[...]" -1 nil] 8 (#$ . 79561)])
(byte-code "\300\301!\203 \300\302!\203 \303\304!\210\202 \305\306\307\"\210\300\207" [fboundp display-message clear-message eval (define-mic-paren-nolog-message (display-message 'no-log msg) (clear-message 'no-log)) defalias mic-paren-nolog-message #[128 "\301\203\n @\204 \302\202 A\204 @\202 \303\304\"!\211\203* \302\305\306\"\210)\207\305\302!\210\207" [message-log-max paren-clamp-string-maybe nil apply format message "%s"] 5 "Work like `message' but without logging.\nSee variable `paren-max-message-length'.\n\n(fn &rest ARGS)"]] 3)
#@465 Vector of of the form [BACKW POINT FOREW].
BACKW: Overlay for the open-paren which matches the close-paren
before point. When in sexp-mode this is the overlay for
the expression before point.
POINT: Overlay for the close-paren before point.
This is not used when is sexp-mode.
FOREW: Overlay for the close-paren which matches the open-paren
after point. When in sexp-mode this is the overlay for
the expression after point.
(defvar mic-paren-overlays (byte-code "\300\301\302\211\"\301\302\211\"\301\302\211\"#\207" [vector mic-make-overlay 1] 6) (#$ . 80503))
#@77 Idle-timer.
Used only in Emacs 19.31 and above (and if paren-delay is nil).
(defvar mic-paren-idle-timer nil (#$ . 81110))
#@119 Where point was the last time mic-paren performed some action.
This is is a vector of the form [POINT BUFFER WINDOW].
(defvar mic-paren-previous-location [nil nil nil] (#$ . 81240))
#@892 Activate mic-paren parenthesis highlighting.
Note: This also deactivates the paren.el
and stig-paren.el packages if they are active!
The following options are available via the customize-feature:
`paren-priority'
`paren-overlay-priority'
`paren-sexp-mode'
`paren-highlight-at-point'
`paren-highlight-offscreen'
`paren-display-message'
`paren-message-linefeed-display'
`paren-message-no-match'
`paren-message-show-linenumber'
`paren-message-truncate-lines'
`paren-ding-unmatched'
`paren-delay'
`paren-dont-touch-blink'
`paren-match-face'
`paren-mismatch-face'
`paren-no-match-face'
`paren-bind-modified-sexp-functions'
The following options are settable via toggling functions (look at the
documentation of these options for the names of these functions):
`paren-match-quoted-paren'
`paren-match-paired-delimiter'
`paren-open-paren-context-backward'
(defalias 'paren-activate #[0 "\306 \210\307\310!\203 \311\310\312\"\210\311\313\312\"\210\307\300!\203! \203! \314!\210\307\301!\203/ \203/ \314 !\210\307\310!\203: \311\310\315\"\210\311\313\315\"\210\311\313\316\"\210\311\317\320\"\210\n\204O \321\322\323!\203k \f\247\203c \324\f\325\326#\202\235 \327\313\330\"\210\202\235 \307\310!\203\213 \307\331!\203\213 \f\203\203 \327\310\326\"\210\202\235 \327\313\330\"\210\202\235 \307\313!\203\231 \327\313\330\"\210\202\235 \332\333!\210\327\334\335\"\210\327\336\337\"\207" [show-paren-overlay show-paren-overlay-1 paren-dont-touch-blink blink-matching-paren paren-delay mic-paren-idle-timer paren-deactivate boundp post-command-idle-hook remove-hook show-paren-command-hook post-command-hook mic-delete-overlay stig-paren-command-hook stig-paren-safe-command-hook pre-command-hook stig-paren-delete-overlay nil featurep timer mic-run-with-idle-timer t mic-paren-command-idle-hook add-hook mic-paren-command-hook post-command-idle-delay error "Cannot activate mic-paren in this Emacs version" minibuffer-setup-hook mic-paren-minibuffer-setup-hook minibuffer-exit-hook mic-paren-minibuffer-exit-hook] 4 (#$ . 81429) nil])
#@48 Deactivate mic-paren parenthesis highlighting.
(defalias 'paren-deactivate #[0 "\304\305!\203 \306\305\307\"\210\203 \310!\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\317 \320H!\210\317 \321H!\210\317 \322H!\210\n\206; \323\211\207" [mic-paren-idle-timer mic-paren-overlays paren-dont-touch-blink blink-matching-paren boundp post-command-idle-hook remove-hook mic-paren-command-idle-hook mic-cancel-timer post-command-hook mic-paren-command-hook minibuffer-setup-hook mic-paren-minibuffer-setup-hook minibuffer-exit-hook mic-paren-minibuffer-exit-hook mic-delete-overlay 0 1 2 t] 3 (#$ . 83504) nil])
#@328 Toggle matching paired delimiter.
Force on with positive ARG. Use this in mode hooks to activate or
deactivate paired delimiter matching. If optional second argument
NO-MESSAGE is non-nil then don't display a message about the
current activation state of the paired-delimiter-matching feature.
(fn ARG &optional NO-MESSAGE)
(defalias 'paren-toggle-matching-paired-delimiter #[513 "\247\203 \301V\202 ?\211?\205 \302\303\203 \304\202 \305\"\207" [paren-match-paired-delimiter 0 message "Matching paired delimiter is %s" "ON" "OFF"] 5 (#$ . 84131) "P"])
#@317 Toggle matching quoted parens.
Force on with positive ARG. Use this in mode hooks to activate or
deactivate quoted paren matching. If optional second argument
NO-MESSAGE is non-nil then don't display a message about the
current activation state of the quoted-paren-matching feature.
(fn ARG &optional NO-MESSAGE)
(defalias 'paren-toggle-matching-quoted-paren #[513 "\247\203 \303V\202 ? @ A@\203 \304\202 \305\n\2034 \2034 \2034 \306@\"\210\306A\"\210\266\211?\205G \307\310\203E \311\202F \312\"\207" [paren-match-quoted-paren mic-paren-original-keybinding-of-sexp-functions paren-bind-modified-sexp-functions 0 (paren-forward-sexp . paren-backward-sexp) (forward-sexp . backward-sexp) local-set-key message "Matching quoted parens is %s" "ON" "OFF"] 8 (#$ . 84703) "P"])
#@190 Toggle whether or not to determine context of the matching open-paren.
Force backward context with positive ARG. Use this in mode-hooks.
See `paren-open-paren-context-backward'.
(fn ARG)
(defalias 'paren-toggle-open-paren-context #[257 "\211\247\203 \211\301V\202 ?\211\207" [paren-open-paren-context-backward 0] 3 (#$ . 85503) "P"])
#@108 Act like `forward-sexp' but also handle quoted parens.
See `paren-match-quoted-paren'.
(fn &optional ARG)
(defalias 'paren-forward-sexp #[256 "\211\204 \300\262\211\301W\203 \302\202 \300\301W\203 \300\202 \302\303`Z!\304\211\30515 \306`\"\211\2620\210\2026 \210\307!\210\204C \310!\207\311Z\"\262\211\203T \312!\207b\207" [1 0 2 mic-paren-uncharquote nil (error) scan-sexps mic-paren-recharquote buffer-end mic-paren-fcq-mismatch forward-sexp] 9 (#$ . 85850) "^p"])
#@108 Act like `backward-sexp' but also match quoted parens.
See `paren-match-quoted-paren'.
(fn &optional ARG)
(defalias 'paren-backward-sexp #[256 "\211\204 \300\262\301[!\207" [1 paren-forward-sexp] 3 (#$ . 86347) "^p"])
(defalias 'mic-paren-command-idle-hook #[0 "\3001 \301 0\207\302\303 !?\205 \304\305\"\207" [(error) mic-paren-highlight window-minibuffer-p selected-window message "mic-paren caught error (please report): %s"] 4])
(defalias 'mic-paren-command-hook #[0 "\206 \301 \206 \302 \207" [executing-kbd-macro input-pending-p mic-paren-command-idle-hook] 1])
(defalias 'mic-paren-minibuffer-setup-hook #[0 "\300\301\302\"\207" [paren-toggle-matching-quoted-paren 1 t] 3])
(defalias 'mic-paren-minibuffer-exit-hook #[0 "\300\301\302\"\207" [paren-toggle-matching-quoted-paren -1 t] 3])
#@22
(fn POS CHARQUOTE)
(defalias 'mic-paren-fcq-mismatch #[514 "\300\301!\203 \302\202\f \303\203 \302\202 \303\"\303U?\207" [logxor mic-paren-is-following-char-quoted 1 0] 5 (#$ . 87157)])
#@102 Do everything: highlighting, dinging, messages, cleaning-up.
This is the main function of mic-paren.
(defalias 'mic-paren-highlight #[0 "\305\306H!\210\305\307H!\210\305\310H!\210 \311C\311C\311C\311C\311C\311C\312\313\314\315\"\316\317\314\320\"\314\321\"\322\314\323&\324\325\n`\310Z\326\327#\203\310 \330`\310Z!\240\210\f\311%\204w \331``S&\210\202\310 \332\333\"\210 \242\204\212 \n\204\212 \203\271 !\331\242\203\234 `\202\240 \242T\242$\210\211\204\270 \f\203\270 \334`S`\242$\210\210\211 \335&\210\n`S\336\311#\2037\330`S!\240\210\f\327%\204\373 \337``T&\266\f\2029\340\341\"\210 \242\204\n\204 \203(\337!\203 `\202 \242S\242\242$\210\211 \342&\210\266 \343\344 !?\205S\306`I\210\307pI\210\310\344 I\207" [mic-paren-overlays mic-paren-previous-location paren-highlight-offscreen paren-sexp-mode paren-highlight-at-point mic-delete-overlay 0 1 2 nil #[771 "\303!=\203 \304\202 \305\203 \305\202 \304 z\203# \306\202$ \307=\203E \211 z\2033 \307\2024 \306=\203< \204E \206` ?\206` \n\205` z\310=\205` \211 z\310=\205Z ?\205` ?\207" [paren-priority paren-match-quoted-paren paren-match-paired-delimiter mic-paren-is-following-char-quoted preceding-char following-char 41 40 36] 9 "\n\n(fn POS PRIO WHICH)"] #[0 "\303N\206! \304\303\305\306 \307\"\n\310\"\"\311\230\203 \312\202 \313\262#\207" [major-mode comment-start comment-end mic-paren-comment-style put #[514 "\3001 \301V\203 G\\\202 H0\207\210\301\207" [(error) 0] 5 "\n\n(fn STR POS)"] string 0 -1 "()" sexp normal] 9] make-closure #[514 "\300 \302=\205& \303V\203 \304\305S!8\306u\210\207\307 \310\311\"\216\312\313 !!)\262\207" [V0 comment-start sexp 0 8 syntax-ppss 1 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-at regexp-quote] 6 "\n\n(fn P MULT)"] #[1285 "\211\203 \301\202 \302\212\214\203- `_\\\203 e\202 \211e]\203) d^\202* d}\266\3031N `\"\204A \304\"\202F \305!\210`\262\2400\210\202O \210*\203X \306\202Y \307 \310!\240\210\211z\311=\203k \240\210\210\312\242!\210\242\207" [blink-matching-paren-distance 1 -1 (error) scan-sexps forward-comment following-char preceding-char matching-paren 36 mic-paren-recharquote] 11 "\n\n(fn CHARQUOTE OPOS MATCHED-PAREN --CL-SEXP-ISH-COMMENT-EDGE-- FORWARDP)"] #[1028 "\302\"\303\304#\210\303\305#\210 \306\236AI\207" [paren-overlay-priority mic-paren-overlays mic-make-overlay mic-overlay-put face priority ((backw . 0) (point . 1) (forew . 2))] 9 "\n\n(fn PLACE B E FACE)"] #[0 "`\300\301H=\205 p\300\302H=\205 \303 \300\304H=?\207" [V0 0 1 selected-window 2] 3] #[257 "\211\205 \205 \300 \205 \302 \207" [V0 paren-ding-unmatched ding] 2 "\n\n(fn OK)"] #[1542 "$\210 \203* \303\304 !\204* \n\204* \203* \305\306\307=\203' \310\202( \311\"\210 !\207" [paren-no-match-face paren-message-no-match isearch-mode window-minibuffer-p selected-window mic-paren-nolog-message "No %sing parenthesis found" backw "open" "clos"] 11 "\n\n(fn --CL-NOV-- --CL-NEW-LOCATION-P-- --CL-DING-MAYBE-- PLACE B E)"] #[514 "\303\302\242?\206 \302\242\301\242!U?\206 \306\301\242\\\300\242\"\240\210\304\303\242\203' \202) \f\240\210\305\307\301\242!\205I \212\301\242b\210i\310 Z\311W\205F \312 V\262)\240\207" [V0 V1 V2 V3 V4 V5 mic-paren-fcq-mismatch pos-visible-in-window-p window-hscroll -1 window-width paren-mismatch-face paren-match-face] 6 "\n\n(fn C-AT OFS)"] #[257 "\301=\203\n \211\242?\207\302=\203 \211\242\207\303>\205 \207" [paren-sexp-mode match mismatch (nil t)] 3 "\n\n(fn MISMATCH)"] #[1542 "\304=\2048 \242\203 \305=\2038 \306\307 !\2048 \2048 \2038 \n\310\311\242\203/ \312\2020 \313 \242!#\210)\242!\207" [paren-display-message isearch-mode paren-message-truncate-lines message-truncate-lines never always window-minibuffer-p selected-window mic-paren-nolog-message "%s %s" "MISMATCH:" "Matches"] 11 "\n\n(fn OPOS MISMATCH VISIBLE --CL-NEW-LOCATION-P-- --CL-DING-MAYBE-- GET-MESSAGE)"] open t mic-paren-uncharquote backw char-after -1 point mic-paren-get-matching-open-text close forew char-before -2 mic-paren-get-matching-close-text window-minibuffer-p selected-window] 25 (#$ . 87357)])
#@516 Return a string with the context around OPEN-paren.
If there's stuff on this line preceding the paren, then
display text from beginning of line to paren.
If, however, the paren is at the beginning of a line (means only
whitespace before the paren), then skip whitespace forward and
display text from paren to end of the next line containing
non-space text. But if `paren-open-paren-context-backward' is
non-nil, then skip whitespaces backward and display text from
beginning of previous line to paren.
(fn OPEN)
(defalias 'mic-paren-get-matching-open-text #[257 "\303=\203\n `\202 e\212b\210\212\304\305x\210n)\2046 \306 \210\307\310`T{\303=\203, \311\202- \312\313\"$\202q \305 \204M \314u\210\315\305w\210\305\210`{\262\202Z \315\305x\210\306 \210`T{\262\307\316\303=\203g \311\202h \312\313\"$\262)\317\320\"\203\204 \321\n\305\322$\262\202r \207" [paren-message-show-linenumber paren-open-paren-context-backward paren-message-linefeed-display sexp " " nil beginning-of-line format "%s... [%s%d-]" "-" "" count-lines 1 "\n " "%s [%s%d]" string-match "[\n]" replace-match t] 10 (#$ . 91657)])
#@171 Return a string with the context around CLOSE-paren.
The whole line up until the close-paren with "..."
appended if there is more text after the close-paren.
(fn CLOSE)
(defalias 'mic-paren-get-matching-close-text #[257 "\302=\203\n `\202 e\212b\210\303u\210\304\305x\210\306 \210\307\310`{b\210\311\312!\203+ \313\202, \314\302=\2036 \315\2027 \313\316\"%)\317\320\"\203Q \321 \305\322$\262\202? \207" [paren-message-show-linenumber paren-message-linefeed-display sexp -1 "\n " nil beginning-of-line format "%s%s [%s%d]" looking-at "[ ]*$" "" "..." "+" count-lines string-match "[\n]" replace-match t] 10 (#$ . 92787)])
#@78 Return t if character at POS escapes or quotes the following char.
(fn POS)
(defalias 'mic-paren-is-following-char-quoted #[257 "\300eX\203 fz\301>\203 \211T\262S\262\202 \211\302\246\300U?\207" [0 (92 47) 2] 4 (#$ . 93430)])
#@258 Modify syntax of character at POS, maybe.
If the syntax of character C at POS is escape or quote and if the
character is not escaped or quoted itself then modify its syntax to
punctuation and return the list (C SYNTAX-STRING-OF-C); otherwise nil.
(fn POS)
(defalias 'mic-paren-uncharquote #[257 "eX\205 \205 \301!\205 \211f\302\303\"\210\211\304z!D\262\207" [paren-match-quoted-paren mic-paren-is-following-char-quoted modify-syntax-entry "." char-to-string] 5 (#$ . 93672)])
#@160 Modify syntax entry according to CHARQUOTE.
If CHARQUOTE is nil, do nothing. Otherwise, it
should be a list of the form (CHAR SYNTAX-STRING).
(fn CHARQUOTE)
(defalias 'mic-paren-recharquote #[257 "\211\205 \300\301\"\207" [apply modify-syntax-entry] 4 (#$ . 94165)])
(byte-code "\204 \306\307!\204 \3101 \311\307!0\210\202 \210\312\313!\210\312\314!\210\315\316\211\317\320\316\321\322\321\323 \207" [paren-dont-load-timer paren-priority paren-highlight-at-point paren-highlight-offscreen paren-display-message paren-message-linefeed-display featurep timer (error) require provide mic-paren paren both t only " ⏎ " nil 0.1 paren-activate paren-message-no-match paren-ding-unmatched paren-delay paren-dont-touch-blink] 3)
(defvar paren-hilight-mode 1)
(defvar paren-hilight-modes [nil (paren-face-match) (bold . t) (paren-face-match-full . t)])
#@74 Switch to the previous paren-hilight mode or to the ARGth one.
(fn ARG)
(defalias 'prev-paren-hilight-mode #[257 "\302\206 \303S G\"!\207" [paren-hilight-mode paren-hilight-modes set-paren-hilight-mode mod] 5 (#$ . 95039) "P"])
#@70 Switch to the next paren-hilight mode or to the ARGth one.
(fn ARG)
(defalias 'next-paren-hilight-mode #[257 "\302\206 \303T G\"!\207" [paren-hilight-mode paren-hilight-modes set-paren-hilight-mode mod] 5 (#$ . 95277) "P"])
#@10
(fn N)
(defalias 'set-paren-hilight-mode #[257 "\211GS^ \234\211\203 \211@\211A\304 \210\202 \305 \210\306\307 \"\207" [paren-hilight-modes paren-hilight-mode paren-match-face paren-sexp-mode paren-activate paren-deactivate message "Paren mode #%s"] 5 (#$ . 95511)])
(byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\210\304\311\312\"\210\304\313\314\"\207" [define-keys global ("C-(" prev-paren-hilight-mode) ("C-)" next-paren-hilight-mode) simple-make-face yellow/h22a paren-face-match yellow/h315 paren-face-match-full yellow/red3 paren-face-mismatch yellow/green3 paren-face-no-match] 4)
#@1014 *A function to determine window configurations.
This function is called whenever a new frame is made (and on the initial
frame), and passed that frame as its first argument, and `t' as its second if
this is for a newly-made frame. It should return a plist of
(option: value ...) that determine the configuration of this frame.
The options are:
- `size:' the value should be a list of width/height in characters to be used
for the window (defaults to `eli-size')
- `w:' and `h:' can be used to set the width and height individually
- `pos:' the value should be an x/y position for the window (defaults to
`eli-window-pos')
- `x:' and `y:' can be used to set the x and y position individually
- `fn:' the value should be a string naming a default font to use (defaults to
`eli-font'), or `auto', in which case calculate a font size that makes
`w:'-specified characters fit the width (see `eli-font-for-width').
If it is bound to nil (the default) or if `window-system' returns nil, then it
is not used.
(defvar window-configurations nil (#$ . -96136))
#@18
(fn PROPS VAR)
(defalias 'win-init-merge-props '(macro . #[514 "\300\301\302D\303\304\305EEE\303\306EEE\207" [progn dolist prop setq assq-delete-all (car prop) append] 10 (#$ . 97204)]))
(byte-code "\306 \307\310BC\262\311!\210\312\n\203 \313\202 \314!\210\315\n\203$ \313\202% \316BB\262\317\320!\203> \321\320\f\203; \313\202< \314!\210\322\f\203G \313\202H \316BB\262\313\316 \323\324\307\325\307$\210\317\326!\203o \326 \327>\203l \202m \330!\210!\204y \331\332\307\"\210\"\203\207 #\204\207 \333\314!\210\211\211\203\235 \211@\334@$\"$A\266\202\202\210 \210\335$\"$\211\211\203\273 \211@\334@%\"%A\266\202\202\246 \210\335%\"% \336 \210)\210\207" [eli-color-style frame-background-mode eli-use-menubar tool-bar-position eli-use-toolbar tool-bar-button-relief selected-frame nil background-mode frame-set-background-mode menu-bar-mode 1 -1 menu-bar-lines 0 functionp tool-bar-mode top tool-bar-lines set-face-attribute tool-bar :box set-scroll-bar-mode (left right nil) left set-default mode-line-format blink-cursor-mode assq-delete-all append frame-notice-user-settings tool-bar-button-margin eli-use-scrollbar eli-use-modeline window-system eli-blink-cursor default-frame-alist initial-frame-alist] 7)
(defvar current-antialias nil)
#@29
(fn &optional FRAME INIT)
(defalias 'win-init-apply-conf #[512 "\206 \306 \307 \205 \205 \" @ A@\n@\nA@ \2050\310\211\203\227 @\262A@\262AA\262\311=\203I \211@\262\211A@\262\202% \312=\203U \211\262\202% \313=\203a \211\262\202% \314=\203s \211@\262\211A@\262\202% \315=\203 \211\262\202% \316=\203\213 \211\262\202% \317=\203% \211\262\202% \266\211\203\323 \211;?\206\261 \320\310\321 \322#)\266\203?\323\324=\203\314 \203\314 \325\326#\210\327!\202\315 !\210\330\321!\210\203\353 \203\353 \331#\210\330\321!\210\202\f\203\375 \332\"\210\330\321!\210\202\f\203\f\333\"\210\330\321!\210\204\2050\334\335\336\337\206 \340E\341\337\206)\340EE\"\210\330\321!\207" [window-configurations eli-size eli-window-pos eli-font inhibit-changing-match-data current-antialias selected-frame window-system nil size: w: h: pos: x: y: fn: "antialias=0" t string-match set-frame-font auto set-frame-parameter desired-width eli-font-for-width redisplay set-frame-size set-frame-width set-frame-height modify-frame-parameters (user-position . t) left + 0 top] 16 (#$ . 98498) nil])
(byte-code "\301B\302\303\304\"\207" [after-make-frame-functions #[257 "\300\301\302\303\304\"#\207" [run-with-idle-timer 0.2 nil make-closure #[0 "\301\300\302\"\207" [V0 win-init-apply-conf t] 3]] 7 "\n\n(fn F)"] add-hook emacs-startup-hook #[0 "\300\301\302\"\207" [win-init-apply-conf nil t] 3]] 3)
#@10
(fn N)
(defalias 'eli-use-larger-font #[257 "\211\300=\203\n \301\202 \211\204 \302\202 \211\303\304\305\"\211\\\306\304\307\305$\210\310\311\312V\203. \313\202/ \314%\207" [- -10 10 face-attribute default :height set-face-attribute nil message "Font size changed: %S --[%s%S]--> %S" 0 "+" ""] 10 (#$ . 99960) "P"])
#@10
(fn N)
(defalias 'eli-use-smaller-font #[257 "\211\300=\203\n \301\202 \211\204 \302\202 \211\303[!\207" [- -10 10 eli-use-larger-font] 4 (#$ . 100294) "P"])
(defalias 'eli-flip-antialias #[0 "\302\303\304\203 \305\306!X\202 ?\211\203 \307\202 \305\"!\207" [current-prefix-arg current-antialias set-frame-font format ":antialias=%S" 0 prefix-numeric-value 1] 6 nil nil])
#@237 Find a font that will fill the whole monitor width at W characters, when
including the fringe and scroll-bar widths. The given font-name (defaults
to "Consolas") is used with a "-NN" suffix to set its size.
(fn W &optional FONT-NAME)
(defalias 'eli-font-for-width #[513 "\300\301\302 \2368\211\303 Z\304 Z\206 \305\306\307#\310\311\312\211\211W\203q \\\313\245\262\314\315#\262\316\317!\320\"\210\321\312\"\262\262U\203N \262\202 \211W\203[ \262\202 \211V\203h \262\202 \262\262\202 \207" [3 geometry frame-monitor-attributes frame-scroll-bar-width frame-fringe-width "Consolas" / 1.0 1 100 nil 2 format "%s-%s" make-face temp set-face-font window-font-width] 15 (#$ . 100686)])
(byte-code "\301\302!\210\303\301\207" [shift-select-mode transient-mark-mode 1 t] 2)
#@39 Display the EliEmacs Quick Reference.
(defalias 'eliemacs-quickref #[0 "\301P\302!\203 \303!\207\304\305\"\207" [eli-dir "QuickRef.txt" file-readable-p view-file error "Couldn't find the file (%S)"] 4 (#$ . 101500) nil])
#@43 Sort a whole buffer - using `sort-lines'.
(defalias 'sort-buffer #[0 "\300\301ed#\207" [sort-lines nil] 4 (#$ . 101732) nil])
#@205 *Delete windows when `kill-save-buffer' is used.
If this is non-nil, then `kill-save-buffer' will also delete the corresponding
windows. This is inverted by `kill-save-buffer' when called with a prefix.
(defvar kill-save-buffer-delete-windows t (#$ . -101865))
#@194 Save the current buffer (if needed) and then kill it.
Also, delete its windows according to `kill-save-buffer-delete-windows'.
A prefix argument ARG reverses this behavior.
(fn &optional ARG)
(defalias 'kill-save-buffer #[256 "\203 \211?\262\301 \302 \203 \211\203 \303!\204 \304 \210\210p\203' \305!\210\306!\207" [kill-save-buffer-delete-windows buffer-file-name buffer-modified-p file-directory-p save-buffer delete-windows-on kill-buffer] 5 (#$ . 102134) "P"])
(defvar eli-goto-line-mode-alist '((scheme-mode 1 0 move-to-column) (js-mode 1 1 forward-char) (typescript-mode 1 1 forward-char) (* 1 0 move-to-column)))
#@75 Like `goto-line` but accepts LINE:COL as input
(fn ARG &optional BUFFER)
(defalias 'eli-goto-line #[513 ";\203 \302 \303\304\"\216\305\306\"\205 \307\303\310\"\311\")\262\202& \312\313!\312E\211:\205\244 \211\242\243\211:\205\242 \211\242\243\211:\205\240 \211\242\243\211?\205\236 \205O \314\227!\211\315>\203Y \316\202d \211\317>\203c \320\202d \262 \236\206n \321 \236A\211@A@\205 \322!Z\205\211 \322!Z\323T\"\210\211\205\234 \324y\210\3258!\266\205\266\202\266\202\266\202\207" [major-mode eli-goto-line-mode-alist match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\(\\`[a-zA-Z]+\\)?.*?\\([0-9]+\\)\\(?:[^0-9]+\\([0-9]+\\)\\)?" mapcar #[257 "\301\300\"\207" [V0 match-string] 4 "\n\n(fn N)"] (1 2 3) nil number-to-string intern (racket rkt r) scheme-mode (typescript ts t) typescript-mode * string-to-number goto-line 0 2] 17 (#$ . 102772) (byte-code "\203 :\204 \301!C\207\302\303!C\207" [current-prefix-arg prefix-numeric-value read-string "Goto line(:col): "] 2)])
#@83 Same as `other-window' but goes back when shifted.
(fn ARG &optional ALL-FRAMES)
(defalias 'eli-other-window #[513 "\301\203\n [\202 \"\207" [this-command-keys-shift-translated other-window] 5 (#$ . 103836) "p"])
#@12
(fn ARG)
(defalias 'delete-word #[257 "`v\210`|\207" [] 3 (#$ . 104061) "*p"])
#@12
(fn ARG)
(defalias 'delete-sexp #[257 "`\300!\210`|\207" [forward-sexp] 4 (#$ . 104149) "*p"])
#@12
(fn ARG)
(defalias 'backward-delete-word #[257 "\300[!\207" [delete-word] 3 (#$ . 104253) "*p"])
#@12
(fn ARG)
(defalias 'backward-delete-sexp #[257 "\300[!\207" [delete-sexp] 3 (#$ . 104359) "*p"])
#@91 Same as `kill-region', but does nothing with inactive mark or empty region.
(fn BEG END)
(defalias 'eli-kill-region #[514 "\205 U?\205 \302\303\"\207" [mark-active last-command nil kill-region] 5 (#$ . 104465) "r"])
#@94 Like `yank', but pops the value out of the `kill-ring-yank-pointer' top.
(fn &optional ARG)
(defalias 'eli-yank-really-pop #[256 "\302!\210\302=\203\" A\203 \211A@\240\210 \211AA\241\210\202\" \303\240\210\304\207" [this-command kill-ring-yank-pointer yank "" nil] 3 (#$ . 104696) "*p"])
(put 'eli-yank-really-pop 'delete-selection t)
#@194 Toggle `truncate-lines', `line-move-visual', and `visual-line-mode'.
Use `line-move-visual' and `visual-line-mode' only if used successive times.
With a prefix argument go back to the default.
(defalias 'eli-toggle-lines-mode #[0 "\203 \306\202! \203 \n\203 \307\202! \310\202! \n\203 \311\202! \312 \f=\313\314\315\"\2031 \312\202Q \203B >A@\206Q \211@\202Q @=\203O \211A@\202Q \211@\316\307=\203\\ \317\202] \320!\210\211\306=\211\321>\211\322>\212\323y\210\324\323!\210\325\326 !\210)\327\330\236A@\"\207" [truncate-lines word-wrap line-move-visual this-command last-command current-prefix-arg truncate vwords words vlines wrapped ((wrapped "wrapped lines") (truncate "truncated lines") (vwords "word-wrapped lines with visual movement")) mapcar car visual-line-mode 1 -1 (vwords words) (vlines vwords) 0 sit-for redraw-frame selected-frame message "Using %s."] 9 (#$ . 105045) nil])
(defvar eli-track-eol nil)
(defvar eli-line-movement-without-dings nil)
#@106 Like `previous-line', but ding only if cannot move + do my eol tracking.
(fn &optional ARG TRY-VSCROLL)
(defalias 'eli-previous-line #[512 "\204 \302\262o\203 \2045 \303 \210\2025 `\304[\305\306$\210\211`U\2034 eb\210\2044 \211`U\2034 \303 \210\210\307\306\207" [eli-line-movement-without-dings this-command 1 ding line-move t nil previous-line] 8 (#$ . 106030) "^p\np"])
#@102 Like `next-line', but ding only if cannot move + do my eol tracking.
(fn &optional ARG TRY-VSCROLL)
(defalias 'eli-next-line #[512 "\204 \302\262m\203 \2044 \303 \210\2024 `\304\305\306$\210\211`U\2033 db\210\2043 \211`U\2033 \303 \210\210\307\306\207" [eli-line-movement-without-dings this-command 1 ding line-move t nil next-line] 8 (#$ . 106419) "^p\np"])
#@95 Like `end-of-line', but makes further up/down movements stick to the eol.
(fn &optional ARG)
(defalias 'eli-end-of-line #[256 "\211\204 \303\262\203 \304!\210\202 \211\210\305\306 \307 _!\310\211\207" [line-move-visual temporary-goal-column this-command 1 end-of-visual-line float window-width frame-char-width next-line] 4 (#$ . 106794) "^p"])
#@47 Like `beginning-of-line'.
(fn &optional ARG)
(defalias 'eli-beginning-of-line #[256 "\211\204 \301\262\203 \302!\207\303!\207" [line-move-visual 1 beginning-of-visual-line beginning-of-line] 3 (#$ . 107155) "^p"])
(autoload 'dired-jump "dired-x" nil t)
#@57 Same as (transpose-chars ARG), but backwards.
(fn ARG)
(defalias 'transpose-chars-backward #[257 "\300\301![!\207" [transpose-chars prefix-numeric-value] 4 (#$ . 107421) "*P"])
#@57 Same as (transpose-words ARG), but backwards.
(fn ARG)
(defalias 'transpose-words-backward #[257 "\300\301![!\207" [transpose-words prefix-numeric-value] 4 (#$ . 107606) "*P"])
#@57 Same as (transpose-lines ARG), but backwards.
(fn ARG)
(defalias 'transpose-lines-backward #[257 "\300\301![!\207" [transpose-lines prefix-numeric-value] 4 (#$ . 107791) "*P"])
#@57 Same as (transpose-sexps ARG), but backwards.
(fn ARG)
(defalias 'transpose-sexps-backward #[257 "\300\301![!\207" [transpose-sexps prefix-numeric-value] 4 (#$ . 107976) "*P"])
#@73 Like `join-line', but with a default argument of 1.
(fn &optional ARG)
(defalias 'eli-join-line #[256 "\211\300U?\205E \212\300y\210`)\212\301y\210`S){\302\300W?\205 \301!\210n\203* \211c\210\2023 \303\304!\2033 \305 \210\211\300W\203> \301\202? \306\\\266\202\202 \207" [0 1 join-line looking-at "[ ]+$" delete-horizontal-space -1] 5 (#$ . 108161) "*p"])
#@225 Like `next-buffer', but not cyclic.
A prefix argument determines how many buffers to skip (default is 1), if
negative, count from the end. With no argument, don't choose a buffer
that is shown in some other window.
(fn N)
(defalias 'eli-next-buffer-acyclic #[257 "\211\303=?\205\304 \304\305 \306 \307 #\203 \303W\203 \310!\202 \211\311\206& \312!Sp\313\314\315\"\314\211\204\241 \203\241 @\211:\203B \211@\202C \211=?\205\201 \316!\205\201 \203Z !\205\201 \317!\303H\320=?\205\201 :\203} \203} \321\301!\203x \202z \n?\206\201 \322!?\211\203\227 \303U\203\222 \262\202\227 S\262A\262\266\202. \211\203\277 \211:\203\273 \323@!\210\324\314@A@\3258$\207\323!\207\326\327!\266\206\207" [current-prefix-arg switch-to-visible-buffer switch-to-prev-buffer-skip 0 append window-prev-buffers buffer-list window-next-buffers reverse abs 1 frame-parameter nil buffer-predicate buffer-live-p buffer-name 32 boundp get-buffer-window switch-to-buffer set-window-buffer-start-and-point 2 error "Not enough buffers"] 13 (#$ . 108530) "p"])
#@10
(fn N)
(defalias 'eli-resize-window #[257 "\302 \303Y\203 \211\202 \304\236A\206 \305\"@\262\306!\307\236\206+ \310\311\312 #A@\211!\210\313\314!\210\315\316!\205g \317 \211\203[ \211@\320\321@!\322\302\323\311\fDF#\210A\266\202\202> \210\324\325\302\326\327\330##\262)\207" [echo-keystrokes last-command-event nil 0 ((up . down) (left . right)) rassq abs ((down enlarge-window) (right enlarge-window-horizontally) (up shrink-window) (left shrink-window-horizontally)) error eli-resize-window "invoked by unknown key: %S" message "Use arrows for further adjustment" called-interactively-p any make-sparse-keymap define-key vector lambda (interactive) run-with-idle-timer 2 set-transient-map t #[0 "\300\301!\207" [message nil] 2]] 17 (#$ . 109600) "p"])
#@83 Like `write-file', but with a prefix argument delete the original file.
(fn NEW)
(defalias 'eli-write-or-move-file #[257 "\301 \205 \302\303\"\210\211\205+ \301 \262\205+ \205+ \232?\205+ \304!\210\305\306\"\207" [current-prefix-arg buffer-file-name write-file t delete-file message "Moved to %s"] 6 (#$ . 110383) (byte-code "\203\f \203\f \303\202 \304 \203 \305\306\211\211\211%\202( \305\n\307\310\311 !\n\"\306\211%C\207" [current-prefix-arg buffer-file-name default-directory "Move to file: " "Write file: " read-file-name nil expand-file-name file-name-nondirectory buffer-name] 7)])
#@70 Like `eval-last-sexp' or `eval-region', depending on an active mark.
(defalias 'eli-eval-last-sexp-or-region #[0 "\203 \302\202 \303\304 !\207" [mark-active this-command eval-region eval-last-sexp call-interactively] 2 (#$ . 110997) nil])
#@99 Similar to `compare-windows' but for last two buffers instead of windows.
(fn IGNORE-WHITESPACE)
(defalias 'eli-compare-two-buffers #[257 "\300\211\211\211\211\301 \302\303\"\216\304 \210\305 \210p\262\306 \262\307\306 !\262\310!\210\311\300!\262\310!\210\312!\210\310!\210`\262\310!\210)\210\311!\210\211b\210\311!\207" [nil current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] delete-other-windows split-window-vertically selected-window next-window select-window switch-to-buffer compare-windows] 10 (#$ . 111246) "P"])
(defvar eli-balance-windows-last nil)
#@203 Like either `balance-windows' or `balance-windows-area'.
With a (positive) prefix argument, balance by area instead of a plain balance.
Consecutive uses will flip by-area and plain balancing.
(fn ARG)
(defalias 'eli-balance-windows #[257 " =\203 \n?\211\203 \303 \207\304 \207\211\203 \305\304 \207\306\303 \207" [last-command this-command eli-balance-windows-last balance-windows balance-windows-area nil t] 3 (#$ . 111873) "P"])
#@74 Like `term', but runs a shell immediately (prefix arg: ask like `term').
(defalias 'eli-term #[0 "\203 \302\303!\207\303\304\305!\203 \305J\206% \206% \306\307!\206% \306\310!\206% \311!\207" [current-prefix-arg shell-file-name call-interactively term boundp explicit-shell-file-name getenv "ESHELL" "SHELL" "/bin/sh"] 3 (#$ . 112318) nil])
(defvar buffer-local-keymap nil)
(make-variable-buffer-local 'buffer-local-keymap)
#@91 Same as `local-set-key' but ensures the current buffer has its own map.
(fn KEY COMMAND)
(defalias 'buffer-local-set-key #[514 "\204 \301 \302 \203 \303\302 \"\210\304!\210\305\306\307\"\210\310\"\207" [buffer-local-keymap make-sparse-keymap current-local-map set-keymap-parent use-local-map message "NOTE: buffer-local keymap in effect, %s" "local-key operations will use it from now" local-set-key] 5 (#$ . 112752) "KSet key buffer-locally: \nCSet key %s locally to command: "])
#@69 Undoes all bindings that `buffer-local-set-key' did in this buffer.
(defalias 'buffer-local-unset-all #[0 "\301\204 \302\202 \303\304!!\210\305\306!\207" [buffer-local-keymap message "Wasn't using a local map." use-local-map keymap-parent nil "Removed `buffer-local' bindings."] 4 (#$ . 113248) nil])
(defvar eli-insert-pair-last-data nil)
(defvar eli-pairs-cycle nil)
#@637 Similar to `insert-pair', except better.
- default is to insert the character in both places
- negative prefix argument will use words instead of sexprs
- always inserts spaces around the new pair
- calling this a second time will use the previous call's location
- always deactivate the mark and put the cursor in the beginning
- wraps pair around the next *sexprs*, skipping comments and newlines
- more cases for spaces (comments, symbols, etc)
`eli-pairs-cycle' can be '((OPEN . CLOSE) ...) to choose OPEN and
CLOSE from the list based on the delimiters used in the last
call (on consecutive calls).
(fn &optional ARG OPEN CLOSE)
(defalias 'eli-insert-pair #[768 "\203\n \306!\202 \307 =\205 \n\310\311\211\211\211\203! \204\212 \203E \3128 \235\211A\2036 \211A@\2028 @\211@\262 \211A\262\n\266\202\212 \313\f!\f\236\206Q \211\236\211\203x \3128\203j \211A@\262 \3128\262\n\266\202\212 \211@\262 \211A@\262\n\266\202\212 \n\206~ \262 \206\206 \262\n\266 !\262 G\262!\262G\262\203@\262A@\262 \203Q\3128@G\3128AG\211\\|\210Z|\210\3148\311\203\355 =\204\355 \211A\262\242\211\203\351 \211B\262\210\202\320 \211\237\244\266Z\262Z\262\266\202Q\315 \203\316 \262\317 \262\202Q\307V\2031\320\321!\210\320\322!\210`\262\320!\210`\262\202Q\307W\203K\321v\210\322v\210`\262v\210`\262\202Q`\262`\262\211b\210c\210\203y\204ym\204yl\204ygz \307Hz\323B>\203y\324c\210b\210\203\246\204\246o\204\246n\204\246hzSHz\325B>\203\246\324c\210T\262\211T\262c\210\\\262\211\\\262\n\nBF\211\207" [last-command this-command eli-insert-pair-last-data eli-pairs-cycle last-command-event insert-pair-alist prefix-numeric-value 0 #[257 "\211;\203 \207\211\250\203 \300!\207\301\302!\207" [string error "internal error"] 3 "\n\n(fn X)"] nil 2 event-basic-type 3 use-region-p region-beginning region-end forward-sexp 1 -1 (119 95 34 39 60) " " (119 95 34 60) buffer-undo-list parens-require-spaces] 18 (#$ . 113629) "P"])
#@93 Insert a `...` pair, on consecutive calls, replace that with `...',
``...``, etc.
(fn ARG)
(defalias 'eli-insert-backquote-pair #[257 "\301\302!)\207" [eli-pairs-cycle (("`" . "`") ("`" . "'") ("``" . "``") ("``" . "''")) eli-insert-pair] 3 (#$ . 115675) "P"])
#@71 A simple field alignment function.
(fn BEG END SEP &optional SEP-RX)
(defalias 'align-fields #[1027 "\211\204 \300!\262\212b\210\301y\210`\262b\210n\204 \302y\210`S\262)\303\304\"\305\"\306\307\310\"\"\311\312\306\313\"\"\211SC\314\242\301Y\203V \306\307\315\"\"B\262\211\242S\240\210\202; \262\306\316\"\306\317\" b\210 |\210\211\205\340 \211@\211\314\211\203\324 =\204\205 c\210\320\321\322@#\262@GZ\262\211\301V\205\237 \323\324\"\262\211\203\257 @\325=\203\257 \211c\210c\210\211\203\305 @\326=\203\305 A\203\305 \211c\210A\262A\262A\262\202v \266\305c\210A\266\202\202k \207" [regexp-quote 0 1 split-string buffer-substring-no-properties "\n" mapcar make-closure #[257 "\211\301\232?\205 \302\300\"\207" [V0 #1="" split-string] 4 "\n\n(fn ROW)"] apply max length nil #[257 "\300\2428\207" [V0] 3 "\n\n(fn LINE)"] #[257 "\301\211\211\203J \211@\211\203C \302\301\303\304#)\266\203\203C \305\301\303\304#)\266\203\2030 \303\262\306\301\303\304#)\266\203\203C \303\262A\266\202\202 \210\232\204U \211\203W \307\207\310\207" [inhibit-changing-match-data nil "[^ ]" t string-match "^ " " $" l r] 12 "\n\n(fn FIELDS)"] #[257 "\300\301\302\303\"\"\207" [apply max mapcar #[257 "\211\205 \300\301\302#G\207" [replace-regexp-in-string "^ +\\| +$" #1#] 5 "\n\n(fn F)"]] 6 "\n\n(fn COL)"] replace-regexp-in-string "^ +\\| +$" #1# make-string 32 r l] 21 (#$ . 115945) (byte-code "\300 \301 \302\303\304\"E\207" [region-beginning region-end read-string "Separator: " "|"] 5)])
#@42 *Counter value for the counter commands.
(defvar counter-value 1 (#$ . -117504))
#@40 *Counter format spec (a format string)
(defvar counter-format nil (#$ . -117591))
#@40 `nil' on the first use of the counter.
(defvar counter-inserted nil (#$ . 117679))
(defvar counter-last-position nil)
(defvar counter-last-increment 1)
#@226 Set the counter to the INITIAL argument value.
Use with no arguments to be prompted for a value -- and when you
do that you can enter a value with spaces or zero padding, which
will be used by `counter-insert'.
(fn INITIAL)
(defalias 'counter-set #[257 "\211\303\211\211\250\204H \211;\204 \304\305!\262\306\307\"\204! \310\311\"\210\312\313\"\211\314\232?\205> \315\316\317H\320=\203: \321\202; \314G#\262\322\312\323\"!\324\325 \203V \326 \327Q\202W \314#\207" [counter-value counter-format counter-inserted nil read-from-minibuffer "New value (optional padding): " string-match "\\`\\( *\\|0*\\)\\(\\(?:[1-9][0-9]*\\)?[0-9]\\)\\'" error "Bad initial value: %s." match-string 1 "" format "%%%s%dd" 0 48 "0" string-to-number 2 message "Counter set to %s%s." " (format: " ")"] 8 (#$ . 117838) "P"])
#@77 Increments the counter by the INC argument value, if given, or 1.
(fn INC)
(defalias 'counter-increment #[257 "\211\302=\203 [\262\202 \211\247\204 \262 \\\211\303\304 #\207" [counter-last-increment counter-value - message "Macro counter incremented by %s to %s"] 5 (#$ . 118659) "P"])
#@218 Increment the counter value and insert it (using the current format, if any).
Increment by INC, defaults to 1 or to a last explicit increment.
(Note: does not increment on first use.)
(fn INC &optional FORCE-REPEAT)
(defalias 'counter-insert #[513 "\211\204\n =\203 \n\203 `\n|\210` \203 \306!\210\307\f\206\" \310\"c\210\311\211\207" [this-command last-command counter-last-position counter-inserted counter-format counter-value counter-increment format "%d" t] 5 (#$ . 118964) "*P"])
(put 'counter-insert 'delete-selection t)
#@205 Increment the integer at the current point.
Increment by INC, defaults to 1 or to a last explicit increment.
Sets the current counter value (`counter-insert' etc), and shares
increment with it.
(fn INC)
(defalias 'increment-integer #[257 "\212\302\303w\210\304\305`Sf\306#\204 \307\310!\210`\212\302\303x\210\311`{!\210`)\210\312\313\312\")\207" [counter-last-position counter-inserted "0-9" nil <= 48 57 error "No integer found at the current position" counter-set t counter-insert] 5 (#$ . 119509) "*P"])
(defvar eli-comment-line-last-col nil)
#@71 Toggle a comment on current N line(s) (disable line by line).
(fn N)
(defalias 'eli-toggle-comment-line #[257 "\203\351 \203 \304\232\203 \304\202 \305\306 \"\203 \202 \307 P\305\310\"\203+ \202B G\311U\203? \211\304\232\203? \211\307Q\202B \307P\312!\312!\n\313=\211\205P \205] \211\203\\ \314\202] \315\3162\344 \317 \210S\211\262 \320Y\205\343 m\203x \321\316\322\"\210\323\322w\210l\204\335 \211\204\226 \324\325\326R!\203\223 \315\202\224 \314\262i\203\252 W\203\252 \327\330\"\266\202\264 \314=\203\263 \211\262\210\211\314=\203\307 c\210\322\210c\210\202\335 \211\315=\203\335 \324\325\326R!\203\335 \331\332\330\"\210\311y\210\202d 0\210\211\207\333\334!\207" [comment-start comment-end last-command eli-comment-line-last-col "" string-match "^ " " " " $" 1 regexp-quote eli-toggle-comment-line comment uncomment done beginning-of-line 0 throw nil " " looking-at "\\(.*\\)" "$" move-to-column t replace-match "\\1" message "Comments not availavle for this mode"] 13 (#$ . 120067) "p"])
#@279 This is similar to `backward-delete-char-untabify', except when activated
without arguments at the first non-whitespace character of a line (or at
an eol of a whitespace line) - in this case it will delete indentation up to
the last indentation level.
(fn ARG &optional KILLP)
(defalias 'eli-backward-delete-char-unindent #[513 "`\204 n\204 \300\301 !\204 \212\302 \210\303\304w\210\211`U)\204$ \305\"\207i\304\212\306y\210\211\204N o\204N \303\304w\210l\204H iW\203H iZ\262\202* \306y\210\202* o\203U \262)\211\203k \211\307V\205o \305\310!\210\211S\262\202Z \305\"\207" [window-minibuffer-p selected-window beginning-of-line " " nil backward-delete-char-untabify -1 0 1] 8 (#$ . 121110) "*p\nP"])
(put 'eli-backward-delete-char-unindent 'delete-selection 'supersede)
#@54 Toggle both case- and char-fold searching on or off.
(defalias 'eli-toggle-case-and-char-fold #[0 "?\205 \305\211\205\f \306\307\310\203 \311\202 \312!\210\313\211\314 \207" [isearch-case-fold-search isearch-regexp-function isearch-regexp isearch-success isearch-adjusted yes char-fold-to-regexp nil isearch--momentary-message "case+char insensitive" "case+char sensitive" t isearch-update] 3 (#$ . 121901) nil])
(byte-code "\300\301\302\"\210\303\304\305\"\207" [add-hook find-file-hook whitespace-mode eval-after-load "whitespace" #[0 "\301\236A\302\240\207" [minor-mode-alist whitespace-mode nil] 2]] 3)
#@251 *Hide the local variables sections of a file.
This is used in the function `hide-local-variable-section' in `find-file' hook.
The purpose of this variable is to be set in the local variables section of a
file when you want this section to be hidden.
(defvar hide-local-variable-section nil (#$ . -122526))
(make-variable-buffer-local 'hide-local-variable-section)
#@71 See the documentation for the variable `hide-local-variable-section'.
(defalias 'hide-local-variable-section #[0 "\205# \212db\210\301\302d\303Ze]\304#\210\305\306\307\310#\210\311y\210`S)e}\262\207" [hide-local-variable-section search-backward "\n\f" 3000 move search-forward "Local Variables:" nil t 0] 4 (#$ . 122896)])
(byte-code "\300\301\302\"\210\303\302\304\305#\210\306\307!\204 \310\307\311\"\210\300\207" [add-hook find-file-hook hide-local-variable-section put safe-local-variable booleanp fboundp complete defalias #[256 "\300\301!\210\302 \210\303!\207" [require completion dynamic-completion-mode complete] 3 "Wrapper for complete, will initialize completion when called\n\n(fn &optional ARG)" "*p"]] 4)
(defvar eli-View-scroll-page-lines nil)
#@194 Like `View-scroll-page-forward', but with a prefix argument determines the
number of lines to use for future calls. Use a `C-u' prefix to go back to
full page scrolling.
(fn &optional LINES)
(defalias 'eli-View-scroll-page-forward #[256 "\211\301=\203\n \302\303!\207\211\203 \211\250\205 \211\304!\207" [eli-View-scroll-page-lines - eli-View-scroll-page-backward nil View-scroll-page-forward] 3 (#$ . 123667) "P"])
#@195 Like `View-scroll-page-backward', but with a prefix argument determines the
number of lines to use for future calls. Use a `C-u' prefix to go back to
full page scrolling.
(fn &optional LINES)
(defalias 'eli-View-scroll-page-backward #[256 "\211\301=\203\n \302\303!\207\211\203 \211\250\205 \211\304!\207" [eli-View-scroll-page-lines - eli-View-scroll-page-forward nil View-scroll-page-backward] 3 (#$ . 124096) "P"])
#@14
(fn STEPS)
(defalias 'eli-text-scale-bigger #[257 "\302\303_!\210\304\305Y\203 \306\202 \307\"\211GSH\310=\203% \211\305\311O\202& \211\211\207" [text-scale-mode-amount text-scale-mode-lighter text-scale-increase 0.5 format 0 "+%.1f" "%.1f" 48 -2] 5 (#$ . 124526) "p"])
#@14
(fn STEPS)
(defalias 'eli-text-scale-smaller #[257 "\300[!\207" [eli-text-scale-bigger] 3 (#$ . 124811) "p"])
#@12
(fn BUF)
(defalias 'eli-bury-dired-buffer #[257 "\300!\210\301\302\303\302#\210\304\302\305\306\307\"\310 \"\"\207" [bury-buffer set-window-parameter nil quit-restore set-window-prev-buffers filter make-closure #[257 "\211@\300\232?\207" [V0] 3 "\n\n(fn PB)"] window-prev-buffers] 7 (#$ . 124930)])
(defvar eli-last-direds nil)
(add-hook 'dired-mode-hook #[0 "\300\301\302\303\304$\207" [add-hook post-command-hook #[0 "p@=?\205 \211\301\302\303\"\"B\211\207" [eli-last-direds filter make-closure #[257 "\211\300=?\205\n \301!\207" [V0 buffer-live-p] 3 "\n\n(fn B)"]] 6] nil t] 5])
#@45 Switch to the Nth last dired buffer
(fn N)
(defalias 'eli-last-dired-buffer #[257 "\204 \302\303!\210p \304=\305W\211\203 \306!\202 \307!S@=\203/ \310AC\"\2020 \305V\203E \211A\206< \262S\262\2020 \311@!\210\205k \203\\ \312\"B\202f \310\312\"C\"\313!\207" [eli-last-direds major-mode user-error "No known dired buffers" dired-mode 0 reverse abs append switch-to-buffer remq eli-bury-dired-buffer] 11 (#$ . 125529) "p"])
#@45 Switch to the Nth next dired buffer
(fn N)
(defalias 'eli-next-dired-buffer #[257 "\300[!\207" [eli-last-dired-buffer] 3 (#$ . 125991) "p"])
(byte-code "\300\211\203 \211@\301\302\303#\210A\266\202\202 \207" [(dired-find-file dired-up-directory dired-mouse-find-file) advice-add :around #[385 "p\301\302!\203 \303!\202 \304\"p\305=\203( \306!\203( \232\204( \307!\210\207" [major-mode called-interactively-p any call-interactively apply dired-mode buffer-live-p eli-bury-dired-buffer] 7 "When navigating between dired buffers, bury original\n\n(fn ORIG &rest ARGS)" nil]] 6)
#@18
(fn ARGS VERB)
(defalias 'read-suffix-based-on-current-line #[514 "@\2061 \300\301\302\"\303 \304\305\"\216;\205! \306\307\"\205! \310\224\311O)\262\312\313\314\"\"\206/ \315\266\202AB\207" [dired-get-filename no-dir t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "[.][^./]+$" 0 nil read-from-minibuffer format "%s extension: " ""] 8 (#$ . 126589)])
(defalias 'require-dired-x #[0 "\300\301!\210\302\303\304\"\207" [require dired-x remove-hook dired-mode-hook require-dired-x] 3])
(byte-code "\300\301\302\"\210\303\304\305\"\210\303\306\307\"\207" [add-hook dired-mode-hook require-dired-x eval-after-load "dired-x" #[0 "\300\211\205 \211@\301@\302\303\304\"#\210A\266\202\202 \207" [((dired-mark-extension "Marking") (dired-flag-extension "Deleting")) advice-add :filter-args make-closure #[257 "\301\300A@\"\207" [V0 read-suffix-based-on-current-line] 4 "Add default extension from current line.\n\n(fn ARGS)" nil]] 8] "dired" #[0 "\300\301\302\"\207" [defalias dired-clean-up-after-deletion #[257 "\212A\203 \302!\203 \303 \210)\304\305!\205P \205P \306!\211\2030 \307\310\311\312!\"!\2030 \313!\210\210\314\315!!\211\205N \211\211\205L \211@\313!\210A\266\202\202; \262\262\207" [dired-subdir-alist dired-clean-up-buffers-too dired-goto-subdir dired-kill-subdir featurep dired-x get-file-buffer y-or-n-p format "Kill buffer of %s, too? " file-name-nondirectory kill-buffer dired-buffers-for-dir expand-file-name] 7 "Clean up after a deleted file or directory FN.\nRemoves any expanded subdirectory of deleted directory.\nIf `dired-x' is loaded and `dired-clean-up-buffers-too' is non-nil,\nalso offers to kill buffers visiting deleted files and directories.\n\n(fn FN)"]] 3]] 3)
#@400 Default shell name used by `eli-shell', or `nil' to use whatever
default thing `shell' runs (`shell-file-name').
Setting this makes it possible to have a specific shell for interactions
while maintaining another for normal uses (still `shell-file-name').
Note that it's used via `explicit-shell-file-name', so to set arguments
different than the default "-i" you need to set `explicit-<name>-args'.
(defvar eli-shell-default-command nil (#$ . 128360))
#@102 Buffer-local value indicating the name of the executable that is used
for the current eli-shell run.
(defvar eli-shell-current-executable nil (#$ . 128819))
(make-variable-buffer-local 'eli-shell-current-executable)
(defvar eli-last-shell nil)
(defvar eli-last-shells nil)
#@620 Similar to `shell' but extended as follows:
- a positive numeric argument means jump to that shell window,
with 1 being the default "*shell*", 2 is "*shell*<2>" etc,
- a 0 numeric argument will jump to a new shell window (the next
one), without asking about the name,
- no argument means jump to the last visited shell window, if it's dead the
one visited before that, etc,
- with a `C-u' prefix, just call `shell',
- it switches to the buffer as usual, in the current window: no
switching to a half-screen, and preserve the buffer visit
history so there's no inconsistent buffer switching
later.
(fn ARG)
(defalias 'eli-shell #[257 "\306\307!\210\205 \310\311\312\313!\227#\211\203 \314\315\"\202 \316\317=\203( \320!\202{ \321=\2032 \211\202{ \250\203E \321V\203E \314\322#\202{ \204z \323\324 \"\204p \211A\203p \325A@!\203g \211A@\262\202N \211AA\241\210\202N \206u \266\202\202{ \323\211\205\203 \325!?\206\210 \n\203\224 \307!\210\202\230 \326\307!\210)\211\203\253 \327\304!\210\330\327\305!\210\331\332\333\334\335\"\323\330$\207" [explicit-shell-file-name eli-last-shells eli-shell-default-command eli-shell-current-executable truncate-lines bs-buffer-show-mark require shell replace-regexp-in-string "\\.exe$" "" file-name-nondirectory format "*shell: %s*" "*shell*" 0 generate-new-buffer-name 1 "%s<%S>" nil assoc get-buffer call-interactively make-local-variable t always add-hook post-command-hook make-closure #[0 " \303 \232?\2052 \303 \304\300\n\"\204 \300C\nB\304\300\n\"\211\204' \300C\262\211\nB\211 \305 A\"B\241\262\207" [V0 eli-last-shell eli-last-shells buffer-name assoc remove] 6]] 10 (#$ . 129099) "P"])
(byte-code "\300\301!\204 \302\301\303\"\210\300\207" [getenv "EMACS" setenv "emacs"] 3)
#@798 Similar to `shell-command' but sets convenient environment variables when
the command runs if the current buffer is associated with a file, and use the
current selected region (if active) as stdin. Also, shows the pwd and the
command in the buffer list.
The environment variables set are:
$f, $F, $Fh: current file name, full path, relative to $HOME
(full path if it's not in $HOME)
The value is taken from `buffer-file-name'
$D, $Dh: full directory name, relative to $HOME (same as above)
The value is taken from `buffer-file-name' or
`default-directory'.
Notes:
- in dired mode only the directory paths are set
- behaves as if `async-shell-command-buffer' is 'new-buffer
(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER)
(defalias 'eli-shell-command #[769 "\306 \211\205 \307! \203 \310!\202 \211\311\312!\313\314\315\n#\211 \232?\316 ;\2032 \202S \317\n!\203> \202S \204O \203K \320\202S \321\202S \322 \210p\323\324 \"\210\323\325\n\"\210\323\326\n\205l \327 \"\"\210\323\330\"\210\323\331\327\"\"\210\203\216 \203\216 \332\333\334\"\210\335\262\317!\204\251 \336\203\237 \337!\204\243 \202\246 \340!!\262\341 \342!\203\343 \344\345\"\216rq\210\335\204\312 \346\347 \210)\350!\210 \351`\352\"\210\353\354\f %\355@\204\355 \356\357!\210\360 \210\361\362\"\210\363\364\"\210\365\366!\210\367 6\370!`\335\223\262*\262\2027\333\346\204``D\202 \371 \372 D A B\373@A@ C&*\266\203rq\210\313\374\315\375\f!#\376QD\204U\377\333!\210)\203e\350!\210\201E \"\210\266\202)\207" [process-environment default-directory buffer-read-only inhibit-read-only shell-file-name shell-command-switch buffer-file-name file-name-nondirectory file-name-directory getenv "HOME" replace-regexp-in-string "[ ]*&[ ]*\\'" "" use-region-p bufferp "*Async Shell Command*" "*Shell Command Output*" barf-if-buffer-read-only setenv "f" "F" "Fh" file-relative-name "D" "Dh" message-sit 1 "Cannot run an async command on selection, ignoring it" nil get-buffer-create get-buffer-process generate-new-buffer selected-window window-prev-buffers current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] t erase-buffer display-buffer push-mark nomsg start-process "Shell" (":%s") require shell shell-mode set-process-sentinel shell-command-sentinel set-process-filter comint-output-filter make-local-variable comint-last-output-start make-marker process-mark region-beginning region-end shell-command-on-region "/?\\'" abbreviate-file-name "$ " view-mode mode-line-process resize-mini-windows max-mini-window-height current-prefix-arg list-buffers-directory set-window-prev-buffers] 24 (#$ . 130878) (byte-code "\304\305 \203\n \306\202 \307\310\211\206 \311=\205 \312\310\313\"\211\205\" \314!\262$\n E\207" [buffer-file-name major-mode current-prefix-arg shell-command-default-error-buffer read-shell-command use-region-p "Shell command on region: " "Shell command: " nil dired-mode dired-get-filename t file-relative-name] 7)])
#@214 Similar to `eli-shell-command' with output inserted in the current buffer
(i.e., using it with a prefix argument), but does not replace the selected
text.
(This is currently a hack that needs to be robustified.)
(defalias 'eli-shell-command-insert-output #[0 "\301\302 `\303\304!W\203 \305 \210\306\307!\210\310\311!\210\312!\210\313\314!)\207" [current-prefix-arg nil current-window-configuration mark t exchange-point-and-mark call-interactively eli-shell-command insert-buffer-substring "*Shell Command Output*" set-window-configuration activate-mark lambda] 5 (#$ . 133995) nil])
#@45 Send everything written so far immediately.
(defalias 'comint-send-now #[0 "\304p!\211\204 \305\306!\207\307!db\210\211`{\203 `|\210\310\311\"\210 \312\223\210\n`\312\223\210\307!`\312\223\210 \312\211\223\210\313\"\210\310\314\315\"\207" [comint-process-echoes comint-last-input-start comint-last-input-end comint-accum-marker get-buffer-process error "Current buffer has no process" process-mark run-hook-with-args comint-input-filter-functions nil comint-send-string comint-output-filter-functions ""] 6 (#$ . 134590) nil])
#@160 Read a character the same way as quoted-insert does, then send it
immediately to the process using `comint-send-now' (so previous input
must be sent as well).
(defalias 'comint-quoted-send #[0 "\300\301!\210\302\303 !\210\304 \207" [message "Enter a character..." insert-and-inherit read-quoted-char comint-send-now] 2 (#$ . 135134) nil])
#@10
(fn N)
(defalias 'comint-previous-matching-input-from-input-or-scroll #[257 "\301 \203 \302\211!\207\303!\207" [this-command comint-after-pmark-p comint-previous-matching-input-from-input scroll-down-1-stay] 4 (#$ . 135479) "p"])
#@10
(fn N)
(defalias 'comint-next-matching-input-from-input-or-scroll #[257 "\301 \203 \302\211!\207\303!\207" [this-command comint-after-pmark-p comint-next-matching-input-from-input scroll-up-1-stay] 4 (#$ . 135721) "p"])
#@47 Like `beginning-of-line'.
(fn &optional ARG)
(defalias 'eli-comint-beginning-of-line #[256 "\211\204 \302\262\303p!\211\205 \304!\211\205 `\305!Y? \203& \306!\202) \307!)\207" [inhibit-field-text-motion line-move-visual 1 get-buffer-process process-mark marker-position beginning-of-visual-line beginning-of-line] 6 (#$ . 135953) "^p"])
#@41 Like `end-of-line'.
(fn &optional ARG)
(defalias 'eli-comint-end-of-line #[256 "\302\303!\210\211\204 \304\262\305p!\211\205 \306!\211\205 `\307!Y? \203* \310!\202, )\207" [inhibit-field-text-motion line-move-visual call-interactively eli-end-of-line 1 get-buffer-process process-mark marker-position end-of-visual-line] 6 (#$ . 136306) nil])
#@10
(fn P)
(defalias 'eli-comint-is-output #[257 "\300\301\"\302>\207" [get-text-property field (output boundary)] 4 (#$ . 136666)])
(defalias 'eli-comint-go-to-beginning-of-input #[0 "`\211eV\205\" \300!?\205\" \300S!?\205\" \301`\302\"\262\211\205\" \211b\207" [eli-comint-is-output previous-single-property-change field] 4])
#@101 Erase buffer, leaving the current command-line, and/or copy an old command
if the cursor is on one.
(defalias 'eli-comint-clear-except-command #[0 "\301p!\206 \302\303!\211\205 \304!\211\2038 `\305!W\2038 \306`!\2035 `eX\204/ \306`S!\2035 db\210\2028 \307 \210\310e\212\311 \210\312y\210`)|)\207" [inhibit-modification-hooks get-buffer-process user-error "Current buffer has no process" process-mark marker-position eli-comint-is-output comint-copy-old-input t eli-comint-go-to-beginning-of-input 0] 5 (#$ . 137003) nil])
#@183 Erase buffer lines before point.
With a positive prefix argument, leave that many lines before the current.
Any other pprefix argument: clear the whole buffer.
(fn &optional ARG)
(defalias 'eli-comint-clear-previous-lines #[256 "\211\206 \301\211\203 \302e\212\303 \210[y\210`)|)\207\304 \207" [inhibit-modification-hooks 0 t eli-comint-go-to-beginning-of-input eli-comint-clear-except-command] 4 (#$ . 137537) "P"])
(byte-code "\304\305\306\"\210;\203A \307!\204A \310!\203 \311\312\313!\210\202A \314\315\"\210\307!\203; \316\317\"\210\320\321\"\210\322\323!\210\202A \311\312\324!\210\325\326\205H \315\"\210\315\311;\203X \327BC\311\207" [eli-backup-method backup-by-copying break-hardlink-on-save backup-directory-alist eval-after-load "comint" #[0 "\301\302\303\304\305\306\307&\207" [comint-mode-map define-keys ("M-q" comint-quoted-send) ("<C-up>" comint-previous-matching-input-from-input-or-scroll) ("<C-down>" comint-next-matching-input-from-input-or-scroll) ("<home>" eli-comint-beginning-of-line) ("<end>" eli-comint-end-of-line) ("<S-backspace>" eli-comint-clear-previous-lines)] 8] file-accessible-directory-p file-exists-p nil warn "Inaccessible backups directory, disabling backups" make-directory t set-file-modes 448 message "Created backup directory: %S" sit-for 2 "Cannot create backups directory, disabling backups" set-default make-backup-files "."] 3)
#@181 Decide if backup for an opened file should be disabled.
Will decide this based on the size of the file, but will respect any
buffer-local setting. See also `eli-max-backup-size'.
(defalias 'eli-decide-if-backup-inhibited #[0 "\305\302p\"\204 \306\302!\210\307=\206 \247\205 X? \204& \310\311!\210\202@ \247\203< \310 X\2036 \312\2027 \311!\210\202@ \310\312!\210\n\f?\204K \211\205l \313\314\203U \315\202V \316\205_ \205_ \317\203g \320\202h \316\321\260!\207" [eli-max-backup-size buffer-saved-size backup-inhibited eli-max-autosave-size buffer-auto-save-file-name local-variable-p make-local-variable t auto-save-mode -1 1 message "Note: " "no backups" "" " and " "no autosaving" " for this file."] 8 (#$ . 138945)])
(byte-code "\306\307\310\"\210\311\211\n\312=\204 \313\211\n;\203 \314\n\311EC\n\312=\203K \311\315\316\311\"\210\315\317\311\"\210\315\320\311\"\210\321\322\311\321\313\311\211\313\207" [delete-auto-save-files auto-save-default eli-backup-method auto-save-list-file-name auto-save-list-file-prefix auto-save-file-name-transforms add-hook find-file-hook eli-decide-if-backup-inhibited t safe nil "\\`.*\\'" set-default make-backup-files version-control vc-make-backup-files 2 4 eli-max-backup-size kept-old-versions kept-new-versions delete-old-versions dired-kept-versions backup-by-copying backup-by-copying-when-linked backup-by-copying-when-mismatch] 4)
(defvar main-mail-directory (findif 'file-accessible-directory-p '("~/mail/" "~/Mail/" "~/MAIL/") "~/"))
(byte-code "\306 \204 \307\310!\203 \311\202 \312\313\314 !\315Q\316\302!\203# \n\204+ \307\310!\205* \310\317\320\321\313\322 !\323Q\324P \n\307\207" [mail-yank-prefix mail-signature mail-signature-file mail-citation-prefix-regexp mail-from-style mail-header-separator "> " file-readable-p "~/.signature" t "-- \n" capitalize user-full-name "\n" boundp "[ ]*[-a-z0-9A-Z]*>[ >]*\\|[ ]*" angles "----- " user-login-name " says -----" "sent-mail" main-mail-directory mail-archive-file-name message-yank-prefix message-signature message-signature-file] 3)
#@48 Move to next mail header, or to the mail body.
(defalias 'eli-mail-tab-command #[0 "\300C\301\211!\210\242\203F `\242W\203F \212\302 \210\303\304!)\203$ \305 \210\202- \303\306!\203- \307 \210\211!\210\310\311\242\312#\203B \242\313\225^\202D \242b\207\314 \207" [nil #[257 "\211\212eb\210\301\302P\303\304#)\240\207" [mail-header-separator search-forward "\n" 2000 t] 6 "\n\n(fn HEADERS-END)"] beginning-of-line looking-at "FCC: " completion-at-point "[ ]*\n" expand-abbrev re-search-forward "^\\(\\(Resent-\\)?To\\|Subject\\|CC\\|BCC\\):.*\\(\n[ ]+.*\\)*" t 0 indent-relative] 6 (#$ . 141051) nil])
(defalias 'eli-mail-setup-hook #[0 "\302 \210\303\304\301!\210\305\306\307\310\"\210\311 \207" [fill-column auto-fill-inhibit-regexp auto-fill-mode 70 make-local-variable "^\\(\\(Resent-\\)?To\\|Subject\\|CC\\|BCC\\): " local-set-key " " eli-mail-tab-command mail-abbrevs-setup] 3])
(byte-code "\306\307\310\311#\210\306\312\310\311#\210\313\314\311\315\311\316\311 \317 \313 \311!\320\"\321#\311$\322%\323&\311'\324(\306\325\326\"\210\306\327\330\"\210\331\332\333\"\210\331\334\335\"\207" [gnus-interactive-exit gnus-large-newsgroup gnus-decay-scores gnus-no-groups-message gnus-show-threads gnus-thread-indent-level add-hook mail-setup-hook eli-mail-setup-hook t message-setup-hook nil 300 "No more news" 4 dummy some 3 40 gnus-subscribe-interactively "Gnus: %%b {%S}" gnus-started-hook #[0 "\301\300!\205\n \302\303\"\207" [gnus-group-mode-map boundp define-keys (save-buffer gnus-group-save-newsrc)] 3] gnus-group-mode-hook gnus-topic-mode simple-make-face yellow-bold-underline gnus-header-subject-face green1-bold gnus-header-from-face gnus-use-full-window gnus-summary-make-false-root gnus-use-trees gnus-asynchronous gnus-build-sparse-threads gnus-fetch-old-headers gnus-thread-ignore-subject gnus-mode-non-string-length gnus-subscribe-newsgroup-method gnus-subscribe-hierarchical-interactive gnus-group-mode-line-format] 4)
(defvar eli-bs-default-conf "files+")
#@200 Show an interactive buffer list. (Uses `bs'.)
Consecutive uses of this command (right after the list is shown) changes the
list configuration, and if used in the list (but not consecutive) quit it.
(defalias 'eli-show-buffers #[0 "\306=\204 \307\310\311!\207\f=\203! \312 \210\f \232\205# \313 \207\313 \207" [major-mode eli-bs-default-conf bs-default-configuration bs-default-sort-name last-command this-command bs-mode "by nothing" bs-show nil bs-select-next-configuration bs-kill bs-current-configuration] 2 (#$ . 143061) nil])
(byte-code "\306\307\310\311\312\313\314\315\211\207" [bs-configurations bs-string-current bs-string-marked bs-string-current-marked bs-string-show-normally bs-string-show-always (("all" nil nil nil nil nil) ("files+" nil nil nil eli-bs-hide-buffers nil)) ">" "*" "#" "." "+" "-" 12 bs-string-show-never bs-minimal-buffer-name-column] 2)
(defvar eli-bs-show-buffers-rx "^[*]\\(?:s\\(?:cratch\\|hell\\)\\)[* ]*\\(?:\\([0-9]*\\|<[0-9]*>\\)\\)?[* ]*$")
#@12
(fn BUF)
(defalias 'eli-bs-hide-buffers #[257 "\303!\206$ \304!\305\306\307#)\266\203\206$ r\211q\210\310\302!\205# \n)?\207" [eli-bs-show-buffers-rx inhibit-changing-match-data dired-subdir-alist buffer-file-name buffer-name nil t string-match boundp] 8 (#$ . 144066)])
(defalias 'eli-bs-post-command #[0 "`\300 W\205\n \300 b\207" [eli-bs--top-point] 2])
(defvar eli-bs-header-end nil nil)
(make-variable-buffer-local 'eli-bs-header-end)
(defalias 'eli-bs--top-point #[0 "\204 \212eb\210 y\210`)\207" [eli-bs-header-end bs-header-lines-length] 1])
(byte-code "\301\302\207" [bs-attributes-list ((#1="" 1 1 left bs--get-marked-string) ("RM" 2 2 left eli-bs--get-modified/readonly-string) (#1# 1 1 left "|") ("Buffer" 30 30 left eli-bs--get-name) (#1# 1 1 left " ") ("Size" 5 5 right eli-bs--get-size-string) (#1# 1 1 left " ") ("Mode" 14 14 right eli-bs--get-mode-name) (#1# 1 1 left " ") ("File" 0 12 left eli-bs--get-file-name)) nil] 1)
#@33
(fn START-BUFFER ALL-BUFFERS)
(defalias 'eli-bs--get-modified/readonly-string #[514 "\302\303 \211\203 \203 \304!\207\211\203\" \203 \305!\207\306!\307P\207\2034 \203. \310!\207\307\311!P\207\312\207" [buffer-read-only buffer-file-name #[257 "\300\301\302 #\207" [propertize font-lock-face eli-bs--get-face] 5 "\n\n(fn STR)"] buffer-modified-p "%*" "%%" "%" " " "**" "*" " "] 8 (#$ . 145026)])
#@33
(fn START-BUFFER ALL-BUFFERS)
(defalias 'eli-bs--get-name #[514 "\300\301\"\302\303 #\207" [propertize bs--get-name font-lock-face eli-bs--get-face] 6 (#$ . 145443)])
#@33
(fn START-BUFFER ALL-BUFFERS)
(defalias 'eli-bs--get-size-string #[514 "\300\301\302\303\304 !#\207" [replace-regexp-in-string "^\\([0-9][0-9][0-9]+\\)\\.[0-9]+" "\\1" file-size-human-readable buffer-size] 7 (#$ . 145620)])
#@33
(fn START-BUFFER ALL-BUFFERS)
(defalias 'eli-bs--get-mode-name #[514 "\300\301\"\302\303\304!#\207" [propertize bs--get-mode-name font-lock-face simple-make-face italic] 7 (#$ . 145852)])
#@33
(fn START-BUFFER ALL-BUFFERS)
(defalias 'eli-bs--get-file-name #[514 "\300\301\"\302\303 #\207" [propertize bs--get-file-name font-lock-face eli-bs--get-face] 6 (#$ . 146050)])
(defalias 'eli-bs--get-face #[0 "\302\303=\203 \304\2029 \305=\203 \306 \203 \307\2029 \310\2029 \203/ \306 \203+ \311\2029 \312\2029 \306 \2038 \313\2029 \314!\207" [major-mode buffer-read-only simple-make-face dired-mode h9ef/h600-bold wdired-mode buffer-modified-p h6f7/ha00-bold h6f7/h600-bold hfed/ha00-bold hfed/h600-bold hff6/ha00-bold hff6/h600-bold] 3])
(byte-code "\301\302\303\"\210\304\305!\210\306\307\310\"\210\311=\204 \312\313M\210\301\207" [eli-backup-method eval-after-load "bs" #[0 "\303\304\305\"\210\306 \307P\310\311\312\313!D\314BBB\315\310\311\312\316!D\317BBB\320\310\311\312\321!D\322BBB\323\310\311\312\324!D\325BBBF\326 \327\330\331\332\333\334\335\336\337&\n\210\340\341\342\"\210\343\340\344\345\"\210\340\346\347\"\207" [bs-mode-font-lock-keywords bs-mode-map bs-header-lines-length add-hook bs-mode-hook #[0 "\300 \210\301\302\303\304\305$\210\306\305!\207" [hl-line-mode add-hook post-command-hook eli-bs-post-command nil t font-lock-mode] 5] bs--make-header-match-string "\n" 0 quote simple-make-face */h333-bold (append) "^>.*\n?" */h030 (append) "^#.*\n?" */h080 (append) "^[*].*\n?" */h060 (append) define-keys ("<up>" nil) ("<down>" nil) ("j" eli-next-line) ("k" eli-previous-line) ("C-d" bs-delete) ("D" bs-delete-backward) ("<backspace>" bs-delete-backward) ("<delete>" bs-delete) ("." bs-toggle-current-to-show) defalias bs--show-header #[0 "\300\301!\302\261\207" [bs--create-header-line identity "\n"] 2 "Insert header for Buffer Selection Menu in current buffer."] 1 bs-toggle-current-to-show #[0 "r\301 q\210\204 \302\202 \302=\203 \303\202 \304\211)\305 \210\306 \210\307!\207" [bs-buffer-show-mark bs--current-buffer always never nil bs--update-current-line bs--set-window-height bs--show-config-message] 3 "Toggle status of showing flag for buffer in current line." nil] bs--mark-unmark #[514 "\300V\203\n \301\202 \302\3032N \304!\300\211W\205K \305\306 \211\203$ !\210\307 \210y\210\301W\2037 `\310 W\202: `dY\203B \311\303\305\"\210\266\211T\262\202 \266\2020\210\300y\207" [0 1 -1 bs-done abs nil bs--current-buffer bs--update-current-line eli-bs--top-point throw] 10 "Call FUN on COUNT consecutive buffers of *buffer-selection*.\n\n(fn COUNT FUN)"]] 11] minibuffer-electric-default-mode 1 add-hook emacs-startup-hook #[0 "\301\244\211\207" [minibuffer-prompt-properties (point-entered minibuffer-avoid-prompt)] 2] safe yes-or-no-p y-or-n-p] 3)
(defconst eli-userid-re "\\(?:^\\|/\\)\\(~[a-zA-Z0-9_-]+\\)\\'")
(defvar eli-userid-table-cache nil)
#@27
(fn STRING PRED ACTION)
(defalias 'eli-userid-table #[771 "\211\242\304=\203# \211A\305\"\205\" \304\306\224\307\310\311\305#)\266\203BB\207\305\"\205T \n\2035 \n@=\204< \312\313 \"B\306\224\nA\314O\315\310O%\266\203\207" [eli-userid-re inhibit-changing-match-data eli-userid-table-cache eli-user-homedirs boundaries string-match 1 "/" nil t mapcar #[257 "\300@\301Q\207" ["~" "/"] 4 "\n\n(fn X)"] 0 completion-table-with-context] 13 (#$ . 148767)])
(byte-code "\300\301\302\303\304\305#\306#\207" [defalias read-file-name-internal completion-table-in-turn eli-userid-table completion--embedded-envvar-table completion--file-name-table "Internal subroutine for `read-file-name'. Do not call this."] 6)
#@10
(fn N)
(defalias 'eli-previous-history-element #[257 "\3001\f \301!0\210\202 \210\302 \210db\207" [(error) previous-history-element beep] 3 (#$ . 149503) "p"])
#@10
(fn N)
(defalias 'eli-next-history-element #[257 "\3001\f \301!0\210\202 \210\302 \210db\207" [(error) next-history-element beep] 3 (#$ . 149673) "p"])
#@10
(fn N)
(defalias 'eli-next-complete-history-element #[257 "\3001 \301!0\207\210\302 \207" [(error) next-complete-history-element beep] 3 (#$ . 149835) "p"])
#@10
(fn N)
(defalias 'eli-previous-complete-history-element #[257 "\3001 \301!0\207\210\302 \207" [(error) previous-complete-history-element beep] 3 (#$ . 150002) "p"])
(defvar eli-last-minibuf-string ".")
#@10
(fn N)
(defalias 'eli-next-history-contains #[257 "\203 `\303 U\204 \304\305`\303 {!\202K l\203 \306>\204J l\203; \212\307 \210`)\310\311\312#\2037 `T\2028 \211b\266\305`\212\304\210`){!\313P\202K \n\211\3141Z \315\"0\210\202^ \210\316 \210db\207" [mark-active last-command eli-last-minibuf-string mark nil regexp-quote (eli-previous-history-contains eli-next-history-contains) beginning-of-line re-search-backward "/[^/]*\\=" t "[^/]*$" (error) next-matching-history-element beep] 6 (#$ . 150214) "p"])
#@10
(fn N)
(defalias 'eli-previous-history-contains #[257 "\300[!\207" [eli-next-history-contains] 3 (#$ . 150738) "p"])
(byte-code "\306 \n \f \f\257\211\211\2034 \211@\211\203- \211\203, \211@\307\310#\210A\266\202\202 \210A\266\202\202 \266\311\312!\207" [minibuffer-local-map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-local-ns-map minibuffer-local-filename-completion-map minibuffer-local-isearch-map (([(up)] eli-previous-history-element) ([(down)] eli-next-history-element) ([(control up)] eli-previous-complete-history-element) ([(prior)] eli-previous-complete-history-element) ([(control down)] eli-next-complete-history-element) ([(next)] eli-next-complete-history-element) ([(meta up)] eli-previous-history-contains) ([(meta down)] eli-next-history-contains) ([(control tab)] other-window) ([(control home)] minibuffer-beginning-of-buffer)) apply define-key file-name-shadow-mode -1 minibuffer-local-shell-command-map read-expression-map] 10)
(defalias 'eli-minibuffer-electric-slash #[0 "\214\301 \302 }\210`dU\203\363 `eV\203\363 \303 ed|\210\211\304\232\203# \211\202\353 \305\306\"\2031 \307\310\"\202\353 \305\311\"\203< \312\202\353 \3132\351 \305\314\"\205\350 \307\315\"\307\316\"\307\317\"\211\312\232\203a P\266\204\202@ \320=\203w \305\321\"\203w \322\313\323\"\266\204\202@ \305\324\"\203\207 Q\266\204\202@ \305\325\"\203\253 \326!\305\327!\"\203\240 P\202\244 \211\330Q\262\266\204\202@ \305\331\"\203\324 \3321\275 \333!0\202\277 \210\323\211\203\312 \211\330Q\202\315 P\262\266\204\202@ \312\232\203\340 \266\204\202@ P\266\204\202@ 0\210\211\304\261\262\202\365 \304c)\207" [system-type field-beginning field-end buffer-string "/" string-match "\\([a-zA-Z][a-zA-Z]+:/\\)\\'" match-string 0 "/\\'" "" done "\\`\\(\\|.*/\\)\\([^/]*\\)/\\(\\.*\\)\\.\\'" 1 2 3 windows-nt "\\`.:\\'" throw nil "\\`\\.+\\'" "^~" expand-file-name regexp-quote "/." "\\`\\$" (error) substitute-in-file-name] 8 nil nil])
(put 'eli-minibuffer-electric-slash 'delete-selection t)
#@26
(fn &optional FROM TO)
(defalias 'eli-minibuffer-electric-key #[512 "\206 \302\206\n \303\304=\203 \305\306\307\310\311%\202 \214\312 \313 }\210`dU\203- \314\"\210 \2053 c)\207" [system-type last-command-event "\\`.*/\\'" "" windows-nt replace-regexp-in-string "/" "[/\\]" nil t field-beginning field-end eli-replace-regexp] 10 (#$ . 152804) nil])
(put 'eli-minibuffer-electric-key 'delete-selection t)
(defalias 'eli-minibuffer-electric-bslash #[0 "\301\302\303\304\"\210)\305 \207" [last-command-event nil eli-minibuffer-electric-key "\\\\" "/" eli-minibuffer-electric-slash] 3 nil nil])
(put 'eli-minibuffer-electric-bslash 'delete-selection t)
(defalias 'eli-minibuffer-electric-colon #[0 "\300\301\302\"\207" [eli-minibuffer-electric-key "\\`.*/\\([a-zA-Z]\\)\\'" "\\1"] 3 nil nil])
(put 'eli-minibuffer-electric-colon 'delete-selection t)
(defalias 'eli-minibuffer-dir-up #[0 "\301\302 b\210`Sf\303=\204 \304c\210\305c\210\306 )\207" [last-command-event nil field-end 47 "/" ".." eli-minibuffer-electric-slash] 2 nil nil])
(put 'eli-minibuffer-dir-up 'delete-selection t)
(defvar eli-electric-file-minibuffer-mode-map (byte-code "\301 \302\303\304=\205\f \305\306\307\304=\205 \310\311\312\313\314&\n\210\207" [system-type make-sparse-keymap define-keys ("/" eli-minibuffer-electric-slash) windows-nt ("\\" eli-minibuffer-electric-bslash) ("~" eli-minibuffer-electric-key) ("$" eli-minibuffer-electric-key) (":" eli-minibuffer-electric-colon) ("M-." eli-minibuffer-dir-up) ("C-?" minibuffer-completion-help) ("C-." minibuffer-completion-help) ("?" self-insert-command)] 12))
(defvar eli-electric-file-minibuffer-syntax-table (byte-code "\301 \302\303\304#\210\305=\203 \302\306\304#\210\307\310\311\"\312\"\210\207" [system-type make-syntax-table modify-syntax-entry 47 "." windows-nt 92 mapc make-closure #[257 "\301\302\300#\207" [V0 modify-syntax-entry "_"] 5 "\n\n(fn CH)"] ",.? #^~':;@%!|"] 5))
#@48 Setup electric minibuffer for `find-file' etc.
(defalias 'eli-electric-file-minibuffer-setup #[0 "\304=\2054 \203 \301\305!\210\306 d\307\"\310!\232\204% |\210\211c\210\266\311\n!\210\312 \313 \"\210\314 !\207" [minibuffer-completion-table file-name-shadow-mode eli-electric-file-minibuffer-syntax-table eli-electric-file-minibuffer-mode-map read-file-name-internal -1 minibuffer-prompt-end buffer-substring-no-properties abbreviate-file-name set-syntax-table set-keymap-parent current-local-map use-local-map] 6 (#$ . 154742)])
(byte-code "\300\301\302\"\210\303\304!\210\305\304!\210\306\304!\207" [add-hook minibuffer-setup-hook eli-electric-file-minibuffer-setup line-number-mode 1 column-number-mode size-indication-mode] 3)
(defvar my-help-echo "Click left to select&resize, right: single window, left: delete it")
(byte-code "\306\211\307\306\307\310\311\312#>\313?\314\315!\210\310\316\317@#\320\321\322\323\310\324\317@#\325\310\326\317@#\327\330\310\326\317@#\331\332\257\310\333\317\334#\310\335\317@#\336\337\317\340\341\342\343A\257\344\336\345\341\342\317\346\343B\257\310\347\317\350\341\342\343\351\352\353\"&\310\354\317@#\310\355\317\334#\310\316\317@#\257 \356\357\360\310\361\343C\341\342\317\362&D\360\310\363\343C\341\342\317\364&DEC\357\360\310\365\343C\341\342\317\366&DDCE\310\316\317@#\360\310\367\343C\341\342\317\370&D\371\360\310\372\343C\341\342\317\373&DDF\374\375\"\210\374\331\"\210\374\327\"\266\207" [display-time-default-load-average display-time-load-average display-time-use-mail-icon display-time-day-and-date display-time-24hr-format display-time-mail-face nil t propertize "%H:%M" face ((propertize ">" 'help-echo my-help-echo) (propertize " " 'help-echo my-help-echo 'display '((space :align-to (- (+ right right-fringe right-margin) 5)))) (propertize (format-time-string "%H:%M" now) 'help-echo (format-time-string "%A, %Y-%m-%d %H:%M" now) 'face display-time-mail-face)) display-time-mode 1 "-" help-echo "%e" mode-line-mule-info mode-line-client mode-line-modified ">" mode-line-buffer-identification " " mode-line-position (vc-mode vc-mode) mode-line-modes mode-line-misc-info "%[" "Recursive edit, type C-M-c to get out" "(" :propertize (#1="" mode-name) "Major mode\nmouse-1: Display major mode menu\nmouse-2: Show help for major mode\nmouse-3: Toggle minor modes" mouse-face mode-line-highlight local-map (#1# mode-line-process) (#1# minor-mode-alist) "Minor mode\nmouse-1: Display minor mode menu\nmouse-2: Show help for minor mode\nmouse-3: Toggle minor modes" "%n" "mouse-2: Remove narrowing from buffer" make-mode-line-mouse-map mouse-2 mode-line-widen ")" "%]" line-number-mode column-number-mode 0 "%l/%c" "Line number and Column number\nmouse-1: Display Line and Column Mode Menu" "L%l" "Line Number\nmouse-1: Display Line and Column Mode Menu" "C%c" "Column number\nmouse-1: Display Line and Column Mode Menu" "%p" "Location in buffer\nmouse-1: Display Line and Column Mode Menu" size-indication-mode "/%I" "Size indication mode\nmouse-1: Display Line and Column Mode Menu" set-default mode-line-format display-time-format display-time-string-forms my-help-echo mode-line-major-mode-keymap mode-line-minor-mode-keymap mode-line-column-line-number-mode-map] 18)
#@70 When a macro-key is recorded this is the key vector, null otherwise.
(defvar macro-key-record-key nil (#$ . 158014))