Skip to content

Instantly share code, notes, and snippets.

@shawwn

shawwn/ai.el

Created July 31, 2019 00:25
Show Gist options
  • Star 4 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save shawwn/589ed7ef6956c246e7b1be8e8981d35d to your computer and use it in GitHub Desktop.
Save shawwn/589ed7ef6956c246e7b1be8e8981d35d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ai.el
WARNING: Logging before flag parsing goes to stderr.
W0730 21:03:55.281007 139779186857856 deprecation_wrapper.py:119] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/model.py:147: The name tf.AUTO_REUSE is deprecated. Please use tf.compat.v1.AUTO_REUSE instead.
W0730 21:03:57.490804 139779186857856 deprecation_wrapper.py:119] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/memory_saving_gradients.py:13: The name tf.GraphKeys is deprecated. Please use tf.compat.v1.GraphKeys instead.
W0730 21:04:02.302061 139779186857856 deprecation_wrapper.py:119] From ./train.py:87: The name tf.ConfigProto is deprecated. Please use tf.compat.v1.ConfigProto instead.
W0730 21:04:02.302422 139779186857856 deprecation_wrapper.py:119] From ./train.py:90: The name tf.Session is deprecated. Please use tf.compat.v1.Session instead.
2019-07-30 21:04:02.319198: I tensorflow/core/platform/profile_utils/cpu_utils.cc:94] CPU Frequency: 2200000000 Hz
2019-07-30 21:04:02.321230: I tensorflow/compiler/xla/service/service.cc:168] XLA service 0x2240f40 executing computations on platform Host. Devices:
2019-07-30 21:04:02.321265: I tensorflow/compiler/xla/service/service.cc:175] StreamExecutor device (0): <undefined>, <undefined>
2019-07-30 21:04:02.324886: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcuda.so.1
2019-07-30 21:04:02.548402: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:02.548907: I tensorflow/compiler/xla/service/service.cc:168] XLA service 0x223fc00 executing computations on platform CUDA. Devices:
2019-07-30 21:04:02.548934: I tensorflow/compiler/xla/service/service.cc:175] StreamExecutor device (0): Tesla T4, Compute Capability 7.5
2019-07-30 21:04:02.549131: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:02.549491: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1640] Found device 0 with properties:
name: Tesla T4 major: 7 minor: 5 memoryClockRate(GHz): 1.59
pciBusID: 0000:00:04.0
2019-07-30 21:04:02.553246: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcudart.so.10.0
2019-07-30 21:04:02.683040: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcublas.so.10.0
2019-07-30 21:04:02.743339: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcufft.so.10.0
2019-07-30 21:04:02.763851: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcurand.so.10.0
2019-07-30 21:04:02.930609: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcusolver.so.10.0
2019-07-30 21:04:03.020950: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcusparse.so.10.0
2019-07-30 21:04:03.347626: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcudnn.so.7
2019-07-30 21:04:03.347850: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:03.348336: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:03.348663: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1763] Adding visible gpu devices: 0
2019-07-30 21:04:03.353854: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcudart.so.10.0
2019-07-30 21:04:03.355800: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1181] Device interconnect StreamExecutor with strength 1 edge matrix:
2019-07-30 21:04:03.355834: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1187] 0
2019-07-30 21:04:03.355846: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1200] 0: N
2019-07-30 21:04:03.361883: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:03.362293: I tensorflow/stream_executor/cuda/cuda_gpu_executor.cc:1005] successful NUMA node read from SysFS had negative value (-1), but there must be at least one NUMA node, so returning NUMA node zero
2019-07-30 21:04:03.362650: I tensorflow/core/common_runtime/gpu/gpu_device.cc:1326] Created TensorFlow device (/job:localhost/replica:0/task:0/device:GPU:0 with 14202 MB memory) -> physical GPU (device: 0, name: Tesla T4, pci bus id: 0000:00:04.0, compute capability: 7.5)
W0730 21:04:03.363384 139779186857856 deprecation_wrapper.py:119] From ./train.py:91: The name tf.placeholder is deprecated. Please use tf.compat.v1.placeholder instead.
W0730 21:04:08.228200 139779186857856 deprecation.py:323] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/sample.py:65: to_float (from tensorflow.python.ops.math_ops) is deprecated and will be removed in a future version.
Instructions for updating:
Use `tf.cast` instead.
W0730 21:04:08.241265 139779186857856 deprecation.py:323] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/sample.py:16: add_dispatch_support.<locals>.wrapper (from tensorflow.python.ops.array_ops) is deprecated and will be removed in a future version.
Instructions for updating:
Use tf.where in 2.0, which has the same broadcast rule as np.where
W0730 21:04:08.242809 139779186857856 deprecation.py:323] From /content/drive/My Drive/ml/2019-07-30/gpt-2-elisp-untab/src/sample.py:70: multinomial (from tensorflow.python.ops.random_ops) is deprecated and will be removed in a future version.
Instructions for updating:
Use `tf.random.categorical` instead.
W0730 21:04:08.252497 139779186857856 deprecation_wrapper.py:119] From ./train.py:120: The name tf.train.AdamOptimizer is deprecated. Please use tf.compat.v1.train.AdamOptimizer instead.
W0730 21:04:13.685754 139779186857856 deprecation_wrapper.py:119] From ./train.py:143: The name tf.summary.scalar is deprecated. Please use tf.compat.v1.summary.scalar instead.
W0730 21:04:13.688318 139779186857856 deprecation_wrapper.py:119] From ./train.py:146: The name tf.summary.merge is deprecated. Please use tf.compat.v1.summary.merge instead.
W0730 21:04:13.689069 139779186857856 deprecation_wrapper.py:119] From ./train.py:148: The name tf.summary.FileWriter is deprecated. Please use tf.compat.v1.summary.FileWriter instead.
W0730 21:04:13.690085 139779186857856 deprecation_wrapper.py:119] From ./train.py:151: The name tf.train.Saver is deprecated. Please use tf.compat.v1.train.Saver instead.
Loading checkpoint checkpoint/run1/model-8000
W0730 21:04:20.187521 139779186857856 deprecation.py:323] From /usr/local/lib/python3.6/dist-packages/tensorflow/python/training/saver.py:1276: checkpoint_exists (from tensorflow.python.training.checkpoint_management) is deprecated and will be removed in a future version.
Instructions for updating:
Use standard file APIs to check for files with this prefix.
Loading dataset...
100% 1/1 [00:01<00:00, 1.91s/it]
dataset has 28687664 tokens
Training...
2019-07-30 21:04:33.099080: W tensorflow/compiler/jit/mark_for_compilation_pass.cc:1412] (One-time warning): Not using XLA:CPU for cluster because envvar TF_XLA_FLAGS=--tf_xla_cpu_global_jit was not set. If you want XLA:CPU, either set that envvar, or use experimental_jit_scope to enable XLA:CPU. To confirm that XLA is active, pass --vmodule=xla_compilation_cache=1 (as a proper command-line flag, not via TF_XLA_FLAGS) or set the envvar XLA_FLAGS=--xla_hlo_profile.
2019-07-30 21:04:33.331786: I tensorflow/stream_executor/platform/default/dso_loader.cc:42] Successfully opened dynamic library libcublas.so.10.0
[8001 | 5.45] loss=1.26 avg=1.26
[8002 | 6.30] loss=1.09 avg=1.17
[8003 | 7.14] loss=1.19 avg=1.18
[8004 | 7.99] loss=0.98 avg=1.13
[8005 | 8.83] loss=1.35 avg=1.17
[8006 | 9.69] loss=1.10 avg=1.16
[8007 | 10.54] loss=1.21 avg=1.17
[8008 | 11.39] loss=0.70 avg=1.11
[8009 | 12.24] loss=1.17 avg=1.11
[8010 | 13.09] loss=0.88 avg=1.09
[8011 | 13.94] loss=1.65 avg=1.14
[8012 | 14.79] loss=1.12 avg=1.14
[8013 | 15.65] loss=1.06 avg=1.14
[8014 | 16.51] loss=0.63 avg=1.10
[8015 | 17.37] loss=0.79 avg=1.08
[8016 | 18.23] loss=0.81 avg=1.06
[8017 | 19.09] loss=1.15 avg=1.06
[8018 | 19.94] loss=1.28 avg=1.08
[8019 | 20.80] loss=1.11 avg=1.08
[8020 | 21.67] loss=1.72 avg=1.11
[8021 | 22.53] loss=0.84 avg=1.10
[8022 | 23.39] loss=1.17 avg=1.10
[8023 | 24.25] loss=1.24 avg=1.11
[8024 | 25.12] loss=1.39 avg=1.12
[8025 | 25.99] loss=0.97 avg=1.12
[8026 | 26.86] loss=1.37 avg=1.13
[8027 | 27.73] loss=1.34 avg=1.14
[8028 | 28.60] loss=1.21 avg=1.14
[8029 | 29.46] loss=1.28 avg=1.14
[8030 | 30.34] loss=0.97 avg=1.14
[8031 | 31.21] loss=1.01 avg=1.13
[8032 | 32.08] loss=1.55 avg=1.15
[8033 | 32.96] loss=0.97 avg=1.14
[8034 | 33.83] loss=1.32 avg=1.15
[8035 | 34.71] loss=1.14 avg=1.15
[8036 | 35.59] loss=1.34 avg=1.15
[8037 | 36.47] loss=1.17 avg=1.15
[8038 | 37.35] loss=1.37 avg=1.16
[8039 | 38.23] loss=0.95 avg=1.15
[8040 | 39.11] loss=1.00 avg=1.15
[8041 | 39.99] loss=1.03 avg=1.15
[8042 | 40.87] loss=0.95 avg=1.14
[8043 | 41.75] loss=1.16 avg=1.14
[8044 | 42.64] loss=1.18 avg=1.14
[8045 | 43.52] loss=0.85 avg=1.13
[8046 | 44.42] loss=1.15 avg=1.14
[8047 | 45.31] loss=0.94 avg=1.13
[8048 | 46.21] loss=1.30 avg=1.13
[8049 | 47.10] loss=1.17 avg=1.14
[8050 | 48.00] loss=0.96 avg=1.13
[8051 | 48.89] loss=1.12 avg=1.13
[8052 | 49.79] loss=1.50 avg=1.14
[8053 | 50.68] loss=1.80 avg=1.16
[8054 | 51.58] loss=1.23 avg=1.16
[8055 | 52.48] loss=1.28 avg=1.16
[8056 | 53.38] loss=1.56 avg=1.17
[8057 | 54.28] loss=1.28 avg=1.17
[8058 | 55.18] loss=1.19 avg=1.17
[8059 | 56.08] loss=1.11 avg=1.17
[8060 | 56.99] loss=0.80 avg=1.16
[8061 | 57.90] loss=1.28 avg=1.17
[8062 | 58.81] loss=1.04 avg=1.16
[8063 | 59.72] loss=0.74 avg=1.15
[8064 | 60.63] loss=0.91 avg=1.15
[8065 | 61.55] loss=0.89 avg=1.14
[8066 | 62.47] loss=1.14 avg=1.14
[8067 | 63.39] loss=0.82 avg=1.14
[8068 | 64.31] loss=0.99 avg=1.13
[8069 | 65.24] loss=0.98 avg=1.13
[8070 | 66.16] loss=1.39 avg=1.14
[8071 | 67.09] loss=1.66 avg=1.15
[8072 | 68.02] loss=1.33 avg=1.15
[8073 | 68.95] loss=0.81 avg=1.14
[8074 | 69.89] loss=1.36 avg=1.15
[8075 | 70.83] loss=1.26 avg=1.15
[8076 | 71.77] loss=1.58 avg=1.16
[8077 | 72.71] loss=1.24 avg=1.16
[8078 | 73.66] loss=0.44 avg=1.15
[8079 | 74.61] loss=0.69 avg=1.14
[8080 | 75.55] loss=1.17 avg=1.14
[8081 | 76.51] loss=1.19 avg=1.14
[8082 | 77.46] loss=1.80 avg=1.15
[8083 | 78.41] loss=1.08 avg=1.15
[8084 | 79.37] loss=1.60 avg=1.16
[8085 | 80.32] loss=1.28 avg=1.16
[8086 | 81.28] loss=1.45 avg=1.17
[8087 | 82.23] loss=1.12 avg=1.16
[8088 | 83.18] loss=1.07 avg=1.16
[8089 | 84.13] loss=1.04 avg=1.16
[8090 | 85.08] loss=1.41 avg=1.16
[8091 | 86.02] loss=1.01 avg=1.16
[8092 | 86.96] loss=1.11 avg=1.16
[8093 | 87.90] loss=0.60 avg=1.15
[8094 | 88.84] loss=1.45 avg=1.16
[8095 | 89.77] loss=0.98 avg=1.15
[8096 | 90.70] loss=1.01 avg=1.15
[8097 | 91.63] loss=1.14 avg=1.15
[8098 | 92.56] loss=1.76 avg=1.16
[8099 | 93.49] loss=0.91 avg=1.16
Generating samples...
======== SAMPLE 1 ========
kill)
(progn
;; Clean up the file if there's only one; the file's in the
;; "default" dir
(unless (file-remote-p localhost)
(setq localhost (concat alist (concat "%s" (car alist)) "-")))
(setq localhost (concat "\"(\".*|\".*(\",\"\".*|\"*$\"\",\"\"$\"*)\"\"\"`"
(or alist (substring alist 1 -1)))
default-directory))
(if (> localhost (or alist-substring alist-substring alist-substring nil))))
(defun create-default-directory (directory &optional ignore)
"Make default directory in Directory.
If directories are included, make the directory itself."
(directory
(and ignore (directory-files
(file-remote-p (current-buffer))))
(and ignore (directory-files
(file-remote-p (current-buffer))))
(unless ignore
(dolist (directory
(let ((alist (apply
(substring
(concat (cdr (assq "default-directory" alist)) "-")))
(concat "*" (regexp-opt (cdr (assq "dir-default" (car alist))))
alist (cdr (assq "default-directory" (car alist)))))))
file-name
(setq directory localhost)))
default-location)))
(defun create-default-directory (directory)
"Make directory in Directory which is to be created in the default directory.
If the directory includes \"%s\" or \"%s\", make it its own
directory."
(and directory
(or (not ignore)
(setq default-directory
(and ignore (directory-files ignore dir-files))
(cdr (assq "default-directory" (car alist)))))))
(defalias 'file-remote-p nil "make a default directory" nil
"Check if directory exists in directory.
If so, do anything necessary as long as the default directory exists.
Otherwise, do nothing for most of the time."
(or ignore
(file-remote-p ignore
(and ignore (directory-files ignore dir-files)))))
(defalias 'name-directory-p nil "put the default name of that directory in."
"If called with a directory-file-name-separator arg, put it in name-1.
If called with no such argument, put it in name-2.
This option also does not add any new names.")
(defun create-default-directory-file (dir &optional name)
"Make a directory in DIRECTORY specified by DIR.
If DIR is given, create a new one and then create it.
The default name of the file is also set in DIR.
With no prefix argument, make it its own directory."
(unless (file-readable-p dir)
(add-hook '
======== SAMPLE 2 ========
kill."
(message (concat "`%s'"
(if (string-match "\\(.*\\)\n"
(cddr-cdr-match-string last-word)
"\\(\\|\\|([^\n]+\\)[^\n]+\\)"
"\\(\\|\\))"
last-word))
"<" (if (string-match "\\|"))
"<" (if (cddr-cdr-match-string last-word)
"\\)"))
)
nil "\n")
;; we don't have to add `%s' so we keep
;; we are using `%s' in this case because
;; it returns empty string anyway.
("^[^\n]+"
last-word "\n" nil)
1)
(setq idx-idx-regexp idx-idx-regexp)
(if (> idx-idx-last-number last-word t)
(if (> idx-start-number last-word)
(if (< idx-last-number idx-start-number)
(setq idx-start-number idx-start-number)
(setq next-word idx-start-number))
idx-start-number)))))
(setq idx-idx-regexp (cursor-up-list idx-list)
idx-idx-regexp (cursor-down-list idx-list))))
(when start-number
(when (>
======== SAMPLE 3 ========
kill-cached-entry)
"Call the cache functions `cache-cached-all' and
`cache-cached-error' in the same file.
A cached file may be created using the value of
`cache-cached-entry' when it is in an empty `cache-entry' file.
The cache-entry function returns the entries of the cache for
`Cached-name', `cached-file-name' and its child.
All entries are cached by `cache-cached-function' function;
it returns a lazy list with all the functions the last one called.
To access the cached files, the functions have to be explicitly called by
`cached-cache-function' function.
This function does more than caches."
(dolist (cache-cached-list
(if (get 'cache-caches cache-caches) nil
(let* ((entries (cached-entry cache-caches))
(current (current-column))))
(progn
(setq entries (cached-entry entries))
(if current
(goto-char (cadr entries))
(replace-match (char-after) (nth 1 out-caches)))))))
(if current
(put 'cache-caches 'car entries))
(if current
(put 'cache-caches 'c-point)
(put 'cache-caches 'calculate-caches)))
(save-excursion
(if (and (nth last out-caches) (not uploaded)
(setq entries (cached-entry entries))
(goto-char (cadr entries))
(replace-match (nth 1 out-caches)))))))
(defun cache-cached-entry (n)
"Call the process `cache-cached-entry' for N records or nil."
(or (nth (nth last out-caches) cached-cache-alist)
'(("" n 0 ;; 0 is the last cached entry. 0 does not mean
;; cache entry. 0 does not mean entry. 1 does not mean. 2 does not
;; do not cache entry.
(nconc n (mapcar (lambda (entry)
(if
(read-file-name
(concat
"Cached entries: "
(or (nth 2 out-caches) (nth 1 cached-files)))
n
n)))
======== SAMPLE 4 ========
kill-functions (car (car (nth 3 entry)))
'(
(cdr (nth 1 entry)))
(car (nth 2 entry)))
t
(t
(and
(setq t (format "Moved to %d"
(nth 1 entry)))))
(or (bobp)
(and (cdr (nth 1 entry)))
(setq b (1+ (nth 1 entry)))
(push b 0))
(or (and (cdr (nth 2 entry) (math-realp b))
(or not (memq (nth 0 entry))))) (setq b (1+ b)))
(or (math-expert-not-a (nth 2 entry))
(and (not (memq (math-expand b 1))
(and (eq (nth 2 entry) 'math-abstract)
(math-abstract-boundp b)
(math-add-sub-b (nth 1 entry)))))
(or (math-expert-not-a (nth 3 entry))
(and (eq (math-expert-not-c (nth 4 entry))
math-abstract-boundp))))
(and (not (nth 1 entry)))
(and (not (nth 2 entry
[8100 | 121.24] loss=0.91 avg=1.15
[8101 | 122.14] loss=1.53 avg=1.16
[8102 | 123.05] loss=0.54 avg=1.15
[8103 | 123.95] loss=1.37 avg=1.15
[8104 | 124.85] loss=0.97 avg=1.15
[8105 | 125.76] loss=0.60 avg=1.14
[8106 | 126.66] loss=1.11 avg=1.14
[8107 | 127.57] loss=1.24 avg=1.14
[8108 | 128.47] loss=1.02 avg=1.14
[8109 | 129.37] loss=1.46 avg=1.15
[8110 | 130.28] loss=1.43 avg=1.15
[8111 | 131.19] loss=1.35 avg=1.15
[8112 | 132.09] loss=1.23 avg=1.15
[8113 | 132.99] loss=1.58 avg=1.16
[8114 | 133.90] loss=1.34 avg=1.16
[8115 | 134.81] loss=1.25 avg=1.16
[8116 | 135.72] loss=1.17 avg=1.16
[8117 | 136.63] loss=1.56 avg=1.17
[8118 | 137.54] loss=1.15 avg=1.17
[8119 | 138.45] loss=1.02 avg=1.17
[8120 | 139.36] loss=1.11 avg=1.17
[8121 | 140.27] loss=1.04 avg=1.16
[8122 | 141.18] loss=1.62 avg=1.17
[8123 | 142.10] loss=1.22 avg=1.17
[8124 | 143.01] loss=0.71 avg=1.17
[8125 | 143.93] loss=1.13 avg=1.17
[8126 | 144.84] loss=1.14 avg=1.16
[8127 | 145.76] loss=1.38 avg=1.17
[8128 | 146.67] loss=0.97 avg=1.16
[8129 | 147.59] loss=0.95 avg=1.16
[8130 | 148.51] loss=0.94 avg=1.16
[8131 | 149.43] loss=0.97 avg=1.16
[8132 | 150.35] loss=1.63 avg=1.16
[8133 | 151.27] loss=0.91 avg=1.16
[8134 | 152.20] loss=1.16 avg=1.16
[8135 | 153.12] loss=0.57 avg=1.15
[8136 | 154.04] loss=1.52 avg=1.16
[8137 | 154.96] loss=1.22 avg=1.16
[8138 | 155.89] loss=1.17 avg=1.16
[8139 | 156.82] loss=1.36 avg=1.16
[8140 | 157.74] loss=1.46 avg=1.16
[8141 | 158.66] loss=1.16 avg=1.16
[8142 | 159.59] loss=1.09 avg=1.16
[8143 | 160.52] loss=1.22 avg=1.16
[8144 | 161.45] loss=1.40 avg=1.17
[8145 | 162.38] loss=0.94 avg=1.16
[8146 | 163.30] loss=1.02 avg=1.16
[8147 | 164.24] loss=0.91 avg=1.16
[8148 | 165.16] loss=0.64 avg=1.15
[8149 | 166.10] loss=1.17 avg=1.15
[8150 | 167.02] loss=0.99 avg=1.15
[8151 | 167.95] loss=1.70 avg=1.16
[8152 | 168.88] loss=1.17 avg=1.16
[8153 | 169.81] loss=1.03 avg=1.16
[8154 | 170.74] loss=0.99 avg=1.15
[8155 | 171.67] loss=1.46 avg=1.16
[8156 | 172.60] loss=1.19 avg=1.16
[8157 | 173.53] loss=1.21 avg=1.16
[8158 | 174.46] loss=1.13 avg=1.16
[8159 | 175.39] loss=0.98 avg=1.16
[8160 | 176.32] loss=1.19 avg=1.16
[8161 | 177.25] loss=0.97 avg=1.15
[8162 | 178.18] loss=1.19 avg=1.15
[8163 | 179.10] loss=1.43 avg=1.16
[8164 | 180.03] loss=1.74 avg=1.17
[8165 | 180.96] loss=1.02 avg=1.16
[8166 | 181.88] loss=0.99 avg=1.16
[8167 | 182.81] loss=0.91 avg=1.16
[8168 | 183.73] loss=0.91 avg=1.16
[8169 | 184.65] loss=1.34 avg=1.16
[8170 | 185.58] loss=0.81 avg=1.15
[8171 | 186.50] loss=1.03 avg=1.15
[8172 | 187.42] loss=1.29 avg=1.15
[8173 | 188.35] loss=1.02 avg=1.15
[8174 | 189.27] loss=0.84 avg=1.15
[8175 | 190.19] loss=1.12 avg=1.15
[8176 | 191.11] loss=1.04 avg=1.15
[8177 | 192.03] loss=1.03 avg=1.14
[8178 | 192.95] loss=1.24 avg=1.15
[8179 | 193.87] loss=0.99 avg=1.14
[8180 | 194.79] loss=1.33 avg=1.15
[8181 | 195.71] loss=1.53 avg=1.15
[8182 | 196.63] loss=1.07 avg=1.15
[8183 | 197.55] loss=1.39 avg=1.15
[8184 | 198.47] loss=1.35 avg=1.16
[8185 | 199.39] loss=0.89 avg=1.15
[8186 | 200.30] loss=0.92 avg=1.15
[8187 | 201.22] loss=1.10 avg=1.15
[8188 | 202.13] loss=1.55 avg=1.15
[8189 | 203.05] loss=0.57 avg=1.15
[8190 | 203.97] loss=1.42 avg=1.15
[8191 | 204.88] loss=0.97 avg=1.15
[8192 | 205.79] loss=0.98 avg=1.15
[8193 | 206.71] loss=1.09 avg=1.14
[8194 | 207.63] loss=1.13 avg=1.14
[8195 | 208.55] loss=0.97 avg=1.14
[8196 | 209.47] loss=0.97 avg=1.14
[8197 | 210.38] loss=1.34 avg=1.14
[8198 | 211.29] loss=1.25 avg=1.14
[8199 | 212.21] loss=1.60 avg=1.15
Generating samples...
======== SAMPLE 1 ========
;; Add the `@' characters when `@' is used.
(regexp-quote regexp-end))))
;;
(setq regexp-quote (symbol-name regexp-end))
(setf regexp-end (max (length regexp-begin) 0)
regexp-end (max (point-min) (setq regexp-begin
(point-max))))
(t
(error "Cannot find file `%s': %s" regexp-end))))
(when (eq symbol-name '@)
(setq regexp-begin (point-min) (max (point-min) regexp-end))))
(when (eq symbol-name '@)
(setq regexp-end (point-min) (max (point-min) regexp-end))))
;;;###autoload
(defun regexp-file-completion--compile ()
"Compile the current buffer for interactive use, in
a compiled version of `resolv-buffer' (included as in Emacs Lisp)."
(save-excursion
(setq regexp-file-completion
(if (re-search-backward regexp-command (prefix-numeric-value prefix-numeric-value))
'resolv-compile)
(regexp-compile regexp-file-completions)
(if (re-search-backward regexp-command (prefix-numeric-value prefix-numeric-value))
'resolv-compile))
(error "Not a regular expression"))
(unless (memq (regexp-match regexp-completions) '(1 2))
(error "-Expected regular expression")))
;; Add the new regexp at the end of the last line if needed.
(let* ((regexp-list
(cond ((and (re-search-backward regexp-command (prefix-numeric-value prefix-numeric-value))
(regexp-quote regexp-begin) t))
(t (insert " " "")))
(t (insert "\n"))
((or (eq (setq regexp-end (point-min)))
(regexp-quote regexp-end) nil)
(t (setq regexp-end nil))
(t regexp-end nil))))
(t
(error "Not a regexp"))
(insert
" " regexp-completion-string "/"
"Compiling Emacs Lisp.")))
;;;; Compile functions in a separate process.
(defcustom regexp-match-function nil
"Function to match a file in or after a match.
This is called on the Lisp interpreter. This function
must return a function that is called (with no return statement),
with no error, and also a value (which represents a character
in `'
======== SAMPLE 2 ========
(list (if (featurep 'gnuplot2) (setq gnus-plot-flag "gnuplot2")
(gnus-plot-flag "gnuplot0") gnus-plot-flag)))
(list gnus-plot-flag))
(gnus-plot-on "x"
;; Make x position visible and
;; set gcm-vertical-columns.
(list (gnus-find-horizontal-column (gnus-get-horizontal-column)))
(list gnus-plot-flag)))))
(defun gnus-vertical-columns ()
"Vertical-columns is the number of columns on the line.
It is defined here by `gnus-vertical-columns-format-alist'.
The default value lies between 1 and 256 column.
It is defined by `gnus-vertical-columns-format-alist'.")
(let ((gnus-find-horizontal-columns (gnus-get-horizontal-column (gnus-get-horizontal-columns)))
(gnus-vertical-columns-format-alist gnus-horizontal-columns-count))))
(defun gnus-horizontal-columns-count ()
"Digits the column count per point in the HORIZONTAL-STYLE.
Calls gnus-horizontal-columns-format-alist with the column
counts from point."
(cl-loop for column in gnus-horizontal-columns-count do
;; For now, we only want to call it as-is, so
;; no need to call it in any other loop, since the
;; display itself is a function that doesn't support HORIZONTAL-STYLE
;; behavior.
(gnus-horizontal-columns-format-alist gnus-horizontal-columns-count)))
(if gnus-vertical-columns-format-alist
(gnus-horizontal-columns-format-alist gnus-horizontal-columns-count)))
(provide 'gnus-horizontal-columns)
;; Local variables:
;; generated-autoload-file: "loaddefs.el"
;; generated-autoload-load-name: "gnus-horizontal-columns"
;;; instabilities:
(require 'latin-align)
(require 'gnus-scan-string)
(defvar gnus-scan-string)
(declare-function gnus-scan-string-function "gnus-scan-string")
(defvar gnus-scan-string-face))
;;; Internal variables.
(defvar gnus-show-item-count-or-msg-count nil)
(defun gnus-show-item (num args)
"Display the list of entries in the current item.
If num is nil (nil means the message is not displayed), the
messages are displayed separately.
NUM is the number of lines in the message, and the number of
separators.
GROUP is a symbol. See `gnus-display-message' for a
help-string which might match an item."
(when (and (> (- num 1) gnus-show-item-count-or-msg)))
(let ((num (1+ num))))
(save-excursion
(let* ((len (nth 0 gnus-show-item-count-or-msg-count)) nargs)
(while (<= num num)
(when (or (> num minibuffer) (> num numminibuffer)))
(gnus-list-scan-string
(
======== SAMPLE 3 ========
(define-key map [cadr] [cvs-pre-save] 'cvs-pre-save)))
(define-key map [x-m-s-x] [cvs-delete-mark] 'cvs-delete-mark)
(define-key map [x-m-s-x] [cvs-delete-mark] 'cvs-delete-mark)))
((eq map 'cvs-delete-mark)
(define-key map [x-m-g-z] [cvs-insert-mark] 'cvs-insert-mark))
(setq maps (cdr maps))
(define-key map [cvs-save] [cvs-save-mark] 'cvs-save-mark)
(define-key map [cvs-recenter] [cvs-recenter-mark] #'cvs-recenter-mark)
(define-key map [cvs-mark-mark] [cvs-mark-mark-mark-save-mark] 'cvs-mark-mark-save-mark-mark-mark)
(define-key map [cvs-save-mark-mark] [cvs-save-mark-mark-save-mark] 'cvs-save-mark-save-mark-mark-mark)
(define-key map [cvs-move] [cvs-move t] #'cvs-move-mark))
(define-key map [cvs-delete][cvs-insert] [cvs-delete-mark] #'cvs-insert-mark)) ; for the last
(define-key map [cvs-move-mark] [cvs-move-mark-mark-save-mark] #'cvs-move-mark-save-mark-mark-save-mark-mark)
(define-key map [cvs-mark-mark-mark-save] [cvs-mark-mark-mark-save-mark] #'cvs-mark-mark-save-mark-save-mark-mark-save)
(define-key map [cvs-move] [cvs-move-mark-mark-save-mark] #'cvs-move-mark-save-mark-save-mark-mark-save-mark-mark-save))
(define-key map [cvs-mark-save] [cvs-mark-mark-save-mark] 'cvs-mark-save-mark-mark-save-mark-mark-save)
(define-key map [cvs-replace] [cvs-replace-mark] #'cvs-replace-mark-mark-mark-save-mark-mark)
(define-key map [cvs-mark-mark-save] [cvs-mark-mark-mark-save] 'cvs-mark-mark-save-mark-mark-save-mark)
(define-key map [cvs-move] [cvs-move-mark-save] #'cvs-move-mark-save-mark-mark-save-mark-mark-mark-mark-save)
(define-key map [cvs-move-mark-save] [cvs-move-mark-mark-save-mark] 'cvs-move-mark-save-mark-mark-save-mark-mark-mark-save)
(define-key map [cvs-mark-save-mark] [cvs-mark-mark-save-mark] 'cvs-mark-save-mark-save-mark-mark-save-mark-save-save)
(define-key map [cvs-delete] [cvs-delete] #'cvs-delete-mark-mark-save-mark-mark-mark)
(define-key map [cvs-move] [cvs-move-mark-save] #'cvs-
======== SAMPLE 4 ========
(nconc
" (if (nconc cname) "%s"
" " " " " ") "
" (nconc cname) "
" (nconc cclass) " ")
(nconc (nstring cname) " ")))
(nconc "" (list cname))))
;; No strings must be inserted before beginning of list
;; with no spaces.
(nconc
"[ \t]*\n"
"^[ \t]*\n\n? "
(if (nconc cclass) "[ \t\n]"
"|" "[ \t]*\n\n; "
(list cname))))
(nndoc cname
(noref cname
"\\[nndoc]" nil t)))
(setq cname (nreverse cname)))))
(if (featurep 'xemacs)
(setq-local xemacs-regexp-function
'(xemacs-regexp-function (buffer-file-name "*.xemacs"))
(if (eq xemacs-use-xemacs-regexp 'yes)
(setq xemacs-use-xemacs-regexp t)
(make-local-variable 'mouse-face 'caption-name-face-region)
(make-string (- (length (caption-name-face) (length cname))))
(if (and (eq use-xemacs-regexp 'yes)
(string= (caption-name-face) (1- (length cname))) (caption-name-face))))
(concat
(if (memq (char-syntax
'(xemacs-use-xemacs-regexp 'yes)
'(nth cname))))
(subst-char (char-syntax))))
[8200 | 238.28] loss=1.67 avg=1.16
[8201 | 239.19] loss=0.97 avg=1.15
[8202 | 240.10] loss=1.38 avg=1.16
[8203 | 241.02] loss=1.17 avg=1.16
[8204 | 241.94] loss=1.64 avg=1.16
[8205 | 242.85] loss=0.84 avg=1.16
[8206 | 243.77] loss=1.29 avg=1.16
[8207 | 244.69] loss=2.13 avg=1.17
[8208 | 245.61] loss=1.02 avg=1.17
[8209 | 246.53] loss=1.41 avg=1.17
[8210 | 247.44] loss=1.86 avg=1.18
[8211 | 248.36] loss=1.28 avg=1.18
[8212 | 249.28] loss=1.38 avg=1.18
[8213 | 250.19] loss=1.03 avg=1.18
[8214 | 251.11] loss=0.71 avg=1.18
[8215 | 252.03] loss=1.19 avg=1.18
[8216 | 252.95] loss=1.18 avg=1.18
[8217 | 253.87] loss=0.74 avg=1.17
[8218 | 254.79] loss=1.02 avg=1.17
[8219 | 255.71] loss=0.70 avg=1.16
[8220 | 256.62] loss=0.65 avg=1.16
[8221 | 257.54] loss=1.44 avg=1.16
[8222 | 258.45] loss=1.13 avg=1.16
[8223 | 259.37] loss=1.29 avg=1.16
[8224 | 260.29] loss=1.07 avg=1.16
[8225 | 261.21] loss=1.07 avg=1.16
[8226 | 262.13] loss=0.73 avg=1.16
[8227 | 263.04] loss=1.04 avg=1.15
[8228 | 263.96] loss=1.59 avg=1.16
[8229 | 264.88] loss=0.93 avg=1.16
[8230 | 265.80] loss=1.21 avg=1.16
[8231 | 266.72] loss=0.99 avg=1.16
[8232 | 267.64] loss=1.25 avg=1.16
[8233 | 268.56] loss=1.49 avg=1.16
[8234 | 269.48] loss=1.08 avg=1.16
[8235 | 270.40] loss=0.85 avg=1.16
[8236 | 271.32] loss=0.77 avg=1.15
[8237 | 272.23] loss=1.04 avg=1.15
[8238 | 273.15] loss=0.86 avg=1.15
[8239 | 274.07] loss=1.30 avg=1.15
[8240 | 274.99] loss=1.01 avg=1.15
[8241 | 275.91] loss=0.89 avg=1.14
[8242 | 276.82] loss=1.10 avg=1.14
[8243 | 277.74] loss=0.94 avg=1.14
[8244 | 278.66] loss=1.07 avg=1.14
[8245 | 279.58] loss=0.77 avg=1.14
[8246 | 280.50] loss=0.74 avg=1.13
[8247 | 281.42] loss=0.95 avg=1.13
[8248 | 282.34] loss=1.16 avg=1.13
[8249 | 283.26] loss=1.40 avg=1.13
[8250 | 284.18] loss=0.74 avg=1.13
[8251 | 285.10] loss=0.81 avg=1.13
[8252 | 286.01] loss=1.39 avg=1.13
[8253 | 286.93] loss=0.87 avg=1.13
[8254 | 287.85] loss=1.09 avg=1.13
[8255 | 288.77] loss=0.85 avg=1.12
[8256 | 289.69] loss=1.30 avg=1.12
[8257 | 290.61] loss=0.81 avg=1.12
[8258 | 291.53] loss=1.01 avg=1.12
[8259 | 292.44] loss=0.59 avg=1.11
[8260 | 293.36] loss=0.86 avg=1.11
[8261 | 294.28] loss=0.98 avg=1.11
[8262 | 295.20] loss=1.54 avg=1.12
[8263 | 296.12] loss=0.79 avg=1.11
[8264 | 297.05] loss=1.32 avg=1.11
[8265 | 297.97] loss=1.14 avg=1.11
[8266 | 298.89] loss=1.64 avg=1.12
[8267 | 299.81] loss=1.17 avg=1.12
[8268 | 300.73] loss=1.73 avg=1.13
[8269 | 301.65] loss=0.99 avg=1.13
[8270 | 302.57] loss=0.93 avg=1.12
[8271 | 303.49] loss=1.11 avg=1.12
[8272 | 304.41] loss=0.78 avg=1.12
[8273 | 305.33] loss=1.12 avg=1.12
[8274 | 306.26] loss=1.15 avg=1.12
[8275 | 307.17] loss=1.74 avg=1.13
[8276 | 308.10] loss=0.89 avg=1.12
[8277 | 309.02] loss=0.86 avg=1.12
[8278 | 309.94] loss=1.22 avg=1.12
[8279 | 310.86] loss=1.56 avg=1.13
[8280 | 311.78] loss=1.21 avg=1.13
[8281 | 312.70] loss=0.64 avg=1.12
[8282 | 313.62] loss=0.92 avg=1.12
[8283 | 314.54] loss=0.97 avg=1.12
[8284 | 315.46] loss=0.90 avg=1.12
[8285 | 316.39] loss=1.32 avg=1.12
[8286 | 317.30] loss=1.23 avg=1.12
[8287 | 318.22] loss=1.22 avg=1.12
[8288 | 319.15] loss=1.43 avg=1.12
[8289 | 320.07] loss=0.92 avg=1.12
[8290 | 320.99] loss=1.37 avg=1.12
[8291 | 321.92] loss=1.04 avg=1.12
[8292 | 322.84] loss=1.07 avg=1.12
[8293 | 323.76] loss=1.33 avg=1.13
[8294 | 324.68] loss=0.63 avg=1.12
[8295 | 325.60] loss=1.26 avg=1.12
[8296 | 326.53] loss=0.97 avg=1.12
[8297 | 327.45] loss=1.04 avg=1.12
[8298 | 328.37] loss=1.21 avg=1.12
[8299 | 329.29] loss=1.24 avg=1.12
Generating samples...
======== SAMPLE 1 ========
nil
"If at least one \"\" in the buffer, toggle it."
:type 'sexp
:group 'maphash
:version "24.1"
:package-version 0.4)
(defun maphash-edit-sexp (sexp)
"Return non-nil if an edit-sexp was applied to the current buffer.
Uses the sexp variable `message-sexp'."
(let ((old-sexp nil)
(sexp-last-sexp-re nil))
(switch-to-buffer-other-window)))
;;; Variables to be passed as sexp.el through `maphash-load' and `maphash-set'
;;
;; This depends on how many arguments the program has.
;;
;;
;; The value of this variable is either the value in the
;; sexp-init-arguments header of the argument list, when
;; the sexp is defined, or the value in the arg-list of
;; the call of the call of the call of the call of
;; the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of
;; the call of the call of the call of the call of the call
;; of the call of the call of the call call of the call of
;; the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the
;; call of the call of the call of the call of the call of
;; the call of the call of the call of the call of the call of
;; the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the call
;; of the call of the call of the call of the call of the
;; call of the call of the call of the call of the call
;; of the call of the call of the call of the call (non-interactively)
;; and the sexp is one of `maphash-make-sexp',
;; the sexp is one of `maphash-change-sexp', or the sexp is
;; one of `maphash-sexp'. If the value is nil,
;; the sexp is the sexp at the beginning of the argument list.
(add-hook 'maphash-set-sexp-arguments-functions
(if maphash-set-sexp-arguments-functions (append (mapcar #'comint-make-sexp-functions)) 'maphash-sexp)))
;;;###mh-autoload
(prog1
(require 'mh-auto)
(add-hook 'mh-hookp-functions 'mh-edit-sexp))
;;;###mh-autoload
(defcustom mh-maphash-mode nil
"Mode for editing Maphash files."
:type (let ((mode (mh-maphash-mode)))
(if mode
;; Mphash
(setq mode 'mh-maphash nil)
(setq mode-1 mode-2)))
mode)))
(defvar mh-maphash-expanded-file-lines nil
"Specify expanded file names or values for Mh-ExpandedFileList.
This variable defaults to nil if no value is specified, and
if non-nil also has the effect of t (if it is non-nil). See
`mh-expand-expanded-files-list'. If nil, expand in a `mh-expand-expanded'
variable.
This variable controls expanding and deleting an expanded file list,
but is normally bound to t (`expand-expanded-files' is non-nil)."
:type (
======== SAMPLE 2 ========
(goto-char (match-beginning 0))
(forward-line 1))))
(if (looking-at t) regexp)
(setq match-begin (match-beginning 0)))
(when (looking-at t)
(setq match-end (match-end 0)))
(or (looking-at-marker match-end)
(setq match-begin (match-beginning 0)))
(setq match-end (match-end 0)))
;; Check before moving
(when (eq (matching-string match-begin) 'move)
;; Don't move too far
(while regexp
(when (match-beginning match-end)
(setq match-begin (- match-begin match-end))))
(goto-char match-end)
(setq match-end (match-beginning match-end)))
(forward-line 1)))
======== SAMPLE 3 ========
(if (string-match "\\\\^{\\^[ \t]*$\\}" t)
(match-string 1 t))
e-mail-list-id-id e-mail-type-id (not e-mail-list-id-id))
e-mail-list-id e-mail-list-id)
(setq e-mail-list-id (substring e-mail-list-id 1))))
(setq e-mail-list-id (match-string 1))
(setq e-mail-list-id (if e-mail-list-id-id
(substring-no-properties e-mail-list-id 1)
t
e-mail-list-id))))
(if (not e-mail-list-id e-mail-view-id)
(setq e-mail-view-id (match-string 1)))
(setq e-mail-view-id (if e-mail-view-id
(substring e-mail-view-id 1)
e-mail-view-id)
(setq e-mail-view-id (if e-mail-view-id
(substring e-mail-view-id 1)
e-mail-view-id)))))
;; No error code available.
(add-excursion (progn
(delete-process e-mail-list-id)
(delete-file e-mail-list-id)
(set-process-filter e-mail-list-id e-mail-list-id)
(process-send-string e-mail-view-id e-mail-view-id (process-name)
;; Make sure that the file in the list is
;; saved since this file is saved in
======== SAMPLE 4 ========
["Misc Info" xmltok-menu-info-entry (file-name)))
;; This contains the entry to be used when the XMltok M-menu is
;; not available from the XMltok server.
function
(if xmltok-check-menu-display
(progn
(setq xmltok-menu-display
(if xmltok-check-menu-displacement xmltok-menu-displacement
(display-image xmltok-header)
xmltok-menu-displacement 'noerror)
xmltok-menu-displacement xmltok-menu-displacement 'noerror -1)))
(setq xmltok-menu-display
(if xmltok-check-menu-display
(display-image xmltok-header)
xmltok-menu-displacement
xmltok-menu-displacement 'noterror)
xmltok-menu-displacement xmltok-menu-displacement 'noterror 1))))))))))
(when (stringp xmltok-message-format)
(message
;; We try to be as short as we can. If the user doesn't want
;; the first message to contain a character, add it to
;; "Message-Lines" for the second message as the short of
;; that is required and it could be a string.
(concat xmltok-message-format " "
(if (setq (numberp xmltok-message-format)
(format "%-z %-z")
xmltok-message-format))
(number-to-string
(if xmltok-message-format " "
xmltok-message-format nil)
(if xmltok-message-format " "
xmltok-message-format nil)))) ; This handles message-to-string
(concat (number-to-string
[8300 | 355.29] loss=1.16 avg=1.12
[8301 | 356.20] loss=1.41 avg=1.12
[8302 | 357.12] loss=0.82 avg=1.12
[8303 | 358.04] loss=1.26 avg=1.12
[8304 | 358.96] loss=1.06 avg=1.12
[8305 | 359.88] loss=1.49 avg=1.13
[8306 | 360.80] loss=1.56 avg=1.13
[8307 | 361.72] loss=0.82 avg=1.13
[8308 | 362.63] loss=0.97 avg=1.13
[8309 | 363.55] loss=0.95 avg=1.12
[8310 | 364.46] loss=1.00 avg=1.12
[8311 | 365.38] loss=1.30 avg=1.12
[8312 | 366.30] loss=0.91 avg=1.12
[8313 | 367.21] loss=1.14 avg=1.12
[8314 | 368.13] loss=1.02 avg=1.12
[8315 | 369.04] loss=1.46 avg=1.12
[8316 | 369.96] loss=1.24 avg=1.13
[8317 | 370.88] loss=1.16 avg=1.13
[8318 | 371.80] loss=1.22 avg=1.13
[8319 | 372.71] loss=1.31 avg=1.13
[8320 | 373.63] loss=1.06 avg=1.13
[8321 | 374.55] loss=0.68 avg=1.12
[8322 | 375.47] loss=1.38 avg=1.13
[8323 | 376.39] loss=1.06 avg=1.13
[8324 | 377.30] loss=0.99 avg=1.12
[8325 | 378.22] loss=1.19 avg=1.13
[8326 | 379.14] loss=1.11 avg=1.13
[8327 | 380.05] loss=1.42 avg=1.13
[8328 | 380.97] loss=1.19 avg=1.13
[8329 | 381.89] loss=1.08 avg=1.13
[8330 | 382.80] loss=1.48 avg=1.13
[8331 | 383.72] loss=1.06 avg=1.13
[8332 | 384.64] loss=1.01 avg=1.13
[8333 | 385.56] loss=1.00 avg=1.13
[8334 | 386.48] loss=0.97 avg=1.13
[8335 | 387.40] loss=1.69 avg=1.13
[8336 | 388.32] loss=1.50 avg=1.14
[8337 | 389.24] loss=1.09 avg=1.14
[8338 | 390.16] loss=0.81 avg=1.13
[8339 | 391.08] loss=1.29 avg=1.13
[8340 | 392.00] loss=0.97 avg=1.13
[8341 | 392.92] loss=1.30 avg=1.13
[8342 | 393.84] loss=1.52 avg=1.14
[8343 | 394.75] loss=1.14 avg=1.14
[8344 | 395.67] loss=1.16 avg=1.14
[8345 | 396.59] loss=1.19 avg=1.14
[8346 | 397.51] loss=0.83 avg=1.14
[8347 | 398.43] loss=0.88 avg=1.13
[8348 | 399.36] loss=0.73 avg=1.13
[8349 | 400.28] loss=1.18 avg=1.13
[8350 | 401.20] loss=1.21 avg=1.13
[8351 | 402.12] loss=1.04 avg=1.13
[8352 | 403.05] loss=1.29 avg=1.13
[8353 | 403.97] loss=1.16 avg=1.13
[8354 | 404.89] loss=1.25 avg=1.13
[8355 | 405.82] loss=1.45 avg=1.14
[8356 | 406.74] loss=0.96 avg=1.13
[8357 | 407.66] loss=1.61 avg=1.14
[8358 | 408.59] loss=0.88 avg=1.14
[8359 | 409.51] loss=1.29 avg=1.14
[8360 | 410.43] loss=0.94 avg=1.14
[8361 | 411.36] loss=1.25 avg=1.14
[8362 | 412.28] loss=1.76 avg=1.14
[8363 | 413.21] loss=1.03 avg=1.14
[8364 | 414.13] loss=1.13 avg=1.14
[8365 | 415.06] loss=0.92 avg=1.14
[8366 | 415.98] loss=0.96 avg=1.14
[8367 | 416.91] loss=1.04 avg=1.14
[8368 | 417.83] loss=1.15 avg=1.14
[8369 | 418.76] loss=1.11 avg=1.14
[8370 | 419.69] loss=1.52 avg=1.14
[8371 | 420.61] loss=0.71 avg=1.14
[8372 | 421.54] loss=0.99 avg=1.13
[8373 | 422.47] loss=0.96 avg=1.13
[8374 | 423.39] loss=0.95 avg=1.13
[8375 | 424.32] loss=0.60 avg=1.13
[8376 | 425.24] loss=1.19 avg=1.13
[8377 | 426.17] loss=1.02 avg=1.13
[8378 | 427.09] loss=0.99 avg=1.12
[8379 | 428.02] loss=1.24 avg=1.13
[8380 | 428.94] loss=0.78 avg=1.12
[8381 | 429.87] loss=0.84 avg=1.12
[8382 | 430.79] loss=1.09 avg=1.12
[8383 | 431.72] loss=1.12 avg=1.12
[8384 | 432.64] loss=1.23 avg=1.12
[8385 | 433.56] loss=0.44 avg=1.11
[8386 | 434.49] loss=1.39 avg=1.12
[8387 | 435.41] loss=1.35 avg=1.12
[8388 | 436.34] loss=1.00 avg=1.12
[8389 | 437.26] loss=0.71 avg=1.11
[8390 | 438.19] loss=1.14 avg=1.11
[8391 | 439.11] loss=1.16 avg=1.11
[8392 | 440.04] loss=0.90 avg=1.11
[8393 | 440.96] loss=1.49 avg=1.12
[8394 | 441.88] loss=1.21 avg=1.12
[8395 | 442.80] loss=1.30 avg=1.12
[8396 | 443.73] loss=1.21 avg=1.12
[8397 | 444.65] loss=1.11 avg=1.12
[8398 | 445.57] loss=1.16 avg=1.12
[8399 | 446.49] loss=0.88 avg=1.12
Generating samples...
======== SAMPLE 1 ========
:tag "List of objects with name `%%"))
:type (:tag ""))
#'n
:group (:attr :value #'n))))
;;;###autoload
(defun nnxml-parse-value()
"Parse the XML document as a string."
(interactive)
(nxml-define-parse-string string value))
(defun nxml-parse-value-as-string ()
"Parse the XML document as a string using its text string."
(interactive)
(nxml-define-parse-string string value))
;;;###autoload
(defun nxml-parse-xml-p (value &optional text-width)
"Parse the XML document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width))
;;;###autoload
(defun nxml-parse-xml-p2 (value &optional text-width)
"Parse the XML document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width))
(defun nxml-parse-xml-p3 (value &optional text-width)
"Parse the XDocument document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width)))
;;;###autoload
(defun nxml-parse-xml-p4 (value &optional text-width)
"Parse the XDocument document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width))
;;;###autoload
(defun nxml-parse-xml-p5 (value &optional text-width)
"Parse the XDocument document as a string.
POPULATE and ENDOW must be an integer or a
string of values."
(interactive "P")
(nxml-define-parse-string value text-width))))
(provide 'nxml)
;;; nxml.el ends here
<|endoftext|>;;; nxml.el --- optional data decoding commands
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;; 2006, 2007, 2008, 2009, 2010, 2011, 2012,
;; 2013, 2014, 2015, 2016, 2017
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Provides the support and management of any form of data decoding or decoding.
;; Provides access to any kind of non-decoded XML document that is
;; associated with the text you want to read, or just one XML document that you
;; want to decode. It does not work with data formats that are encoded
;; elsewhere, nor with XML files or JSON data.
;;
;; It also supports "undecoded XML" with additional support for those files
;; that are already encoded in a decoded format. In that case, if the decoder is
;; non-nil, it has control in that case.
;;
;; It might need
======== SAMPLE 2 ========
(goto-char next-line))
(t
(while
(move-match (match-beginning (1+ (- cursor-move-point)
(point-max) 1)))
(if (looking-at "^\\w+\\s-+" start)
(setq end (1+ end)))
(forward-line)
(set-marker (point-marker) cursor-end-position)
(if (looking-at "")
;; End is where we left off, for now.
(goto-char (match-beginning cursor-end))
(t
(setq cursor-end-position (point) (point)))
(goto-char next-line))
(looking-at "")
(if (looking-at "^ \t")
(set-marker (match-beginning cursor-end-position)
(point))
(setq cursor-end-position (point) (point)))
(_) (forward-line-addressed)
;; End is where we left off, at cursor, for now.
(forward-line-backward)
;; End is where we moved, so we get to where we left off
;; now
;; (replace-match \\<end\\>\\>\\>\n+\\(.*[]+\\)\\>\\>" :end
t)
;; Go to a place where we would want to leave point
;; then go back over the cursor again.
t)
(goto-char end)))
(defun mark-start -1 (- end)
"Move point to the end of the line at end of a line at point, by marking `Marked' for non-nil."
(interactive)
(goto-char start)
(mark)
(mark-end)
(forward-line-addressed)
(goto-char end)
(if mark-start
(if mark-end
(if end
(if mark-indent-point
(line-beginning-position)
end)
'mark-forward)
(if mark-indent-point
;; Mark the mark with a blank line.
(mark mark end))))))
(defun mark-indent-point (+ (- end 1) (* (- mark (point-marker)) (* (- mark (- (point--) (- end))) 1))))
(defun mark-move (* (* (- mark (- (point-end) (* (* mark (+ (* mark (* (* (+ (* (* (* mark (+ (* (+ (* (* (+ (* (+ (- (- t t) (- 1))))))) 2) 5)
1) 1)
2)))
;; Find the appropriate position for mark-start.
======== SAMPLE 3 ========
(goto-char p)))
((= p ?h)
(dolist (a b)
(let ((last (last (if (member b 'pup) pup-last pup-last))
(pos x) (pos y))
(when (string-match a (expand-ability-p last))
(unless last (message "No match found for `%s'" last)))
(message "No match found for `%s'"))))
(setq pos (1+ pos))
(when pos (when (looking-at
"[%c]") (search-forward pos #'stringp)))))
((= pos ?s)
(cond ((string-match "^" pos))
((eq ?s ?s)
(setq last pos 2))))
(if (and (< pos pos)
(< pos pos)
(> pos pos)) (push pos pos))
(backward-char -1)
(t (replace-match " ")))
(let ((match-list
(cond
((string-match " " pos)
(let ((pos nil))
(setq pos (match-string-no-properties pos))
;; FIXME: FIXME: FIXME: Fix ?\s.?
;; FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME: FIXME:
pos (pos pos))))
(setq match-list nil))
(t
(let ((pos nil))
(setq pos (match-string-no-properties pos)))))
(dolist (a b)
(cond ((string-match "^#" b)
(setq pos (match-string-no-properties pos))
(when (string-match a (regexp-quote pos t))
(setq pos (1+ pos)))
(push pos pos)
pos (pos (1+ pos))))))))
(defun math-symbol-to-string-of-match (a b)
(or (zerop (eval-when (eval-and-debugp b) 'calcFunc-fetch-match-flag))
(let* ((regexp (car b)))
(setq last (apply 'calcFunc-fetch-match-flag regexp regexp)))
(calc-stack-match regexp last)))
(defvar math-linc nil)
(def
======== SAMPLE 4 ========
(cadr (and (symbolp args)
(stringp (cadr args)))
(cddr (assq 'possible-args args))))
(with-current-buffer (cadr args)
(insert-buffer-substring
" " args)))
(setq args '(" ""))
(insert-buffer-substring
args)))
(if (null (cdr args))
(insert-buffer-separate args))))
(defun dired-backend-function ()
"Convert back-end-to-backend at point into directory or region.
This hook uses the Dired window system and defaults to
The file system.
This function returns `DIR' in the current buffer, where DIR is
directory and DIR is the current buffer."
(interactive)
(if (null dired-backend-current-directory)
(let ((res nil)
(files dirs)
pwd)
(setq dirs (cdr pwd)))
(if (or (not file-exists)
(stringp pwd))
(let ((files nil)
pwd)
(files-in-directory
(concat dir pwd t)
file nil))
(dired-get-up-hook nil nil 'dired-backend-function)
(dired-get-up-hook nil t nil 'backend-function))))
(defun dired-get-directory ()
(let ((dir (concat dir "/"))
(defaults nil)
(files nil)
(file-exists-p default-directory)
(defaults-or-default
(list (format filename "/" dired-directory-regexp)))
(dired-directory-or-defaultp default-directory)))
(let ((dir (concat dir "/"))
(defaults nil)
(files nil)
(defaults nil)
(files-unmodified nil)))
(dired-get-up-hook nil nil 'dired-backend-function))
(defun dired-get-directory-or-file-ext (dir)
;; Get the directory of the directory in DIRECTORY.
;; dir is the directory to search.
(dired-read-directory dir)
(directory-parse nil)
(let ((defaults nil))
(set-buffer-modified-p (concat "^/directory-exts" dired-filename))
(setq file nil)
(narrow-to-region (point) (point) dir))
(with-temp-buffer
(dired-dirname dir)
(kill-buffer (current-buffer))
(dired-read-buffer))))
;; Copyright, x-www-gnu.org
[8400 | 472.71] loss=1.74 avg=1.12
[8401 | 473.62] loss=0.86 avg=1.12
[8402 | 474.54] loss=1.51 avg=1.12
[8403 | 475.46] loss=0.68 avg=1.12
[8404 | 476.38] loss=1.08 avg=1.12
[8405 | 477.30] loss=1.59 avg=1.12
[8406 | 478.22] loss=1.44 avg=1.13
[8407 | 479.14] loss=1.14 avg=1.13
[8408 | 480.06] loss=1.36 avg=1.13
[8409 | 480.97] loss=1.57 avg=1.13
[8410 | 481.89] loss=1.20 avg=1.14
[8411 | 482.81] loss=1.15 avg=1.14
[8412 | 483.73] loss=1.14 avg=1.14
[8413 | 484.64] loss=1.67 avg=1.14
[8414 | 485.56] loss=1.42 avg=1.14
[8415 | 486.47] loss=1.21 avg=1.14
[8416 | 487.39] loss=1.54 avg=1.15
[8417 | 488.31] loss=1.10 avg=1.15
[8418 | 489.23] loss=0.86 avg=1.14
[8419 | 490.14] loss=1.10 avg=1.14
[8420 | 491.06] loss=1.03 avg=1.14
[8421 | 491.98] loss=1.81 avg=1.15
[8422 | 492.89] loss=1.68 avg=1.16
[8423 | 493.81] loss=0.83 avg=1.15
[8424 | 494.72] loss=1.09 avg=1.15
[8425 | 495.64] loss=1.21 avg=1.15
[8426 | 496.55] loss=0.85 avg=1.15
[8427 | 497.47] loss=0.89 avg=1.15
[8428 | 498.39] loss=0.99 avg=1.15
[8429 | 499.30] loss=1.43 avg=1.15
[8430 | 500.22] loss=1.46 avg=1.15
[8431 | 501.13] loss=1.65 avg=1.16
[8432 | 502.05] loss=0.91 avg=1.15
[8433 | 502.96] loss=1.98 avg=1.16
[8434 | 503.88] loss=1.50 avg=1.17
[8435 | 504.80] loss=1.31 avg=1.17
[8436 | 505.71] loss=0.80 avg=1.16
[8437 | 506.63] loss=0.63 avg=1.16
[8438 | 507.54] loss=0.52 avg=1.15
[8439 | 508.46] loss=0.96 avg=1.15
[8440 | 509.37] loss=1.19 avg=1.15
[8441 | 510.29] loss=1.14 avg=1.15
[8442 | 511.21] loss=1.20 avg=1.15
[8443 | 512.13] loss=0.85 avg=1.15
[8444 | 513.04] loss=0.86 avg=1.14
[8445 | 513.96] loss=1.22 avg=1.15
[8446 | 514.88] loss=1.04 avg=1.14
[8447 | 515.79] loss=1.51 avg=1.15
[8448 | 516.71] loss=0.78 avg=1.14
[8449 | 517.63] loss=1.44 avg=1.15
[8450 | 518.55] loss=1.68 avg=1.15
[8451 | 519.47] loss=1.17 avg=1.15
[8452 | 520.39] loss=1.17 avg=1.15
[8453 | 521.31] loss=0.64 avg=1.15
[8454 | 522.23] loss=1.31 avg=1.15
[8455 | 523.15] loss=1.19 avg=1.15
[8456 | 524.07] loss=1.09 avg=1.15
[8457 | 524.98] loss=0.98 avg=1.15
[8458 | 525.90] loss=1.26 avg=1.15
[8459 | 526.82] loss=0.92 avg=1.15
[8460 | 527.74] loss=1.02 avg=1.14
[8461 | 528.66] loss=0.70 avg=1.14
[8462 | 529.58] loss=1.78 avg=1.15
[8463 | 530.50] loss=1.29 avg=1.15
[8464 | 531.42] loss=0.92 avg=1.15
[8465 | 532.33] loss=1.15 avg=1.15
[8466 | 533.25] loss=1.04 avg=1.14
[8467 | 534.17] loss=1.23 avg=1.15
[8468 | 535.08] loss=1.38 avg=1.15
[8469 | 536.01] loss=1.04 avg=1.15
[8470 | 536.93] loss=1.33 avg=1.15
[8471 | 537.85] loss=1.16 avg=1.15
[8472 | 538.77] loss=0.95 avg=1.15
[8473 | 539.69] loss=0.93 avg=1.14
[8474 | 540.61] loss=1.44 avg=1.15
[8475 | 541.53] loss=1.19 avg=1.15
[8476 | 542.45] loss=1.22 avg=1.15
[8477 | 543.37] loss=1.75 avg=1.16
[8478 | 544.30] loss=1.76 avg=1.16
[8479 | 545.21] loss=1.26 avg=1.16
[8480 | 546.13] loss=1.48 avg=1.17
[8481 | 547.05] loss=1.15 avg=1.17
[8482 | 547.98] loss=1.04 avg=1.16
[8483 | 548.90] loss=0.93 avg=1.16
[8484 | 549.82] loss=0.90 avg=1.16
[8485 | 550.74] loss=0.66 avg=1.15
[8486 | 551.66] loss=0.94 avg=1.15
[8487 | 552.58] loss=1.44 avg=1.15
[8488 | 553.50] loss=1.16 avg=1.15
[8489 | 554.42] loss=1.09 avg=1.15
[8490 | 555.35] loss=0.62 avg=1.15
[8491 | 556.27] loss=1.02 avg=1.15
[8492 | 557.19] loss=1.86 avg=1.15
[8493 | 558.11] loss=1.30 avg=1.16
[8494 | 559.03] loss=0.96 avg=1.15
[8495 | 559.95] loss=1.00 avg=1.15
[8496 | 560.88] loss=0.91 avg=1.15
[8497 | 561.80] loss=0.96 avg=1.15
[8498 | 562.72] loss=1.23 avg=1.15
[8499 | 563.65] loss=1.03 avg=1.15
Generating samples...
======== SAMPLE 1 ========
)))
(defun rng-check-status ()
"Ask the user for information on a message status.
Return the number of status lines and a list.
This function does not check the current message; instead,
it checks the messages and returns status code."
(when rng-search-in-field (or rng-status-check-command t))
(while (setq result-status (rng-check-status t)))
(if rng-status-valid
(with-current-buffer
(when rng-status-match-file
(setq result-status
(cond ((null rng-status-match-file)
(get-buffer-process rng-status-match-file) 'rng-status-match-file))
((null rng-status-match-file)
(goto-char start-line)
(while rng-status-match--active-lines
(if (and (get rng-status-search-function t)
(y-or-n-p
(format "You must be logged in to be recognized as logged %d"
rng-status-match-file)
rng-status-match-file))
(if (and (get rng-status-search-function t)
(y-or-n-p
(format "Checking %s is slow to do %s due to buffer%s"
rng-status-match-file)
(buffer-file-name (get buffer-name)))
rng-status-match-file)))))
(buffer-file-name (get-buffer-create buffer))))))
nil t)
(with-current-buffer (get-buffer rng-
======== SAMPLE 2 ========
)))
(defun rlint-c-in-buffer (&optional buffer mode)
"Call Rlint-c-in-buffer to check the buffer.
Argument BUFFER defaults to BUFFER with a value of `+'.
Called from Lisp, a `C-e' character will be added to an existing
buffer and an `C-f' (with no trailing C-s) will be removed from it.
The argument defaults to the number of lines that the buffer has.
The mode argument must be `-t' for C-mode to work properly, but
otherwise the mode argument defaults to `+'. A prefix arg means to call this
variant on the current line, i.e.:
rlint-c-in-buffer +1 +1
The default value for this variable is TO, or the default would be
to TO+100."
(when (eq (buffer-local-variable 'rls-buffer) 'cursor-auto)
(and (bobp)
(read-string "C-use C-mode: ")
(setq mode (read-string "")
buffer (read-string "From %s: ")
rlint-c-in-buffer)))
(goto-char (point-min))
(goto-char (point-max))
(let ((buffer (rlint-buffer-to-buffer (current-buffer))))
(goto-char (point-min))
(when (and (memq (process-status process) '(PROGRAMS PROCEDEDICATE PROCEDICATE))))
`(
,@buffer (make-marker ))
(setq mode readout-flag 'rls-mode)
(when (and (eq (process-status process) (Rlint-mode)) (looking-at rlint-p)))
(funcall set-buffer-name buffer))
(save-excursion
(goto-char (point-min))
(setq mode 'rls-mode))))
(defvar rlint-mode-alist nil
"Literal name of variable called with the key \"%")
;; Initializes Rlint mode. (default nil)
(defvar mode-up-hook nil
"Hook run before completion of the following line.")
(defun rlint-read-lines-function ()
(let ((lines (1- lines)))
(ring-begin (ring-end))
(while (not (eobp))
(let ((newlines (ring-begin (ring-end)))))
(when (and newlines (looking-at "$"))
(setq lines (cdr newlines)))
(setq rlint-mode-alist (nreverse lines))
(run-hook-with-values-default
rlint-read-lines-fun #'rxlines
rlint-read-lines-fun
rlint-mode-alist)
(ring-end
(ring-end)))
(setq rlint-mode-alist
(mapcar (lambda (x)
(format "M-%d" (match-string 0 x))
rlint-c-mode-alist)))
(mapc
(lambda (c)
rlint-c-mode-alist))
;; The list of lines that are supposed to be read.
(
======== SAMPLE 3 ========
)))
(org-trim
'("I am not a printer" "")))
[t] )
((stringp
'("print1". "")
"print0.")
(mapconcat #'identity "..."))
(org-trim
"")))
t))
;; Check the input, or do the actual printing
;; here to avoid doing the actual printing.
((save-excursion
(goto-char (point-min))
(let ((t
(list '("I am not a printer" "" )))
(mapconcat #'identity
'("print1". "")
nil t))
(looking-at "I am not a printer")
;; Do the actual printing here.
;; This can be done on the input, if the
;; output value is a list
(org-trim
(org-trim "I am not a printer"))))))))
(when (null
'(mouse-1 'org-babel-mouse-face))
(list
'(mouse-1 mouse-3
'(mouse-3 mouse-8
'(mouse-p 'org-babel-mouse-face))))))
(when (not (listp "I am not a printer"))
(let ((trim-p
======== SAMPLE 4 ========
)))
(set-point-marker (point) (point-max))
;; If point is marked, the window will be
;; changed to point if point is not marked.
(let ((current-col)
;; Set the current point and buffer to its current position:
(and (window-width window)
nil
(and (selected-window)
(window-width)
`((selected-control-frame . t)
(selected-frame . t t))))
(setq current-col (1+ current-col)))
(set-window-parameter (nth 0 buffer) nil)
;; A function to make a window in another window (if it is) set to the
;; buffer in the previous window instead of setting the buffer there.
(and (window-buffer window)
(eq (window-buffer window) window))
(let ((window-in-windows nil)
(oldwin-window t))
;; The window (if visible to all other windows) has to be
;; set to the current non-local window. The window is
;; set for this window if the window already has one (which
;; we use in our window-buffer window-reserve functions
;; if the window has none). If the window
;; has multiple windows, the function to set a window's
;; window-registry is called.
(setq window-window
(set-window-parameter (nth 1 window) nil)))
;; If the window has two windows, put the window before
;; it in the appropriate window and create a new window. The window
;; is also set for this window if it has multiple windows
;; and the function to set a window's window registry already exists and
;; we set it to the new window.
;; To make a window set to the original window, try to
;; copy the new window's value at the end of window
;; registry entry to the new window.
(aset window (1- window))
(let ((parent (window-parent window) oldwin window))
;; If the window is not selected the function set (which
;; returns a window with no windows. This is because the
;; function does a good job of keeping the window set here
;; but it is still setting the window-rearlist.
(while (setq window (or (selected-window) (selected-frame)))
;; A function to make the new window a new window
(let ((old-window old-win window))
[8500 | 589.63] loss=0.91 avg=1.15
[8501 | 590.55] loss=0.71 avg=1.14
[8502 | 591.46] loss=0.95 avg=1.14
[8503 | 592.38] loss=0.90 avg=1.14
[8504 | 593.29] loss=1.16 avg=1.14
[8505 | 594.21] loss=1.06 avg=1.14
[8506 | 595.13] loss=0.81 avg=1.13
[8507 | 596.05] loss=1.48 avg=1.14
[8508 | 596.96] loss=1.05 avg=1.14
[8509 | 597.88] loss=1.28 avg=1.14
[8510 | 598.79] loss=0.67 avg=1.13
[8511 | 599.71] loss=1.14 avg=1.13
[8512 | 600.62] loss=0.74 avg=1.13
[8513 | 601.53] loss=1.08 avg=1.13
[8514 | 602.44] loss=1.21 avg=1.13
[8515 | 603.36] loss=1.12 avg=1.13
[8516 | 604.27] loss=0.97 avg=1.13
[8517 | 605.19] loss=1.03 avg=1.13
[8518 | 606.10] loss=1.02 avg=1.12
[8519 | 607.02] loss=0.80 avg=1.12
[8520 | 607.93] loss=1.52 avg=1.13
[8521 | 608.85] loss=1.08 avg=1.13
[8522 | 609.76] loss=1.05 avg=1.12
[8523 | 610.68] loss=1.38 avg=1.13
[8524 | 611.59] loss=1.19 avg=1.13
[8525 | 612.51] loss=1.43 avg=1.13
[8526 | 613.42] loss=1.80 avg=1.14
[8527 | 614.34] loss=1.68 avg=1.14
[8528 | 615.26] loss=0.85 avg=1.14
[8529 | 616.17] loss=0.86 avg=1.14
[8530 | 617.08] loss=1.45 avg=1.14
[8531 | 618.00] loss=1.45 avg=1.14
[8532 | 618.92] loss=0.91 avg=1.14
[8533 | 619.83] loss=1.49 avg=1.14
[8534 | 620.75] loss=1.37 avg=1.15
[8535 | 621.67] loss=1.03 avg=1.15
[8536 | 622.58] loss=0.82 avg=1.14
[8537 | 623.50] loss=1.67 avg=1.15
[8538 | 624.42] loss=1.02 avg=1.15
[8539 | 625.34] loss=1.15 avg=1.15
[8540 | 626.25] loss=1.57 avg=1.15
[8541 | 627.18] loss=1.30 avg=1.15
[8542 | 628.10] loss=0.69 avg=1.15
[8543 | 629.02] loss=1.10 avg=1.15
[8544 | 629.93] loss=0.87 avg=1.14
[8545 | 630.86] loss=1.27 avg=1.15
[8546 | 631.78] loss=0.99 avg=1.14
[8547 | 632.70] loss=1.12 avg=1.14
[8548 | 633.62] loss=1.08 avg=1.14
[8549 | 634.54] loss=1.06 avg=1.14
[8550 | 635.46] loss=0.96 avg=1.14
[8551 | 636.37] loss=1.37 avg=1.14
[8552 | 637.30] loss=0.74 avg=1.14
[8553 | 638.22] loss=0.90 avg=1.14
[8554 | 639.14] loss=1.47 avg=1.14
[8555 | 640.06] loss=1.00 avg=1.14
[8556 | 640.98] loss=0.85 avg=1.14
[8557 | 641.91] loss=1.16 avg=1.14
[8558 | 642.83] loss=1.10 avg=1.14
[8559 | 643.76] loss=0.97 avg=1.13
[8560 | 644.68] loss=1.77 avg=1.14
[8561 | 645.60] loss=1.08 avg=1.14
[8562 | 646.52] loss=1.17 avg=1.14
[8563 | 647.45] loss=1.20 avg=1.14
[8564 | 648.37] loss=1.37 avg=1.14
[8565 | 649.30] loss=0.96 avg=1.14
[8566 | 650.22] loss=1.06 avg=1.14
[8567 | 651.14] loss=1.07 avg=1.14
[8568 | 652.07] loss=0.98 avg=1.14
[8569 | 653.00] loss=1.01 avg=1.14
[8570 | 653.92] loss=1.47 avg=1.14
[8571 | 654.85] loss=1.18 avg=1.14
[8572 | 655.77] loss=1.07 avg=1.14
[8573 | 656.70] loss=0.82 avg=1.14
[8574 | 657.62] loss=0.74 avg=1.13
[8575 | 658.55] loss=1.09 avg=1.13
[8576 | 659.47] loss=0.89 avg=1.13
[8577 | 660.40] loss=1.44 avg=1.13
[8578 | 661.33] loss=0.85 avg=1.13
[8579 | 662.25] loss=1.89 avg=1.14
[8580 | 663.18] loss=1.13 avg=1.14
[8581 | 664.11] loss=0.82 avg=1.13
[8582 | 665.03] loss=1.89 avg=1.14
[8583 | 665.96] loss=0.98 avg=1.14
[8584 | 666.88] loss=1.58 avg=1.14
[8585 | 667.80] loss=0.58 avg=1.14
[8586 | 668.72] loss=1.26 avg=1.14
[8587 | 669.65] loss=0.92 avg=1.14
[8588 | 670.57] loss=1.29 avg=1.14
[8589 | 671.50] loss=0.63 avg=1.13
[8590 | 672.42] loss=0.99 avg=1.13
[8591 | 673.35] loss=1.22 avg=1.13
[8592 | 674.27] loss=1.05 avg=1.13
[8593 | 675.19] loss=1.19 avg=1.13
[8594 | 676.11] loss=0.71 avg=1.13
[8595 | 677.03] loss=1.15 avg=1.13
[8596 | 677.95] loss=0.97 avg=1.13
[8597 | 678.87] loss=1.53 avg=1.13
[8598 | 679.80] loss=1.66 avg=1.14
[8599 | 680.71] loss=0.58 avg=1.13
Generating samples...
======== SAMPLE 1 ========
Info) = nil
`(pr-with-temp-buffer
;; If we are at a string, the buffer with point is
;; moved here. Otherwise the string is moved to the last
;; current line, in opposite direction of the current one.
(pr-with-temp-buffer
;; If the current line already has point as the last
;; text, move the next two strings in the same direction.
(pr-move-to-line (list (string-to-number (point))) nil nil nil
; If point moved here we move to the
;; previous string, nil here we go backwards
;; down.
(setq pos (substring (string-to-number 0 pos))
(string-to-number 0 pos)))
(pr-move-to-line (list (substring (string-to-number pos) 0 0)
0)))
;; If the current line already contains some text, we move it
;; to the next line.
(pr-move-to-line
(list (char-to-string text (substring text pos 1)))
(pr-move-to-line (list (substring text (char-to-number text pos))
(string-to-number pos))
(pr-move-to-line (list (substring text (char-to-number text pos)
pos)))))))
;;; Keybindings
;;
;; These routines give the user control over the keybindings of a
;; language. They are responsible for setting up the keybindings of
;; a language that it knows about. When
;; the user hits `c-key-save' on a word, the word will get the
;; cursor on the corresponding key (e.g. "C-k") and after that, the user is
;; bound to the first key in the list
;; which is the key to click to save the buffer and press the
;; key to choose the buffer. This is called `c-key-save'.
;;
;; If the user clicks on the "c-key-save" after the word is saved,
;; the user in question then has one of three choices:
;;
;; (1) save the buffer, or
;; (2) repeat the action with
;; the key
;;
;; To change the meaning of the corresponding keybind, type the key in
;; each of the following languages: Latin
======== SAMPLE 2 ========
Info-format "%s"
"s" s)))))))
;; ;[lisp-refinement-with-coding-system ctl]
(defun ctl-referenced-to-coding-system (coding-system)
"Rescribe a coding system for a coding file."
;; This has to happen right after point, not at
;; any point in this buffer, because at this point, we're
;; already at `coding-system' (point was not on a cddeb)."
(save-excursion
(cdr (assq coding-system ctl-referenced-to-coding-system)))
(cursor-point))))
(defun ctl-referenced-to-coding-system (coding-system)
"Rescribe a coding system for a coding file."
(interactive)
(save-excursion
(save-restriction
(narrow-to-region (point) (coding-system-create 'coding-system)))
(while (and (not (or (cdr (car (cdr (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (= 1 1 " " " " " " " " " " " " "))))))
0))))))
; Not inside any coding system (the value
; was already in the context
; so we don't bother doing the following
; after the default
; of the file
; the default cdr is not yet in the
; buffer
; non-nil
; nil
)
(not (cdr (cdr (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr
(" " "
======== SAMPLE 3 ========
Info)
(if (not (string-match str-start name)))
(list name)
(string . (read-printable "Copy to new file name: \nM+ "))))
;;;
;; Return location, or nil if none was found.
;;; (defconst filename-defaults (list current-prefixes default-prefixes))
;;; (defstruct filename-file-locations
;;; (:init-file filename-locations file-id-locative)))
(defvar filename-dir-files nil
"List of directories to be searched for NAME.
A list of the following:
NAME \\ . Name of a directory FILE . The file name returned to
NAME.")
(defvar filename-dir-directory ""))
(defun filename-file-p (filename)
"File FILENAME for a filename to start editing.
Returns a string with the filename value returned by
\\[filename-file-p-setup]. This is used as the first value in
`filename-file-locations'."
(let* ((name (completing-read
"Name to start editing in; NAME \\
FILENAME . \"\\([^\e{4:3:}\\]\\)?\\" (match-string 1)
(file-name-as-directory (expand-file-name (match-string 3)
"\\[.*:[.\\]$\\]"))))
(when (and name
(file-exists-p filename-dir-files)
;; If possible, use the filename to find the file if we
;; know about its contents.
(if (file-exists-p filename-dir-directory)
(progn
(while (file-directory-p filename)
(let ((x file-name-exists-p)
(filename-file-locations filename-dir-files)
(cdr x)
(file-name-nondirectory filename-file-alist)))
(let ((pos (point-min)))
(cond
((and pos (pos-active-p pos-pos))
(concat pos "&$ " (re-search-forward name nil nil t))))
(t (concat (char-to-string pos) " "))))
(t)))))
;; Remove directories as visited.
(put-text-property pos
(min 0 (length name-dir-files
======== SAMPLE 4 ========
Info ((string :initform-input-list
(:startstart
(:maxend (match-end 0))
(:endend (match-end 0))
(:startend
(:maxend
(:startstart (:maxend (match-end 0))
(maxend (match-end 0))
(maxend (match-end 0))
(maxend (match-end 0))))))))))
(define-indentation
(lambda ()
;; Try to use the input field so it aligns with the input in
;; the same form as the input in all contexts, so that all
;; input fields are displayed on the same line in the buffer
(define-indent-type indent-name
(`(,name . ,input-field-name, ,indent-name)
,indent-name)
;; Use the form to adjust the indentation.
(lambda ()
;; Find the form with the type argument (`default-form' will
;; change the form to `default-form, which is not always
;; used in Emacs 20).
(or (stringp (car input-field-form))
(setq string (assq-method input-field-form
`(regexp (car input-field-form))
input-field-form input-field-name)))
;; Replace the last form with the form specified in the
;; form's name (if any), or to correct what the first is.
(let ((form (assq-form-alist input-form-type)))
(or (and form
(not (assq-defun form input-defun-alist)))
(setq form (assq-defun-alist input-defun-alist
'(,input-table
(if (and input-table (aref input-table (length input-table))))
(car input-table))
[8600 | 706.31] loss=1.29 avg=1.13
[8601 | 707.22] loss=0.83 avg=1.13
[8602 | 708.14] loss=0.67 avg=1.13
[8603 | 709.05] loss=0.80 avg=1.12
[8604 | 709.97] loss=0.93 avg=1.12
[8605 | 710.88] loss=0.97 avg=1.12
[8606 | 711.80] loss=1.18 avg=1.12
[8607 | 712.72] loss=1.00 avg=1.12
[8608 | 713.64] loss=0.90 avg=1.12
[8609 | 714.55] loss=1.10 avg=1.12
[8610 | 715.47] loss=1.22 avg=1.12
[8611 | 716.38] loss=0.98 avg=1.12
[8612 | 717.29] loss=0.78 avg=1.11
[8613 | 718.21] loss=1.25 avg=1.11
[8614 | 719.12] loss=1.16 avg=1.11
[8615 | 720.04] loss=1.23 avg=1.12
[8616 | 720.96] loss=0.85 avg=1.11
[8617 | 721.88] loss=1.46 avg=1.12
[8618 | 722.79] loss=0.90 avg=1.11
[8619 | 723.71] loss=1.24 avg=1.11
[8620 | 724.62] loss=0.68 avg=1.11
[8621 | 725.54] loss=1.57 avg=1.12
[8622 | 726.46] loss=1.11 avg=1.12
[8623 | 727.37] loss=1.07 avg=1.11
[8624 | 728.29] loss=1.12 avg=1.11
[8625 | 729.21] loss=1.81 avg=1.12
[8626 | 730.13] loss=1.35 avg=1.12
[8627 | 731.05] loss=1.11 avg=1.12
[8628 | 731.96] loss=1.03 avg=1.12
[8629 | 732.88] loss=0.92 avg=1.12
[8630 | 733.80] loss=1.54 avg=1.13
[8631 | 734.71] loss=1.20 avg=1.13
[8632 | 735.63] loss=1.13 avg=1.13
[8633 | 736.55] loss=1.29 avg=1.13
[8634 | 737.47] loss=0.79 avg=1.12
[8635 | 738.39] loss=1.10 avg=1.12
[8636 | 739.31] loss=1.86 avg=1.13
[8637 | 740.22] loss=0.56 avg=1.13
[8638 | 741.14] loss=0.80 avg=1.12
[8639 | 742.06] loss=1.09 avg=1.12
[8640 | 742.98] loss=1.12 avg=1.12
[8641 | 743.90] loss=0.63 avg=1.12
[8642 | 744.82] loss=1.13 avg=1.12
[8643 | 745.74] loss=1.05 avg=1.12
[8644 | 746.66] loss=1.43 avg=1.12
[8645 | 747.58] loss=1.15 avg=1.12
[8646 | 748.50] loss=1.52 avg=1.12
[8647 | 749.42] loss=0.73 avg=1.12
[8648 | 750.33] loss=1.02 avg=1.12
[8649 | 751.25] loss=0.59 avg=1.11
[8650 | 752.17] loss=1.01 avg=1.11
[8651 | 753.09] loss=1.00 avg=1.11
[8652 | 754.01] loss=1.45 avg=1.11
[8653 | 754.93] loss=0.94 avg=1.11
[8654 | 755.85] loss=0.95 avg=1.11
[8655 | 756.77] loss=1.15 avg=1.11
[8656 | 757.70] loss=1.24 avg=1.11
[8657 | 758.61] loss=0.95 avg=1.11
[8658 | 759.54] loss=0.90 avg=1.11
[8659 | 760.46] loss=1.35 avg=1.11
[8660 | 761.38] loss=1.67 avg=1.12
[8661 | 762.30] loss=0.91 avg=1.12
[8662 | 763.22] loss=1.35 avg=1.12
[8663 | 764.14] loss=1.06 avg=1.12
[8664 | 765.07] loss=1.62 avg=1.12
[8665 | 765.99] loss=0.86 avg=1.12
[8666 | 766.91] loss=0.80 avg=1.12
[8667 | 767.84] loss=1.42 avg=1.12
[8668 | 768.76] loss=0.85 avg=1.12
[8669 | 769.68] loss=1.79 avg=1.12
[8670 | 770.60] loss=1.02 avg=1.12
[8671 | 771.52] loss=1.28 avg=1.12
[8672 | 772.45] loss=1.04 avg=1.12
[8673 | 773.37] loss=0.84 avg=1.12
[8674 | 774.30] loss=1.12 avg=1.12
[8675 | 775.22] loss=1.54 avg=1.12
[8676 | 776.14] loss=1.40 avg=1.13
[8677 | 777.06] loss=0.83 avg=1.12
[8678 | 777.98] loss=2.08 avg=1.13
[8679 | 778.90] loss=1.09 avg=1.13
[8680 | 779.83] loss=1.21 avg=1.13
[8681 | 780.75] loss=0.94 avg=1.13
[8682 | 781.67] loss=0.48 avg=1.13
[8683 | 782.60] loss=0.93 avg=1.12
[8684 | 783.53] loss=0.91 avg=1.12
[8685 | 784.45] loss=1.78 avg=1.13
[8686 | 785.37] loss=1.27 avg=1.13
[8687 | 786.30] loss=0.99 avg=1.13
[8688 | 787.22] loss=0.78 avg=1.12
[8689 | 788.15] loss=1.04 avg=1.12
[8690 | 789.08] loss=0.80 avg=1.12
[8691 | 790.00] loss=0.99 avg=1.12
[8692 | 790.93] loss=1.43 avg=1.12
[8693 | 791.85] loss=0.96 avg=1.12
[8694 | 792.78] loss=1.31 avg=1.12
[8695 | 793.70] loss=1.77 avg=1.13
[8696 | 794.63] loss=1.11 avg=1.13
[8697 | 795.55] loss=1.19 avg=1.13
[8698 | 796.47] loss=0.43 avg=1.12
[8699 | 797.40] loss=1.65 avg=1.13
Generating samples...
======== SAMPLE 1 ========
" ("--help" :help-tag "Add menu element from help string to `message-help'." :tags 'message-help))
("--help-tag (cons :help-tag "List additional help text.")
("--help-tag-1 (cons :help-tag "View help text.")))
("--help-tag-2 (cons :help-tag "Help multiple lines.")))
("--help-tag-3 (cons :help-tag "Show multiple lines.")))
("--help-tag-4 (cons :help-tag "Show multiple rows.")))
("--help-tag-5 (cons :help-tag "Show multiple columns.")))
("--help-tag-6 (cons :help-tag "Show multiple lines.")))
("--help-tag-7 (cons :help-tag "Show multiple paragraphs.")))
("--help-tag-8 (cons :help-tag "Show multiple lines.")))
("--help-tag-9 (cons :help-tag "Show multiple lines.")))
(defgroup help nil)
(defcustom help-toggle-multi-entry _message--help-string
"An error message if the message's multilingual help string is \"Missing help section,\".
This is a very old and annoying message-error-message that is usually a
symbol used by MS programs to be printed in the mail. In my
personal system, it is a bit too long to get rid of, and I want to
do the same now. Please be advised that if you have an
unilingual help string, that could be a warning that the
user already has an error message about the multilingual advice
string. If I am not correct in my message, it could potentially be a
warning that the user already has another error message about this
tramp."
:type 'set
:version "22.1")
(defcustom help-multilingual-helpstring nil
"The multilingual help string.
For example \"" (quail-help-string) (quail-help-string) is a
non-nil value. If optional argument ALIAS is non-nil, it can be any
string. For example: . "\" (quail-help-string) is
an expression. The user may also set the variable
`message-multilingual-help-string-possible-p' to nil if you try or say
it. For example: . "\" (quail-help-string) is
a non-nil value.
If ALIAS is non-nil, the variable `message-multilingual-help-string-possible-p'
will be set to nil if you try or say it. If it is nil. It can't be a
keyword argument that is repeated to complete a multilingual option
list. If ALIAS is non-nil, an error message will be printed."
:type '(choice (const :tag "Missing help section,\"")
(const :tag "Missing help section,\"" error
(const :tag "Missing help topic (nil) ")
(const :tag "Missing help text with multiple help tokens"
(const :tag "Missing help text with multi-help token"
(const :tag "Missing help text with multiple help token"
======== SAMPLE 2 ========
(setq buffer-file-name (match-string 1))
(setq buffer-file-name
(concat " * * * * "
(regexp-quote (car (org-n-in-out-buffer))
(cl-incf buffer-file-name))
(cdr (org-n-in-inout-buffer))
(cdr (org-n-out-in-buffer))
(cdr (org-n-out-out-buffer)))) )
buffer-file-name))
(defun org-n-out-buffer-in-out-buffer ()
"Like an INOUT, but this time only if a buffer is actually in an Inout buffer."
(org-n-in-out-buffer)
(if (eq (org-n-in-out-buffer buffer) 'out-buffer)
(org-out-out buffer)
(let* ((buf (goto-char (point-min))
(buffer-file-name (org-n-in-out-buffer)))
(sorter-buffer (save-excursion
(let ((read (concat "Buffer= %s " (buffer-name buffer)
buffer)))
(org-in-out-buffer buffer)
(when read
(setq buffer-file-name (concat " * * " (org-in-out-buffer))
(cl-incf buffer-file-name))))
(if read
(progn
(goto-char (org-n-out-out-buffer))
(delete-region (match-beginning 1) (point))))
(goto-char (1-
======== SAMPLE 3 ========
;; Update the state of the current process.
;;
;; Current server should be in the local server list, which should
;; be in the process-name context.
(let ((processname (and (memq system-process-name pgg-process-server-regexp)
process-name))
(process-name (or (process-name pgg-process-server-regexp) process-name)
(not (string= process-name process-name))
(or process-name (process-name pgg-process-server-regexp) process-name))))
(push process-name process-name)))
(defun pgg-process-process-regexp (process)
"Return the process name for the current process (or nil if no process.")
(defcustom pgg-process-name nil
"The name of the process that should be parsed.
The process name itself can use `pgg--name-to-be-process'.
This is useful when creating the first server in the server
list or when editing a buffer.
The default is t, so see `pgg-name-to-be-process'.
In a server list for example, using the default would be:
* http://www.example.com\n http://www.example.com/*;
* \\[pgg-server]* http://www.example.com/*;
* \\[pgg-buffer-name] http://www.example.com/*;
If the process is in a buffer, then the user's name is
used by the `list-process' command. If the process is not part of the list
list, the process name is used by the function called by this
function, unless `list-process' is `pgg-process'. If the
process name already exists, then `pgg-process' will be returned."
:group 'pgg-name-to-be-process
:version "25.1"
:package-version '(pgg-compat "pgg-compat"))
(defun pgg-process-server (process-name server &optional state start end &optional default)
"Process the current process in the PGG server list.
The server list is the buffer name of the server (or nil if no server)."
(let ((process-name server)
(state (cons process-state process-name))
(process-name (pgg-process-server-regexp process-name)))
(with-silent-modifications
(if default
(message "Process failed with %s"
pgg-server "Not a server, need to be \"%s\"." (name))))
(pgg-process-server process-name server state start end end default)
(pgg-process-server -1 server state start end)
(pgg-buffer-name)
(pgg-read-file-name)
(pgg-server-set-process-timeout server)
(pgg-server-reset-state server start state end))
(with-current-buffer pgg-server-buffer
(message "/S %d %s\nProcess: \
Process failed\
\nRequest restart, wait %s\n" pgg-server-last-process-name
pgg-server-last-read-dir t)
(pgg-server-reset-state)
(pgg-server-reset-state (buffer-name))
(pgg-get-buffer-create (buffer-
======== SAMPLE 4 ========
(should (stringify (nth 1 (cdar-char (nth 2 (cdr (assoc (cdr (assoc (car m) m))))
m-m-name))))
(should (stringify (nth 3 (cdar-char (nth 4 (cdar-char (nth 3 (cdar-char (nth 1 m)))))))
m-m-name)))
(should (eq (cdr m-name) '((?\s . t))
(car-safe m-name))
(should (stringify (cdr m-name) ',(cdr m-name))))
(should (eq (copy-sequence m-id-name nth 0))))
(should (assoc (nth 1 (cdar-char (cdr m-id-name)))
m-id-name))))
(ert-deftest m-delete-duplex ()
;; Don't delete the whole thing.
(let ((id-mark ()
(cdr (assq (cdr m-mark)) id-mark))))
(should (cdr (assq (cons 'id-mark
(mapcar
(lambda (id-mark-count)
(let ((id-mark-count 2)
(cl-dungeon
(and (not (cdr m-mark))) id-mark-count 1))
(let ((id-mark-count 2))
(cl-dungeon
(let ((id-mark-count 2)))
(cl-dungeon
(and (not (cdr m-mark))) id-mark-count 1))
(cl-dungeon
(and (not (cdr m-mark)))
(cl-dungeon
(and (not (cdr m-mark)) id-mark-
[8700 | 822.94] loss=0.74 avg=1.12
[8701 | 823.86] loss=1.00 avg=1.12
[8702 | 824.77] loss=1.14 avg=1.12
[8703 | 825.68] loss=1.26 avg=1.12
[8704 | 826.60] loss=1.01 avg=1.12
[8705 | 827.51] loss=0.53 avg=1.12
[8706 | 828.43] loss=1.08 avg=1.12
[8707 | 829.34] loss=1.05 avg=1.12
[8708 | 830.25] loss=0.76 avg=1.11
[8709 | 831.16] loss=1.48 avg=1.12
[8710 | 832.08] loss=1.14 avg=1.12
[8711 | 832.99] loss=1.56 avg=1.12
[8712 | 833.90] loss=1.62 avg=1.13
[8713 | 834.82] loss=1.15 avg=1.13
[8714 | 835.73] loss=1.13 avg=1.13
[8715 | 836.64] loss=0.60 avg=1.12
[8716 | 837.55] loss=0.98 avg=1.12
[8717 | 838.47] loss=1.37 avg=1.12
[8718 | 839.38] loss=0.69 avg=1.12
[8719 | 840.29] loss=1.05 avg=1.12
[8720 | 841.21] loss=1.67 avg=1.12
[8721 | 842.12] loss=0.98 avg=1.12
[8722 | 843.04] loss=1.18 avg=1.12
[8723 | 843.96] loss=0.84 avg=1.12
[8724 | 844.88] loss=1.07 avg=1.12
[8725 | 845.79] loss=1.32 avg=1.12
[8726 | 846.71] loss=1.08 avg=1.12
[8727 | 847.62] loss=1.09 avg=1.12
[8728 | 848.54] loss=0.62 avg=1.11
[8729 | 849.46] loss=1.90 avg=1.12
[8730 | 850.38] loss=1.44 avg=1.13
[8731 | 851.29] loss=0.92 avg=1.12
[8732 | 852.22] loss=1.43 avg=1.13
[8733 | 853.14] loss=0.78 avg=1.12
[8734 | 854.06] loss=0.91 avg=1.12
[8735 | 854.98] loss=0.73 avg=1.12
[8736 | 855.89] loss=1.06 avg=1.12
[8737 | 856.81] loss=1.24 avg=1.12
[8738 | 857.73] loss=0.87 avg=1.12
[8739 | 858.65] loss=1.27 avg=1.12
[8740 | 859.57] loss=1.30 avg=1.12
[8741 | 860.49] loss=0.90 avg=1.12
[8742 | 861.41] loss=1.16 avg=1.12
[8743 | 862.33] loss=0.99 avg=1.12
[8744 | 863.25] loss=0.48 avg=1.11
[8745 | 864.17] loss=0.84 avg=1.11
[8746 | 865.08] loss=1.27 avg=1.11
[8747 | 866.01] loss=1.34 avg=1.11
[8748 | 866.93] loss=0.99 avg=1.11
[8749 | 867.85] loss=1.17 avg=1.11
[8750 | 868.77] loss=1.15 avg=1.11
[8751 | 869.69] loss=1.17 avg=1.11
[8752 | 870.62] loss=1.19 avg=1.11
[8753 | 871.54] loss=0.81 avg=1.11
[8754 | 872.46] loss=0.63 avg=1.10
[8755 | 873.38] loss=1.44 avg=1.11
[8756 | 874.31] loss=1.13 avg=1.11
[8757 | 875.23] loss=1.34 avg=1.11
[8758 | 876.15] loss=1.39 avg=1.11
[8759 | 877.07] loss=1.23 avg=1.11
[8760 | 878.00] loss=1.45 avg=1.12
[8761 | 878.92] loss=1.41 avg=1.12
[8762 | 879.84] loss=1.04 avg=1.12
[8763 | 880.77] loss=0.78 avg=1.12
[8764 | 881.69] loss=1.25 avg=1.12
[8765 | 882.62] loss=0.88 avg=1.11
[8766 | 883.54] loss=1.39 avg=1.12
[8767 | 884.46] loss=1.07 avg=1.12
[8768 | 885.38] loss=1.26 avg=1.12
[8769 | 886.31] loss=0.37 avg=1.11
[8770 | 887.23] loss=1.37 avg=1.11
[8771 | 888.15] loss=1.09 avg=1.11
[8772 | 889.08] loss=1.06 avg=1.11
[8773 | 890.00] loss=0.91 avg=1.11
[8774 | 890.92] loss=0.83 avg=1.11
[8775 | 891.84] loss=0.84 avg=1.11
[8776 | 892.76] loss=0.91 avg=1.10
[8777 | 893.69] loss=0.96 avg=1.10
[8778 | 894.60] loss=1.41 avg=1.11
[8779 | 895.53] loss=1.11 avg=1.11
[8780 | 896.45] loss=0.94 avg=1.10
[8781 | 897.37] loss=1.04 avg=1.10
[8782 | 898.30] loss=1.64 avg=1.11
[8783 | 899.22] loss=1.54 avg=1.11
[8784 | 900.14] loss=1.04 avg=1.11
[8785 | 901.06] loss=0.75 avg=1.11
[8786 | 901.98] loss=1.23 avg=1.11
[8787 | 902.90] loss=1.52 avg=1.11
[8788 | 903.82] loss=1.45 avg=1.12
[8789 | 904.74] loss=1.48 avg=1.12
[8790 | 905.66] loss=0.67 avg=1.12
[8791 | 906.58] loss=1.14 avg=1.12
[8792 | 907.50] loss=1.25 avg=1.12
[8793 | 908.43] loss=1.06 avg=1.12
[8794 | 909.35] loss=0.96 avg=1.12
[8795 | 910.27] loss=0.77 avg=1.11
[8796 | 911.20] loss=0.65 avg=1.11
[8797 | 912.12] loss=1.11 avg=1.11
[8798 | 913.04] loss=1.17 avg=1.11
[8799 | 913.96] loss=1.74 avg=1.11
Generating samples...
======== SAMPLE 1 ========
(org-red-buffer)
;; Display "buffer" and "buffer" instead of "emacs-show-text" and "emacs-narrow-to-buffer"
;; in order to make emacs-read-only show "emacs-show-text" in the
;; current buffer. To do that, create the
;; first element (a string as the first element) after point. This
;; does not have an effect except to show emacs-show-text.
(org-red-buffer)
(unless (org-export-window-visible-p (window-buffer)))
(setq buffer-read-only t
emacs-show-text nil))
(and (org-aget t 'emacs-show-text)
emacs-show-text))))
(defun org-set-mode-line (line)
"Set or update the mode line.
PREFIX is the line that starts the line.
CASE-PREFIX is t.
Use with emacs-show-text 1 to display the mode line
in any window.
For more details, see:
\\([org-at]-+\tline \t\\([1-9]+\\)\\s-*\\[^%]\\|[%]+\\)<%>\\s-*"
(org-red-buffer
(let ((line (point-at-eol))
(window (or (car (format "%s" (org-get-text-property line 'org-mode-line)))
(org-get-text-property line 'org-mode-line 'frame-name))))
(current-frame (point-max))
(mode (org-get-mode-line start 'current-frame)))
(setq buffer-read-only t
emacs-show-text nil)))
(defun org-set-mode-lines (line)
"Set or update the mode line.
PREFIX is the line that starts the line.
For more details, see:
\\([org-at]-+\tline \t\\([1-9]+\\)\\s-*\\[^%]\\|[%]+\\)<%>\\s-*"
(org-red-buffer
(let ((line (point-at-eol))
(window (or (cdr (format "\\([^@]\\)\\s-*\\)" (org-get-text-property line 'org-mode-line)))
(org-get-text-property line 'org-mode-line 'frame-name))))
(current-frame (point-max))
(mode (org-get-mode-line start 'current-frame)))
(setq buffer-read-only t
emacs-mode nil)))
; ; ======================================================================;
; This section implements Emacs's mode line (see `emacs-mode').
;; The function `org-mode-line-set-buffer' provides a `comint-at-point' which
; `run' when `emacs-mode' has already been run. The
current buffer, `buffer', may be nil to set this to nil.
; ; In any buffer (non-frame) this function will be called,
; when `run' is set to t, and the current buffer for
======== SAMPLE 2 ========
;; The first arg would look only like an expression (that's really only in `%s':
;; (\"_%s\" %e(^%^)`
(if (integerp '%s)
(setq second (1- arg))
(- (get-form (car arg) ""))
(if (eql (car arg)
(setq char-code arg)))
(if (char-code-string char)
(setq arg (read 2))
(if char-code-function
(setq charcode (car-safe (cadr arg)))
(setq arg (1- arg)))
(setq arg (1- arg)))
;; (string literal char)
(if (string-match "\\´\\(.+\\)[ \t-]\\)*" char
(if (eq char-code-function 'c-chars-list)
(if char-code-function 'c-string-ignoring)
(setq char (setq char (cdr arg))))
;; We should get used to this: for example, in `%s':
;; (\"(!t %e\\|%e\\|%e|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\)\"
(if (eql (car elt)
(if (consp (cadr elt))
(setq elt (1- elt))
(cons (cadr elt) (nth 1 elt) nil)))
(if (char-code-string char)
(setq char (cdr elt)))
;; We should get used to this: for example, in `%s':
;; (\"(!t %e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e\\|%e
======== SAMPLE 3 ========
;; this is now just a temporary file with unbound non-nil parens, but it's more likely to be the old buffer)
;; This is one of the old-buffer-variables which could be modified by
;; `goto-buffer-start-re' in G-mode's `read-only-hook'.
(save-excursion
(if (looking-at g-mode-reload-hook)
(with-some-restriction
(looking-at "G-mode-reload")))
(goto-char (match-end 0))))
;; A copy of this is not used here (it is not in `save-excursion'
;; but it might be used after this, in which case Emacs will try
;; to take the original (or modified) buffer out of its temporary buffer. (See
;; `goto-buffer-start-re'. (It has also been tested in
;; `read-only-hook' with Emacs 22 (which is called
;; only by `goto-buffer-start-re' as buffer-file-re nil) so that no
;; other buffer or system can write the buffer into the new buffer.)
(goto-char (point-min))
(re-search-forward "^\\s-*\\([#\\]*\\)*\\([0-9]*\\)*\\>\\s-*\\([+\\]" nil t)
(match-end 0))))
(forward-line -1)
(condition-case nil
(setq pos nil)
(error nil)
(setq buffer-file-name (split-string buffer-file-name "\\s-*\\([?A-Z][0-9]+\\)" pos)))
(sit-for 1))
nil)
(defun save-excursion (self)
"Save the state of this current file."
(unless (or (and (boundp 'save-excursion-overlay)
(not (and (looking-at "C-s-*\\([?A-Z]\\)[?0-9]*\\([?A-Z]\\)"))
(looking-back "...\\(?:\\S-+\\(\\S-+\\)*\\([#\t]+\\)?\
[a-zA-Z]\\)?\
[\t]+")
nil)
;; This only saves the current buffer.
(back-to-indentation 'max)
(save-excursion
(set-buffer start-file "G-file" buffer-file-name))))
(defun read-only-hook (beg end &optional ignore)
"Like `save-excursion'.
If `this', don't save the buffer.
If `ignore' then use `ignore-non-read-only'."
(let (buffer-done (save-excursion
(while (or (looking-at (looking-at "^\\s-*\\([.*\\|]*\\)\\) \\([#\\]*\\)\\] +\\)")
(or (re-search-backward "[0-
======== SAMPLE 4 ========
"\\|\\|^\\|([^]\\|[A-Z]*\\)\\|")))
(defmacro flet ((a (purecopy "\\\\^\\|[^]"))
(list "\\|" (purecopy (purecopy "\\\\^\\|[^]")))
"\\|" t 'self))
;; For instance, an operator "\\" in an `as-symbol{}' token matches an ordinary symbol,
;; but one that is "\\[a-zA-Z0-9_.]" where "a" is a symbol.
;; The syntax below defines the type of expression of a symbol, but it does not
;; define the behavior of a literal, or a form whose syntax
;; includes the same syntax. It just defines the syntax as the
;; appropriate one is.
(defmacro flet ((a (purecopy "\\|\\|^\\|[^]'\\|[^]"))
(list "\\|" (purecopy (purecopy "\\|[^]")))
(t 'self))
"List of expressions that support as-symbol characters."
'(:abbrev "\\|" a "\\|" t t nil))
(defmacro flet (_a (purecopy (purecopy "\\\\^")))
"List of expressions that represent a symbol by a function.
The symbol of the list is a symbol of the form (_a), and the
expression is evaluated as an expression."
(:syntax "\\|\\|[^]\\|\\|\\|\\|\\|\\|" (_a (purecopy "\\\\^")))
"List of expressions defining a list (as expression)."
'(:syntax "\\|" an "\\|" t t nil))
;; There is a new symbol for this function. It is "\\|" for a new symbol.
;; But it does not have the same syntax as "\\.\\'" because it is
;; not a literal.
(defmacro flet (_a (purecopy _a (purecopy "\\\\^")))
"List of expressions that represent a list of symbols.
Like `list' in functions, but not as the symbol itself."
;; Flet is a type of function, where `as' is a variable,
;; and `_' is a subtype of "cons", where `cons' is a map and
;; `cons' is a value (an object). A map is a symbol with at least one
;; type, which is a list containing list variables whose values
;; can be symbols. A subtype is an object that has a symbol. A non-nil means it
;; is an object, so it can be a list of symbols that can have
;; any value.
;; Flet is still valid, but you can override this
;; option by setting `syntax-style' to `syntax-class', or by
;; setting `style' to `style', or to `syntax-function'."
;; Flet is valid: it is a func , a func.
(let ((syntax-class (syntax-class 'list))
(syntax-syntax (syntax-syntax 'list)))
(while (< (setq syntax-syntax (syntax-table 'syntax-classes)) 0)
;; If a form has type `func', `apply' and `func-apply',
;; then it forms a value of value `func-apply', and not `apply-if-not'."
(funcall (and (syntax-propertize (syntax-class syntactic-type-function) 'style 'syntax-classes))
(syntax-propertize (syntax-class syntactic-type-function)
(list
[8800 | 939.57] loss=0.78 avg=1.11
[8801 | 940.49] loss=1.50 avg=1.12
[8802 | 941.40] loss=1.35 avg=1.12
[8803 | 942.32] loss=0.97 avg=1.12
[8804 | 943.23] loss=1.01 avg=1.11
[8805 | 944.14] loss=1.23 avg=1.12
[8806 | 945.05] loss=0.63 avg=1.11
[8807 | 945.97] loss=1.37 avg=1.11
[8808 | 946.88] loss=1.14 avg=1.11
[8809 | 947.79] loss=1.76 avg=1.12
[8810 | 948.71] loss=1.34 avg=1.12
[8811 | 949.62] loss=1.30 avg=1.12
[8812 | 950.53] loss=1.15 avg=1.12
[8813 | 951.44] loss=0.86 avg=1.12
[8814 | 952.35] loss=1.10 avg=1.12
[8815 | 953.26] loss=1.12 avg=1.12
[8816 | 954.18] loss=1.21 avg=1.12
[8817 | 955.09] loss=1.83 avg=1.13
[8818 | 956.00] loss=1.20 avg=1.13
[8819 | 956.92] loss=0.86 avg=1.13
[8820 | 957.84] loss=1.38 avg=1.13
[8821 | 958.75] loss=1.45 avg=1.13
[8822 | 959.67] loss=1.24 avg=1.13
[8823 | 960.58] loss=1.40 avg=1.14
[8824 | 961.50] loss=1.17 avg=1.14
[8825 | 962.41] loss=1.15 avg=1.14
[8826 | 963.33] loss=1.28 avg=1.14
[8827 | 964.25] loss=1.16 avg=1.14
[8828 | 965.16] loss=1.39 avg=1.14
[8829 | 966.08] loss=0.90 avg=1.14
[8830 | 967.00] loss=1.20 avg=1.14
[8831 | 967.92] loss=0.86 avg=1.14
[8832 | 968.84] loss=1.47 avg=1.14
[8833 | 969.75] loss=1.06 avg=1.14
[8834 | 970.67] loss=0.63 avg=1.13
[8835 | 971.59] loss=1.46 avg=1.14
[8836 | 972.51] loss=0.89 avg=1.14
[8837 | 973.43] loss=1.04 avg=1.13
[8838 | 974.35] loss=1.07 avg=1.13
[8839 | 975.27] loss=0.98 avg=1.13
[8840 | 976.19] loss=1.11 avg=1.13
[8841 | 977.11] loss=1.33 avg=1.13
[8842 | 978.03] loss=1.37 avg=1.14
[8843 | 978.95] loss=0.97 avg=1.13
[8844 | 979.87] loss=1.09 avg=1.13
[8845 | 980.79] loss=0.97 avg=1.13
[8846 | 981.71] loss=1.20 avg=1.13
[8847 | 982.63] loss=0.86 avg=1.13
[8848 | 983.54] loss=1.15 avg=1.13
[8849 | 984.46] loss=1.16 avg=1.13
[8850 | 985.38] loss=0.75 avg=1.13
[8851 | 986.30] loss=1.55 avg=1.13
[8852 | 987.23] loss=1.08 avg=1.13
[8853 | 988.15] loss=1.03 avg=1.13
[8854 | 989.07] loss=1.00 avg=1.13
[8855 | 989.99] loss=1.21 avg=1.13
[8856 | 990.92] loss=1.12 avg=1.13
[8857 | 991.84] loss=1.04 avg=1.13
[8858 | 992.76] loss=1.27 avg=1.13
[8859 | 993.69] loss=1.11 avg=1.13
[8860 | 994.61] loss=1.33 avg=1.13
[8861 | 995.54] loss=1.36 avg=1.13
[8862 | 996.46] loss=1.02 avg=1.13
[8863 | 997.38] loss=0.87 avg=1.13
[8864 | 998.31] loss=1.44 avg=1.13
[8865 | 999.23] loss=0.85 avg=1.13
[8866 | 1000.16] loss=0.93 avg=1.13
[8867 | 1001.08] loss=1.37 avg=1.13
[8868 | 1002.00] loss=1.01 avg=1.13
[8869 | 1002.93] loss=0.79 avg=1.13
[8870 | 1003.85] loss=1.11 avg=1.13
[8871 | 1004.77] loss=0.88 avg=1.12
[8872 | 1005.70] loss=0.62 avg=1.12
[8873 | 1006.62] loss=1.35 avg=1.12
[8874 | 1007.55] loss=0.91 avg=1.12
[8875 | 1008.47] loss=1.21 avg=1.12
[8876 | 1009.40] loss=1.11 avg=1.12
[8877 | 1010.32] loss=1.42 avg=1.12
[8878 | 1011.24] loss=1.20 avg=1.12
[8879 | 1012.16] loss=1.28 avg=1.13
[8880 | 1013.09] loss=0.87 avg=1.12
[8881 | 1014.01] loss=1.76 avg=1.13
[8882 | 1014.93] loss=1.57 avg=1.13
[8883 | 1015.86] loss=0.95 avg=1.13
[8884 | 1016.78] loss=0.53 avg=1.13
[8885 | 1017.70] loss=0.82 avg=1.12
[8886 | 1018.62] loss=1.38 avg=1.13
[8887 | 1019.54] loss=1.10 avg=1.12
[8888 | 1020.46] loss=1.12 avg=1.12
[8889 | 1021.38] loss=1.38 avg=1.13
[8890 | 1022.30] loss=0.66 avg=1.12
[8891 | 1023.22] loss=0.98 avg=1.12
[8892 | 1024.15] loss=1.18 avg=1.12
[8893 | 1025.07] loss=1.40 avg=1.12
[8894 | 1025.99] loss=0.98 avg=1.12
[8895 | 1026.90] loss=0.72 avg=1.12
[8896 | 1027.82] loss=0.95 avg=1.12
[8897 | 1028.75] loss=1.31 avg=1.12
[8898 | 1029.67] loss=1.20 avg=1.12
[8899 | 1030.60] loss=1.05 avg=1.12
Generating samples...
======== SAMPLE 1 ========
filter-function nil)
(defcustom semantic-gv-auto-mode 'semantic-auto-mode
"Highly customizable mode used for speed and ease of use."
:group 'semantic
:type 'hook)
(defcustom semantic-gv-auto-indent-function 'semantic-auto-indent-function
"Function that is called once, with optional argument `auto-indent' after it.
Non-nil means make this function active in the buffer, using the value of
`semantic-gv-auto-indent'. For example:
(if (save-excursion
(save-restriction
(skip-chars-backward "\\`[ \t]*-*\\([0-9]+\\)?:[ \n]+\\)\\'" nil t)
(save-excursion
(skip-chars-backward "^ \t]+" t)
(setq semantic-gv-auto-indent-function (make-symbol "auto-indent") t)
(if (zerop (skip-chars-forward " \t\\|\\(*[:]?\\)\\s-*\\)?[-:]{")
(setq semantic-gv-auto-indent-function (make-symbol "autoindent")))
(setq semantic-gv-auto-indent-function (make-symbol "auto-indent")))
(if (zerop (skip-chars-forward " \t\\|\\(.*\\)\\(.*\n\\)?\\)?[-:]{")
(setq semantic-gv-auto-indent-function (make-symbol "autoindent")))
(setq semantic-gv-auto-indent-function (make-symbol "autoin")))
(setq semantic-gv-auto-indent-function (make-symbol "autoindent")))
(let ((key-keys (make-symbol :key-function)))
(define-key semantic-gv-auto-indent-function 'font-lock-keywords-function
'(semantic-gv-auto-indent-function)
'font-lock-comment-keyword))
(defvar semantic-gv-auto-prefix-list
'("\\`" . semantic-gv-auto-prefix-key)
"@{" . (semantic-gv-auto-prefix-key))
"Keywords used in auto-indent syntax in Emacs."))
;;;###autoload
(defvar semantic-gv-auto-indent-alist
'("\\([0-9]+\\)" "\\$\\([0-9]+\\)"
["Syntax highlighting for font-lock commands"])
(defun semantic-gv-auto-indent (key code)
"Indent the keystrokes displayed in the current buffer according to the current regexp string.
The symbol `semantic-auto-indent-regexp' is a symbol that is repeated on each
stroke in each buffer. The symbols `semantic-gv-auto-indent-syntax' and
`semantic-gv-auto-indent-syntax-regexp' refer to the same
regexp string which matches any of the following regexp:
`0-9'
`[ \t ]*\\(\\`\\(\\`\\(\\`\\(\\*\\(\\|\\)+\\)\\)\\)\\)\\'"
"Syntax highlighting for font-lock commands in Emacs." ; default to 1
(semantic-gv-auto-indent-regexp key 0)
"Symbol used in auto-indent syntax.")
(prov
======== SAMPLE 2 ========
filter-mode
"Customize Emacs to use `set-window-buffer' to display frames in the window list."
(setq w32-minor-mode-properties
(apply #'custom-properties
(custom-properties-alist
(mapcar (lambda (buffer)
(cons (1+ buffer) (1+ buffer)))
(cons (1+ buffer) (1+ buffer)))
(mapcar (lambda (buffer)
(cons (1* buffer) (1* buffer)))
(cons (1* buffer) (1* buffer)))))))
(deffoo set-window-previous-selected-frame (frame-previous-list)
(let ((w32-pre-view-frame (window-previous-list))))
(set-window-previous-list
nil
(apply #'custom-properties
(apply #'custom-properties
(cons (1+ frame-pre-view-frame)
(1+ nil)))
;; The first frame is marked as this.
(if (featurep 'xemacs)
;; The first frame (the one with the first window
;; ) was marked as this
(setq w32-pre-view-frame nil)
(setq w32-pre-view-frames nil)))
frames)))
(deffoo set-window-previous-selected-in-frame
(apply #'custom-properties
(apply #'custom-properties
(cons (1+ frame-pre-inhibit-selection) w32-pre-inhibit-selection)))
"Customize Emacs to use `set-window-previous-buffer' to display a frame in the frame list."
(let* ((w32-pre-view-inhibit-selection
(cons (1+ frame-pre-inhibit-selection)
(1- frame-pre-inhibit-selection)))
(set-window-previous-buffer
(cons (1- frame-pre-select-buffer)
(1- frame-select-select-buffer))))
(if (featurep 'xemacs)
(if (featurep 'xemacs)
(if (featurep 'xemacs)
(if (featurep 'xemacs)
======== SAMPLE 3 ========
filter-ignore-case p1
'pcase 1 t 1) nil)))
;;
;;(ert-deftest eos-test-completion-test ()
;; ;; Test completions work, however they only work if the user clicks the prefix
;; ;; on a test line. Only if a line contains a non-negative
;; ;; character will a completion prompt prompt for completion.
;; (let* ((prog2
;; (or prog1
;; (prog2 --complete proc
;; (prog1 --ignore proc)))
;; (prog1 --test-complete proc)
;; (prog2 --test proc)
;; (prog1 --test-test proc)
;; (prog1 --test-test proc))))
(defun eos-test-with-pcomplete ()
"Find completion tests that match `prog-def-p' or the value of `prog-def-p'."
(let* ((prompt (point-min))
test)
(while (and (re-search-forward pcomplete-skip t)
(save-excursion
(skip-chars-backward "^ \t:^ \t" pcomplete-skip t)
(skip-chars-backward "\r") (point-min))))
(while (and (re-search-forward prog-def-p t)
(save-excursion
(skip-syntax-backward "![ \t:^']")
(point))
(if (re-search-forward prog-def-p t)
(point)
(point-min)))) nil t))
(defun eos-completion-test (&optional beg end)
"Completes a completion test, or any of the completion tests, if the user clicks on
a test line.
The completion tests operate on completion lines. If a completion line is
found, it is repeated for any non-positive completion line number.
COMPONENTS should come first.
If there is a non-positive completion line for a completion line, return the number point
near the completion line which is the first non-positive completion line."
(setf (point)
(if (not (search-backward "\\s */\\(.\\)" beg end t))
(progn (search-forward "^")
(point-min)
(point-max)))) ; Check completion fails
(while (and (re-search-forward eos-completion-line t)
(/= (point) end)
(/= (point) beg end))
(while (< (point) end)
(setq end (point-min)
======== SAMPLE 4 ========
filter-function-handler c-unmodified-flag)
"-T" (concat "\\.t\\'" c-unmodified-flag)))
(save-buffer
(unless (user-error "Can't change the current buffer"))
(if (c-majors-up (c-list-current-variable c-list-current-variable))
(save-excursion
(goto-char (point-min))
(let ((e
(concat "\\(.*\\|\\s-+[:]*\\s +\\'" c-list-variable-name "\\)\\([^ ]*\\)[ \t]+\\)"
'(("*$" . (car-safe (current-buffer))))))])
(when (> (point) c-max-maximum-width)
(setq c-max-maximum-width (1+ (= c-max-maximum-width)))
;; If a variable was already defined, it was changed
;; to this one
(setcdr-safe (cons c-max-maximum-width c-max-maximum-width
(- (point) c-max-maximum-width)))
(if (< (point) (1- limit))
;; Otherwise, find the beginning of the variable, return
;; it.
(setq c-min-max-width (- max-min-width 3))
(setq c-max-max-width c-max-max-width)
(when (< c-min-max-width 3)
(setq c-max-max-width c-max-max-width)))))))
(forward-line -1))))))
(defun c-set-variable (&optional c)
(interactive)
(goto-char (point-min))
(setq c-set-variable-start nil)
(let ((variable-name
(if (null (car (c-list-variable-name-p variable)))
(setq variable-name c)))
(car (cdr (c-backward-char 1- (- c-list-variable-name-or-start-or-end-or-end)
c-list-variable-name)
c-list-variable-name-or-start-or-end-or-end)
(if (
[8900 | 1056.17] loss=1.93 avg=1.13
[8901 | 1057.09] loss=0.89 avg=1.13
[8902 | 1058.01] loss=1.17 avg=1.13
[8903 | 1058.92] loss=0.92 avg=1.12
[8904 | 1059.84] loss=1.25 avg=1.12
[8905 | 1060.76] loss=1.25 avg=1.13
[8906 | 1061.68] loss=1.42 avg=1.13
[8907 | 1062.60] loss=2.03 avg=1.14
[8908 | 1063.51] loss=1.96 avg=1.15
[8909 | 1064.43] loss=0.78 avg=1.14
[8910 | 1065.34] loss=0.90 avg=1.14
[8911 | 1066.26] loss=1.05 avg=1.14
[8912 | 1067.17] loss=0.90 avg=1.14
[8913 | 1068.09] loss=0.66 avg=1.13
[8914 | 1069.00] loss=0.96 avg=1.13
[8915 | 1069.92] loss=1.33 avg=1.13
[8916 | 1070.84] loss=1.07 avg=1.13
[8917 | 1071.75] loss=1.57 avg=1.14
[8918 | 1072.67] loss=0.84 avg=1.13
[8919 | 1073.58] loss=0.65 avg=1.13
[8920 | 1074.50] loss=0.85 avg=1.13
[8921 | 1075.41] loss=1.12 avg=1.13
[8922 | 1076.33] loss=1.21 avg=1.13
[8923 | 1077.24] loss=1.37 avg=1.13
[8924 | 1078.16] loss=0.98 avg=1.13
[8925 | 1079.07] loss=1.06 avg=1.13
[8926 | 1079.99] loss=0.72 avg=1.12
[8927 | 1080.90] loss=1.19 avg=1.12
[8928 | 1081.82] loss=1.23 avg=1.12
[8929 | 1082.74] loss=1.06 avg=1.12
[8930 | 1083.66] loss=1.32 avg=1.13
[8931 | 1084.57] loss=0.94 avg=1.12
[8932 | 1085.49] loss=0.82 avg=1.12
[8933 | 1086.41] loss=1.18 avg=1.12
[8934 | 1087.33] loss=0.90 avg=1.12
[8935 | 1088.24] loss=0.90 avg=1.12
[8936 | 1089.16] loss=0.96 avg=1.12
[8937 | 1090.08] loss=1.21 avg=1.12
[8938 | 1091.00] loss=0.67 avg=1.11
[8939 | 1091.92] loss=1.14 avg=1.11
[8940 | 1092.84] loss=0.91 avg=1.11
[8941 | 1093.77] loss=1.18 avg=1.11
[8942 | 1094.69] loss=1.29 avg=1.11
[8943 | 1095.61] loss=1.04 avg=1.11
[8944 | 1096.52] loss=1.17 avg=1.11
[8945 | 1097.45] loss=1.19 avg=1.11
[8946 | 1098.37] loss=1.14 avg=1.11
[8947 | 1099.28] loss=1.30 avg=1.12
[8948 | 1100.21] loss=1.00 avg=1.11
[8949 | 1101.13] loss=0.81 avg=1.11
[8950 | 1102.04] loss=1.43 avg=1.11
[8951 | 1102.97] loss=1.19 avg=1.12
[8952 | 1103.89] loss=0.83 avg=1.11
[8953 | 1104.81] loss=0.77 avg=1.11
[8954 | 1105.74] loss=1.24 avg=1.11
[8955 | 1106.66] loss=1.11 avg=1.11
[8956 | 1107.58] loss=1.22 avg=1.11
[8957 | 1108.50] loss=1.57 avg=1.12
[8958 | 1109.42] loss=1.22 avg=1.12
[8959 | 1110.34] loss=1.58 avg=1.12
[8960 | 1111.26] loss=1.23 avg=1.12
[8961 | 1112.18] loss=1.11 avg=1.12
[8962 | 1113.10] loss=1.23 avg=1.12
[8963 | 1114.02] loss=1.00 avg=1.12
[8964 | 1114.93] loss=0.83 avg=1.12
[8965 | 1115.85] loss=1.16 avg=1.12
[8966 | 1116.78] loss=1.48 avg=1.12
[8967 | 1117.70] loss=1.06 avg=1.12
[8968 | 1118.62] loss=1.00 avg=1.12
[8969 | 1119.55] loss=1.25 avg=1.12
[8970 | 1120.47] loss=0.92 avg=1.12
[8971 | 1121.40] loss=1.37 avg=1.12
[8972 | 1122.32] loss=1.11 avg=1.12
[8973 | 1123.25] loss=1.36 avg=1.13
[8974 | 1124.17] loss=1.16 avg=1.13
[8975 | 1125.09] loss=1.17 avg=1.13
[8976 | 1126.02] loss=1.02 avg=1.13
[8977 | 1126.94] loss=1.10 avg=1.12
[8978 | 1127.86] loss=0.97 avg=1.12
[8979 | 1128.79] loss=1.18 avg=1.12
[8980 | 1129.71] loss=1.24 avg=1.13
[8981 | 1130.64] loss=0.88 avg=1.12
[8982 | 1131.56] loss=1.05 avg=1.12
[8983 | 1132.49] loss=1.06 avg=1.12
[8984 | 1133.41] loss=1.26 avg=1.12
[8985 | 1134.33] loss=0.93 avg=1.12
[8986 | 1135.26] loss=1.57 avg=1.13
[8987 | 1136.18] loss=1.01 avg=1.12
[8988 | 1137.11] loss=0.85 avg=1.12
[8989 | 1138.03] loss=1.13 avg=1.12
[8990 | 1138.96] loss=1.29 avg=1.12
[8991 | 1139.88] loss=0.76 avg=1.12
[8992 | 1140.81] loss=0.84 avg=1.12
[8993 | 1141.73] loss=0.98 avg=1.12
[8994 | 1142.65] loss=1.17 avg=1.12
[8995 | 1143.57] loss=0.91 avg=1.11
[8996 | 1144.50] loss=0.99 avg=1.11
[8997 | 1145.42] loss=0.82 avg=1.11
[8998 | 1146.35] loss=0.92 avg=1.11
[8999 | 1147.27] loss=1.06 avg=1.11
Saving checkpoint/run1/model-9000
Generating samples...
======== SAMPLE 1 ========
) (file-name-directory (concat "\\.el\\'" (substring dirname 0 -1)))
(cond
((eq dirname '\\.el) (- -1 (nth (nth 3 (nthcdr dirname))))
(setcdr (nthcdr 2)))))))
((posp pos) (- 1 (- -1 dirname))))
(when dir (mapconcat #'string-to-number dirname ""))
(let ((dir (expand-file-name dir))
(- 1 dirname))))
(provide 'nntp)
;;; nntp.el ends here
;;
;; Local Variables:
;; generated-autoload-file: "loaddefs.el"
;; End:
<|endoftext|>;;; cpp--tests.el
;;; Commentary:
(provide 'cpp-tests)
;;; cpp-tests.el ends here
;;; Copying and Modifying:
(require 'cl-lib)
;;; Code:
(defgroup cpptest nil
"CppTest program."
:group 'cvs
:group 'cvs-test;
:group 'tcp)
(defcustom cpp--test-file-name t
"File name when compiling."
:type '(file)
:group 'cvs
(defcustom cpp-test-test-directory nil
"Non-nil means directory of test files should be included at point; see `cpp-test-directory'."
:type '(choice symbol)
:group 'cvs
:type 'boolean)
(defcustom cpp-test-directory-in-dir 'cpp-test-test-directory-in-dir
"CppTest test file containing test files."
:type '(choice symbol)
:group 'cvs
:type 'string)
(defcustom cpp-test-file-name "test"
"File name if included in output.")
(defcustom cpp-test-output-directory nil
"Directory when output file is in output."
:type '(file)
:group 'cvs
:type 'directory)
(defcustom cpp-test-file-name-directory :test-dir
"The directory where the test output file is to be loaded.
It can be set according to directory specification."
:type '(choice (const nil))
:group 'cvs
:type 'directory)
;;
;; CppTest class library
;;
;;;###autoload
(defun cpp--test-class-library (class)
;; `(cpp--test-library-class ,class))
(defvar cpp-test-library nil
"The class we test.")
(easy-lisp-define (cpp--test-class-library ,class))
(add-in-expand-property
'(cpp--test-class-class ',("a-" (cpp--test-class-get))
cpp-test-class (cpp--test-library-class
nil
class))))
;;
;; CppTest class library, with documentation (optional)
;;
;; This file could also be used with emacs
(require 'cpp-tests)
(defun cpp-test-class-get-class (class)
(progn
(cpp--test-libraryclass (cpp--test-find-class class))
(set (make-local-variable 'cpp-test-libraryclass) :enable-variables nil
'class))
(let ((class (cperl-find-package class)))
(cperl-check-in-output class
(list 'string class (list 'string
:propertize 'cperl-test-test-libraryclass
:type cperl-test-libraryclass))))
(setcdr class cperl-test-libraryclass)
======== SAMPLE 2 ========
)
(org-element-type-with-extra-properties object
:before-end (point)
:after-end (point)
:before-end (point)
:before-start (point))
(when (and (org-element-property :before-end type)
(org-list-item :before-end (point)))))
(not (and (org-element-property :after-end type)
(funcall org-element-property
'after-end (point) (org-element-end-property)))
(nconc (or (org-element-property :after-end type) :before-end))
nil (funcall (funcall :before-end :end))))
(setq-item (if (and (eq type (org-list-item :before-end type :before-end))
(funcall org-element-property :end)) nil))
(setq-item (funcall (make-overlay (point) (point)))
(overlay-start (progn
(overlay-start (point)))))
(if (overlay-start (progn
(overlay-end (point)))) nil
(overlay-start (point))))))
(if (and (funcall org-replace-replace-text
(funcall fill-table replace-table))
(funcall fill-table-replace-text replace-table)))
(list 'copy 'replace nil 'copy (1+ (length replace-table))))))
======== SAMPLE 3 ========
) (unless (cdr vipermanent) (setq vipermanent viperbose-active))
(setq vipermanent t)
(setq vipermanent (cons (list vipermanent) t))
(dolist (e vipermanent) (cons ((eq vipermanent 1) (list 'viper) (list vipermanent))
(setq e (cons (list (list vipermanent) (cons 'vipermanent-mode 1))))
e))))
(defun viperbose-get-activate ()
;; This is the one used a lot. A 'mode' function to activate a viperbose
;; message. We will use it when it is activated in the background.
(let ((buf (cons (list 'mode (list viperbose-mode)))
viperbose-active)
(bufname buffer (vector 0 buffer)))
(when bufname
(setq bufname (current-buffer))
(if (equal buf nil) (setq buf (pop bufname)))
(setq buf (dolist (buffer bufname)
(append (when (cdr (cdr bufname)))
(not (memq (car (caar file))))
(list 'mode-line-function-cached nil ))
;No need to call cdr-mode-function (nil)
(when (called-interactively-p 'interactive)
(apply 'proced-mode-hook nil t))))))
(setq bufn (buffer-substring-no-properties 1000000 0))
(setq bufn (cdr bufn)))
;; Make sure the list is narrowed if the buffer doesn't have it.
(while (and (not nbuf) (equal (list 'mode-line-function-cached nil) nbuf))
(let (entry-buf
(cons (vector (list 'mode-line-function-cached 'list) nbuf))))
(setq entry-buf ; The empty list.
(setq entry-buf (list 'mode-line-function-cached 'list))))
(&bufn (cdr buffer)))
(setq buf (cdr buf))
(when (and (not entry-buf) (equal (list 'vipermanent-mode (list 'vipermanent (list
viperbose-mode-line-list
'vipermanent-mode))
(number-lessp 1)) (error nil))))
(setq buffer
======== SAMPLE 4 ========
)
(when (and (not (eobp))
(stringp (ring-start char))
(string-to-number
(ring-end char)
(ring-begin char))))
(while line
(setq line (ring-begin (ring-end char))))
(cond ((eobp) (setq line (ring-begin char nil))
(setq line (mapconcat (lambda (line)
(if (and (eq (current-buffer-size)
(stringp (ring-start char)))
(eq (current-buffer-size)
(ring-end char)))
(progn
(ring-end (ring-begin char))
(setq line (list line))))
(setq line (append line
(ring-begin line))))
nil t))
((string-match "\\.\\.^.\\.\\*.\\*.\\.\\.*\\(.\\.\\.*?\\).$"
(regexp-quote regexp))
(ring-end nil
(ring-start (ring-end char))
(ring-end nil)))))
(dotimes (i (length line)
(aref p 0
(ring-begin (ring-end char) (ring-end line) p) ; ?\??)
(ring-end (ring-end char)))
(aref p (aref p lines)))
;; In case char starts at end of line, move it.
(skip-chars-backward " ?*:" nil)
(beginning-of-line)
(forward-line (+ ring-end 1)))
(end-of-substring start end)))))
(defun char-to-string (sexp begin end)
;; Write character.
(insert "!" ".")
(if (>= start (aref sexp end))
;; No end position. Write character.
(if (>= end (<= begin end))
[9000 | 1177.75] loss=1.24 avg=1.11
[9001 | 1178.67] loss=0.79 avg=1.11
[9002 | 1179.60] loss=1.13 avg=1.11
[9003 | 1180.51] loss=0.80 avg=1.10
[9004 | 1181.43] loss=0.81 avg=1.10
[9005 | 1182.35] loss=1.27 avg=1.10
[9006 | 1183.28] loss=1.47 avg=1.11
[9007 | 1184.20] loss=1.20 avg=1.11
[9008 | 1185.12] loss=1.25 avg=1.11
[9009 | 1186.04] loss=0.97 avg=1.11
[9010 | 1186.95] loss=0.77 avg=1.10
[9011 | 1187.87] loss=1.33 avg=1.10
[9012 | 1188.78] loss=1.22 avg=1.11
[9013 | 1189.70] loss=1.15 avg=1.11
[9014 | 1190.62] loss=1.18 avg=1.11
[9015 | 1191.54] loss=0.81 avg=1.10
[9016 | 1192.46] loss=0.66 avg=1.10
[9017 | 1193.37] loss=1.30 avg=1.10
[9018 | 1194.29] loss=1.05 avg=1.10
[9019 | 1195.20] loss=1.78 avg=1.11
[9020 | 1196.12] loss=1.43 avg=1.11
[9021 | 1197.04] loss=1.14 avg=1.11
[9022 | 1197.96] loss=0.87 avg=1.11
[9023 | 1198.87] loss=1.16 avg=1.11
[9024 | 1199.79] loss=1.10 avg=1.11
[9025 | 1200.70] loss=1.63 avg=1.11
[9026 | 1201.62] loss=1.41 avg=1.12
[9027 | 1202.54] loss=1.08 avg=1.12
[9028 | 1203.45] loss=1.33 avg=1.12
[9029 | 1204.37] loss=0.89 avg=1.12
[9030 | 1205.28] loss=1.28 avg=1.12
[9031 | 1206.20] loss=1.48 avg=1.12
[9032 | 1207.12] loss=0.66 avg=1.12
[9033 | 1208.03] loss=1.50 avg=1.12
[9034 | 1208.95] loss=1.23 avg=1.12
[9035 | 1209.87] loss=1.30 avg=1.12
[9036 | 1210.79] loss=1.13 avg=1.12
[9037 | 1211.71] loss=1.11 avg=1.12
[9038 | 1212.62] loss=1.09 avg=1.12
[9039 | 1213.54] loss=1.22 avg=1.12
[9040 | 1214.46] loss=1.30 avg=1.13
[9041 | 1215.37] loss=1.21 avg=1.13
[9042 | 1216.29] loss=1.15 avg=1.13
[9043 | 1217.20] loss=1.37 avg=1.13
[9044 | 1218.12] loss=0.93 avg=1.13
[9045 | 1219.04] loss=1.85 avg=1.14
[9046 | 1219.96] loss=1.62 avg=1.14
[9047 | 1220.88] loss=1.24 avg=1.14
[9048 | 1221.81] loss=0.97 avg=1.14
[9049 | 1222.73] loss=0.74 avg=1.14
[9050 | 1223.64] loss=1.20 avg=1.14
[9051 | 1224.56] loss=1.06 avg=1.14
[9052 | 1225.48] loss=0.72 avg=1.13
[9053 | 1226.40] loss=1.09 avg=1.13
[9054 | 1227.32] loss=1.29 avg=1.13
[9055 | 1228.24] loss=1.41 avg=1.13
[9056 | 1229.16] loss=1.15 avg=1.13
[9057 | 1230.08] loss=1.14 avg=1.14
[9058 | 1231.00] loss=1.09 avg=1.13
[9059 | 1231.92] loss=1.12 avg=1.13
[9060 | 1232.84] loss=1.18 avg=1.13
[9061 | 1233.76] loss=1.03 avg=1.13
[9062 | 1234.68] loss=1.20 avg=1.13
[9063 | 1235.60] loss=1.11 avg=1.13
[9064 | 1236.51] loss=1.10 avg=1.13
[9065 | 1237.43] loss=1.10 avg=1.13
[9066 | 1238.35] loss=0.91 avg=1.13
[9067 | 1239.27] loss=1.33 avg=1.13
[9068 | 1240.19] loss=0.92 avg=1.13
[9069 | 1241.11] loss=1.08 avg=1.13
[9070 | 1242.03] loss=1.28 avg=1.13
[9071 | 1242.96] loss=1.67 avg=1.14
[9072 | 1243.87] loss=1.34 avg=1.14
[9073 | 1244.79] loss=1.30 avg=1.14
[9074 | 1245.71] loss=1.36 avg=1.14
[9075 | 1246.63] loss=1.39 avg=1.15
[9076 | 1247.55] loss=1.26 avg=1.15
[9077 | 1248.47] loss=1.01 avg=1.15
[9078 | 1249.39] loss=1.11 avg=1.15
[9079 | 1250.32] loss=1.33 avg=1.15
[9080 | 1251.24] loss=1.01 avg=1.15
[9081 | 1252.16] loss=1.08 avg=1.14
[9082 | 1253.08] loss=1.56 avg=1.15
[9083 | 1254.00] loss=1.24 avg=1.15
[9084 | 1254.92] loss=1.01 avg=1.15
[9085 | 1255.84] loss=1.01 avg=1.15
[9086 | 1256.76] loss=1.17 avg=1.15
[9087 | 1257.68] loss=1.13 avg=1.15
[9088 | 1258.60] loss=0.80 avg=1.14
[9089 | 1259.52] loss=1.33 avg=1.15
[9090 | 1260.43] loss=1.18 avg=1.15
[9091 | 1261.36] loss=0.52 avg=1.14
[9092 | 1262.28] loss=1.22 avg=1.14
[9093 | 1263.20] loss=1.80 avg=1.15
[9094 | 1264.12] loss=0.72 avg=1.14
[9095 | 1265.04] loss=0.80 avg=1.14
[9096 | 1265.96] loss=0.91 avg=1.14
[9097 | 1266.88] loss=1.69 avg=1.14
[9098 | 1267.80] loss=0.79 avg=1.14
[9099 | 1268.72] loss=0.52 avg=1.13
Generating samples...
======== SAMPLE 1 ========
(setq last-modified nil))
(setq last-removed nil))
(if (not (member "--")
(member "---")
(member ":--"))
(format "--%s"
nil
(string-to-number last-modified)
(number-to-string last-modified))))))
(defun org--delete-contents ()
"Removes all occurrences and contents matching a name, if that name contains a \"\\<contents-toc>\" tag."
(if (stringp org--contents-toc)
(let* ((committed "," nil)
(subst (org-element-property :subst) org--contents-toc
(org-parent-parent (org-element-property :type-type org-contents-toc))
(last (org-element-property :tag-id org-contents-toc)))
(org-remove-contents (org-element-property :contents-toc subst)))
(goto-char (org-element-property :tag-id (org-element-contents))))
(if org--last-contents
(if first
(cond
;; No last-contents.
((member org--last-contents
(cl-incf (org-element-type org-contents))
org-contents-contents-last-contents)
(progn
(let ((last (org-element-property :tag-id (org-element-type last))
org-contents-contents-last-contents)
(if (numberp first) last last-contents))))))
(org-remove-contents (org-element-property :contents-toc tag--last-contents))))
;;;###autoload
;;;###autoload
(defun org-remove-contents (subst &optional no)
"Remove all the contents of SUBST and its substrings.
COMPOUND is the position in substring SUBST that was removed, the
most recent value in the same substring, or nil if there was no
substring to remove."
(save-excursion
(when (< (org-element-property :contents (point)) 0)
(save-excursion (goto-char end) (org-element-property :type subst)))
(when org-contents-contents-last-contents
(org-remove-contents (org-element-property :contents-toc subst)))
(org-remove-contents (org-element-property :contents-toc subst))))
;;;###autoload
;;;###autoload
(defun org-remove-contents (subst &optional no)
"Remove all the contents of SUBST and its substrings."
(save-excursion
======== SAMPLE 2 ========
(math-extract-frac t)))))
(let ((calc-tex-range t)
(pos (calc-calc-symbolic-start pos)))
;; Apply the math functions on the data.
(while (re-search-forward "[ \t]+%2b" (car-safe pos)))
(let ((calc-math-range (or (cadr pos)
(car-safe pos))
(math-expand-subtract (nth pos 2)
(nth pos 2)))
(math-extract-frac t))
(if (< (car pos) 0)
(setq pos (- (car pos) (if (= (cddr pos) 2)
1 -1))
(+ pos (car pos))
temp
(if (<= pos 0)
(- (cddr pos) (cddr pos))
temp))))
(math-extract-frac p1
(car pos)
temp)))))
(calc-tex-range (or (cadr pos)
(nth pos)
(math-expand-subtract
(nth pos 2)
(nth pos 2)))
(math-extract-frac (nth qp) temp
======== SAMPLE 3 ========
'(
;; The current buffer should not be changed.
(setq buffer-read-only t)
(if (consp buffer-read-only) (progn
(goto-char (point-min))
(insert-file-contents buffer-file-name)
(nconc `(goto-char (end-of-line)
(forward-line 1))))
(buffer-disable-undo)
;; Save the last buffer to keep the default state.
(setf buffer-read-only nil))
(let* ((buf (get-buffer-create buffer-buffer))
(buf-start nil)
(buf-end nil)
(buffer-substring-no-properties buffer-file-name
(match-beginning 0) (match-end 0))
(buffer-read-only t)
(current-buffer nil)
(current-buffer-undo nil)
(delete-file (nth 1 buffer-file-name) buf)
buf
(delete-file buffer-file-name nil))))
(if (<= (point) buffer-read-only)
(save-excursion
(save-restriction
(nth (min (point) (if (numberp 0)
(char-before b)
(if (= (point) (if (= (length b) b))
(- (point-max) b))))
(if (= (point) (if (= (length b) b))
(- (point-min)
(- (point-max)
======== SAMPLE 4 ========
(save-excursion
(goto-char (point-min))
1)
result)
result))
(forward-line (min btn)))
(if (and result (not (> (- (point) btn) btn))
(not (= btn (% btn result)))
;; There was some buffer cleanup.
(set-buffer-modified-p nil)
(when (looking-at ";;\n\n*"))
(goto-char (forward-line 2))
(delete-region (following-char) beg)
(when (eq (back-of-buffer-same-line) ?\t)
(set-buffer-modified-p nil))
(setq prev-pos (1+ prev-pos))
(setq btn (following-char))
(insert-before-marker (point) next-line)
(set-marker (mark) next-line)))
;; Cleanup of buffer has changed, this should be a proper error
(set-marker next-line (point))
(set-marker next-line (point)
(current-buffer)))
;; Cleanup
(when (>= prev-line btn)
;; Delete current buffer.
(set-marker current-buffer (point))
;; Find buffer closest to current one.
(set-marker buffer (point))
;; We found a buffer closest to current but still far enough to delete
;; it
(if (not (and (eq (following-char) ?\#) (looking-at
(forward-line 1)
(1- (match-beginning 0))))) t
;; We found a buffer closest to current, but
;; far enough to delete it. So delete it.
(set-point prev-line)
(set-marker beg (current-buffer))
(if (not (and (equal btn (> btn btn)))
[9100 | 1294.29] loss=1.06 avg=1.13
[9101 | 1295.21] loss=1.26 avg=1.13
[9102 | 1296.12] loss=1.36 avg=1.14
[9103 | 1297.04] loss=1.05 avg=1.13
[9104 | 1297.96] loss=1.05 avg=1.13
[9105 | 1298.87] loss=1.07 avg=1.13
[9106 | 1299.79] loss=1.06 avg=1.13
[9107 | 1300.70] loss=1.19 avg=1.13
[9108 | 1301.62] loss=1.56 avg=1.14
[9109 | 1302.53] loss=2.04 avg=1.15
[9110 | 1303.45] loss=1.45 avg=1.15
[9111 | 1304.36] loss=1.16 avg=1.15
[9112 | 1305.27] loss=0.47 avg=1.14
[9113 | 1306.19] loss=1.24 avg=1.14
[9114 | 1307.11] loss=1.25 avg=1.14
[9115 | 1308.02] loss=0.49 avg=1.14
[9116 | 1308.93] loss=1.06 avg=1.14
[9117 | 1309.84] loss=0.77 avg=1.13
[9118 | 1310.76] loss=0.81 avg=1.13
[9119 | 1311.67] loss=1.01 avg=1.13
[9120 | 1312.58] loss=1.52 avg=1.13
[9121 | 1313.50] loss=1.60 avg=1.14
[9122 | 1314.42] loss=0.93 avg=1.14
[9123 | 1315.33] loss=0.88 avg=1.13
[9124 | 1316.24] loss=1.60 avg=1.14
[9125 | 1317.16] loss=0.97 avg=1.14
[9126 | 1318.08] loss=0.84 avg=1.13
[9127 | 1318.99] loss=0.62 avg=1.13
[9128 | 1319.91] loss=1.25 avg=1.13
[9129 | 1320.82] loss=1.16 avg=1.13
[9130 | 1321.74] loss=0.82 avg=1.13
[9131 | 1322.66] loss=1.11 avg=1.13
[9132 | 1323.57] loss=0.99 avg=1.13
[9133 | 1324.49] loss=1.00 avg=1.12
[9134 | 1325.40] loss=1.42 avg=1.13
[9135 | 1326.32] loss=1.14 avg=1.13
[9136 | 1327.24] loss=1.35 avg=1.13
[9137 | 1328.16] loss=1.10 avg=1.13
[9138 | 1329.07] loss=1.18 avg=1.13
[9139 | 1329.99] loss=1.67 avg=1.13
[9140 | 1330.91] loss=0.81 avg=1.13
[9141 | 1331.83] loss=0.97 avg=1.13
[9142 | 1332.74] loss=1.06 avg=1.13
[9143 | 1333.66] loss=0.88 avg=1.13
[9144 | 1334.57] loss=1.12 avg=1.13
[9145 | 1335.49] loss=1.10 avg=1.13
[9146 | 1336.41] loss=1.67 avg=1.13
[9147 | 1337.33] loss=1.24 avg=1.13
[9148 | 1338.25] loss=1.19 avg=1.13
[9149 | 1339.17] loss=1.39 avg=1.14
[9150 | 1340.09] loss=0.57 avg=1.13
[9151 | 1341.01] loss=1.38 avg=1.13
[9152 | 1341.93] loss=1.24 avg=1.13
[9153 | 1342.85] loss=1.08 avg=1.13
[9154 | 1343.77] loss=1.08 avg=1.13
[9155 | 1344.69] loss=0.56 avg=1.13
[9156 | 1345.61] loss=0.90 avg=1.12
[9157 | 1346.53] loss=0.84 avg=1.12
[9158 | 1347.45] loss=1.02 avg=1.12
[9159 | 1348.37] loss=1.11 avg=1.12
[9160 | 1349.28] loss=1.33 avg=1.12
[9161 | 1350.20] loss=1.82 avg=1.13
[9162 | 1351.12] loss=1.15 avg=1.13
[9163 | 1352.04] loss=0.94 avg=1.13
[9164 | 1352.97] loss=0.55 avg=1.12
[9165 | 1353.89] loss=1.16 avg=1.12
[9166 | 1354.81] loss=1.13 avg=1.12
[9167 | 1355.73] loss=1.15 avg=1.12
[9168 | 1356.65] loss=1.07 avg=1.12
[9169 | 1357.57] loss=1.17 avg=1.12
[9170 | 1358.50] loss=0.98 avg=1.12
[9171 | 1359.42] loss=1.06 avg=1.12
[9172 | 1360.34] loss=0.58 avg=1.12
[9173 | 1361.26] loss=0.66 avg=1.11
[9174 | 1362.19] loss=1.58 avg=1.12
[9175 | 1363.11] loss=1.08 avg=1.12
[9176 | 1364.03] loss=1.19 avg=1.12
[9177 | 1364.96] loss=0.87 avg=1.11
[9178 | 1365.88] loss=0.90 avg=1.11
[9179 | 1366.80] loss=1.27 avg=1.11
[9180 | 1367.72] loss=1.41 avg=1.12
[9181 | 1368.64] loss=0.85 avg=1.11
[9182 | 1369.56] loss=0.77 avg=1.11
[9183 | 1370.48] loss=1.11 avg=1.11
[9184 | 1371.41] loss=1.92 avg=1.12
[9185 | 1372.33] loss=0.92 avg=1.12
[9186 | 1373.25] loss=1.25 avg=1.12
[9187 | 1374.17] loss=0.95 avg=1.12
[9188 | 1375.09] loss=0.95 avg=1.11
[9189 | 1376.02] loss=1.06 avg=1.11
[9190 | 1376.94] loss=1.14 avg=1.11
[9191 | 1377.87] loss=1.19 avg=1.11
[9192 | 1378.79] loss=0.85 avg=1.11
[9193 | 1379.72] loss=1.40 avg=1.11
[9194 | 1380.64] loss=1.15 avg=1.12
[9195 | 1381.56] loss=1.20 avg=1.12
[9196 | 1382.49] loss=1.21 avg=1.12
[9197 | 1383.41] loss=1.70 avg=1.12
[9198 | 1384.33] loss=1.42 avg=1.13
[9199 | 1385.26] loss=1.01 avg=1.12
Generating samples...
======== SAMPLE 1 ========
(not (match-beginning 3)))
(if (re-search-forward "\\`[0-9]+\\'" prev)
(save-excursion (skip-chars-backward "0") (point))
'(nil nil)
""))
;; Find next matching char in the string.
((and (re-search-forward "\e[0-9]+\\'" (point-max)))
(skip-chars-backward " \e[0-9]+$")))
(t nil)
;; Look through all chars if there is none left.
nil)
(goto-char (point-min))
(setq prev (char-to-string pos))
orig (beginning-of-line))
(while
(<= orig (1- orig))
(when (re-search-forward "\e[0-9]+\\'" (point-min))
(forward-char)
(skip-chars-backward " \e[0-9]+$")))
orig)
;; Look through all chars starting at the beginning of a line.
;; We have found a match for an element, we can move right away.
("")
))
(defvar ada-char-to-character '((; ; "&#x01;&#x02;&&#x03;" ,(save-excursion (forward-char) (point)))))
(defun ada-char-to-char (char beg end)
"Convert CHAR to a character, and save the resulting string.
CONVERT SPC:
\\[ada -]char= " ?\#?\\(ada-char-to-character ?\t)" ada-char)
"Convert SPC to CHAR.
When it is used in a regexp, it is used as a regexp, and it is always treated as an
attribute. In this case it doesn't matter: just convert SPC to
a character." ; uses ? for beginning of a regexp
(setq char (concat char ada-char-to-character)))
;;;
(defun ada-char-to-character-chars (char beg end)
"Convert CHAR to a char with a terminating part.
By doing so, a user will have to change to a character that is
always treated as an attribute. The default value is "&".
BEGIN : If the char is not a terminating part,
return the empty string. CASE-ON . END-ON or
INDEX-ON .
The value is always an integer, nil means never convert it."
(let* ((ch (point))
(end (point-at-eol)) ; ; start of the next char
(chars beg end)
(while (and (not (eq (char-at-bol (point))) ?\;)
(looking-at ada-char-to-character ?\t))
(if (not (match-beginning 3))
(goto-char beg end)
(concat (if (match-beginning 2) (match-beginning 3) ?\{) beg end))
)
(setq chars (make-string (- char (max ?_ (point)))))))
;; If
======== SAMPLE 2 ========
(if (not (string-match "" "\\`" (rmail-cassign-file-p file)))) ; ignore the "^" comment
nil ; only show it when
(if (eobp)
;; no matching comment
(save-excursion
(skip-chars-forward "^\\'")
;; nothing yet
(if (eobp) (eolp)
;; if a file's parent cannot
(setq file-parent
;; parent (not (file-parents-p file))))
;; finally we get a matched file. This case is
;; different from the case of "^" where
;; "^"
(let ((new-files (rmail-cassign-file-p file)))
(rmail-concat-new-files new-files)
(while new-files
(if (file-exists-p file) ; no parent
(setq file-parent
(not (rmail-cassign-file-p file))))
(setq file-parent
(not (rmail-cassign-file-p file)))))))
;; This is also very similar to the previous case
;; in which we show the comment, and in which no matching comment is
;; shown. That's because when we are looking for parent, we
;; use one of those "^"s, in which we don't recognize
;; the comment, to find the "^." It's a much more typical
;; case: the comment is at the beginning of a file, not the end.
;; (defun find-file-parent ()
;; (
======== SAMPLE 3 ========
(math-or-mul (nth 0 math-n-ranges))
(math-neg 4))
(math-normalize-mult (nth 1 math-n-ranges) 4))
(progn
(math-neg (nth 1 math-n-ranges))
(setq math-n-ranges (nth 1 math-n-ranges)))
(while (not (eobp))
(math-div n (math-sub n 2))
(setq n 0))
(math-div n (math-sub n 3))))))
(define-obsolete-variable
`(nnoo-make-lunar-range
,(math-intp (nth 4 math-n-ranges))
(math-div (math-sub 3 math-n-ranges))
(math-log (math-log (math-div n math-n-ranges) n))
(math-div (mul (math-dif n 36) (math-dif n 36))
(nvhdr n h (math-div h math-n-ranges))
(math-vmhdr nil nil h (math-sum n 0))))
(define-obsolete-variable
`(nnoo-make-lunar-range-of-min
m (1+ m)
(math-if (nth (math-intp m) (math-min m) 4))
,(math-float f-float)
(math-vfrac ((math-if (nth 2 (math-int-mul m) (math-int-mul m n))
1- m))
(math-dif (nth 3 math-n-ranges)
1- x-cdr)
(math-sum (math-sub (nth 3 math-n-ranges) (math-sub 2 math-n-ranges))
(= (list m) 2)
f-float))
(or (and (or (not (string= ("x-" (nth 1 math-n-ranges))
(math-sub a 1))
(math-neg (nth 4 (math-int-mul m))))
(math-neg (nth 3 math-n-ranges)
1 1)
(= (list (
======== SAMPLE 4 ========
(list '("cperl-mode-mode"
"cperl-mode-gv" 'hfc))
;; `hfc' is not available on this system. If `cperl-read-lisp'
;; is, but not as specified, use `cperl-read-lisp-file'.
(unless (hfc-read-lisp)
(cond
((and (>= (length arg) 1) (hfc-read-lisp-mode))
(goto-char (point-min))
(hfc-recenter))
((memq arg '(?1 ?x))
(goto-char (point-min))
((match-beginning 0)
(if (> arg 0)
(hfc-read-lisp-line-p)
(hfc-read-lisp-face)
(point)))))
;; (hfc-toggle-current-color)
))
;;(unless (eq min 0)
(hfc-update-char-coordinate-flag 1))))))
(defun hfc-cperl-char-to-face (character)
"Add CHAR to characters in HFC buffer CHAR.
Character characters are put in the column after `hfc-cperl-char-to-face-alist'."
(hfc-get-coordinate (point))
(save-excursion
(beginning-of-line)
(goto-char (point-max))
(when (re-search-forward "\C-c"))
(goto-char (point-min))
(while (re-search-forward "\C-c")
(hfc-read-lisp-face)
(setq character (match-string 1))
(hfc-read-lisp-face)
(replace-match " ")
(re-search-forward "\C-c"))
(goto-char (point-min))
(while (re-goto-char pos)
(skip-region (point) (min (- (point) (point-min)))
(point)))
(if (and (memq min hfc-cperl-char-to-face-alist)
(progn
(insert character)
(insert (symbol-name min))))
(save-excursion
;; If we already have characters of CHAR they are added to the line
;; after the CHAR.
(insert ?\C-c "%d;" character)
(insert character))
(
[9200 | 1411.17] loss=1.41 avg=1.13
[9201 | 1412.09] loss=1.42 avg=1.13
[9202 | 1413.01] loss=1.05 avg=1.13
[9203 | 1413.92] loss=0.83 avg=1.13
[9204 | 1414.83] loss=0.81 avg=1.12
[9205 | 1415.75] loss=0.96 avg=1.12
[9206 | 1416.66] loss=0.78 avg=1.12
[9207 | 1417.58] loss=1.04 avg=1.12
[9208 | 1418.49] loss=0.95 avg=1.12
[9209 | 1419.41] loss=0.92 avg=1.11
[9210 | 1420.32] loss=1.76 avg=1.12
[9211 | 1421.24] loss=1.71 avg=1.13
[9212 | 1422.15] loss=1.02 avg=1.13
[9213 | 1423.07] loss=0.75 avg=1.12
[9214 | 1423.98] loss=1.18 avg=1.12
[9215 | 1424.89] loss=0.87 avg=1.12
[9216 | 1425.81] loss=2.58 avg=1.13
[9217 | 1426.72] loss=0.92 avg=1.13
[9218 | 1427.64] loss=0.84 avg=1.13
[9219 | 1428.55] loss=0.79 avg=1.13
[9220 | 1429.47] loss=1.19 avg=1.13
[9221 | 1430.38] loss=1.11 avg=1.13
[9222 | 1431.30] loss=0.89 avg=1.12
[9223 | 1432.22] loss=1.23 avg=1.12
[9224 | 1433.13] loss=0.77 avg=1.12
[9225 | 1434.05] loss=1.13 avg=1.12
[9226 | 1434.96] loss=1.51 avg=1.13
[9227 | 1435.88] loss=1.21 avg=1.13
[9228 | 1436.80] loss=1.09 avg=1.13
[9229 | 1437.71] loss=1.37 avg=1.13
[9230 | 1438.63] loss=1.20 avg=1.13
[9231 | 1439.54] loss=1.70 avg=1.13
[9232 | 1440.46] loss=1.34 avg=1.14
[9233 | 1441.38] loss=0.76 avg=1.13
[9234 | 1442.30] loss=1.27 avg=1.13
[9235 | 1443.21] loss=1.27 avg=1.14
[9236 | 1444.13] loss=1.21 avg=1.14
[9237 | 1445.05] loss=1.50 avg=1.14
[9238 | 1445.96] loss=1.22 avg=1.14
[9239 | 1446.88] loss=0.74 avg=1.14
[9240 | 1447.80] loss=1.13 avg=1.14
[9241 | 1448.71] loss=1.15 avg=1.14
[9242 | 1449.63] loss=0.94 avg=1.13
[9243 | 1450.55] loss=0.94 avg=1.13
[9244 | 1451.47] loss=1.21 avg=1.13
[9245 | 1452.39] loss=0.99 avg=1.13
[9246 | 1453.31] loss=1.07 avg=1.13
[9247 | 1454.22] loss=1.14 avg=1.13
[9248 | 1455.14] loss=0.63 avg=1.13
[9249 | 1456.06] loss=1.22 avg=1.13
[9250 | 1456.97] loss=0.82 avg=1.12
[9251 | 1457.89] loss=1.14 avg=1.12
[9252 | 1458.81] loss=1.00 avg=1.12
[9253 | 1459.73] loss=0.52 avg=1.12
[9254 | 1460.65] loss=1.41 avg=1.12
[9255 | 1461.57] loss=1.51 avg=1.12
[9256 | 1462.49] loss=1.07 avg=1.12
[9257 | 1463.41] loss=1.48 avg=1.13
[9258 | 1464.32] loss=1.29 avg=1.13
[9259 | 1465.24] loss=1.21 avg=1.13
[9260 | 1466.15] loss=1.01 avg=1.13
[9261 | 1467.07] loss=1.49 avg=1.13
[9262 | 1467.99] loss=0.60 avg=1.13
[9263 | 1468.92] loss=1.07 avg=1.13
[9264 | 1469.84] loss=1.15 avg=1.13
[9265 | 1470.76] loss=1.14 avg=1.13
[9266 | 1471.68] loss=1.60 avg=1.13
[9267 | 1472.60] loss=0.98 avg=1.13
[9268 | 1473.52] loss=1.60 avg=1.13
[9269 | 1474.43] loss=0.70 avg=1.13
[9270 | 1475.35] loss=1.10 avg=1.13
[9271 | 1476.27] loss=0.92 avg=1.13
[9272 | 1477.19] loss=1.31 avg=1.13
[9273 | 1478.11] loss=1.07 avg=1.13
[9274 | 1479.03] loss=1.34 avg=1.13
[9275 | 1479.96] loss=1.07 avg=1.13
[9276 | 1480.88] loss=1.31 avg=1.13
[9277 | 1481.80] loss=1.13 avg=1.13
[9278 | 1482.72] loss=0.59 avg=1.13
[9279 | 1483.64] loss=1.12 avg=1.13
[9280 | 1484.57] loss=1.24 avg=1.13
[9281 | 1485.49] loss=0.87 avg=1.13
[9282 | 1486.41] loss=0.71 avg=1.12
[9283 | 1487.33] loss=1.28 avg=1.12
[9284 | 1488.26] loss=0.99 avg=1.12
[9285 | 1489.18] loss=2.22 avg=1.13
[9286 | 1490.10] loss=0.74 avg=1.13
[9287 | 1491.03] loss=1.11 avg=1.13
[9288 | 1491.95] loss=1.39 avg=1.13
[9289 | 1492.87] loss=1.84 avg=1.14
[9290 | 1493.80] loss=1.00 avg=1.14
[9291 | 1494.72] loss=0.91 avg=1.13
[9292 | 1495.64] loss=1.46 avg=1.14
[9293 | 1496.56] loss=1.25 avg=1.14
[9294 | 1497.48] loss=1.03 avg=1.14
[9295 | 1498.41] loss=1.46 avg=1.14
[9296 | 1499.33] loss=1.26 avg=1.14
[9297 | 1500.26] loss=1.19 avg=1.14
[9298 | 1501.18] loss=0.78 avg=1.14
[9299 | 1502.10] loss=1.59 avg=1.14
Generating samples...
======== SAMPLE 1 ========
string '("*$"))
(setq bv (car t))))
(defun eieio-insert-file-number (file start)
"Save a file and append it to the start of the current buffer.
FILE must be a file name, for instance \"*.eieIO\"."
(let ((type (if eieio-expert-p
(format "\\`file\n`type\\'"
eieio-expert-p
(point-min))))
(if (stringp file) (setq file name)
(add-to-list
file filestart eieio-current-file)
(if eieio-insert-file-number "0"))
t))
(defun eieio-insert-file-number (file start start)
"Save a file and append it to the start of the current buffer.
FILE must be a file name, for instance \"*.eieIO\"."
(let ((type (or eieio-expert-p
(format "\\`file\n`type\\'"
eieio-expert-p
eieio-expert-p
eieio-expert-p
eieio-expert-p)
(save-excursion
(progn (save-restriction
(widen) (not (eieio-insert-file-number t))
(eieio-current-line))
(forward-line 1)
(insert-file-contents 0 end))))
(rebuild-after 1)
(rebuild-subst-strings t t))
(setq start (point))
(setq start (point))))
(defun eieio-insert-file (file start end start)
(goto-char start)
(setq eieio-current-file nil))
(defun eieio-insert-file-number (number start end)
"Save a file and append it to the start of its current buffer."
(let* ((file-name (file-name-directory start))
(start-file (eieio-read-file (current-buffer))
start-file (- (point) end-file))
(name
(when (eq number (cdr eieio-current-file))
======== SAMPLE 2 ========
string.
The function will take care of creating new indices by calling
a custom function, for example if the indices of the previous entry have already been
initialized."
(let ((elt (semantic-current-element))
(ed (semantic-get-entry entry))
(eol (semantic-c-entryentry entry))
(eob (semantic-c-entryentryentry entry))
(entry (car elt) (cadr elt)))
(if ed (calcFunc-indices ed)
(or ed (calc-mode-line))
(calc-mode-line)
(let ((elt t)
entry)
(condition-case ()
(progn (setq elt (eolp))
elt (ed (car (car elt)) ed))
(calc-mode-line) ctl)
)
)
(calc-mode-line ctl))))
(defvar calc-mode-line nil)
(defvar calc-buffer-list nil)
(defvar calc-mode-symbol-list nil)
(defun calc-mode-line ()
"Make new indentation, including the cursor area and indentation of the next item.
With prefix argument, if optional, the command to use for the next item is
called. With no argument, make new indentation, including the cursor area and
indentation of the next item, without the need of the variable
`calc-mode-indentation'."
(interactive "sT")
(if calc-mode-symbol-list
(if (save-excursion (or (tab-delimiter calc-indent-p) (point-min)))
(add-hook 'calc-mode-line-after-indentation-functions 'calc-mode-line)
'(tab)
))
(defun calc-mode-symbol-list ()
"Make one, perhaps two indentations, including the indentation of the next item.
With prefix argument, if optional or only if you want to indent one item at a time,
return nil or return non-nil if the command will use this.
With no argument, make one, perhaps two, indentations, including the indentation
of the previous item, and indent it again, if it will always be the same."
(interactive)
(if (save-excursion (or (tab-delimiter calc-indent-p) (point-min)))
(add-hook 'calc-mode-line-after-indentation-functions 'calc-mode-line)
(calc-mode-line-after-indentation-p))
(let* ((default-mode nil)
(inhibit-read-only t)
(index1 (calc-symbol-index entry index))))
(set-syntax-table calc-mode-symbol-list) ; set in the first line of the macro if it is set.
(funcall calc-mode-symbol-list t)
(setq calc-mode-symbol-list nil)
(setq calc-mode-symbol-list nil))
(defvar calc-mode-symbol-list nil)
(defvar calc-mode-indent nil)
(defvar calc-indent nil)
(defun calc-mode-line ()
"Make one indentation, including the cursor area and indentation of the next item.
With prefix argument, if optional, the command to use for the next item is
called. With no argument, make a new indentation, including the cursor area and indentation
of the previous item, without the need of the variable `calc-indentation'."
(interactive "rT")
(if calc-mode-line
======== SAMPLE 3 ========
string arg-list arg)
(progn
(setq arglist (expand-file-name (file-noselect arg-list))
argp (cdr arg))
(if (string= arglist (file-noselect arg-list))
(format "%d %s %s%s"
(expand-file-name (file-noselect arg-list))
argp (cdr arg))
(message "File `%s' is empty; leave it empty")
(unless (file-remote-p arg-list)
(quit-server-and-exit)
(setq arglist (expand-file-name (file-noselect arg-list))
argp (cdr arg))
(delete-directory arglist)
;;;; The first arg, we have to add the line to the end, so it takes a while...
(if (string-match "\\([0-9.]") (setq line-end nil))
(forward-line 1)
(end-of-line))
argp
)))
(defvar csv-mode-line-mode)
(defun csv-mode-line-mode (syntax)
"Switch to CVS-mode line using CVS-syntax highlighting."
(goto-char (point-min))
(forward-line 0)
(setq csv-line-function 'cvs-lineup-lineup)
(setq csv-line-function 'vc-lineup-lineup-lineup)
(goto-char (point-min)))
(defun csv-mode-region (begin (line))
"Switch to CVS-mode region using CVS-syntax highlighting."
(goto-char (point-min))
(setq csv-line-function 'vc-lineup-lineup)
(setq csv-line-function 'vc-lineup-lineup-lineup)
(while (and (not (e-p csv-region))
(setq csv-line-function 'vc-lineup-lineup)
(forward-line 1))
(when (looking-at "\\([0-9]\\|\\[0-9]+\\)")
(forward-line 1)
(setq csv-line-function 'comint-backup-region)
(setq csv-line-function 'comint-save-from-killword)
(if (and csv-syntax-major-mode
(eq csv-lineup-lineup
(save-excursion
(beginning-of-line))
(setq csv-lineup-lineup (
======== SAMPLE 4 ========
string-p " *\\sw*\\sw\\sw\\*\\sw\\>\\sw\\>"
"^\\sw\\>") "\\sw\\sw\\%\\sw\\%")
"The text specified by the second symbol `+\^\"'."
:type '(string))
(defcustom eshell-syntax-table-mode nil 'eslatex-syntax-table-mode
"An Emacs mode which provides a default syntax table syntax table.
When setting up a new syntax table, the current buffer is turned
on by default."
:group 'eshell
:type '(choice
(const :tag "Don't turn off syntax table syntax tables" nil)
(const :tag "Turn off current setting"
(const :tag "The mode name is `text-mode' (\\sw\\|x\\|x\\|y\\|\\sw\\|\\sw\\|\\sw\\|\\sw\\|y\\|\\sw\\|\\sw\\|\\sw\\|v\\|\\sw\\|v\\|w\\|w\\|g\\|h\\|h\\|h\\|y\\|y\\|[^>-]*\\sw\\|h\\|k\\|m\\|n\\|o\\|p\\|v\\|v\\|[p]\\|w\\|w\\|w\\|w\\)"
(const :tag "Make default syntax table" t)
(syntax-table-mode)
(concat "\\sw\\|x\\|y\\|z\\|s\\|s\\|a\\|s\\|l\\|g\\|m\\|n\\|o\\|o\\|p\\|v\\|q\\|r\\|u\\|w\\|u\\|w\\|p\\|v\\|w\\|w\\)"))
(let ((eslatex-name-face eslatex-syntax-table-face))
(define-obsolete-variable t
"24.1")
(define-abbrev-table-internal 'eslatex-face eslatex-syntax-table-face))
(defvar eslatex-command-key) ;[
(defun eshell-execute-command (sym args)
(save-excursion
(while (eslatex-make-obsolete-variable args)
(let ((syntax (eslatex-make-obsolete-variable))))
(eshell-execute-command nil 'eslatex-syntax-table)
(eshell-execute-set-text-properties
'("font-lock-face0\\sw\\(font-lock-face\\sw\\sw\\sw\\sw\\sw\\sw\\+\\sw\\sw\\\\sw\\+\\sw\\*\\sw\\sw\\*\\sw\\+\\*\\sw\\+\\*")
"command-coding-system"))
(eslatex-make-obsolete-variable args 'eslay-face 'face 'face))
(unless (eq args '(nil ?^))
(eslatex-make-obsolete-variable args 'eslatex-mode)
(eshell-execute-set-text-properties
'("font-lock-face0\\sw\\(font-lock-face\\sw\\sw\\sw\\sw\\+\\sw\\+\\sw\\+\\sw\\+\\sw\\+\\+\\sw\\+\\*\\sw\\+\\*\\sw\\+\\*")
"command-coding-system"))))
(defun eshell-query-syntax-table (args)
"Return a string describing how the last `eslatex' command to be executed works.
Return nil if we do not know which `eslatex-mode'
[9300 | 1527.71] loss=1.25 avg=1.14
[9301 | 1528.63] loss=0.92 avg=1.14
[9302 | 1529.55] loss=1.02 avg=1.14
[9303 | 1530.46] loss=1.35 avg=1.14
[9304 | 1531.38] loss=0.86 avg=1.14
[9305 | 1532.29] loss=1.17 avg=1.14
[9306 | 1533.20] loss=1.16 avg=1.14
[9307 | 1534.12] loss=1.10 avg=1.14
[9308 | 1535.03] loss=1.18 avg=1.14
[9309 | 1535.94] loss=0.73 avg=1.14
[9310 | 1536.85] loss=1.12 avg=1.14
[9311 | 1537.76] loss=0.65 avg=1.13
[9312 | 1538.67] loss=1.04 avg=1.13
[9313 | 1539.59] loss=1.56 avg=1.13
[9314 | 1540.50] loss=1.41 avg=1.14
[9315 | 1541.42] loss=0.96 avg=1.14
[9316 | 1542.33] loss=1.06 avg=1.14
[9317 | 1543.24] loss=1.35 avg=1.14
[9318 | 1544.16] loss=1.09 avg=1.14
[9319 | 1545.07] loss=0.90 avg=1.13
[9320 | 1545.98] loss=0.99 avg=1.13
[9321 | 1546.90] loss=1.10 avg=1.13
[9322 | 1547.82] loss=0.83 avg=1.13
[9323 | 1548.73] loss=1.19 avg=1.13
[9324 | 1549.65] loss=0.79 avg=1.13
[9325 | 1550.56] loss=1.57 avg=1.13
[9326 | 1551.48] loss=0.97 avg=1.13
[9327 | 1552.40] loss=0.96 avg=1.13
[9328 | 1553.32] loss=1.64 avg=1.13
[9329 | 1554.23] loss=1.10 avg=1.13
[9330 | 1555.15] loss=1.44 avg=1.14
[9331 | 1556.07] loss=1.72 avg=1.14
[9332 | 1556.99] loss=0.51 avg=1.14
[9333 | 1557.91] loss=1.09 avg=1.13
[9334 | 1558.83] loss=1.34 avg=1.14
[9335 | 1559.75] loss=1.46 avg=1.14
[9336 | 1560.67] loss=0.99 avg=1.14
[9337 | 1561.59] loss=0.83 avg=1.14
[9338 | 1562.51] loss=0.96 avg=1.13
[9339 | 1563.43] loss=1.07 avg=1.13
[9340 | 1564.34] loss=1.07 avg=1.13
[9341 | 1565.26] loss=1.29 avg=1.13
[9342 | 1566.19] loss=1.17 avg=1.13
[9343 | 1567.11] loss=1.19 avg=1.14
[9344 | 1568.03] loss=1.30 avg=1.14
[9345 | 1568.95] loss=1.01 avg=1.14
[9346 | 1569.87] loss=1.07 avg=1.13
[9347 | 1570.79] loss=1.09 avg=1.13
[9348 | 1571.71] loss=1.19 avg=1.14
[9349 | 1572.63] loss=1.11 avg=1.13
[9350 | 1573.56] loss=0.74 avg=1.13
[9351 | 1574.48] loss=1.43 avg=1.13
[9352 | 1575.40] loss=0.93 avg=1.13
[9353 | 1576.32] loss=1.14 avg=1.13
[9354 | 1577.24] loss=1.10 avg=1.13
[9355 | 1578.17] loss=1.11 avg=1.13
[9356 | 1579.08] loss=0.87 avg=1.13
[9357 | 1580.00] loss=1.46 avg=1.13
[9358 | 1580.92] loss=0.83 avg=1.13
[9359 | 1581.85] loss=1.42 avg=1.13
[9360 | 1582.77] loss=1.06 avg=1.13
[9361 | 1583.70] loss=1.27 avg=1.13
[9362 | 1584.62] loss=0.53 avg=1.13
[9363 | 1585.54] loss=1.01 avg=1.13
[9364 | 1586.47] loss=1.57 avg=1.13
[9365 | 1587.39] loss=1.34 avg=1.13
[9366 | 1588.32] loss=1.06 avg=1.13
[9367 | 1589.24] loss=1.14 avg=1.13
[9368 | 1590.16] loss=1.01 avg=1.13
[9369 | 1591.08] loss=1.08 avg=1.13
[9370 | 1592.00] loss=1.12 avg=1.13
[9371 | 1592.93] loss=0.70 avg=1.13
[9372 | 1593.86] loss=1.10 avg=1.13
[9373 | 1594.78] loss=1.50 avg=1.13
[9374 | 1595.71] loss=1.01 avg=1.13
[9375 | 1596.63] loss=1.48 avg=1.13
[9376 | 1597.56] loss=0.58 avg=1.13
[9377 | 1598.48] loss=1.29 avg=1.13
[9378 | 1599.41] loss=1.63 avg=1.13
[9379 | 1600.33] loss=1.10 avg=1.13
[9380 | 1601.26] loss=1.07 avg=1.13
[9381 | 1602.19] loss=0.79 avg=1.13
[9382 | 1603.11] loss=0.78 avg=1.12
[9383 | 1604.04] loss=1.06 avg=1.12
[9384 | 1604.96] loss=0.93 avg=1.12
[9385 | 1605.89] loss=1.24 avg=1.12
[9386 | 1606.81] loss=0.86 avg=1.12
[9387 | 1607.74] loss=0.81 avg=1.12
[9388 | 1608.66] loss=1.18 avg=1.12
[9389 | 1609.58] loss=1.02 avg=1.12
[9390 | 1610.51] loss=1.09 avg=1.12
[9391 | 1611.43] loss=1.13 avg=1.12
[9392 | 1612.35] loss=1.17 avg=1.12
[9393 | 1613.27] loss=1.46 avg=1.12
[9394 | 1614.19] loss=1.03 avg=1.12
[9395 | 1615.12] loss=1.46 avg=1.12
[9396 | 1616.04] loss=1.56 avg=1.13
[9397 | 1616.96] loss=0.95 avg=1.13
[9398 | 1617.88] loss=1.00 avg=1.12
[9399 | 1618.81] loss=0.35 avg=1.12
Generating samples...
======== SAMPLE 1 ========
pletion-word (nth 0 it) no-error (nth 1 it)
;; The last line is the line that had the last word in it.
;; (See the docstring below for
;; documentation on whether such a line is a word line or
;; not.)
t)
(beginning-of-macro))
(or (catch 'eol)
(and (nth 1 it) (nth 2 it))
(catch 'break)
(unless (null (cdr it))
(while (and (stringp (car (car (car it))))))
:backend start;
;; We check whether we'll get back a comment
(error "Aborted"))))
(and (not start) (error "No `\\=' back-to-backtrace"))
(not (cdr begin)) (throw 'eol)))
(unless (throw 'catch, nil (nth 1 it))
(let ((start (car (car start))))
(when start
(when stop (if (eq ? \ "\\|") "\\\\")
(while (or (not (cdr start))
(not (member (cdr start) (cdr stop)))))
(error nil)))))
(unless (eolp)
(and (or (cadr start) (cddr start) no-error))
;; This is the line that was not started with a word.
;; It may be in a `\\\\', but that won't happen when the
;; command `C-f' is invoked on it. We check
;; whether it's a word line if we'd like it to be.
(when (or (eq ?\\ "\\|") (nth 0 it))
(catch 'break
(unless (bogofile t))
'back-to-backtrace &optional start)
(and (or (cdr start)
(eq start (bolp))))
;; We check whether `-l-f-u' is on its first line.
(unless (eq ?/ (file-name-nondirectory start cname))
(throw 'eol t)
'back-to-backtrace)))))
(t n
======== SAMPLE 2 ========
pletion-paragraph (window-width)) nil
(unless window-height (setq window-height window-width)) nil
(or (and (not arg)
(window-buffer (window-buffer window-width)))
(setq arg (selected-window))
arg))))
(defvar frame-height 3.0)
(defvar frame-fill-string nil) ; fontification.
(defvar icon-icon-frame-name
"icon.js")
(defvar frame-fill-function
((widget parent-widget)
(widget-put widget :widget-id
(with-current-buffer
(if (widgetp parent-widget) (widgetp parent-widget)))
(setq frame-fill-function (widgetp parent-widget))))
((widget-get parent-widget :widget-widget-widget-parameter-id)
(let ((value (widget:value
(widget-get parent-widget :value-parameter-id)))
(unless value
(setq value (widget-parameter value)))
(setref widget
:widget-id
:type widget
:value-id widget
))
(if (widgetp parent-widget)
(widget-put widget :value-parameter parent-widget))))
(- frame-fill-function :inline
;; FIXME frame-fill-function is obsolete
(if (null frame-fill-function)
(throw 'move-to-next-frame
(when (and (widgetp parent-widget)
(widgetp parent-widget))
parent-widget
(and (widgetp parent-widget)
(window-buffer (widget-get (widget-id parent-widget)))))
parent-widget))
:unhandled-frame default))
;;;###autoload
(defun frame-init ()
;; Make the frame the default-frame.
(setq begprev (window-left begprev))
(frame-init)
(frame-init-position)
(let ((frame begprev)
nil begwidth begend))
(if (window-live-p frame)
;; Try to use the frame that we are going to replace as
;; the current frame.
;; (or frame-fill-function
;; (setq frame-fill-function begprev
;; (and (eq (frame-start frame) start)
;; (if begprev (frame-start frame 0))))))
(t
(setq begprev (make-frame))
(convert-frame 1 begprev begstart)))
;; If there was a child, then we should make the frame with its child.
(let ((frame-frame-name frame-frame-name begprev))
======== SAMPLE 3 ========
pletion-line) t))
(defun ack-check-match-end ()
"Return non-nil if point is at end of match."
;; The only case where this is OK is if it is
;; not at the beginning of a break-paragraph.
(if (and ack-check-match-end ack-check-match-end)
(setq ack-check-match-start nil))
(and (not this-match) (string= this (if this
(char-to-string start)
ack-check-match-start)
this-match)
;; Check that the start isn't at a break-paragraph,
;; or that this-match is necessary.
(when (and
(setq this-match (read-string (if (string-match this-match) "\n"))
(if (string-match this-match)
(cons 1 (string-to-number this-match))
(string-to-number this-match))
(string-to-number this-match)))
this-match))
(cond
((eq this-match 'bol) 'break t)
(t (forward-line 1)
(not (eq (eobp) t)) t))
((member this-match 'bol) 'break t)
(t (forward-line 2)
(not (eq (eobp) t)))
(t (assoc this-match 'bol to-in-bol this-match))
((not this-match)
(setq ack-check-match-end nil))
(assoc this-match 'bol to-in-bol))
;; FIXME: This could be added here as another form if needed.
(t (throw 'break (or (condition-case nil
(or no-break (setq ack-check-match-end nil))))))))
;;;_
;;;/
(defun ack-in-progress-p (start end &optional nlock no-lock-check)
; "Check `ack-in' completion while executing a block."
; (let* ((c-marker (buffer-file-coding-system))
; (eob (buffer-substring-no-properties (car c-marker)
; (coding-system-for-write-coding-system 'utf-8))))
; (eob (c-marker-boundp eob))
; (end (c-marker-boundp eob))
; nlock (car c-marker)))
; ;; Look at any end in the buffer where the check starts
;;;;; it is called before the check completes.
;;;
;;;_
(add-hook 'completion-complete-hook nil t)
(require 'comint)
;;;; Make sure to add to the
======== SAMPLE 4 ========
pletion nil nil)
(setq end-buf (get-buffer-create "" t)))
(goto-char (point-max))
(while (search-forward ".\t>" nil t)
(insert "\n, but in case of no completion, the first character must not be
ticked.")
(forward-char 8)
(while (search-forward ".\t" nil t)
(insert "\n")
(forward-char))))
(let ((buf (gnus-goto-buffer buf))
start end)
(while (/= (setq begin (setq end (1- (point))))
(or (< end nil)
(forward-char nil)))
(and end (progn (goto-char begin) (forward-char 0) (setq end (point)))
(setq start (point))))
(if (string-match "\\([a-zA-Z0-9_]+\\)\\$" begin)
(setq start (match-beginning 0)
end (match-end 0)))
(forward-char 8)
(while (and begin (> (setq end (1- end)))
(and (> end (skip-chars-backward "^ \t" start)
(eq (char-after (< end end) ?\\)))
(not (looking-at "[ \t]*[ \t]*\\(%1$\\)" end)))))
(forward-char 2)
(when (match-beginning 3)
;; This is after the cursor was moved to the last line.
(setq end (match-beginning 2))))
;; If we got a continuation, it follows from the first line we
;; have seen.
(unless (looking-at line-beginning,line)
(setq buf (next-single-property-change end (match-beginning 1))))
(setq buf (if (looking-at line-end-re)
(search-forward "^" t)
(beginning-of-line))
start (point)))))
buf))
(defun make-complete -no-interactive (error &optional continue)
"Make a completion character if non-nil."
(unless (or continue (null error))
(not (null (string-to-number
(and continue
(string-match
(and continue-end
[9400 | 1644.38] loss=1.15 avg=1.12
[9401 | 1645.30] loss=1.45 avg=1.12
[9402 | 1646.22] loss=1.10 avg=1.12
[9403 | 1647.13] loss=1.07 avg=1.12
[9404 | 1648.05] loss=1.39 avg=1.12
[9405 | 1648.96] loss=0.64 avg=1.12
[9406 | 1649.88] loss=0.82 avg=1.11
[9407 | 1650.79] loss=1.10 avg=1.11
[9408 | 1651.70] loss=1.20 avg=1.12
[9409 | 1652.62] loss=1.11 avg=1.12
[9410 | 1653.53] loss=0.69 avg=1.11
[9411 | 1654.45] loss=1.75 avg=1.12
[9412 | 1655.36] loss=0.67 avg=1.11
[9413 | 1656.28] loss=0.88 avg=1.11
[9414 | 1657.19] loss=0.98 avg=1.11
[9415 | 1658.11] loss=0.96 avg=1.11
[9416 | 1659.02] loss=1.31 avg=1.11
[9417 | 1659.94] loss=0.79 avg=1.11
[9418 | 1660.85] loss=0.70 avg=1.10
[9419 | 1661.76] loss=0.95 avg=1.10
[9420 | 1662.68] loss=1.60 avg=1.11
[9421 | 1663.60] loss=1.65 avg=1.11
[9422 | 1664.51] loss=1.31 avg=1.11
[9423 | 1665.43] loss=0.97 avg=1.11
[9424 | 1666.34] loss=0.92 avg=1.11
[9425 | 1667.26] loss=0.72 avg=1.11
[9426 | 1668.17] loss=1.01 avg=1.11
[9427 | 1669.09] loss=1.02 avg=1.10
[9428 | 1670.01] loss=1.25 avg=1.11
[9429 | 1670.92] loss=1.01 avg=1.10
[9430 | 1671.84] loss=1.44 avg=1.11
[9431 | 1672.75] loss=1.54 avg=1.11
[9432 | 1673.67] loss=1.16 avg=1.11
[9433 | 1674.58] loss=1.19 avg=1.11
[9434 | 1675.50] loss=1.13 avg=1.11
[9435 | 1676.42] loss=1.44 avg=1.12
[9436 | 1677.34] loss=1.46 avg=1.12
[9437 | 1678.26] loss=1.12 avg=1.12
[9438 | 1679.18] loss=1.22 avg=1.12
[9439 | 1680.10] loss=1.03 avg=1.12
[9440 | 1681.01] loss=1.89 avg=1.13
[9441 | 1681.93] loss=0.99 avg=1.13
[9442 | 1682.85] loss=0.94 avg=1.12
[9443 | 1683.77] loss=1.39 avg=1.13
[9444 | 1684.68] loss=0.79 avg=1.12
[9445 | 1685.60] loss=0.87 avg=1.12
[9446 | 1686.52] loss=1.25 avg=1.12
[9447 | 1687.44] loss=1.37 avg=1.13
[9448 | 1688.36] loss=0.97 avg=1.12
[9449 | 1689.27] loss=1.17 avg=1.12
[9450 | 1690.19] loss=0.96 avg=1.12
[9451 | 1691.11] loss=1.07 avg=1.12
[9452 | 1692.03] loss=1.34 avg=1.12
[9453 | 1692.95] loss=1.08 avg=1.12
[9454 | 1693.87] loss=1.18 avg=1.12
[9455 | 1694.80] loss=0.97 avg=1.12
[9456 | 1695.72] loss=0.85 avg=1.12
[9457 | 1696.64] loss=0.87 avg=1.12
[9458 | 1697.56] loss=1.23 avg=1.12
[9459 | 1698.47] loss=1.19 avg=1.12
[9460 | 1699.39] loss=1.01 avg=1.12
[9461 | 1700.31] loss=1.35 avg=1.12
[9462 | 1701.23] loss=1.27 avg=1.12
[9463 | 1702.15] loss=1.37 avg=1.12
[9464 | 1703.06] loss=0.93 avg=1.12
[9465 | 1703.98] loss=1.21 avg=1.12
[9466 | 1704.90] loss=1.03 avg=1.12
[9467 | 1705.82] loss=1.06 avg=1.12
[9468 | 1706.74] loss=0.95 avg=1.12
[9469 | 1707.66] loss=1.12 avg=1.12
[9470 | 1708.58] loss=1.29 avg=1.12
[9471 | 1709.51] loss=1.03 avg=1.12
[9472 | 1710.43] loss=1.38 avg=1.12
[9473 | 1711.35] loss=0.86 avg=1.12
[9474 | 1712.27] loss=1.21 avg=1.12
[9475 | 1713.19] loss=1.16 avg=1.12
[9476 | 1714.12] loss=0.48 avg=1.12
[9477 | 1715.04] loss=1.17 avg=1.12
[9478 | 1715.96] loss=1.37 avg=1.12
[9479 | 1716.88] loss=0.90 avg=1.12
[9480 | 1717.80] loss=1.57 avg=1.12
[9481 | 1718.73] loss=1.15 avg=1.12
[9482 | 1719.65] loss=0.93 avg=1.12
[9483 | 1720.57] loss=1.02 avg=1.12
[9484 | 1721.49] loss=1.41 avg=1.12
[9485 | 1722.41] loss=1.25 avg=1.12
[9486 | 1723.33] loss=1.46 avg=1.13
[9487 | 1724.26] loss=1.06 avg=1.13
[9488 | 1725.18] loss=1.39 avg=1.13
[9489 | 1726.10] loss=1.14 avg=1.13
[9490 | 1727.02] loss=0.87 avg=1.13
[9491 | 1727.94] loss=0.95 avg=1.12
[9492 | 1728.86] loss=1.08 avg=1.12
[9493 | 1729.79] loss=0.91 avg=1.12
[9494 | 1730.71] loss=0.98 avg=1.12
[9495 | 1731.63] loss=0.85 avg=1.12
[9496 | 1732.56] loss=1.19 avg=1.12
[9497 | 1733.48] loss=0.87 avg=1.12
[9498 | 1734.40] loss=1.13 avg=1.12
[9499 | 1735.32] loss=1.37 avg=1.12
Generating samples...
======== SAMPLE 1 ========
b))
(goto-char (point-min))
(set-marker (1- (point)))
(when (looking-at "Gnus\n")
(replace-match "")))
(goto-char (+ (point) (length gorg-tags))
(goto-char (match-end 0)))))))
(defun org-tags-insert-marker (&optional mark)
"Insert a marker at the top of current line if no mark is available."
(interactive "P")
(when (setq mark (org-at-marker))
(org-at-marker (org-at-marker 'insert mark))
(org-back-to-heading))
(org-at-marker mark nil t)
(and (< mark mark-start) (setq org-tags-marker nil))
(save-excursion
(save-restriction
(goto-char (match-end 0))
(while (re-search-forward regexp nil t t)
(let ((case-fold-search nil))
(org-inherit-tags org-tags-marker)
(when (and (match-end 0) (setq org-tags-marker (match-beginning 0)))
(replace-match "")))
(org-tags-insert mark t t))
t))))
(defun org-tags-insert-marker-as-kill (&optional mark)
"Delete all tags on the mark marked by org-tags-kill.
When mark is nil, mark will be moved off the mark list.
`org-tags-marker' should not use mark, but `c-kill'.
For markers other than those marked by this variable, mark is
removed from the mark list after applying `c-kill'."
(let (goto-buffer org-tags-marker)
(goto-char (point-min))
(when (re-search-forward (oref org-tags-marker t) t nil t)
(goto-char (match-beginning 0))
(let ((fmt (org-get-text-property 'org-tag-func
(and (not (memq org-tags-marker '(0))
org-tags-kill))))
;; Mark the tag using the hook.
(setq org-tags-marker (buffer-substring
(org-tags-marker-p org-tags-marker)
nil t)
org--markers-marked-tags))))
(unless org-tags-marker
(setq org-tags-marker nil)))
(org-tags-delete-marker))
(defun org-tags-delete-marker ()
"Delete the markers at point.
When point is on a mark, mark also delete
======== SAMPLE 2 ========
b)
(or (and (nth 0 ediff-get-buffer-history)
(nth 0 ediff-get-buffer-buffer-alist))
(and ediff-get-buffer-history-history-p (nth 0 ediff-current-buffer))
1)))
(if (and ediff-get-buffer
(or (not (eobp))
(< (point) (1- (point)) ediff-buffer-count)))
(progn
(setq ediff-history-alist (cons (cadet ediff-buffer-history)
(dtdist)))
(if (> (ediff-buffer-count eodiff-buffer-history) 0) (setq ediff-buffer-count eodiff-alist))
(if (< ediff-current-buffer ediff-default-buffer)
(setq ediff-default-buffer ediff-default-buffer))
(setq ediff-current-buffer ediff-current-buffer))
ediff-current-buffer)))
(not (equal ediff-history-alist ediff-history-alist)))
'info 'info))
(defvar ediff--buffer-buffer-alist
"The current buffer is an alist of buffers")
(defvar ediff--buffer-alist
(format "%s\%.b[.%s]"
ediff-buffer-alist)
:file "ediff-buffer-alist.el" type 'file)
(defvar ediff--buffer-alist-alist
(if (re-search-forward "\n^[#\n]+" nil t)
(forward-line 1)
(unless (looking-at ediff--buffer-alist-alist)
(forward-line 1))
(let ((buf (if (ediff-find-buffer buf)
(search-forward "\n[\\([-+]\\)\\(?:\]*\\) "))
(current-buffer (if (match-beginning 0) (match-string 0))
(buffer-substring current-buffer (match-beginning 0)))
(current-buffer (if (match-end 0) (match-end 0)))))
(if (if ediff-buffer-alist-alist
(syntax-ppss (list (syntax-ppss ediff-buffer-alist)))
(ediff-info-add (ediff-buffer-alist-list) (point))
buffer (ediff-get-buffer-alist ediff-buffer-alist
'font-lock-face ediff-buffer-alist)))))
(defcustom ediff-insert-hook 'ebrowse-mode
"Hook for `ebrowse-mode
======== SAMPLE 3 ========
b (and dir (file-exists-p cddr-directory)))))))
(defvar vhdl-show-all-p-cdr (purecopy)
"If true, list all directories."
(vc-with-current-buffer
vhdl-show-all-p-cdr
(and (not vhdl-show-all-p-cdr)
vhdl-show-all-p-cdr)
(progn
(unless vhdl-show-all-p-cdr
(setq vhdl-show-all-p-cdr (cdr vhdl-show-all-p-cdr)))
(vc-check-failed (vc-check-failed vhdl-show-all-p-cdr))))
;; Set if VHDL-P-CDR's "coding string" (i.e.
;; not the default) is read-only (the default is
;; `vc-check-failed') rather than read-write.
(if (featurep 'vc-p-coding-system)
(with-current-buffer vhdl-p-coding-system
(setq vhdl-show-all-p-cdr
(vc-p-coder-name
(vc-p-coder-name-as-filename-p vhdl-p-coding-system)))
(or (consp vhdl-show-all-p-cdr)
(vc-check-failed)
(not (equal (vc-get-coding-system 'vc-p-coding-system) 'standard))
(vc-check)
(not (eq (vc-get-coding-system 'vc-coding-system) 'iso8601)))))
(vc-set-default-coding-system (cdr vhdl-show-all-p-cdr))))))
(provide 'vc)
;;; vhdl-view.el ends here
<|endoftext|>;;; semantic-p-mode.el --- minor mode for editing Semantic code analyzer -*- lexical-binding: t -*-
;; Copyright (C) 1992-1993, 1996-1997, 1998-1999, 2001-2019 Free Software
;; Foundation, Inc.
;; Author: Kenichi Obayashi <kobayashi@mcclaren.uni-goa.de>
;; Keywords: emacs, semantic
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;; Code:
(require 'semantic)
(require 'semantic/mode)
;;; Generated autoloads from semantic-mode.el
(make-autoload "semantic-mode" "semantic/mode"
======== SAMPLE 4 ========
bun-insert-key-1)
(while (re-search-forward "\r\n#[ \t]")
(insert-key-sequence
"\n#[a-zA-Z][a-zA-Z0-9]+")
(or (looking-at "[;]")
(bolp))))
(re-search-forward
["\\<\\(\\(?:[^#]\\)*$\\)"
("/[^:_]:/[^:]]+/]")
("[^\n:]\\)?\\("
("/[^:_]:$\\("
("~\\(?_\\)" "["))
("~$\\("
["\"\\\\="
["^$/([^\\(" \":\\]" "]"))
("~$1\\)" "}[\n]"))
("/$1\\+$1")
(""
("$1" "{" "\"\n\n" ["$1@[^\n]\\(" "[^:_^\n][^:_]+")
("$1" "|")) ;[^:_>\n])
("\n" ;<$1\l()
("~\"\l\n" nil t t (cadr t)
("$1" "~\"/\\("
["/:[\n ]:[^>]+/]" "}"))
("\\$1" "-1")
("\\`/_'" "\\=''" ["^$1] ")" nil t)
["" ;~~$1\l()
["_<$1:~]")
("$1" "^@[^:_]+$1")
("1:~1" "]" "." "" nil t))
("#1:~/~"
["^$\\=" ;~$1]")
("" ;;(?\n?\n? ;~$1\l()
["_<$1:~][" "]" "]" nil t)
("#2:~/@{" ;$2]")
("\"+\"]" "\"=\"" //(?_`/("@{" ;$2]")
("$2" "|")
("("$2" "|" "." "" nil t))
("\n" ;~$2\l()
("$2" "|" "
[9500 | 1760.98] loss=1.24 avg=1.12
[9501 | 1761.90] loss=0.61 avg=1.11
[9502 | 1762.81] loss=1.07 avg=1.11
[9503 | 1763.73] loss=0.99 avg=1.11
[9504 | 1764.64] loss=1.09 avg=1.11
[9505 | 1765.55] loss=1.30 avg=1.11
[9506 | 1766.47] loss=1.24 avg=1.12
[9507 | 1767.38] loss=1.29 avg=1.12
[9508 | 1768.29] loss=1.25 avg=1.12
[9509 | 1769.21] loss=0.94 avg=1.12
[9510 | 1770.12] loss=0.70 avg=1.11
[9511 | 1771.03] loss=1.44 avg=1.12
[9512 | 1771.95] loss=0.88 avg=1.11
[9513 | 1772.86] loss=1.03 avg=1.11
[9514 | 1773.78] loss=1.36 avg=1.12
[9515 | 1774.69] loss=1.04 avg=1.11
[9516 | 1775.60] loss=0.90 avg=1.11
[9517 | 1776.52] loss=1.34 avg=1.11
[9518 | 1777.43] loss=0.86 avg=1.11
[9519 | 1778.35] loss=1.13 avg=1.11
[9520 | 1779.26] loss=1.03 avg=1.11
[9521 | 1780.18] loss=0.73 avg=1.11
[9522 | 1781.09] loss=1.10 avg=1.11
[9523 | 1782.01] loss=1.40 avg=1.11
[9524 | 1782.93] loss=1.08 avg=1.11
[9525 | 1783.84] loss=0.78 avg=1.11
[9526 | 1784.76] loss=1.17 avg=1.11
[9527 | 1785.68] loss=1.07 avg=1.11
[9528 | 1786.60] loss=1.69 avg=1.11
[9529 | 1787.52] loss=0.92 avg=1.11
[9530 | 1788.44] loss=1.33 avg=1.11
[9531 | 1789.36] loss=1.13 avg=1.11
[9532 | 1790.28] loss=0.61 avg=1.11
[9533 | 1791.20] loss=1.50 avg=1.11
[9534 | 1792.12] loss=1.19 avg=1.11
[9535 | 1793.04] loss=1.13 avg=1.11
[9536 | 1793.96] loss=1.18 avg=1.11
[9537 | 1794.88] loss=0.78 avg=1.11
[9538 | 1795.80] loss=1.22 avg=1.11
[9539 | 1796.72] loss=1.07 avg=1.11
[9540 | 1797.64] loss=1.09 avg=1.11
[9541 | 1798.56] loss=0.85 avg=1.11
[9542 | 1799.48] loss=1.20 avg=1.11
[9543 | 1800.41] loss=1.17 avg=1.11
[9544 | 1801.33] loss=1.47 avg=1.11
[9545 | 1802.25] loss=1.34 avg=1.12
[9546 | 1803.17] loss=1.36 avg=1.12
[9547 | 1804.09] loss=0.97 avg=1.12
[9548 | 1805.02] loss=1.65 avg=1.12
[9549 | 1805.94] loss=1.02 avg=1.12
[9550 | 1806.87] loss=0.83 avg=1.12
[9551 | 1807.79] loss=1.12 avg=1.12
[9552 | 1808.72] loss=0.93 avg=1.12
[9553 | 1809.64] loss=0.68 avg=1.11
[9554 | 1810.56] loss=1.22 avg=1.11
[9555 | 1811.49] loss=0.79 avg=1.11
[9556 | 1812.41] loss=0.86 avg=1.11
[9557 | 1813.34] loss=0.98 avg=1.11
[9558 | 1814.26] loss=0.71 avg=1.10
[9559 | 1815.18] loss=0.95 avg=1.10
[9560 | 1816.11] loss=0.78 avg=1.10
[9561 | 1817.03] loss=0.93 avg=1.10
[9562 | 1817.95] loss=1.07 avg=1.10
[9563 | 1818.88] loss=1.13 avg=1.10
[9564 | 1819.80] loss=1.28 avg=1.10
[9565 | 1820.73] loss=1.08 avg=1.10
[9566 | 1821.65] loss=1.07 avg=1.10
[9567 | 1822.58] loss=0.93 avg=1.10
[9568 | 1823.49] loss=1.65 avg=1.10
[9569 | 1824.42] loss=1.44 avg=1.10
[9570 | 1825.34] loss=0.81 avg=1.10
[9571 | 1826.26] loss=1.00 avg=1.10
[9572 | 1827.19] loss=1.32 avg=1.10
[9573 | 1828.10] loss=1.39 avg=1.11
[9574 | 1829.02] loss=1.13 avg=1.11
[9575 | 1829.94] loss=1.14 avg=1.11
[9576 | 1830.86] loss=0.97 avg=1.10
[9577 | 1831.79] loss=1.11 avg=1.10
[9578 | 1832.71] loss=1.10 avg=1.10
[9579 | 1833.64] loss=1.56 avg=1.11
[9580 | 1834.56] loss=1.12 avg=1.11
[9581 | 1835.48] loss=0.85 avg=1.11
[9582 | 1836.41] loss=1.22 avg=1.11
[9583 | 1837.33] loss=1.21 avg=1.11
[9584 | 1838.25] loss=1.57 avg=1.11
[9585 | 1839.17] loss=0.65 avg=1.11
[9586 | 1840.09] loss=0.98 avg=1.11
[9587 | 1841.01] loss=1.00 avg=1.11
[9588 | 1841.93] loss=0.76 avg=1.10
[9589 | 1842.85] loss=0.74 avg=1.10
[9590 | 1843.77] loss=1.35 avg=1.10
[9591 | 1844.69] loss=0.70 avg=1.10
[9592 | 1845.61] loss=1.26 avg=1.10
[9593 | 1846.54] loss=0.73 avg=1.10
[9594 | 1847.46] loss=1.14 avg=1.10
[9595 | 1848.38] loss=1.39 avg=1.10
[9596 | 1849.30] loss=0.88 avg=1.10
[9597 | 1850.22] loss=0.66 avg=1.09
[9598 | 1851.14] loss=0.66 avg=1.09
[9599 | 1852.07] loss=0.98 avg=1.09
Generating samples...
======== SAMPLE 1 ========
(with-current-buffer buffer
(goto-char (point-max)))
(goto-char (- min 1))
(set-buffer min))
(setq line (+ (point-min) (point-max))))
;; Convert min size to min size
(when line
(replace-regexp-in-string-string ?\' line))))))
;;;###autoload
(defun calc-c++-p ()
"Make the calc output the value in the buffer, if one exists.
If current buffer is not displayed, set point to the corresponding
point and display the text. If the buffer is empty, it says,
`c++-p' is invoked to display the calc output."
(beginning-of-line)
(and
(concat ": " (mh-quote-region (point) (point-max))))
(and calc-p (mh-quote-region (point-min) (point-max))))
;;;###autoload
(defun calc-define ()
"Make the calc output in the buffer.
If current buffer is not displayed, set point to the corresponding
position at position A (point at the point in the
buffer) and display the text."
(save-excursion
(calc-goto-statement-end)
(beginning-of-line)
(or (y-or-n-p "Convert %s to %s"
(calc-goto-statement-end
(cond (calc-goto-statement-end calc-goto-statement-end nil)
((and calc-goto-statement-end
(setq calc-goto-statement-end nil)))
(c-mode))
(calc-goto-statement-end
(and (string-match "*\\'\\'"
calc-goto-statement-end calc-goto-statement-end nil)
nil)))
(setq line (re-search-forward "^[ \t]*>" nil t))
(setq end (- (point) (point-max)))
(calc-goto-statement-end
(c-mode))
(goto-char end)
))
;; Convert to min size:
;; (calc-goto-statement-end calc-goto-statement-end nil)
(if c-normal
(progn (calc-goto-expression calc-goto-statement-end nil)
(if end (goto-char (- (point) (point-max)))
(progn (when (and end
(re-search-forward "^[ \t]
======== SAMPLE 2 ========
nil)))
(push xlist (cons (cons (car xlist) xlist)))))
;; The next loop
(and (memq (aref (car xlist) (aref (car xlist) 0)))
(push xlist (cons (car xlist) xlist)))))
(put-text-property (1- (length xlist)) xlist nil)
;; The next loop
(and (> (length xlist) 2)
(progn
(push (cons (car xlist) xlist)
(car (car xlist)))
(push (cons (car xlist) xlist))
(push (cons (cdr xlist) xlist)
(nreverse xlist))))
(setq xlist (cdr ylist)))
(setq n (cdr ylist))))
((string-match "\\`[a-z]:[a-z][\e]+[ \t]*\\([0-9][_a-z]\\|[ \t]*\\([0-9][_A-z]\\|[ \t]*\\)\\)\\'"
(car xlist)) nil)
((and (re-search-forward "[ \t]*[a-z][\e]+[ \t]*\\([0-9][_a-z]\\|[ \t]*\\)\\'"
(car xlist)) nil t)
(memq (aref xlist 0) (aref xlist '(1))) (setq xlist (cdr ylist)))
(push xlist (cdr xlist))))))
;; (define-obsolete term-width-face 'narrow-to-top "17.3" "27.4")
;; for `goto-next-xref' and nil
;; (define-obsolete term-width-face 'narrow-to-top "17.3" "27.4")
(defvar word-width-face nil
"Face for `word-width' text which evaluates the current word.
Only `word--width' matches if `word--width' matches.")
(defvar word-width-face ""
"Face for `word-width' text which evaluates the current word.
Only `word--width' matches."
:test (list word-width-face 'no-op t)
:group 'goto-next-xref)
(defvar word-width-face nil
"Face for `word-width' text which evaluates the current word.
Only `word--width' matches if `word--width' matches."
:test (list word-width-face 'no-op t)
:group 'goto-next-xref))
(defvar word-width-mode-syntax-table
'(("BEGEND" "SPACED" "LEAP END" "LAP END"
("CALLBACK" "RECOMMENDED BEGEND" "START" "END")
("ENTRY" "ARRAY" "TRIGGER BUFFER" "BUFFER"
("
======== SAMPLE 3 ========
'list))
,@(let ((c (expand-file-name org-src-project-file)))
(d (expand-file-name org-src-project-files)))
;; Add the project to the global project list with project-name.
(org-re-insert-project
(let ((t (copy-sequence org-src-project-list)))
(concat ".."
(if (file-exists-p org-src-project-list)
""
(concat " .. "
(re-search-forward ". .+" nil t)))))
(when org-src-project-file
;; Add project to the global project list.
(org-re-insert-project org-src-project-list))
)))
(when (and project-name
(not (equal project-name "")
nil t)))
(when org-src-project-files
(let ((count (length org-src-project-files)))
(concat "."
(if project-name (concat ":" org-src-project-files)))
;; Add to the list of project-files.
(when org-src-project-files
;; Make sure the project is listed in the project-list.
(org-src-project-files
(mapcar
'(file-name
(concat "."
(if (file-exists-p org-src-project-files)
;; Add new project.
(concat ".."
(if (file-exists-p org-src-project-files)
(concat ".. "
org-src-project-files))))))
(if (not org-src-project-files)
'(list org-src-project-alist
(or file-exists ".."))))))
======== SAMPLE 4 ========
'(0 0) (1 0))))
id: nil
id: (t id (mapcar '(lambda (x) (lambda (y) (let ((old (car y)))
(car (car y))))))
id))
(if old (setcdr old y)))
(set-marker id (point)))
(goto-char (point-min))
(if (and id
(not (eobp))
(not (cdr (downcase id)))
id))
(cond
((and (not id) (eq (char-after id) ?\))
(forward-char (match-end 0))
(goto-char (syntax-ppss))))
((and (not (eolp)) (not (eobp)))
(while (and (= (length (syntax-ppss id))))
(t
(setq id (aref id
id)))
(funcall id)
(funcall id))))
(progn
(insert id (syntax-ppss))
(if (< (point) top)
(forward-char (syntax-ppss id)))
(insert '(0 0) (0 0))
(forward-char 0)
[9600 | 1877.56] loss=1.20 avg=1.09
[9601 | 1878.48] loss=0.83 avg=1.09
[9602 | 1879.39] loss=1.16 avg=1.09
[9603 | 1880.31] loss=1.43 avg=1.09
[9604 | 1881.22] loss=0.71 avg=1.09
[9605 | 1882.14] loss=1.21 avg=1.09
[9606 | 1883.05] loss=0.99 avg=1.09
[9607 | 1883.97] loss=1.20 avg=1.09
[9608 | 1884.88] loss=1.09 avg=1.09
[9609 | 1885.80] loss=0.61 avg=1.08
[9610 | 1886.71] loss=1.08 avg=1.08
[9611 | 1887.62] loss=1.16 avg=1.08
[9612 | 1888.54] loss=0.74 avg=1.08
[9613 | 1889.45] loss=1.17 avg=1.08
[9614 | 1890.36] loss=1.85 avg=1.09
[9615 | 1891.27] loss=0.88 avg=1.09
[9616 | 1892.19] loss=1.02 avg=1.09
[9617 | 1893.10] loss=1.02 avg=1.09
[9618 | 1894.02] loss=0.75 avg=1.08
[9619 | 1894.93] loss=0.92 avg=1.08
[9620 | 1895.85] loss=0.95 avg=1.08
[9621 | 1896.76] loss=1.18 avg=1.08
[9622 | 1897.68] loss=1.06 avg=1.08
[9623 | 1898.59] loss=0.91 avg=1.08
[9624 | 1899.51] loss=1.47 avg=1.08
[9625 | 1900.42] loss=0.65 avg=1.08
[9626 | 1901.34] loss=1.08 avg=1.08
[9627 | 1902.25] loss=1.01 avg=1.08
[9628 | 1903.17] loss=0.97 avg=1.08
[9629 | 1904.09] loss=0.97 avg=1.08
[9630 | 1905.01] loss=1.03 avg=1.07
[9631 | 1905.93] loss=1.46 avg=1.08
[9632 | 1906.85] loss=1.13 avg=1.08
[9633 | 1907.76] loss=1.64 avg=1.08
[9634 | 1908.68] loss=1.46 avg=1.09
[9635 | 1909.60] loss=1.04 avg=1.09
[9636 | 1910.52] loss=1.44 avg=1.09
[9637 | 1911.44] loss=1.11 avg=1.09
[9638 | 1912.36] loss=1.45 avg=1.10
[9639 | 1913.28] loss=1.02 avg=1.09
[9640 | 1914.20] loss=0.87 avg=1.09
[9641 | 1915.12] loss=1.54 avg=1.10
[9642 | 1916.05] loss=0.76 avg=1.09
[9643 | 1916.97] loss=0.87 avg=1.09
[9644 | 1917.89] loss=0.98 avg=1.09
[9645 | 1918.82] loss=1.23 avg=1.09
[9646 | 1919.74] loss=0.88 avg=1.09
[9647 | 1920.66] loss=0.96 avg=1.09
[9648 | 1921.59] loss=0.88 avg=1.09
[9649 | 1922.51] loss=0.78 avg=1.08
[9650 | 1923.43] loss=1.07 avg=1.08
[9651 | 1924.35] loss=0.78 avg=1.08
[9652 | 1925.28] loss=1.39 avg=1.08
[9653 | 1926.20] loss=1.06 avg=1.08
[9654 | 1927.12] loss=1.25 avg=1.08
[9655 | 1928.05] loss=0.83 avg=1.08
[9656 | 1928.97] loss=1.19 avg=1.08
[9657 | 1929.89] loss=0.75 avg=1.08
[9658 | 1930.81] loss=0.87 avg=1.08
[9659 | 1931.74] loss=1.30 avg=1.08
[9660 | 1932.66] loss=1.44 avg=1.08
[9661 | 1933.58] loss=0.84 avg=1.08
[9662 | 1934.51] loss=1.59 avg=1.09
[9663 | 1935.43] loss=1.01 avg=1.09
[9664 | 1936.34] loss=1.25 avg=1.09
[9665 | 1937.26] loss=1.02 avg=1.09
[9666 | 1938.19] loss=0.72 avg=1.08
[9667 | 1939.11] loss=0.74 avg=1.08
[9668 | 1940.03] loss=0.69 avg=1.08
[9669 | 1940.95] loss=1.24 avg=1.08
[9670 | 1941.87] loss=0.88 avg=1.07
[9671 | 1942.79] loss=0.83 avg=1.07
[9672 | 1943.71] loss=1.55 avg=1.08
[9673 | 1944.63] loss=0.81 avg=1.07
[9674 | 1945.55] loss=1.32 avg=1.08
[9675 | 1946.47] loss=0.73 avg=1.07
[9676 | 1947.40] loss=1.44 avg=1.08
[9677 | 1948.31] loss=1.24 avg=1.08
[9678 | 1949.23] loss=1.53 avg=1.08
[9679 | 1950.15] loss=1.14 avg=1.08
[9680 | 1951.07] loss=1.04 avg=1.08
[9681 | 1951.99] loss=0.86 avg=1.08
[9682 | 1952.91] loss=0.89 avg=1.08
[9683 | 1953.83] loss=0.97 avg=1.08
[9684 | 1954.74] loss=1.11 avg=1.08
[9685 | 1955.66] loss=0.82 avg=1.08
[9686 | 1956.58] loss=1.02 avg=1.08
[9687 | 1957.50] loss=1.06 avg=1.08
[9688 | 1958.41] loss=0.87 avg=1.07
[9689 | 1959.33] loss=1.01 avg=1.07
[9690 | 1960.25] loss=1.17 avg=1.07
[9691 | 1961.17] loss=0.70 avg=1.07
[9692 | 1962.09] loss=1.09 avg=1.07
[9693 | 1963.01] loss=1.68 avg=1.08
[9694 | 1963.92] loss=0.96 avg=1.07
[9695 | 1964.84] loss=1.11 avg=1.08
[9696 | 1965.76] loss=0.92 avg=1.07
[9697 | 1966.67] loss=1.19 avg=1.07
[9698 | 1967.59] loss=0.86 avg=1.07
[9699 | 1968.50] loss=0.93 avg=1.07
Generating samples...
======== SAMPLE 1 ========
";; ")))
"-- "))
(when (integerp t)
(let ((start (cond
((stringp (get-char-property (1/t t)) 'char)
(stringp (get-char-property (1/t t)) 'comma)))
((integerp (get-char-property (1/t t)) 'char)
(stringp (get-char-property (1/t t)) 'comma))
((stringp (get-char-property (1/t t)) 'comma)
(stringp (get-char-property (1/t t)) 'comma))
((stringp (get-char-property (1/t t)) 'subr)
(stringp (get-char-property (1/t t)) 'subr))
((stringp (get-char-property (1/t t)) 'subr)
(subr))
(and (not (eq start ?A))
(string-match "^[0-9]+[0-9]+$"))
(and (< start 1)
(> end ?A))
(and
;; we set the subr to the same
;; value.
(set-char-property start (+ start (1- (length
start))
start)
start)))))
(and (eq start (cons (char-after start) ?a)))
(and (= start 1) (= start 0)))
(and (not subr) (= subr))
(and subr (null subr))
(setq t (setq t (append nsubr subr))
m (cond ((null m)
((stringp (get-char-property 0 0)) :subr)
======== SAMPLE 2 ========
(list 1 2))))
))
))
)
(setq arg (1+ arg))))
)
(setq len (length len)))
;; FIXME this is an error message, if not
(error "%s is missing variable"
(when (equal (cdr (match-string 1)) len)
(let ((parsed t))
(apply-filter
(apply-string
(string-to-number (cdr (match-string 2)) len)
"^ \^[a-z]*\\(")))
(error "%s is missing variable"
(mapcar (lambda (t)
(let ((case-fold-search t))
(error nil))
(push (list (read-string "From `%s'" parsed) nil)))
)
(if (not (bound-and-true-p marked))
(error "%s is missing variable"
(buffer-substring-no-properties
p)
p)
": "))
(with-silent-modifications mark))
(let* ((val (car val))
(valn (car temp)
(delta (cdr temp))
(lmax (or (zerop (cdr delta))) :lmin)))
;; FIXME this is an error message, if not
;; a non-zero value
(cond
((pindelta (point))
(let ((parsed (cdr temp))
(result (cdr temp))
(len (length temp))))
((and found (looking))
(let* ((result 0))
(when (and (cadr (cdr lmax))
(equal (cdr lmax)
(cdr lmax))
(list (list (read-string "From `%s'" parsed) nil)
======== SAMPLE 3 ========
" ")
(should (stringp (string-match "\\([,]*]" text))
(string-match t "[ \t]*\\'" text))
(should (string-match "\\\\[,]*[ \t]" text))
(should (string-match "\\(\\(?:\\[ \t]*\\)\\([ ]+\\)*\\)\\)")
(string-match "\\)[,])*\"" text))
(string-match "\\|\\?\\(" text)))))
(ert-deftest tns-test-test-test-file-name ()
;; Test the value of `tns-test-file-name', when `tns-test-file-name' is a test file.
(let* ((test-file (tns-test-dir))
(suffix (nreverse (tns-test-file-name)))
(file (make-temp-name tns-test-target-file-suffix)))
(cadr
(format-spec
"-nTnF " tns-test-file-name))
"" file))
(ert-deftest tns-test-test 'tns-test-test-file-name ()
"Test the value of `tns-test-file-name', when `tns-test-file-name' or nil is a test file."
(let* ((test-file (tns-test-dir))
(file (make-temp-name tns-test-target-file-suffix)))
(cadr
(format-spec
"-nTnF " tns-test-file-name))
"" file))
(ert-deftest tns-test-test-test-test-file-name-p ()
"Test `tns-test-file-name', when `tns-test-file-name' is a Test package."
(cond ((null (nth 3 (tns-test-test-dir))) (tns-test-file-name)))
((and nt-test-file-name nt-test-file-name-in-directory)
(t (nth 2 (tns-test-test-dir))) (tns-test-file-name)))
t)
nil))
(defun nt-test-test-target-file-prefix ()
"Test a test directory.
If non-nil, it is a directory in the target system; otherwise it should be either
the name of the target file or a string specifying the directory's
suffixes.
If it is nil, a nil value, then the directory is considered to be
a real test file."
(let* ((test-file (make-temp-name tns-test-file-suffix))
(prefix (cons (nth 2 (tns-test-dir))))
(suffix (nth 3 (tns-test-dir))))
(type (string))
(regexp (match-string-no-properties 1))
prefix)
(setq t (setq prefix (match-string-no-properties 2))
prefix t)
(should regexp (test-target-file-prefix t)))
;; Test against Emacs 18.8
(provide 'nnt-test)
(defun nnt-test-test-file-prefix ()
"Test a test directory.
If non-nil, it is a directory in the target system; otherwise it
should be either the name of the target file or a string specifying the
suffixes.
If it is
======== SAMPLE 4 ========
(and (re-search-backward "^\\." nil t) (not (match-beginning 0)))))
;; A block is missing a paragraph to make the cursor move again.
(cursor-move-all nil)
(t))))
((zerop (point-max))))
(cond
((< (count-lines 1) (count-windows)
(not (save-buffer-state
(cursor-next-column)))
((= (length lines) 0)
(not (looking-at "[^<>]*[0-9][0-9@/@<][*<>]*[@/@/@/@@!@.*@?^@/@@?^@*@.*@#^@@#@@@#!@.*#!@#*@!@!@#!@#!@!@#!)@.*@!@!@#!@#!@!@!@#!@#!@#!@#!@#!@!@#!@#.@#!@#@#!@!@#!@!@#!@#!@#!@#.@#!@?@#!@#!@#!@#!@#!@!@#!@#!@#!@#!@#!@!@#!@#!@#.@?@#!@#!@#!@#!@!@#!@#!@#.@#!@?@#!@#!@!@#!@#!@#!@?@?@#!@#!@#!@?@?@#!@#!@#!@#!@#!@?@#!@#!@?@?@#!@#!@#!@#!@#!@?@?@#!@#!@#!@#!@?@?@?@#!@#!@?@?@#!@#!!@?@#!@#!@?@?@#!@#!@#!@#!@?@?@#!@#!@?@?@#!@#!@?@#!@#!@#!@#!@?@?@#!@#!@#!@#!@?@#!@#!@?@#!@#!!)@!@#; "
;; The cursor is at the beginning of a line
(save-excursion (cursor-skip-line)))
(not (looking-at "[^<>]*[>_'+]+\\([A-Za-z:]+\\(,\\)\\)?<\\(?:$?([0-9][0-9?-0-9]?::+\\)$\\)\\]"))))
((< (count-windows 1) (count-windows)
(not (match-beginning 0)))
((< (1+ (count-windows 1) (count-windows)))
(not (looking-at "\\(:\\)\\([A-Za-z]*$\\)\\s*[[]$%][^]+[[][##:]*$\\]\\\\$"))))
((< (count-windows 1) (count-windows)
(not (match-beginning 0)))
((< (count-windows (1+ (count-windows)) (count-windows))
(not (match-beginning 0)))
((< (1
[9700 | 1994.12] loss=0.94 avg=1.07
[9701 | 1995.04] loss=0.93 avg=1.07
[9702 | 1995.96] loss=1.24 avg=1.07
[9703 | 1996.89] loss=1.02 avg=1.07
[9704 | 1997.81] loss=1.14 avg=1.07
[9705 | 1998.72] loss=0.76 avg=1.07
[9706 | 1999.64] loss=1.03 avg=1.07
[9707 | 2000.56] loss=2.09 avg=1.08
[9708 | 2001.47] loss=0.85 avg=1.07
[9709 | 2002.39] loss=1.02 avg=1.07
[9710 | 2003.31] loss=1.23 avg=1.08
[9711 | 2004.23] loss=1.48 avg=1.08
[9712 | 2005.15] loss=1.05 avg=1.08
[9713 | 2006.06] loss=1.71 avg=1.09
[9714 | 2006.98] loss=0.83 avg=1.08
[9715 | 2007.90] loss=0.99 avg=1.08
[9716 | 2008.81] loss=1.40 avg=1.09
[9717 | 2009.73] loss=1.21 avg=1.09
[9718 | 2010.65] loss=0.84 avg=1.08
[9719 | 2011.56] loss=1.06 avg=1.08
[9720 | 2012.48] loss=1.12 avg=1.08
[9721 | 2013.39] loss=0.97 avg=1.08
[9722 | 2014.31] loss=0.96 avg=1.08
[9723 | 2015.23] loss=1.35 avg=1.08
[9724 | 2016.14] loss=0.76 avg=1.08
[9725 | 2017.06] loss=0.98 avg=1.08
[9726 | 2017.97] loss=0.93 avg=1.08
[9727 | 2018.89] loss=1.70 avg=1.09
[9728 | 2019.81] loss=1.37 avg=1.09
[9729 | 2020.73] loss=1.10 avg=1.09
[9730 | 2021.65] loss=1.33 avg=1.09
[9731 | 2022.57] loss=1.15 avg=1.09
[9732 | 2023.48] loss=1.51 avg=1.10
[9733 | 2024.40] loss=0.65 avg=1.09
[9734 | 2025.32] loss=0.99 avg=1.09
[9735 | 2026.24] loss=1.26 avg=1.09
[9736 | 2027.16] loss=1.05 avg=1.09
[9737 | 2028.07] loss=0.99 avg=1.09
[9738 | 2028.99] loss=0.97 avg=1.09
[9739 | 2029.90] loss=1.08 avg=1.09
[9740 | 2030.82] loss=1.86 avg=1.10
[9741 | 2031.74] loss=1.63 avg=1.10
[9742 | 2032.66] loss=1.05 avg=1.10
[9743 | 2033.58] loss=1.18 avg=1.10
[9744 | 2034.50] loss=1.41 avg=1.11
[9745 | 2035.41] loss=0.89 avg=1.10
[9746 | 2036.34] loss=1.70 avg=1.11
[9747 | 2037.25] loss=1.25 avg=1.11
[9748 | 2038.17] loss=0.96 avg=1.11
[9749 | 2039.09] loss=0.89 avg=1.11
[9750 | 2040.01] loss=1.27 avg=1.11
[9751 | 2040.93] loss=1.05 avg=1.11
[9752 | 2041.85] loss=1.57 avg=1.11
[9753 | 2042.78] loss=1.02 avg=1.11
[9754 | 2043.70] loss=1.48 avg=1.12
[9755 | 2044.61] loss=1.28 avg=1.12
[9756 | 2045.54] loss=1.08 avg=1.12
[9757 | 2046.46] loss=1.00 avg=1.12
[9758 | 2047.38] loss=1.08 avg=1.11
[9759 | 2048.30] loss=1.00 avg=1.11
[9760 | 2049.22] loss=1.27 avg=1.12
[9761 | 2050.14] loss=0.91 avg=1.11
[9762 | 2051.06] loss=0.99 avg=1.11
[9763 | 2051.98] loss=1.17 avg=1.11
[9764 | 2052.91] loss=0.78 avg=1.11
[9765 | 2053.83] loss=0.89 avg=1.11
[9766 | 2054.75] loss=1.15 avg=1.11
[9767 | 2055.68] loss=0.80 avg=1.10
[9768 | 2056.59] loss=0.75 avg=1.10
[9769 | 2057.51] loss=0.86 avg=1.10
[9770 | 2058.44] loss=0.81 avg=1.10
[9771 | 2059.36] loss=0.94 avg=1.09
[9772 | 2060.27] loss=1.39 avg=1.10
[9773 | 2061.19] loss=1.01 avg=1.10
[9774 | 2062.11] loss=0.73 avg=1.09
[9775 | 2063.04] loss=0.90 avg=1.09
[9776 | 2063.96] loss=0.75 avg=1.09
[9777 | 2064.88] loss=1.04 avg=1.09
[9778 | 2065.80] loss=0.99 avg=1.09
[9779 | 2066.73] loss=0.90 avg=1.08
[9780 | 2067.65] loss=1.03 avg=1.08
[9781 | 2068.57] loss=0.77 avg=1.08
[9782 | 2069.50] loss=1.12 avg=1.08
[9783 | 2070.42] loss=0.83 avg=1.08
[9784 | 2071.35] loss=0.90 avg=1.08
[9785 | 2072.27] loss=1.34 avg=1.08
[9786 | 2073.19] loss=1.37 avg=1.08
[9787 | 2074.11] loss=1.15 avg=1.08
[9788 | 2075.04] loss=1.10 avg=1.08
[9789 | 2075.96] loss=1.08 avg=1.08
[9790 | 2076.88] loss=1.61 avg=1.09
[9791 | 2077.81] loss=1.27 avg=1.09
[9792 | 2078.73] loss=0.88 avg=1.09
[9793 | 2079.66] loss=1.37 avg=1.09
[9794 | 2080.57] loss=1.15 avg=1.09
[9795 | 2081.49] loss=1.40 avg=1.09
[9796 | 2082.41] loss=1.06 avg=1.09
[9797 | 2083.34] loss=1.08 avg=1.09
[9798 | 2084.26] loss=1.47 avg=1.10
[9799 | 2085.19] loss=1.43 avg=1.10
Generating samples...
======== SAMPLE 1 ========
))
;;; lisp-compile-load-path-info 1
;;; (defvar lisp-compile-path-p "")
;;; (defvar lisp-compile-path-name nil)
;;; (defvar lisp-compile-path-extra-precompiled-p nil)
;;; (defvar lisp-compile-path-extra-precompiled-p t)
;;; (defvar lisp-compile-path-extra-extended-p nil)
;;; (defvar lisp-compile-path-string "<"))
;;; (defvar lisp-compile-path-regexp "")
;;; (defvar lisp-compile-path-regexp
;;; (defvar lisp-compile-path-regexp-base "")
;;; (defvar lisp-compile-path-reused-p nil)
;;; (defvar lisp-compile-path-reused-p-base nil)
;;; (defvar lisp-compile-prolog-file ")")
;;; (defvar lisp-compile-proc-file "lisp-make")
;;; (defvar lisp-compile-prolog-filename
;;; (defvar lisp-compile-prolog-name "lisp-"))
;;; ;; Make all the compilers
;;; (defun lisp-compile-compilation (file name path &optional path-file-relative)
;;; "Compilation the current buffer and return it.
;;; (define-key lisp-prefix-function
;;; 'lisp-compile-compilation
;;`(lambda ()
;;; 'lisp (let ((filename
;;; (file-name-directory (file-name-directory)))
;;; (if path-file-relative
;;; (lisp-compile-compile-file name path)
;;; (let ((path (lisp-compile-compile-file name path)))
;;; path))))
;;; (lisp-compile-compile-file
;; (lisp-compile-compile-file
;; path))
;;; (nreverse path)
;;; (lisp-compile-compile-line))
;;; (lisp-compile-compile-name path))
(defun lisp-compile-compilation ()
"Compile buffer.
This is like `lisp-compile-compilation' and may be used in a
function where `lisp-compile-compilation' is used."
(let ((path-file-relative (lisp-compile-compile-file path))
(lisp-comp
======== SAMPLE 2 ========
)) " ")
(dolist (delt nil) (setq delt (cdr db)))
(if (stringp db) (add-function 'delt-update-db-function db)
(add-function 'delt-edit-dbdb-function db)
(setq db (cdr db)))
;; The error message is expected to be
;; the result of a query of db.
(setq db (cdr db)))
;; Get the return value
(message (format "Query: %s" sql-params) (error ?\s))
;; Check whether the db has any errors.
(setq db (cdr db)))
))
(defun sql-sql-error (sql-params)
"Query for SQL in database.
An SQL statement, in SQL-SQL-ERROR format, will be inserted
into the error buffer if it was not specified."
(when-let* ((error-message
(if (null error-message)
(error-message sql-error-message-no-error)
(sql-error sql-error-message-no-error)
query (sql-sql-error sql-params)))
(sql-search-error sql-params sql-error)
(when error-message
;; Try again.
(message-log
?+
(setq db (null SQL-ERROR))))
;; Get error messages. We're in db, now it's empty.
(list (nth 1 error-message-message-max) (nth 1 error-message-message-length)))
db))
(defun sql-sql-message (sql-params &optional debug-only)
"Query SQL in SQL-SQL-ERROR format.
An SQL statement, in SQL-SQL-ERROR format, will be inserted
into the error buffer if it was not specified."
(when (stringp sql-params)
(sql-sql-error sql-params))
(defun sql-sql-error (sql-params)
"Query for SQL in database.
An SQL statement, in SQL-SQL-ERROR format, will be inserted
into the error buffer if it was not specified."
(when (null sql-params)
(error-message
(sql-sql-error sql-params sql-params))
(if db
(delete-process-sequence sql-params)
))
(defun sql-sql-check-dismiss ()
"Check for SQL exception at point.
This function is for `sql' queries."
(unless sql-error
(sql-insert-query)
(sql-sql-error)))
;;; Search Functions
(defun sql-search (sql)
"Search for SQL in database.
This function searches for the current database entry by the
`sql' key."
(let ((n
(tablep (sql-get-field n)))
(table (car (cdr (cdr (cdr (sql))) (cdr sql)))
sql)))
(defun sql-search-result (sql search)
"Like `string' but search in query field only if query has no
entries."
(sql-insert-sql)
(condition-case nil
(search-if-not nil (null search)))
;; FIXME: For sql-error.c this is similar to `sql-query-error', it
======== SAMPLE 3 ========
))
(setq t tt)
(goto-char (match-beginning 2)))
;; If there is no current buffer, it has to be cleaned up.
(let ((w)
(cleanup "*Current*")
(while (re-search-forward "^" (re-search-backward "^" nil t))
(let ((buf (get-buffer-create "*buffer*"))
(oldbuf (get-buffer-create "*oldbuf*"))
(currentbuf (get-buffer-create "[")))
;; Insert the new buffer.
(insert-buffer " *newbuf*")
;; Restore old buffers to their state.
;;
;; Don't make sure there wasn't an older version.
;;
;; Return buffer.
;; (setq w (cons nil buf) tt)
;; Clean up old buffers.
;;
;;
;; Clean up old buffers.
;;
;; Now it is time to restore the old buffer,
;;
;; so there won't be more to do.
(narrow-to-region
(let ((buf (get-buffer-create "*oldbuf*")))
(when (progn
buf
(setq currentbuf (get-buffer buf)))
;; Try to restore old buffer.
(let ((buffer-size (current-buffer)))
(when (save-restriction
(narrow-to-region currentbuf nil nil)
(progn (goto-char currentbuf) (search-backward "*"))
t))))
(when currentbuf
(setq buffer-size old
======== SAMPLE 4 ========
))
(if (looking-at "[ \t]*$")) (1+ 1) t))
(condition-case nil
(while (progn (forward-line)
;; Not enough to reach the beginning of the line!
;; Check for a punctuation break to keep
;; clean.
;; before leading to the beginning of the line!
(looking-at "[#:^#][ \t]:<\\([ \t:^\\]*)$"))
(if (looking-at "[$]*$") (1+ (point)) t)))))
;; We'll go to the end.
;; ;; ?-
nil))))}}
;;; Indentation variables
(defun emmap-symlink (&optional not-indent)
"Indentate line numbers with no indentation for point."
(message "Entering indentation"))
(defun emmap-indent (&optional not-indent)
"Indent the current line up to this value, in this order.
If not-indent returns t."
(let ((indentate (eom-indent))
nil))
(defun emmap-indent (&optional not-indent)
"Indent the current line up to this value in this order.
If not-indent returns t.
If not-indent returns nil."
(let ((indentate (eom-indent))
nil)
(if (= not-indent 20)
(set-indentate)))
(cond ((not indent)
(progn
;; If we're indented (as we should not).
(setq indentate
(if (integerp indentate)
indentation (length indentate)
(current-line-width)
emmap-indentation))))
(t indentate))
;;; User variables that will be overridden.
(defun emmap-define-indents (&optional not-indent)
"Define the indentation rules in current line by adding one or more
variables of the form (INDENTATION . NOT-INDENT)."
(let ((indentation (eom-indent))
(if (looking-at "[$*]\\(")
'set-indentation))
;; FIXME: FIXME: If we are not indented, this is an example of
;; indentation that we can't override.
;; FIXME: We want to have a list with the following variables (but
;; not all are good enough):
;; `this-indent-for-comment' and `other-indent-for-comment').
[9800 | 2110.65] loss=0.87 avg=1.10
[9801 | 2111.57] loss=1.34 avg=1.10
[9802 | 2112.48] loss=0.99 avg=1.10
[9803 | 2113.40] loss=1.06 avg=1.10
[9804 | 2114.31] loss=1.15 avg=1.10
[9805 | 2115.22] loss=0.90 avg=1.10
[9806 | 2116.14] loss=1.35 avg=1.10
[9807 | 2117.05] loss=0.95 avg=1.10
[9808 | 2117.97] loss=1.78 avg=1.11
[9809 | 2118.88] loss=1.26 avg=1.11
[9810 | 2119.80] loss=0.81 avg=1.10
[9811 | 2120.71] loss=1.65 avg=1.11
[9812 | 2121.62] loss=0.78 avg=1.11
[9813 | 2122.53] loss=1.68 avg=1.11
[9814 | 2123.45] loss=1.18 avg=1.11
[9815 | 2124.36] loss=1.23 avg=1.11
[9816 | 2125.27] loss=0.95 avg=1.11
[9817 | 2126.18] loss=1.31 avg=1.11
[9818 | 2127.10] loss=1.38 avg=1.12
[9819 | 2128.01] loss=0.97 avg=1.12
[9820 | 2128.93] loss=0.93 avg=1.11
[9821 | 2129.84] loss=1.11 avg=1.11
[9822 | 2130.75] loss=0.99 avg=1.11
[9823 | 2131.66] loss=1.18 avg=1.11
[9824 | 2132.57] loss=1.15 avg=1.11
[9825 | 2133.49] loss=0.70 avg=1.11
[9826 | 2134.40] loss=1.02 avg=1.11
[9827 | 2135.32] loss=1.12 avg=1.11
[9828 | 2136.23] loss=0.76 avg=1.11
[9829 | 2137.15] loss=1.58 avg=1.11
[9830 | 2138.07] loss=0.98 avg=1.11
[9831 | 2138.98] loss=1.05 avg=1.11
[9832 | 2139.90] loss=0.98 avg=1.11
[9833 | 2140.81] loss=1.07 avg=1.11
[9834 | 2141.73] loss=1.19 avg=1.11
[9835 | 2142.65] loss=0.70 avg=1.10
[9836 | 2143.56] loss=1.26 avg=1.10
[9837 | 2144.48] loss=1.65 avg=1.11
[9838 | 2145.40] loss=1.49 avg=1.11
[9839 | 2146.32] loss=0.97 avg=1.11
[9840 | 2147.24] loss=0.75 avg=1.11
[9841 | 2148.16] loss=1.03 avg=1.11
[9842 | 2149.08] loss=0.72 avg=1.10
[9843 | 2150.00] loss=1.11 avg=1.10
[9844 | 2150.92] loss=1.16 avg=1.10
[9845 | 2151.84] loss=0.72 avg=1.10
[9846 | 2152.77] loss=1.98 avg=1.11
[9847 | 2153.69] loss=0.94 avg=1.11
[9848 | 2154.62] loss=0.97 avg=1.11
[9849 | 2155.54] loss=1.03 avg=1.11
[9850 | 2156.46] loss=0.94 avg=1.10
[9851 | 2157.39] loss=1.39 avg=1.11
[9852 | 2158.31] loss=1.18 avg=1.11
[9853 | 2159.24] loss=0.54 avg=1.10
[9854 | 2160.16] loss=1.43 avg=1.11
[9855 | 2161.08] loss=0.75 avg=1.10
[9856 | 2162.01] loss=0.86 avg=1.10
[9857 | 2162.93] loss=1.28 avg=1.10
[9858 | 2163.85] loss=1.60 avg=1.11
[9859 | 2164.78] loss=1.26 avg=1.11
[9860 | 2165.71] loss=0.94 avg=1.11
[9861 | 2166.64] loss=0.80 avg=1.10
[9862 | 2167.56] loss=1.18 avg=1.10
[9863 | 2168.49] loss=0.92 avg=1.10
[9864 | 2169.41] loss=1.23 avg=1.10
[9865 | 2170.34] loss=1.95 avg=1.11
[9866 | 2171.26] loss=1.91 avg=1.12
[9867 | 2172.18] loss=0.85 avg=1.12
[9868 | 2173.11] loss=1.21 avg=1.12
[9869 | 2174.03] loss=1.60 avg=1.12
[9870 | 2174.96] loss=1.37 avg=1.13
[9871 | 2175.88] loss=1.15 avg=1.13
[9872 | 2176.81] loss=1.48 avg=1.13
[9873 | 2177.73] loss=0.86 avg=1.13
[9874 | 2178.65] loss=1.12 avg=1.13
[9875 | 2179.57] loss=1.21 avg=1.13
[9876 | 2180.49] loss=1.34 avg=1.13
[9877 | 2181.42] loss=1.03 avg=1.13
[9878 | 2182.34] loss=0.94 avg=1.13
[9879 | 2183.26] loss=1.22 avg=1.13
[9880 | 2184.18] loss=0.74 avg=1.12
[9881 | 2185.10] loss=1.13 avg=1.12
[9882 | 2186.02] loss=1.08 avg=1.12
[9883 | 2186.94] loss=0.93 avg=1.12
[9884 | 2187.86] loss=1.05 avg=1.12
[9885 | 2188.78] loss=0.81 avg=1.12
[9886 | 2189.70] loss=1.21 avg=1.12
[9887 | 2190.62] loss=1.21 avg=1.12
[9888 | 2191.54] loss=0.91 avg=1.12
[9889 | 2192.46] loss=0.88 avg=1.11
[9890 | 2193.38] loss=1.05 avg=1.11
[9891 | 2194.30] loss=0.83 avg=1.11
[9892 | 2195.22] loss=1.44 avg=1.11
[9893 | 2196.14] loss=1.07 avg=1.11
[9894 | 2197.06] loss=1.13 avg=1.11
[9895 | 2197.98] loss=1.16 avg=1.11
[9896 | 2198.89] loss=1.76 avg=1.12
[9897 | 2199.81] loss=1.41 avg=1.12
[9898 | 2200.73] loss=1.29 avg=1.13
[9899 | 2201.65] loss=1.36 avg=1.13
Generating samples...
======== SAMPLE 1 ========
O' `(lambda (v)
;; :getter name (list key)))))
;; We must set this key in its customizations
;;
(defun srecode-generic-generic-customize-type (&optional type 'type)
;; FIXME This doesn't look very nice. Try to do some customizations
;; to make the customizations look nice.
;; TODO SAME should do a better job of this.
((or (eq type '(int 8 1 1))
auto-load-face 'srecode-generic 'auto)))
(defun srecode-generic-customize-file nil
;; FIXME This isn't a bug in srecode as a file,
;; it's a bug in srecode's customizations.
(let ((srecode-generic-file-name-style
'((class v) (class-id v) (name :inline t))
(srecode-generic-file-name-style
`(lambda (v)
(let ((default-directory srecode-directory)))
(unless (file-remote-p default-directory)
(error "Directory not loaded: %s" default-directory))
(if (file-name-absolute-p srecode-file-name-style)
(error "No file name style"))))
((eq type 'file)
srecode-file-name-style)
(condition-case nil
(file-exists-p default-directory)
(error nil ((null default-directory))))))
(srecode-generic-file-name-style 'file))
(let ((default-directory (if default-directory
srecode-directory
nil srecode-directory))))
(while (not default-directory)
(setq default-directory (file-name-nondirectory default-directory))
(when srecode-generic-file-name-style
(when (srecode-generic-file-name-style
;; FIXME SAME should look better.
(srecode-generic-file-name-style srecode-generic-file-name-style
nil
nil
'srecode-generic-file-name))
(let ((default-directory
======== SAMPLE 2 ========
O'``'+\"`|\0`\"?`\""))
"[+\"\1\0|\"']`'&"")
"\\'#[+\"\1\0|\"']`'+\"`|\0`\""
"[+\"\1\0|\"']`'',+\"\""))
"\\'#[+\"\1\0|\"']`'',+\"\""
"[+\"\1\0|\"']`'',+\"\""
"[+\"\1\0|\"']`'',+\"\""
"[+\"\1\0|\"']'''')'")
"" "\
; = "\\`\"'`'" t "\\`\"'`" t "\\`\"'`"
"\\`\"'`'" t "" "\\`\"'`'" t
"\\`\"'`'" t "" "" "" "" "" "\\`\"'`'"
"" "\
; = "\\`'" "" "" "" "" "" "" "" "\\`'"
"" "" "" "" "" "" "" "" "\\`'"
"" "" "" "" "" "" "" "" "" "" "" "" "" "" """)
(t "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "")
(t "" "" "" "" "" "" "" "" "" "" "" "" "" "" "") """)
(t "" "" "" "" "" "" "" "" "" "" "")
)))
(t
(save-excursion
(when (>= (point) (1- (point)))
(goto-char (point-min)))
)))
;; This is the "normal" (`+'+'-:^') in the \"\"`+\"+\"+\"\"\"\"'\"'\"\"'\".'s \"\"'\"',\"'\"'.
;;
;; Used with `--normal-p', which is `*'+'++-'+'++-%+%'++-+%'++-'.
(provide 'standard-spp-program)
;;; standard-spp.el ends here
<|endoftext|>;;; spp-mode.el --- the new default mode for SMP.
;;; Copyright (C) 2002-2003, 2006-2019 Free Software Foundation, Inc.
;; Author: Dave Clark <dave@gnu.org>
;; Maintainer: emacs-devel@gnu.org
;; Keywords: comm, spp
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option)
======== SAMPLE 3 ========
Ov.p" "\\" nil)
(cl-defmethod arglist ((syntax &rest body)
(prefix ""))
"Arglist argument for SYNTAX.
Arglist is a list of symbols that is passed to `syntax-list-alist'.
You can only use this function for `prefix' syntax matches.
See `declare-function' for details on this variable.")
(defcustom argset (syntax alist &rest body)
"Arglist which has syntax parameters and is `syntax' or `body' or `declare-function'.
This function applies to all of the symbols in `arglist-alist'."
:type :syntax
:group 'list
:version "23.2")
(cl-defmethod arglist ((syntax &rest body)
(prefix ""))
"Arglist for symbol and argument in SYNTAX that is `syntax' or `body' or `declare-function'."
(t :visited
;; Make argument sets of form non-nil
(let ((arg (+ (car syntax) body))
(syntax (car syntax))
(body (cdr syntax)))
(setq arg (cdr syntax)
body (cdr syntax))
(if (and arg (memq arg beg end)) (setq beg end nil) arg)))))
(cl-defmethod arglist ((syntax &rest body)
(prefix ""))
"Arglist which has syntax parameters and is `syntax' or `body' or `declare-function'."
:type :syntax
(syntax alist)
(prefix ""))
"Arglist for symbol and argument in SYNTAX that is `syntax' or `body' or `declare-function'."
(t :visited
;; Make argument sets of form non-nil
(let ((arg (+ (car syntax) body))
(syntax (car syntax)
(condition-case nil (syntax 'declare))
(pcase pcase
(cdr syntax) (cddr syntax) body)
(pdeclare (cdr syntax)) form)
(syntax #'syntax))
t)
(setq arg (cdr syntax))
(if arg
(setq arglist body)
(setq body (cdr syntax)))
(cl-defmethod arglist (syntax (car syntax) (syntax alist)) body)
(if arg
(setq arglist body))
(setq arglist body))))
(cl-defmethod arglist ((syntax &rest body)
(prefix ""))
"Arglist which has syntax parameters and is `syntax' or `body' or `declare-function'."
(t :visited
"The arglist syntax.
A non-nil argument is a symbol or argument."
:type :syntax
(syntax bval oparg)
(:visited
;; Make the symbol or argument the form that is passed on the line.
;; In this case, we could also use `
======== SAMPLE 4 ========
Oͤ툈혍픈`­í—”í•”`­í—”í•”`­í–¨)
;;;;;;;### (autoload 'nreverse "gvfs/reverse" "gvfs/reverse" "\
A string in reverse order to reverse characters, reversed in reverse order
;;;;;;;### (autoload 'gvfs/reverse "bq" "bq" "\
Show characters in reversed order.")
(put 'reverse-charset 'safe-local-variable 'choice 'syntax 'syntax-table 'syntactic-binding (lambda (a b) (concat (split-string "-bq" (match-string 1 "" a)))) '(reverse-charset
;;;;;;: t
;;;;;;;### (autoload 'gnus-insert-invalid-case "gvfs" "gnus/insert-invalid-file" "\
Insert invalid case character. An ASCII file name will be inserted at the
front of the buffer; all characters except the blank line will be read in
dual quotes. Insertion is always done with a downcase ``.'
(put 'invalid-case 'safe-local-variable 'choice 'syntax 'syntactic-binding (lambda (a b) (concat "\\r\t" "+" a)))) '(gnus-insert-comment 'safe-local-variable 'choice 'syntax
;;;;;;: t
;;;;;;;### (autoload 'gnus-insert-invalid-case "gvfs" "gnus/insert-invalid-file" "\
Insert invalid character.)
;;; Code:
(defun gnus-insert-invalid-case (file)
"Insert a file error message if FILE is in unreadable format.
EXIT_ONLY is a minor mode for removing duplicate messages from the
log, and `gvfs-invalid-file-p' is a minor mode for removing duplicate
messages or creating duplicate messages without a valid error message."
(interactive "P")
(save-excursion
(goto-char (match-end 0))
(when (looking-at "\\|\\[\"\\]*$") (goto-char (match-end 0))
(replace-match "\\\\|\\)")))
;;;### (autoload 'gnus-invalid-message (message &optional ignore)
"Display missing or corrupt files in Emacs Message buffer.
This function provides a mechanism to temporarily disable MMS messages during
emulation of Gnus messages: the `gnus-invalid-message-mode' is
based on the value of `gnus-message-ignore-missing'.
When a message is missing or corrupt, Gnus is temporarily blocked from
returning, and Gnus messages are temporarily disabled during emulation.
This function provides the optional
interactive control `%S'."
(interactive "P")
(when (eq message 'gnus-invalid-message
(if (not default-directory)
(gnus-invalid-message-mode mms-message)))
(goto-char (point-min))
(delete-region (match-beginning 0) (point))
nil)
(let ((gnus-ignore-missing gnus-message-ignore-errors)))
;; FIXME: We have a good case in that Emacs ignores MMS messages.
(when gnus-message-ignore-missing
(goto-char (point-min))
(while (gnus-set-message-incoming-flag nil))
(setq gnus-message-ignore-warning
(gnus-invalid-message-mode t))
(gnus-unset-message-incoming-flag t)
(setq gnus-message-incoming-flag nil)))
;; FIXME: We have a good case in that Emulation fails to recognize
;; MMS messages. A `gnus-ignore-errors' function might be good
;; for handling Message buffer error sequences instead.
(unless gnus
[9900 | 2227.14] loss=1.02 avg=1.13
[9901 | 2228.06] loss=1.65 avg=1.13
[9902 | 2228.98] loss=0.75 avg=1.13
[9903 | 2229.89] loss=1.32 avg=1.13
[9904 | 2230.81] loss=0.94 avg=1.13
[9905 | 2231.73] loss=1.24 avg=1.13
[9906 | 2232.65] loss=1.18 avg=1.13
[9907 | 2233.56] loss=0.97 avg=1.13
[9908 | 2234.48] loss=1.47 avg=1.13
[9909 | 2235.40] loss=1.24 avg=1.13
[9910 | 2236.31] loss=0.94 avg=1.13
[9911 | 2237.23] loss=1.08 avg=1.13
[9912 | 2238.14] loss=1.26 avg=1.13
[9913 | 2239.06] loss=1.25 avg=1.13
[9914 | 2239.97] loss=1.00 avg=1.13
[9915 | 2240.88] loss=0.92 avg=1.13
[9916 | 2241.80] loss=0.64 avg=1.12
[9917 | 2242.71] loss=1.13 avg=1.12
[9918 | 2243.63] loss=0.98 avg=1.12
[9919 | 2244.54] loss=0.95 avg=1.12
[9920 | 2245.46] loss=0.90 avg=1.12
[9921 | 2246.37] loss=0.98 avg=1.12
[9922 | 2247.28] loss=0.81 avg=1.11
[9923 | 2248.20] loss=0.86 avg=1.11
[9924 | 2249.11] loss=0.71 avg=1.11
[9925 | 2250.03] loss=1.34 avg=1.11
[9926 | 2250.94] loss=1.35 avg=1.11
[9927 | 2251.86] loss=1.23 avg=1.11
[9928 | 2252.78] loss=1.18 avg=1.11
[9929 | 2253.69] loss=1.27 avg=1.12
[9930 | 2254.61] loss=1.02 avg=1.12
[9931 | 2255.52] loss=1.09 avg=1.11
[9932 | 2256.44] loss=0.95 avg=1.11
[9933 | 2257.35] loss=0.73 avg=1.11
[9934 | 2258.27] loss=1.30 avg=1.11
[9935 | 2259.18] loss=1.03 avg=1.11
[9936 | 2260.10] loss=0.98 avg=1.11
[9937 | 2261.01] loss=1.00 avg=1.11
[9938 | 2261.93] loss=1.22 avg=1.11
[9939 | 2262.85] loss=1.14 avg=1.11
[9940 | 2263.77] loss=1.25 avg=1.11
[9941 | 2264.68] loss=1.34 avg=1.11
[9942 | 2265.60] loss=1.24 avg=1.11
[9943 | 2266.52] loss=1.16 avg=1.12
[9944 | 2267.44] loss=0.90 avg=1.11
[9945 | 2268.36] loss=1.64 avg=1.12
[9946 | 2269.28] loss=0.61 avg=1.11
[9947 | 2270.19] loss=1.13 avg=1.11
[9948 | 2271.11] loss=1.02 avg=1.11
[9949 | 2272.03] loss=1.23 avg=1.11
[9950 | 2272.95] loss=1.09 avg=1.11
[9951 | 2273.87] loss=1.13 avg=1.11
[9952 | 2274.79] loss=0.90 avg=1.11
[9953 | 2275.71] loss=1.61 avg=1.12
[9954 | 2276.63] loss=0.96 avg=1.11
[9955 | 2277.56] loss=1.14 avg=1.12
[9956 | 2278.47] loss=1.62 avg=1.12
[9957 | 2279.40] loss=0.97 avg=1.12
[9958 | 2280.32] loss=0.92 avg=1.12
[9959 | 2281.24] loss=1.05 avg=1.12
[9960 | 2282.16] loss=1.26 avg=1.12
[9961 | 2283.08] loss=0.72 avg=1.11
[9962 | 2284.01] loss=0.54 avg=1.11
[9963 | 2284.93] loss=0.71 avg=1.10
[9964 | 2285.85] loss=1.25 avg=1.11
[9965 | 2286.78] loss=1.06 avg=1.10
[9966 | 2287.70] loss=0.98 avg=1.10
[9967 | 2288.62] loss=0.71 avg=1.10
[9968 | 2289.54] loss=1.11 avg=1.10
[9969 | 2290.47] loss=1.01 avg=1.10
[9970 | 2291.39] loss=1.08 avg=1.10
[9971 | 2292.31] loss=1.09 avg=1.10
[9972 | 2293.24] loss=1.12 avg=1.10
[9973 | 2294.16] loss=0.72 avg=1.09
[9974 | 2295.09] loss=0.95 avg=1.09
[9975 | 2296.01] loss=1.26 avg=1.10
[9976 | 2296.94] loss=0.90 avg=1.09
[9977 | 2297.86] loss=1.15 avg=1.09
[9978 | 2298.79] loss=0.83 avg=1.09
[9979 | 2299.71] loss=1.00 avg=1.09
[9980 | 2300.64] loss=0.84 avg=1.09
[9981 | 2301.56] loss=1.23 avg=1.09
[9982 | 2302.49] loss=1.94 avg=1.10
[9983 | 2303.41] loss=0.79 avg=1.09
[9984 | 2304.34] loss=0.90 avg=1.09
[9985 | 2305.27] loss=1.22 avg=1.09
[9986 | 2306.19] loss=0.87 avg=1.09
[9987 | 2307.12] loss=1.05 avg=1.09
[9988 | 2308.04] loss=0.78 avg=1.09
[9989 | 2308.96] loss=1.18 avg=1.09
[9990 | 2309.88] loss=1.18 avg=1.09
[9991 | 2310.81] loss=1.04 avg=1.09
[9992 | 2311.73] loss=1.47 avg=1.09
[9993 | 2312.66] loss=0.85 avg=1.09
[9994 | 2313.58] loss=1.18 avg=1.09
[9995 | 2314.50] loss=1.08 avg=1.09
[9996 | 2315.42] loss=1.12 avg=1.09
[9997 | 2316.35] loss=1.15 avg=1.09
[9998 | 2317.27] loss=0.66 avg=1.09
[9999 | 2318.19] loss=1.16 avg=1.09
Saving checkpoint/run1/model-10000
Generating samples...
======== SAMPLE 1 ========
put-current-file-name))
(list name (make-vector (length 'buffer nil) (point)))
(list name (make-vector (point) 0) (point-max))))
;; We don't need to do this when saving the file.
;; We will return to the previous line if we need to.
(should-warn "File: %s, but no save file!" name))
(should-error (nnheader-noconf-warning-from-buffer buffer "Could not save file"))
(should-result
(nnheader-close-buffer)
(should-message
(nnheader-close-buffer)
("%s" name)
(nnheader-close-buffer))
(should-error
(nnheader-close-buffer)
(nnheader-close-buffer))))
(dolist (parsed arg)
(should-error (nnheader-noconf-warning-from-buffer parsed)
(should-result
(nnheader-close-buffer)
(nnheader-close-buffer)))
(while parsed
(let* ((buf (get-buffer-create "*nnheader*")
(buffer-file-name buf)))
(dolist (result buf)
(with-current-buffer buffer buf
(set-buffer-modified-p buf)
(when (and (not (equal (nnheader-save-buffer) (buffer-file-name (nnheader-current-buffer)))))
(nnheader-close-buffer)
(nnheader-close-buffer)
(nnheader-close-buffer)))
(set-buffer-modified-p buf)
(if (and (eq (nnheader-current-buffer) (buffer-file-name (nnheader-current-buffer))))
(nnheader-close-buffer)
(nnheader-close-buffer))))))
((string= (nnheader-previous-message-to-buffer-p) "")
(nnheader-current-message (nnheader-previous-message-to-buffer-p "") (nnheader-current-message (nnheader-previous-message-to-buffer-p))))))
(dolist (i n)
(let (i i-len-point-range)
((and (= i 1))
(should (nnheader-error-from-buffer i-len-point-range
(and (+ i i-len-point-range)
(+ i i
======== SAMPLE 2 ========
put (when (get 'face 'faces)
(setq faces
(append
(concat "^" (cdr faces)) " ")
faces)))
(t faces t))))))
;;;###autoload
(defun gud-update-face-init (&optional _start)
"Insert GUD face at point.
The argument _start is the face at point that GUD
needs. If _start is nil or optional or nil, do nothing.
The face is inserted into GUD buffer with nil result of
insertion. You should save the GUD buffer."
;; FIXME: make GUD buffer after saving before you call reset
(set-buffer-modified-p nil))
;;;###autoload
(defun gud-inject-face-init (&optional _start)
"Inject the face that is currently in GUD buffer and use
the face to convert face list to face.
If the face is already in GUD buffer, the list is
considered to be in GUD buffer.
See `gud-inject-face-init' for more information."
(when (and (eq arg ?A)
(setq gud-inject-face-init (get 'font-lock-face 'face)
arg 0))
(gud-update-face-init))
(make-local-variable 'gud-inject-face-revert-flag)
(setq gud-inject-face-init
(or gud-inject-face-revert-flag
;; FIXME: make the following non-nil to get rid of
;; the effect of gud-inject-face-revert at the last
;; hook call in the same buffer.
gud-error
;; FIXME: Make this variable to be "always".
;; FIXME: make it permanent too.
(setq gud-inject-face-revert-key
(save-excursion
(setq face
(concat
(gud-get 'face 'face)
(get 'font-lock-face 'face)
(get (make-local-variable 'font-lock-face)
'face))
gud-error))
(and (looking-at gud-face-revert-key)
======== SAMPLE 3 ========
put "")
("\\[\\]\\(.[ \t]*\\|^\\)?\\([:alnum:]?[ \t]*\\)"
(if [?\r\n] "")
(let ((l-len 0) (cc-len -1))
(while (and l-len
(setq len (+ (car l-len) (length ccc)))
(while (and ccc-limit (> (length ccc-limit) l-len)
(setq len (- len len))
(setq ccc-limit (- len))
l-len -1))))
len)
(setq l-len ccc-limit))
(setq ccc-limit (cdr ccc-limit))
(cond
((not (eq num 0))
;; The number of entries at the previous row is not enough to cover.
(setq ccc-limit (- ccc-limit)))
(dolist (col (cdr calc-column-count)))
(setq col (car calc-column-count)))
(t
(let ((ind 0)
(end 0)
(ccc-line-fill (cdr (cdr col))))
(if ccc-limit
(setq end (point))
(setq col (point-marker))
(setq ccc-lines-count (1+ col))
(with-current-buffer (get-buffer-create "*calcFunc*")
(calc-set-color-to-fill col col)
(setq ccc-lines-count
(list 'col (+ ccc-count (length ccc-lines-count)))
(if (and (> (length ccc-lines-count) col-len)
(> (length ccc-lines-count) col-len)
(< (length ccc-lines-count) ccc-line-count))
(setq end (point) col))
(setq ccc-lines-count
(list 'col (+ ccc-lines-count ccc-lines-count)))
(if (and (= (length ccc-lines-count) col-len)
======== SAMPLE 4 ========
put t if buffer was written to it")
(t nil)))
(setq buffer-read-event-start (point-marker))
(setq buffer-read-event-start
(concat "\"\n"
(buffer-name (buffer-base-buffer)) buffer-read-event-start)
(setq buffer-read-event-start
(buffer-base-buffer (current-buffer (current-buffer))))
(if (or
(string= buffer-read-event-data buffer-base-name-buffer)
(format "%s-%s-%s%s" buffer-read-event-data buffer-base-name-buffer buffer-read-event-start))))
buffer-read-event-data)
(setq buffer-read-event-end (point-marker))
(cond
((string= buffer-read-event-data buffer-base-name-buffer)
;; No read-event data. (Note that there is no "\" \n" in the stream,
;; but that does not matter very much for "`\n\r" or "`" because
;; "\"" will not be recognized, but "\"\n" will be
;; recognized).
(if (string= buffer-read-event-data buffer-base-name-buffer)
(format "%s %s" buffer-read-event-data
buffer-read-event-ends)
t) ;; don't use `set' here, just ignore
(setq buffer-read-event-data (string-to-number buffer-read-event-data))
(format "%s-%s" buffer-read-event-data buffer-read-event-ends))))
((string= buffer-read-event-data buffer-base-name-buffer)
(format "%s-%s-%s" buffer-read-event-data buffer-base-name-buffer
buffer-read-event-ends)
(setq buffer-read-event-data
(concat "\"" buffer-read-event-data
(buffer-base-buffer buffer) buffer-read-event-ends)
t)))
(buffer-end-of-buffer))))
(defvar time-of-week nil)
(defvar window-dont-exceed-p nil)
(defvar buffer-exists-p)
(
[10000 | 2348.25] loss=1.04 avg=1.09
[10001 | 2349.18] loss=1.02 avg=1.09
[10002 | 2350.09] loss=0.68 avg=1.08
[10003 | 2351.01] loss=0.88 avg=1.08
[10004 | 2351.93] loss=1.10 avg=1.08
[10005 | 2352.85] loss=1.03 avg=1.08
[10006 | 2353.76] loss=1.46 avg=1.09
[10007 | 2354.68] loss=1.05 avg=1.08
[10008 | 2355.60] loss=0.85 avg=1.08
[10009 | 2356.52] loss=1.02 avg=1.08
[10010 | 2357.44] loss=2.13 avg=1.09
[10011 | 2358.35] loss=1.13 avg=1.09
[10012 | 2359.27] loss=1.07 avg=1.09
[10013 | 2360.19] loss=0.95 avg=1.09
[10014 | 2361.11] loss=0.84 avg=1.09
[10015 | 2362.03] loss=1.17 avg=1.09
[10016 | 2362.94] loss=1.03 avg=1.09
[10017 | 2363.86] loss=1.20 avg=1.09
[10018 | 2364.78] loss=1.28 avg=1.09
[10019 | 2365.70] loss=0.93 avg=1.09
[10020 | 2366.61] loss=0.79 avg=1.09
[10021 | 2367.53] loss=1.52 avg=1.09
[10022 | 2368.45] loss=1.05 avg=1.09
[10023 | 2369.36] loss=0.92 avg=1.09
[10024 | 2370.28] loss=0.79 avg=1.09
[10025 | 2371.20] loss=0.85 avg=1.08
[10026 | 2372.11] loss=1.62 avg=1.09
[10027 | 2373.03] loss=0.57 avg=1.08
[10028 | 2373.94] loss=1.08 avg=1.08
[10029 | 2374.86] loss=0.77 avg=1.08
[10030 | 2375.78] loss=1.53 avg=1.09
[10031 | 2376.70] loss=1.02 avg=1.08
[10032 | 2377.61] loss=1.04 avg=1.08
[10033 | 2378.53] loss=0.53 avg=1.08
[10034 | 2379.45] loss=1.13 avg=1.08
[10035 | 2380.36] loss=0.62 avg=1.07
[10036 | 2381.28] loss=1.14 avg=1.08
[10037 | 2382.20] loss=1.60 avg=1.08
[10038 | 2383.11] loss=1.50 avg=1.08
[10039 | 2384.03] loss=0.67 avg=1.08
[10040 | 2384.95] loss=1.46 avg=1.08
[10041 | 2385.86] loss=1.01 avg=1.08
[10042 | 2386.78] loss=0.71 avg=1.08
[10043 | 2387.69] loss=1.30 avg=1.08
[10044 | 2388.61] loss=0.62 avg=1.08
[10045 | 2389.53] loss=0.88 avg=1.08
[10046 | 2390.45] loss=0.85 avg=1.07
[10047 | 2391.36] loss=0.90 avg=1.07
[10048 | 2392.28] loss=0.71 avg=1.07
[10049 | 2393.20] loss=0.91 avg=1.07
[10050 | 2394.11] loss=0.99 avg=1.07
[10051 | 2395.03] loss=1.23 avg=1.07
[10052 | 2395.95] loss=2.04 avg=1.08
[10053 | 2396.86] loss=1.62 avg=1.08
[10054 | 2397.78] loss=1.05 avg=1.08
[10055 | 2398.70] loss=1.27 avg=1.08
[10056 | 2399.62] loss=1.08 avg=1.08
[10057 | 2400.54] loss=0.75 avg=1.08
[10058 | 2401.46] loss=0.96 avg=1.08
[10059 | 2402.38] loss=0.96 avg=1.08
[10060 | 2403.30] loss=0.78 avg=1.08
[10061 | 2404.22] loss=1.24 avg=1.08
[10062 | 2405.14] loss=0.78 avg=1.07
[10063 | 2406.06] loss=1.26 avg=1.08
[10064 | 2406.98] loss=1.10 avg=1.08
[10065 | 2407.91] loss=1.31 avg=1.08
[10066 | 2408.83] loss=0.70 avg=1.07
[10067 | 2409.75] loss=0.34 avg=1.07
[10068 | 2410.67] loss=0.78 avg=1.06
[10069 | 2411.59] loss=1.19 avg=1.07
[10070 | 2412.51] loss=1.17 avg=1.07
[10071 | 2413.43] loss=1.00 avg=1.07
[10072 | 2414.35] loss=1.13 avg=1.07
[10073 | 2415.28] loss=0.77 avg=1.06
[10074 | 2416.20] loss=1.01 avg=1.06
[10075 | 2417.12] loss=1.15 avg=1.06
[10076 | 2418.04] loss=1.61 avg=1.07
[10077 | 2418.96] loss=0.81 avg=1.07
[10078 | 2419.88] loss=0.87 avg=1.07
[10079 | 2420.81] loss=0.95 avg=1.06
[10080 | 2421.73] loss=1.21 avg=1.07
[10081 | 2422.65] loss=1.31 avg=1.07
[10082 | 2423.57] loss=0.93 avg=1.07
[10083 | 2424.50] loss=1.19 avg=1.07
[10084 | 2425.42] loss=0.95 avg=1.07
[10085 | 2426.34] loss=1.06 avg=1.07
[10086 | 2427.26] loss=0.83 avg=1.06
[10087 | 2428.18] loss=0.70 avg=1.06
[10088 | 2429.10] loss=1.23 avg=1.06
[10089 | 2430.02] loss=0.67 avg=1.06
[10090 | 2430.94] loss=0.62 avg=1.05
[10091 | 2431.86] loss=1.56 avg=1.06
[10092 | 2432.79] loss=0.93 avg=1.06
[10093 | 2433.71] loss=1.25 avg=1.06
[10094 | 2434.63] loss=1.80 avg=1.07
[10095 | 2435.55] loss=1.03 avg=1.07
[10096 | 2436.47] loss=1.20 avg=1.07
[10097 | 2437.39] loss=1.23 avg=1.07
[10098 | 2438.31] loss=1.26 avg=1.07
[10099 | 2439.23] loss=1.72 avg=1.08
Generating samples...
======== SAMPLE 1 ========
(setq vc-file-name-start nil)
vc-file-name-end-start nil)))
(when (file-remote-p vc-file-name-p)
(unless (buffer-live-p buf)
(setq vc-file-name-start (cdr default) nil)
(when (file-opened-p (setq vc-file-name-start nil))
(setq vc-make-directory-file nil)
(file-in-directory vc-file-name-start nil)
(buffer-read-only (car vc-file-name-start)
(buffer-substring vc-file-name-start (point) t)))
`(,file-name ,file-name vc-make-directory-file nil))
)
(set-buffer-modified-p nil)
(erase-buffer)
))
.
(provide 'vc-list)
;;; vc-list.el ends here
<|endoftext|>;;; vca.ucac.uk *(;&%2
(:basic-level . "Basic level"))
;; Copyright (C) 2001-2019 Free Software Foundation, Inc.
;; Copyright (C) 2004-2019 Free Software Foundation, Inc.
;; (:weight :comment-height)
;; (±±±±±±±±±±±±±±±±Û®Û®)
;; (:style "vert" :selected-face t
;; "No such symbol" ))
;;; TODO:
;; In some cases, the value for a keyword can be nil
;; and the value is an inline function that is called on every
;; non-inline part that can appear in a list, and is given a
;; unique name, which is automatically converted as a list
;; to a vector. So for example it might be
;; `vc-list-inline-inline' which can be set to
;; `vc-list-inline-inline' to give a unique name which is automatically
;; converted
;;; Code:
;;; VCR:
(require 'vc) (require 'xmltok-toolbox)
;;;###autoload (autoconf)
(define-minor-mode vc-list-basic-mode
"Minor mode for list editing"
"Major mode for list editing.
For `vc-list-inline-inline' that requires an inline list
to be present (because the list looks like a function definition), this
mode is used in combination with `vc-list-inline-inline' to make
list lists very fast and easy to write."
:initialize t
'((vc-list-inline-inline (vc-list-inline-inline 'inline 'inline))
(list inline-list)
(list-end 0)
(list-start 0)
(list-end -1)
(list-line-number))
:group 'vc-list)
;(defun vc-list ()
"List
======== SAMPLE 2 ========
'string(cdr . (length el)))
(with-current-buffer (get-buffer-create (getenv "BUFFER")
(progn
'usermail-show-rfc822
'mail)))
(set-process-sentinel new-process)
(set-process-mail-id new-process)
(set-process-process-id old-process)))
(let ((sent (process-send-integer old-process)))
(select-process new-process)
(setq killed
(when (process-status (process-process new-process)
kill-buffer))
(unless kill-buffer
(setq killed (process-kill new-process))
(setq old-process nil))))
(set-process-sentinel new-process)
;; Remove the old-process if this is necessary: t
(setq kill-hook kill-process t)
;; Kill the new process if this is necessary: t
(set-process-sentinel new-process)
(when killing-hook
(kill-buffer)
(set-process-sentinel new-process)
(set-process-sentinel old-process))))))
(
======== SAMPLE 3 ========
"^\\_+\\(*\\|[^ \t]*$\\)"
"^\\(\^[ \t]*$\\)\\(?:\\([^ \t\n]\\|;\\.\\)$\\)"
"^\\(\^[ \t\n]\\|[^ \t\n]\\)\\(\\([^\n\r\f\f]+\\)\\|\\)[ \t]*\\(\\|[[: ]+]<]*>\\)"
"^#%#\\("
(substring-no-properties substring)
"^#%#\\("
(if (match-beginning 2)
;; FIXME: If the substring is a #! bracket, then we should probably
;; return #(?@+\\) or #(?@+\\).
(match-beginning 2)
(throw 'invalid-type 'type 'string)
nil
;; The second char of the substring matches the substring.
(let ((type (substring-no-properties substring-type substring-chars))
(chars nil))
(while (*= chars 0)
(if (eq type '#!) ;; This regexp matches `!'. So we should maybe
;; not be able to call `#(!@+\\)', but this regexp only matches
;; #!@+. If we are able to show the match correctly, we
;; must do so.
(throw 'invalid-type 'type 'string)
(unless type
(let*--
(setq substring (or (match-beginning 0)
(match-beginning 1)
(match-end 0)
(if (match-end 0) ;; We can use `#@+' in case
(let ((case-fold-search
(string-comma (match-string 0)
(match-string 1))))
======== SAMPLE 4 ========
(mapatoms
(org-atoms (org-agenda-list-atoms)) list current
'new)
(goto-char start))
(move-to-buffer buffer)
(setq list (nreverse list))
(if org-agenda-alist
(org-atoms
(cond
((null org-agenda-alist)
(setq org-agenda-alist-name
(concat org-agenda-alist-name " "))))
(list :tag "List of articles" :new))
(org-agenda-alist-goto-posting))
(goto-char start)
nil)
))
;;;###autoload
(defun org-upcase (tag status)
"Ask the user to specify a headline tag."
(interactive "p")
(if (and status
(not status))
(org-upcase-case-by-case status)
(message "Goto `%s' to continue"))
(set-marker tag (current-buffer)))
(defun orgp-kill-tag-1 (tag)
"Kill a tag at the start or end of the agenda group.
If TAG IS NOT-IN-ANCHORED, Kill the tag as we go."
(interactive "p")
(org-moveup-case-by-case tag 'kill))
(defun org-paget-tags (tags &optional kill current-tag)
"Kill a tags reference at the end of the agenda group.
This allows us to search for articles or groups which use the group at the
point. Tags can then be deleted. Tags that use the group at the
point are now obsolete. The current tags reference is the
tag at point (t). We then delete the reference."
(interactive "p")
(let ((start (or current-tag
(org-paget-tags tags)))
start-p)
(goto-char start)
(when tag
(setcdr (rassoc tags org-agenda-alist-name)
'tags org-agenda-alist-goto-posting)))
(when tags org-agenda-alist)
(if kill
;; kill the reference (and this will work in the current agenda)
kill-tags-default-point-point))
(defun org-paget-find-tags-tag-calls (tag)
(and (not (equal tag org-tag-calls-flag))
(not (integerp tag))
(not (string-match
(buffer-substring (match-beginning 0) (match-end 0))
(match-beginning 0))))
"Find a tag for point at END of TAG."
(let ((current-tag
(or current-tag
(get-text-property (point) 'org-reference)
(org-agenda-tag-p tag)))
(tags-tag (org-tag-at-point)))
(setq tags-tag-calls-flag nil)
(and tags-tag-calls-flag
(not tags-tag-
[10100 | 2464.74] loss=0.88 avg=1.08
[10101 | 2465.65] loss=1.11 avg=1.08
[10102 | 2466.57] loss=1.00 avg=1.08
[10103 | 2467.48] loss=1.01 avg=1.07
[10104 | 2468.40] loss=1.04 avg=1.07
[10105 | 2469.31] loss=0.98 avg=1.07
[10106 | 2470.23] loss=0.67 avg=1.07
[10107 | 2471.14] loss=1.15 avg=1.07
[10108 | 2472.06] loss=1.75 avg=1.08
[10109 | 2472.97] loss=1.20 avg=1.08
[10110 | 2473.89] loss=1.14 avg=1.08
[10111 | 2474.80] loss=1.24 avg=1.08
[10112 | 2475.72] loss=1.13 avg=1.08
[10113 | 2476.63] loss=1.33 avg=1.08
[10114 | 2477.55] loss=1.08 avg=1.08
[10115 | 2478.46] loss=1.04 avg=1.08
[10116 | 2479.38] loss=0.79 avg=1.08
[10117 | 2480.29] loss=0.92 avg=1.08
[10118 | 2481.20] loss=1.70 avg=1.08
[10119 | 2482.12] loss=0.62 avg=1.08
[10120 | 2483.03] loss=1.56 avg=1.09
[10121 | 2483.95] loss=0.94 avg=1.08
[10122 | 2484.86] loss=1.06 avg=1.08
[10123 | 2485.77] loss=1.33 avg=1.09
[10124 | 2486.69] loss=1.10 avg=1.09
[10125 | 2487.61] loss=1.45 avg=1.09
[10126 | 2488.52] loss=1.07 avg=1.09
[10127 | 2489.44] loss=1.49 avg=1.09
[10128 | 2490.35] loss=1.50 avg=1.10
[10129 | 2491.27] loss=1.34 avg=1.10
[10130 | 2492.19] loss=1.15 avg=1.10
[10131 | 2493.11] loss=1.52 avg=1.10
[10132 | 2494.03] loss=1.47 avg=1.11
[10133 | 2494.94] loss=1.20 avg=1.11
[10134 | 2495.86] loss=1.78 avg=1.12
[10135 | 2496.78] loss=0.68 avg=1.11
[10136 | 2497.70] loss=1.60 avg=1.12
[10137 | 2498.62] loss=0.84 avg=1.11
[10138 | 2499.53] loss=0.90 avg=1.11
[10139 | 2500.45] loss=1.29 avg=1.11
[10140 | 2501.37] loss=0.71 avg=1.11
[10141 | 2502.29] loss=1.34 avg=1.11
[10142 | 2503.21] loss=1.76 avg=1.12
[10143 | 2504.12] loss=1.05 avg=1.12
[10144 | 2505.04] loss=1.66 avg=1.12
[10145 | 2505.96] loss=0.97 avg=1.12
[10146 | 2506.89] loss=1.29 avg=1.12
[10147 | 2507.81] loss=1.07 avg=1.12
[10148 | 2508.73] loss=1.24 avg=1.12
[10149 | 2509.65] loss=1.33 avg=1.13
[10150 | 2510.57] loss=0.89 avg=1.12
[10151 | 2511.49] loss=1.20 avg=1.12
[10152 | 2512.42] loss=0.86 avg=1.12
[10153 | 2513.34] loss=1.33 avg=1.12
[10154 | 2514.26] loss=1.10 avg=1.12
[10155 | 2515.17] loss=1.45 avg=1.13
[10156 | 2516.09] loss=1.18 avg=1.13
[10157 | 2517.02] loss=1.45 avg=1.13
[10158 | 2517.94] loss=1.13 avg=1.13
[10159 | 2518.86] loss=1.05 avg=1.13
[10160 | 2519.78] loss=0.56 avg=1.12
[10161 | 2520.70] loss=1.23 avg=1.13
[10162 | 2521.63] loss=0.96 avg=1.12
[10163 | 2522.55] loss=1.19 avg=1.12
[10164 | 2523.47] loss=1.04 avg=1.12
[10165 | 2524.40] loss=1.27 avg=1.12
[10166 | 2525.32] loss=2.05 avg=1.13
[10167 | 2526.24] loss=1.07 avg=1.13
[10168 | 2527.17] loss=1.02 avg=1.13
[10169 | 2528.10] loss=0.80 avg=1.13
[10170 | 2529.02] loss=0.92 avg=1.13
[10171 | 2529.94] loss=1.32 avg=1.13
[10172 | 2530.87] loss=0.91 avg=1.13
[10173 | 2531.79] loss=1.31 avg=1.13
[10174 | 2532.72] loss=1.14 avg=1.13
[10175 | 2533.64] loss=0.86 avg=1.13
[10176 | 2534.57] loss=1.42 avg=1.13
[10177 | 2535.49] loss=1.02 avg=1.13
[10178 | 2536.42] loss=1.19 avg=1.13
[10179 | 2537.34] loss=0.95 avg=1.13
[10180 | 2538.27] loss=0.63 avg=1.12
[10181 | 2539.19] loss=1.02 avg=1.12
[10182 | 2540.12] loss=1.20 avg=1.12
[10183 | 2541.05] loss=1.25 avg=1.12
[10184 | 2541.97] loss=0.79 avg=1.12
[10185 | 2542.90] loss=1.21 avg=1.12
[10186 | 2543.82] loss=0.72 avg=1.12
[10187 | 2544.75] loss=0.85 avg=1.11
[10188 | 2545.67] loss=1.39 avg=1.12
[10189 | 2546.59] loss=1.48 avg=1.12
[10190 | 2547.52] loss=1.29 avg=1.12
[10191 | 2548.44] loss=1.19 avg=1.12
[10192 | 2549.37] loss=1.33 avg=1.12
[10193 | 2550.29] loss=0.74 avg=1.12
[10194 | 2551.21] loss=1.12 avg=1.12
[10195 | 2552.14] loss=1.33 avg=1.12
[10196 | 2553.06] loss=1.08 avg=1.12
[10197 | 2553.99] loss=1.24 avg=1.12
[10198 | 2554.91] loss=0.86 avg=1.12
[10199 | 2555.83] loss=1.64 avg=1.13
Generating samples...
======== SAMPLE 1 ========
-table-position)))
(or (and (consp table-nodes)
(eq position 0))
(progn
(setq table-state-table 1)
(setq table-state-table-size (1- (or (car table-nodes)
(cdr table-nodes)))
table-state-table-width (1- (or table-nodes)))
(if (or (eq (car table-nodes)
(or (bobp) (cadr table-nodes))))
(vector-char-table-count (cadr table-nodes))
(make-string str (1- str))
(vector-char-table-depth (cddr table-nodes))
(make-string str0 (1- str)))
;; Don't fill in the region of the map!
(cons str str)
(cdr table-nodes))
(setq table-state-table-count (1- (if table-nodes 0 (cdr table-nodes)))))
;; Add the map entry.
(nthcdr (1+ table-nodes) (cdr table-nodes)))))
(defun table-table-position ()
"The table position of the last buffer."
(interactive)
(unless (buffer-modified-p)
(setq buffer-modified-p (current-buffer))
(dolist (buffer buffer-modified-p
(insert " ")
(forward-line -1)
(setq buffer-npos-active-column 0)))
(insert-buffer-substring buffer (current-buffer)))))
;;;; Local Variables
(defvar table-mode-line-mode-syntax)
(custom-add-to-list 'table-mode-line-syntax t)
;; FIXME TODO: Add the variable to the list of variables in the `table-mode-line-p'
(declare-function table-mode-hook (&optional arg)
(hook))
(defcustom table-mode-line-extra-syntax "\\|\\[table-mode-line][ ]+"
"Toggle table-mode-line-mode text syntax, using the default.
\\<table-mode-syntax-table>
\\[table-mode-line-mode-syntax]
\\<table-mode-line-mode>
\\<table-mode-line-syntax-table>
\\[table-mode-line-mode]
\\<table-mode-line-syntax-table>
\\[no-hook] \\='table-mode-line-mode-syntax' t")
(message c-lisp-mode-todo)
(declare-function table-mode-syntax-table)
(declare-function table-mode-line-syntax)
(declare-function table-mode-line-syntax-table)
(declare-function table-mode-face-alist "table-mode"
(syntax-table-name-table)))
(defvar table
======== SAMPLE 2 ========
-clocking
; "clocking routines" for GNU Emacs (e.g. GNU Emacs for
; ;; GNU Emacs for GNU Emacs >=.26, with GNU
; ;; >=.25.4) with "clocking tools" to be run
;; on a minibuffer.
(read-file-name "clocking")))
;; See a function that uses this code
(if (or (symbolp clocking-common-clocking-function)
(symbolp clocking-common-buffer-object))
(let (clocking-common-clocking-function)
(dolist (elt clocking-common-clocking-function)
(setq clocking-common-clocking-function (list (pop elt))
clocking-common-clocking-function)))
;; The variable `clocking-common-buffer-object' was declared to be
;; (clocking) object, but we've already checked that
;; `clocking-common-buffer-object' is
;; nil.
(declare (purecopyp clocking-common-buffer-object)
(lambda ()
(clocking-common-make-object
(list 'clocking-common-buffer-object
(mapcar 'car (lambda (x) (car (car (car x))))))
(clocking-common-make-object
(mapcar 'car (lambda (x) (car (car x))))))
clocking-common-buffer-object)
clocking))
(clocking-common-make-object clocking-common-buffer)))))
(when (not (memq 'symbol clocking-common-clocking-function))
(let ((clocking-keywords t))
;; Some function could use a function called from the
;; command line that was not called from a shell.
(clocking-common-make-object clocking-common-buffer t))))
(setq args (clocking-common-make-object)))))
;; We now look for the clocking-common-buffer.
(setq clocking-common-buffer-object (copy-string (cdr (cdr clocking-common-buffer-object)))) t)
(defun clocking-common-buffer-object (clocking-common)
"Make a CLOCKING-CHILD object from a list of cl
======== SAMPLE 3 ========
-let*
;;;###autoload
(defmacro cl-make-file-name (&rest body)
"Make a NAME inside the shell.
For a list of all existing names, put them at the end
of the file name table."
(declare (obsolete cl-file-name-name-internal "27.1"))
(cl-defstruct cl-file-function
'(cl-file-function-create-buffer)
(declare (obsolete cl-file-name-internal "27.2"))
(declare (obsolete cl-file-name-internal-defaults "27.1"))
(let ((file-name-directory (expand-file-name "~/.")
(file-name-decode (or (and (file-attribute-modification-time
(file-attributes file-name-directory)))
(file-attribute-modification-time
buffer-file-name-directory))))
(name-list (make-temp-name "~/NAME")))
(cl-call-if-equal
(lambda () (require 'cl-proj-file-environment))
`(cl-file-name ,file-name ,name-list))
(apply #'cl--make-name-after-name ,name-list name-list)
,@body))))
(defun cl-make-file-name-internal (&rest body)
"Make NAME inside the shell the NAME of the file in FILE-NAME-IN-FILE."
(dolist (entry entry)
(cl-maybe (propertize
(format-message "Creating a file name %s%s" entry)
"\" NAME \"" (substring entry 0 (propertize 1))))
entry))
(defvar cl-default-file-names)
(defun cl-write-from-file (&optional file &rest rest)
"Write a FILE to an external buffer, if it is writable.
With a prefix argument, write to the buffer's buffer.
FILE is the file name to put in the buffer (or nil if not writable).
With a prefix argument, use the file name it's been saved to the current buffer.
If FILE is not writable, a nil value forces that the buffer be writable.
STORED-FILE is a symbol (see `file-name-table').
If optional argument BEG-FATFORM is non-nil and the buffer is a file,
it's loaded to the file name before the buffer is loaded (the default),
or before it is loaded (the buffer is a .buffer) and the buffer is writable.
If optional argument PREFIX-FATFORM is `tame-file', it is assumed to have a
default form.
Optional argument FILENAME-FILE is a directory.
This value is read and written through the file name table."
(cond ((or (equal filename file-name-intern) (file-name-directory filename)))
(write-region nil t nil nil t "%s" (buffer-name-tbl nil (file-name-directory)))
(with-temp-buffer (expand-file-name filename)
(let ((default-directory filename))
(save-excursion
(insert-file-contents file default-directory)
(insert-file-contents (buffer-file-name default-directory) t nil t
======== SAMPLE 4 ========
-vcenter-horizontal-column)
(1- (point))))
(beginning-of-line)
(setq point (+ start marker)))
(setq marker (save-excursion
(forward-char -1)
(progn (beginning-of-line)
(get-text-property (point) 'visibility))))
;; Remove the column markers for the start markers.
(beginning-of-line 1)
(if (and (fboundp 'forward-char)
(get-text-property (point) 'visibility))
(forward-char 1)
(point))))
(defun vcenter-vcenter-horizontal-column ()
"Vertically enclose a VCENTRAL vertical column that is the size of the current
point and can be used to select a position."
(interactive)
(let ((vleftn-horizontal-column (point)))
(vcenter-vertical-column (point)))
(vccenter-horizontal-column (+ vcenter-horizontal-column (point)))
(vccenter-horizontal-column 0 (vcenter-vertical-column)))
(define-minor-mode vcenter-vcenter-horizontal-column
"Vertically enclose VCENTRAL vertical column that is the size of the
current point and can be used to select a position."
(interactive)
(let ((vleftn-horizontal-column (point)))
(vccenter-vertical-column (+ vcenter-horizontal-column (- vleftn-horizontal-column (- vcenter-horizontal-column))))
(vccenter-vertical-column (+ vcenter-horizontal-column (- vcenter-horizontal-column (- vcenter-horizontal-column))))
(vccenter-vertical-column (+ vcenter-horizontal-column (* vcenter-horizontal-column (+ vleftn-horizontal-column (/ vcenter-vertical-column (- vleftn-horizontal-column (* vcenter-horizontal-column (* vcenter-horizontal-column (- vcenter-horizontal-column)))))))
(vccenter-horizontal-column 0 (vccenter-vertical-column (- vcenter-horizontal-column)))
(vccenter-vertical-column (+ vcenter-horizontal-column (- vcenter-horizontal-column (+ vcenter-horizontal-column (* vcenter-horizontal-column (* vcenter-horizontal-column (* vcenter-horizontal-column)))))))
;;;###autoload
(defun vcenter-vertical-column ()
"Vertically enclose VCENTRAL vertical column that is the size of the current
point and can be used to select a position."
(interactive)
(let ((vleftn-horizontal-column (1- vcenter-horizontal-column)))
(vccenter-vertical-column (+ vcenter-horizontal-column (- vleftn-horizontal-column)))
(vccenter-vertical-column (+ vcenter-horizontal-column (+ vcenter-horizontal-column (- vcenter-horizontal-column)))))))
(defun vcenter-vertical-column-inside ()
"Vertically enclose VCENTRAL vertical column that is the size of the current
point and can be used to select a position."
(interactive)
(let ((vleftn-horizontal-column (1- vcenter-horizontal-column)))
(vccenter-vertical-column-inside (+ vcenter-horizontal-column (+ vleftn-horizontal-column (- vcenter-horizontal-column (- vcenter-horizontal-column)))))))
(defun vcenter-vertical-column-inside (t)
"Vertically enclose VCENTRAL vertical column that is the size of the current
point and can be used to select a position."
(interactive "p")
(vccenter-horizontal-column-inside
[10200 | 2581.31] loss=0.51 avg=1.12
[10201 | 2582.23] loss=1.04 avg=1.12
[10202 | 2583.15] loss=1.32 avg=1.12
[10203 | 2584.06] loss=1.46 avg=1.12
[10204 | 2584.98] loss=0.72 avg=1.12
[10205 | 2585.90] loss=1.11 avg=1.12
[10206 | 2586.81] loss=1.19 avg=1.12
[10207 | 2587.73] loss=1.01 avg=1.12
[10208 | 2588.65] loss=1.12 avg=1.12
[10209 | 2589.56] loss=1.03 avg=1.12
[10210 | 2590.48] loss=1.27 avg=1.12
[10211 | 2591.40] loss=0.75 avg=1.12
[10212 | 2592.31] loss=0.82 avg=1.11
[10213 | 2593.23] loss=0.84 avg=1.11
[10214 | 2594.14] loss=1.26 avg=1.11
[10215 | 2595.06] loss=1.25 avg=1.11
[10216 | 2595.97] loss=1.35 avg=1.12
[10217 | 2596.88] loss=1.02 avg=1.12
[10218 | 2597.80] loss=1.30 avg=1.12
[10219 | 2598.71] loss=0.79 avg=1.11
[10220 | 2599.62] loss=1.07 avg=1.11
[10221 | 2600.54] loss=1.14 avg=1.11
[10222 | 2601.45] loss=1.33 avg=1.12
[10223 | 2602.37] loss=1.17 avg=1.12
[10224 | 2603.28] loss=1.14 avg=1.12
[10225 | 2604.20] loss=1.13 avg=1.12
[10226 | 2605.11] loss=0.59 avg=1.11
[10227 | 2606.03] loss=0.96 avg=1.11
[10228 | 2606.95] loss=0.63 avg=1.11
[10229 | 2607.87] loss=1.41 avg=1.11
[10230 | 2608.78] loss=1.55 avg=1.11
[10231 | 2609.69] loss=0.85 avg=1.11
[10232 | 2610.61] loss=2.02 avg=1.12
[10233 | 2611.53] loss=1.48 avg=1.12
[10234 | 2612.45] loss=1.33 avg=1.12
[10235 | 2613.36] loss=0.91 avg=1.12
[10236 | 2614.28] loss=0.86 avg=1.12
[10237 | 2615.20] loss=1.14 avg=1.12
[10238 | 2616.12] loss=0.85 avg=1.12
[10239 | 2617.03] loss=1.35 avg=1.12
[10240 | 2617.95] loss=1.07 avg=1.12
[10241 | 2618.87] loss=0.87 avg=1.12
[10242 | 2619.79] loss=0.63 avg=1.11
[10243 | 2620.70] loss=1.41 avg=1.12
[10244 | 2621.62] loss=0.79 avg=1.11
[10245 | 2622.54] loss=1.10 avg=1.11
[10246 | 2623.46] loss=1.01 avg=1.11
[10247 | 2624.38] loss=1.03 avg=1.11
[10248 | 2625.30] loss=1.24 avg=1.11
[10249 | 2626.22] loss=0.94 avg=1.11
[10250 | 2627.14] loss=1.17 avg=1.11
[10251 | 2628.06] loss=0.97 avg=1.11
[10252 | 2628.97] loss=1.14 avg=1.11
[10253 | 2629.89] loss=0.94 avg=1.11
[10254 | 2630.81] loss=0.92 avg=1.11
[10255 | 2631.73] loss=0.78 avg=1.10
[10256 | 2632.65] loss=1.08 avg=1.10
[10257 | 2633.57] loss=1.15 avg=1.10
[10258 | 2634.49] loss=1.25 avg=1.10
[10259 | 2635.41] loss=1.13 avg=1.10
[10260 | 2636.33] loss=0.52 avg=1.10
[10261 | 2637.25] loss=0.87 avg=1.10
[10262 | 2638.17] loss=0.74 avg=1.09
[10263 | 2639.09] loss=1.13 avg=1.09
[10264 | 2640.00] loss=1.13 avg=1.09
[10265 | 2640.92] loss=1.20 avg=1.09
[10266 | 2641.85] loss=1.08 avg=1.09
[10267 | 2642.76] loss=0.79 avg=1.09
[10268 | 2643.69] loss=1.18 avg=1.09
[10269 | 2644.61] loss=1.11 avg=1.09
[10270 | 2645.53] loss=0.79 avg=1.09
[10271 | 2646.45] loss=0.87 avg=1.09
[10272 | 2647.37] loss=1.29 avg=1.09
[10273 | 2648.30] loss=1.01 avg=1.09
[10274 | 2649.22] loss=1.03 avg=1.09
[10275 | 2650.14] loss=1.10 avg=1.09
[10276 | 2651.06] loss=0.89 avg=1.09
[10277 | 2651.98] loss=0.97 avg=1.08
[10278 | 2652.91] loss=1.50 avg=1.09
[10279 | 2653.83] loss=1.00 avg=1.09
[10280 | 2654.75] loss=0.97 avg=1.09
[10281 | 2655.67] loss=1.31 avg=1.09
[10282 | 2656.59] loss=1.20 avg=1.09
[10283 | 2657.51] loss=0.76 avg=1.09
[10284 | 2658.43] loss=1.33 avg=1.09
[10285 | 2659.36] loss=1.09 avg=1.09
[10286 | 2660.28] loss=1.09 avg=1.09
[10287 | 2661.20] loss=1.06 avg=1.09
[10288 | 2662.12] loss=0.67 avg=1.08
[10289 | 2663.05] loss=0.87 avg=1.08
[10290 | 2663.97] loss=1.34 avg=1.09
[10291 | 2664.90] loss=1.04 avg=1.08
[10292 | 2665.82] loss=1.09 avg=1.08
[10293 | 2666.74] loss=1.45 avg=1.09
[10294 | 2667.66] loss=1.39 avg=1.09
[10295 | 2668.59] loss=1.16 avg=1.09
[10296 | 2669.51] loss=1.09 avg=1.09
[10297 | 2670.43] loss=1.41 avg=1.10
[10298 | 2671.35] loss=0.88 avg=1.09
[10299 | 2672.28] loss=0.90 avg=1.09
Generating samples...
======== SAMPLE 1 ========
))
(define-key map [down] [keydown] '(down 2 2))
(define-key map [up] [keydown] '(2 6 8))
(define-key map [next] [down] 'menu-bar-up 'menu-bar-up-in-menu-bar t
(if (assq 'down :select)
(let ((prev-menu
(get-text-property (1+ start) 'key)
(get-text-property (1+ end) 'key)
(get-text-property (1+ end) 'move)))
'menu-bar-up-in-menu-bar t
(- (assq 'down :select)
(get-text-property (1+ starting) 'move)))))))
(define-key map [overlay]
(let ((map (make-sparse-keymap)))
(define-key map [back]
(mapcar
(function (lambda (x) (assq x 'window-bar-width 2))
(define-key map (nth 1 x) x 'window-bar-end-width))
(define-key map (nth 2 x) x 'window-bar-end-height)) t)
))
(define-obsolete-function-alias 'font-lock-fontify-region "27.1")
(defvar font-lock-fontify-region nil)
(defun fontify-region (start end &optional region &optional start end &optional region local)
"Apply the face in region to the current buffer.
With prefix argument ARGS, apply the face to ALL elements.
If ARGS is a string, apply the face to ALL elements when that is
the first element. If ARGS is non-a, apply only the face to
all the elements. If ARGS is a single string, just apply it to the
first element, and only after the first element is changed.
Optional argument REGION can be used to override region."
;; Fixup here if we have a font file of a fixed size like vn.el
;; http://fontify.org/face-size-alist/
(with-temp-buffer
(fontify-mode)
(insert (make-vector 32 0)))
)
(defvar fontify-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [down] [keydown] 'font-lock-fontify)
)
"Keymap to fontify regions."
(or (org-export-keymap
(org-export-register 'fontify-region-map)
'(default-directory-dir global-font-lock-default-directory-directory-prefix-map))
(org-export-keymap 'fontify-region (mapcar :keys "c")
font-lock-fontify-map fontify-mode-map)
;; Make sure the face is not visible when we don't have a font
;; file in the current buffer.
("font/" font-lock-fontify
"fontify" ,(org-export-keymap :tag "Use Fontify" fontify-map))
("org-default"
======== SAMPLE 2 ========
)))))
((or (= (consp (nth 0 p) (nth 1 (nth 1 p))))
((and (= (consp (nth 0 p) (nth 2 (nth 2 p)) 3))))
t)
(setq p (1- (nth 2 p)))))
((and (<= (nth 3 p) (nth 2 p)) 0)
(setq p 1)
(setq p (1+ (nth 1 p)))
(while (and (<= (nth n) (nth 2 p))
(setq p (1+ (nth n) (nth 2 p))))
(setq p (1- (nth n))))))))
(defvar org-babel-show-error-list t
"List of error messages that should be displayed
per the following format:
NAME NAME NAME NAME NAME NAME NAME NAME NAME INFO
NAME INFO
(message-message
org-babel-show-error-list `("NAME" nil "NAME ")
(or
(and (org-show-warning-message-regexp
(org-get-message "Show Warning Message" 'org-message-list))
)
(let* ((error (org-babel-show-error-list
(org-get-message "Show Error"
'(org-export-type-category error org-export-type-category)
(org-export-type-type-function error)
(org-export-type-function `(error ,error)
'(,(list :name :label :value :start ,(lambda :value :start))))
(:group error :summary :line ,(lambda :name :line)))))
(org-message
;; (org-babel-show-warning-message-regexp
nil nil "NAME NAME INFO
(nth 0 (error-message
(nth 1 error))) ))
(message-message
(message-message
======== SAMPLE 3 ========
))
;; -3:
(- 2 (get 'vec1 'vec2))
;; -3:
(- 1 (get 'vec2 'vec3)))
(defmacro vec1 (s,s,s++)
"Return the result (s,s++) pair of s."
`(cons ... ,(get 'vec1 ',(if (< (1- s) 0) (< (1- s)))
(vector . 6 (if (consp (nth 1 s))
(nth 2 s))))
`(let ((s (nth 1 s)) ... ,(cons . 6) ,(get 'vec1 ',(if (>= (1- s) 0) (> (1- s)))
(cons . 6))))
(list . 6 (progn
(with-no-warnings
(setq s (copy-sequence s))
(nop (setq s (nreverse s))
(cons . 6))))
,s)))
(defmacro vec1 '(",,a,b" ",a,b"))
(defmacro vec1 (s , s++)
"Return the result (s, S++) pair of s."
`(cons (cons ,(get 'vec1 ',(if (> (1- s) 0) (< (1- s)))
(nth 1 s)))
,s)))
(defmacro vec1 '("")
;; -4:
(- (get 'vec1 'vec2))
;; -4:
(- 1 (get 'vec2 'vec3)))
(defmacro vec2 (s++)
"Return the result (s, S++) pair of s.
The second argument must be of the form (S++), where is the result.
The result is an alist which defines the `cdr' and `vec'. The last
argument represents the alist returned by `sapply' (here we call
`sapply2' and `vec2' together).
This alist is only used for `vec1' and `vec2' when
the first argument is `vec', and is only valid for `vec1' and
`vec2'.")
(defmacro vec2 (s++)
"Return the result (s, S++) pair of s."
`(cons . 7 'vec2)
;; -3:
(- 6 (get 'vec2 'vec3)))
(defmacro vec2 (s++)
"Return the result (s, S++) pair of s."
`(nreverse . 7 'vec2)))
(defmacro vec2 (s++)
"Return the result (s, S++) pair of s."
`(nreverse . 7 'vec2)))
(defmacro vec1 (s++)
"Return the result (s, s++) pair of s.
For `s', `cdr', this is the result (1) of `vec2', `polar(2) and
`vec2' if both of the `cdr' and the
`polar' objects are non-negatives."
`(mapcar #' (lambda (c)
(lambda (i)
;; (let ((c0 (aref (nreverse c
======== SAMPLE 4 ========
)))))
;; `(,(,(?\n ,(?\n (:background "darkgray" :bold "white"))
(?:(? (?\n '(:background "lightgrey" :bold "gray"))
:weight "red"))
;; `((,(? \n ,(?\n (:background "green" :bold "black")
:weight "yellow"))
(?:color "aqua" :foreground "<a href=\"/@%d\" alt=\"?\n alt=\"?\n \n" "
(?\n "red"))
:weight "sable"))
;; `((,(?:\n ,(?\n (:background "spruce" :weight bold :inverse :weight t t)
:weight "blue"))
(?:(?:color "blue" :foreground "<a href=\"/@%d\" alt=\"?\n alt=\"?\n \n" "
(?\n "red"))
:weight "red"))
;; `((,(? \n ,(?\n (:background "aqua" :weight bold :inverse :weight t t)
:weight "blue"))
(?:color "orange"))
;; `((,(?\n ,(?\n (:background "spruce" :weight bold :inverse :weight t t)
:weight "blue"))
(?:color "aqua"))
;; `((,(?\n ,(?\n (:background "sprucegreen" :weight bold :inverse :weight t t)
:weight "green"))
(?:color "lime"))
;; `((,(?\n ,(?\n (:background "green" :weight bold :inverse :weight t t)
:weight "yellow" :weight "red"))
(?:color "lime"))
;; `((,(?\n ,(?\n (:background "grayblue" :weight bold :inverse :weight t t)
:weight "grayblue"))
(?:color "yellow"))
;; `((,(?\n ,(?\n (:background "green" :weight bold :inverse :weight t t)
:weight "grayblue"))
(?:color "lime"))
(put 'org/hkv-mime/mime-mime-extensions 'languages 'risky-flag)
(defvar org-hk-mime-extension-citation
(if (not org-hk-mime-extension-citation) (setq org-hk-mime-extension-citation
:format "hkv-mime-extension.html?\n" :weight bold :background "black"
:weight "white"))
"Citation string for Hkv mode Emacs extensions.")
(put 'org/hkv-mime-extensions 'languages 'risky-flag)
(defvar org-hk-extension-citation org-hk-mime-extensions)
(defvar org-hk-mime-extension-citation org-hk-sftree-extension-citation)
(defvar org-hk-extension-citation org-hk-s
[10300 | 2697.89] loss=0.58 avg=1.09
[10301 | 2698.81] loss=1.27 avg=1.09
[10302 | 2699.73] loss=0.90 avg=1.09
[10303 | 2700.64] loss=0.77 avg=1.08
[10304 | 2701.55] loss=1.20 avg=1.08
[10305 | 2702.47] loss=1.24 avg=1.09
[10306 | 2703.38] loss=0.87 avg=1.08
[10307 | 2704.29] loss=1.11 avg=1.08
[10308 | 2705.21] loss=1.30 avg=1.09
[10309 | 2706.12] loss=1.09 avg=1.09
[10310 | 2707.03] loss=1.42 avg=1.09
[10311 | 2707.95] loss=0.92 avg=1.09
[10312 | 2708.86] loss=1.21 avg=1.09
[10313 | 2709.77] loss=0.99 avg=1.09
[10314 | 2710.68] loss=0.85 avg=1.09
[10315 | 2711.60] loss=0.91 avg=1.08
[10316 | 2712.51] loss=0.62 avg=1.08
[10317 | 2713.42] loss=1.19 avg=1.08
[10318 | 2714.34] loss=0.78 avg=1.08
[10319 | 2715.25] loss=0.56 avg=1.07
[10320 | 2716.16] loss=0.78 avg=1.07
[10321 | 2717.08] loss=1.06 avg=1.07
[10322 | 2717.99] loss=1.15 avg=1.07
[10323 | 2718.91] loss=0.94 avg=1.07
[10324 | 2719.82] loss=1.01 avg=1.07
[10325 | 2720.74] loss=0.88 avg=1.07
[10326 | 2721.66] loss=0.98 avg=1.07
[10327 | 2722.58] loss=1.28 avg=1.07
[10328 | 2723.50] loss=1.41 avg=1.07
[10329 | 2724.41] loss=0.78 avg=1.07
[10330 | 2725.33] loss=1.23 avg=1.07
[10331 | 2726.25] loss=1.13 avg=1.07
[10332 | 2727.17] loss=1.42 avg=1.07
[10333 | 2728.08] loss=0.92 avg=1.07
[10334 | 2729.00] loss=0.72 avg=1.07
[10335 | 2729.93] loss=1.01 avg=1.07
[10336 | 2730.85] loss=1.55 avg=1.07
[10337 | 2731.77] loss=1.32 avg=1.08
[10338 | 2732.69] loss=1.11 avg=1.08
[10339 | 2733.61] loss=1.31 avg=1.08
[10340 | 2734.53] loss=1.08 avg=1.08
[10341 | 2735.45] loss=0.87 avg=1.08
[10342 | 2736.37] loss=1.17 avg=1.08
[10343 | 2737.29] loss=0.94 avg=1.08
[10344 | 2738.22] loss=0.70 avg=1.07
[10345 | 2739.14] loss=0.97 avg=1.07
[10346 | 2740.06] loss=1.15 avg=1.07
[10347 | 2740.98] loss=0.98 avg=1.07
[10348 | 2741.90] loss=0.64 avg=1.07
[10349 | 2742.82] loss=0.86 avg=1.06
[10350 | 2743.74] loss=0.79 avg=1.06
[10351 | 2744.65] loss=1.22 avg=1.06
[10352 | 2745.57] loss=0.76 avg=1.06
[10353 | 2746.49] loss=1.15 avg=1.06
[10354 | 2747.42] loss=1.09 avg=1.06
[10355 | 2748.34] loss=1.45 avg=1.07
[10356 | 2749.26] loss=1.10 avg=1.07
[10357 | 2750.19] loss=1.38 avg=1.07
[10358 | 2751.10] loss=2.14 avg=1.08
[10359 | 2752.03] loss=1.27 avg=1.08
[10360 | 2752.95] loss=1.05 avg=1.08
[10361 | 2753.88] loss=1.08 avg=1.08
[10362 | 2754.80] loss=0.96 avg=1.08
[10363 | 2755.73] loss=1.26 avg=1.08
[10364 | 2756.65] loss=1.08 avg=1.08
[10365 | 2757.58] loss=1.19 avg=1.08
[10366 | 2758.50] loss=0.90 avg=1.08
[10367 | 2759.43] loss=1.12 avg=1.08
[10368 | 2760.35] loss=1.14 avg=1.08
[10369 | 2761.27] loss=1.12 avg=1.08
[10370 | 2762.19] loss=1.00 avg=1.08
[10371 | 2763.12] loss=1.69 avg=1.09
[10372 | 2764.04] loss=0.84 avg=1.09
[10373 | 2764.97] loss=1.27 avg=1.09
[10374 | 2765.89] loss=1.15 avg=1.09
[10375 | 2766.81] loss=1.28 avg=1.09
[10376 | 2767.74] loss=1.07 avg=1.09
[10377 | 2768.66] loss=1.11 avg=1.09
[10378 | 2769.58] loss=1.13 avg=1.09
[10379 | 2770.50] loss=0.95 avg=1.09
[10380 | 2771.42] loss=0.90 avg=1.09
[10381 | 2772.35] loss=1.00 avg=1.09
[10382 | 2773.27] loss=1.20 avg=1.09
[10383 | 2774.20] loss=1.03 avg=1.09
[10384 | 2775.12] loss=0.78 avg=1.08
[10385 | 2776.04] loss=1.11 avg=1.08
[10386 | 2776.96] loss=0.93 avg=1.08
[10387 | 2777.88] loss=1.02 avg=1.08
[10388 | 2778.81] loss=0.82 avg=1.08
[10389 | 2779.73] loss=1.21 avg=1.08
[10390 | 2780.65] loss=1.42 avg=1.08
[10391 | 2781.57] loss=0.94 avg=1.08
[10392 | 2782.50] loss=0.74 avg=1.08
[10393 | 2783.42] loss=1.06 avg=1.08
[10394 | 2784.34] loss=1.46 avg=1.08
[10395 | 2785.27] loss=1.14 avg=1.08
[10396 | 2786.19] loss=1.15 avg=1.08
[10397 | 2787.11] loss=0.96 avg=1.08
[10398 | 2788.03] loss=1.19 avg=1.08
[10399 | 2788.95] loss=1.14 avg=1.08
Generating samples...
======== SAMPLE 1 ========
;;;;; XUL/Xv
(defun c-mprint-read-file-name (&optional force)
"Read file name from FILE at point and return the first element.
Optional arg C-m-C-is-xul/Xv if non-nil. Return nil otherwise."
(interactive (list (c-beginning-of-defun) (point)))
(if c-mprint-file-type-list
(cons (substring (buffer-substring (point) (car c-mprint-current-args)) 0
(list (nconc c-mprint-current-args
(car c-mprint-current-args)))
nil))
(c-add-header-line
(c-remove-backslash "\n\n" nil))))
;;;###autoload
(defun c-mprint-read-file-name-from-buffer (&optional force)
;; Read file named according to its filename.
(interactive (list (c-beginning-of-defun) (buffer-substring (point) (car c-mprint-current-args)) (point)))
(interactive (list (c-beginning-of-defun) (buffer-substring (point) (c-point)))
last-input
(let ((t (save-excursion (org-in-x-p)))
(f (c-with-extra-command-keys
(c-beginning-of-defun) t)
(c-forward-line)
t)
(last-input (current-buffer))
t)
(end-input (current-buffer))
t))))
(defun c-mprint-read-file-name-from-buffer (&optional force)
;; Read file named according to its filename.
(interactive (list (c-beginning-of-defun) (buffer-substring (point) (c-point)))))
(defun c-mprint-read-file-name-to-buffer (name)
;; Read file name from buffer NAME.
(if (= (c-point) 3)
(goto-char (point-min))
nil))
;;;###autoload
(defun c-mprint-put-file-name (name)
"Use current filename to put file name in buffer PRIVATE.
This function is used to modify current file name if PRIVATE is nil.
If PRIVATE is not nil or nil, then PRIVATE is inserted in buffer.
If PRIVATE is not a name or an element of a symbol, then nil is returned."
(lambda (name value)
(unless (member name value)
(if (car (c-string-concat name)))
(setq value (cdr name)))
(c-add-header-line " " (c-c-point) ": " nil nil nil value)
(setq value (or value (cdr (car value))))
(if (and (member name "PRIVATE") (member property "PRIVATE"))
nil
(setq name (concat name value)))
(c-add-header-line " " (car value) " " " " 'PRIV
======== SAMPLE 2 ========
;;
(setq gnus-newsgroup-info-buffer-flag nil
gnus-newsgroup-info-buffer-use-group
gnus-newsgroup-info-buffer-modified nil)
(if (and gnus-unmodified-group-p
(null (numberp gnus-newsgroup-info-buffer-used))))
(if (and (integerp gnus-group-info-buffer-use-group)
(y-or-n-p
(format-message
"%s %s %s %s"
(gnus-group-alist-get-string
gnus-newsgroup-info-buffer-used)
nil
gnus-newsgroup-info-buffer-modified)))))
(setq gnus-newsgroup-info-buffer-flag
(if (equal
(string-match
gnus-newsgroup-info-buffer-used
gnus-newsgroup-info-buffer-use-group
(or (string-match
gnus-newsgroup-info-buffer-used)
'kill-buffer gnus-newsgroup-info-buffer-modified))
0
nil
(or gnus-newsgroup-info-buffer-use-group nil))
(if (and (number-match gnus-newsgroup-info-buffer-modified)
(equal
gnus-newsgroup-info-buffer-used
(string-match
======== SAMPLE 3 ========
;; and
;; (;; (and (eq
;; (read-char-exclusive)) ; not a literal character
;; (and (string-match ":" (buffer-name))
;; (not (equal (mail-reply-string) 'message-id)
;; (mail-header-prefix
;; (symbol-name message-id)))))
;; (and (equal (mail-header-string) 'display-display)
;; (not (equal (mail-header-string) 'display-display)
;; (mail-header-prefix msg-id))
;; (mail-header-suffix msg-id))))
;; 'message-id nil)
;; (setq mail-header-prefix-end (point-max))
;; (message-save-buffer (mail-header-end-point)
;; (point-min)
;; (message-buffer-modified t))
;; (setq mail-header-id-end
;; (let ((b e)
;; (e (mail-header-prefix))
;; (e-p i))
;; (mail-header-message-id-buffer)))
;; (setq message-id (mail-header-string (buffer-name))); if not nil, then
;; i (mail-body-count)
;; r (mail-data-count)
;; m (mail-header-count m))
;; mail-headers
;; mailbox
;;; Code:
;; To create an output file from this buffer, use
;; (internmail
;; (if (mail-string-with-header-p mailbox)
;; mailbox)
;; Mailbox functions:
;; See `mail-buffer-list' for details on mail-buffer.
;;; Code:
(provide 'mail-
======== SAMPLE 4 ========
;;
;; Compute what this means:
. (setq viper-agent (viper-agent-get-group 1))
. (setq buf1 (replace-regexp-in-string ":" ":"
(regexp-opt "-"))
t))
;; Add the new group name.
(setq buf1 (viper-agent-get-group 1))
(setq viper-group (viper-agent-get-group 1))
(if (or (not buf1) (zerop (length buf)))
(viper-agent-get-group 1 t))
;; Reuse the current file if this is a file
(if (and viper-agent
(get-file-buffer buf1 t))
(setq buf2 (replace-regexp-in-string ":" ":"
(file-name-as-directory buf1))
t))
(if (or viper-agent (not (string-prefix-p "=" buf1))
(and (string-match viper-agent-pattern)
(not (string-file-name viper-agent-file)))
(not (string-prefix-p "-" buf2)))
;; Use existing file if it has some
;; file name.
(or (not buf1)
(and (equal viper-group-name "*"))
(not (file-exists-p buf1)))
(setq buf1 (viper-agent-get-group 1 t))
(if (not buf2)
;; This file has a different file file name.
(setq buf2 nil))
(setq buf1 (viper-agent-get-group 1 t)))
;; Set the new file name if there is any, except that it has
;; a new line.
(if (not (file-exists-p buf1))
buf1 nil
(viper-agent-get-group 1 t))
(setq buf1 (viper-agent-get-group 1 t)))
)) ;; Add current file to `viper-agent-file'
(viper-set-last-group-name (make-local-variable 'viper-agent-file))
(setq viper-agent-file nil))
;; When you insert your file, make sure this can be called
;; as many times as necessary.
(defun viper-file-insert (file name)
(unless (re-search-forward viper-file-name nil t)
(goto-char (point-max))
(let ((file
(progn
;; Check for files of the same type
(when (and file file-exists-p)
(setq viper-agent-file file-exists
[10400 | 2814.44] loss=1.08 avg=1.08
[10401 | 2815.35] loss=0.92 avg=1.08
[10402 | 2816.27] loss=1.13 avg=1.08
[10403 | 2817.18] loss=1.11 avg=1.08
[10404 | 2818.10] loss=1.32 avg=1.09
[10405 | 2819.01] loss=0.89 avg=1.08
[10406 | 2819.92] loss=0.89 avg=1.08
[10407 | 2820.83] loss=1.15 avg=1.08
[10408 | 2821.75] loss=0.88 avg=1.08
[10409 | 2822.66] loss=0.58 avg=1.08
[10410 | 2823.57] loss=1.00 avg=1.07
[10411 | 2824.48] loss=1.09 avg=1.07
[10412 | 2825.40] loss=1.09 avg=1.07
[10413 | 2826.31] loss=0.86 avg=1.07
[10414 | 2827.22] loss=1.54 avg=1.08
[10415 | 2828.14] loss=0.66 avg=1.07
[10416 | 2829.05] loss=1.43 avg=1.08
[10417 | 2829.97] loss=1.15 avg=1.08
[10418 | 2830.88] loss=0.83 avg=1.07
[10419 | 2831.79] loss=0.95 avg=1.07
[10420 | 2832.71] loss=1.75 avg=1.08
[10421 | 2833.62] loss=1.42 avg=1.08
[10422 | 2834.53] loss=1.04 avg=1.08
[10423 | 2835.45] loss=0.96 avg=1.08
[10424 | 2836.36] loss=1.10 avg=1.08
[10425 | 2837.27] loss=1.19 avg=1.08
[10426 | 2838.19] loss=0.88 avg=1.08
[10427 | 2839.11] loss=0.84 avg=1.08
[10428 | 2840.03] loss=1.16 avg=1.08
[10429 | 2840.95] loss=1.16 avg=1.08
[10430 | 2841.86] loss=0.92 avg=1.08
[10431 | 2842.78] loss=0.89 avg=1.08
[10432 | 2843.70] loss=0.91 avg=1.08
[10433 | 2844.62] loss=0.97 avg=1.07
[10434 | 2845.54] loss=0.81 avg=1.07
[10435 | 2846.46] loss=1.83 avg=1.08
[10436 | 2847.38] loss=0.97 avg=1.08
[10437 | 2848.30] loss=1.54 avg=1.08
[10438 | 2849.22] loss=1.26 avg=1.08
[10439 | 2850.14] loss=1.20 avg=1.09
[10440 | 2851.06] loss=0.86 avg=1.08
[10441 | 2851.98] loss=1.06 avg=1.08
[10442 | 2852.91] loss=1.15 avg=1.08
[10443 | 2853.83] loss=1.23 avg=1.09
[10444 | 2854.75] loss=0.91 avg=1.08
[10445 | 2855.67] loss=1.07 avg=1.08
[10446 | 2856.60] loss=0.76 avg=1.08
[10447 | 2857.52] loss=1.20 avg=1.08
[10448 | 2858.45] loss=1.22 avg=1.08
[10449 | 2859.37] loss=0.99 avg=1.08
[10450 | 2860.29] loss=1.04 avg=1.08
[10451 | 2861.22] loss=0.91 avg=1.08
[10452 | 2862.14] loss=1.20 avg=1.08
[10453 | 2863.07] loss=0.80 avg=1.08
[10454 | 2863.99] loss=1.00 avg=1.08
[10455 | 2864.91] loss=0.99 avg=1.08
[10456 | 2865.84] loss=1.12 avg=1.08
[10457 | 2866.76] loss=0.90 avg=1.08
[10458 | 2867.68] loss=0.98 avg=1.07
[10459 | 2868.60] loss=1.36 avg=1.08
[10460 | 2869.53] loss=1.58 avg=1.08
[10461 | 2870.45] loss=0.95 avg=1.08
[10462 | 2871.38] loss=1.19 avg=1.08
[10463 | 2872.30] loss=1.17 avg=1.08
[10464 | 2873.22] loss=0.90 avg=1.08
[10465 | 2874.14] loss=1.21 avg=1.08
[10466 | 2875.06] loss=1.39 avg=1.09
[10467 | 2875.99] loss=1.19 avg=1.09
[10468 | 2876.91] loss=1.26 avg=1.09
[10469 | 2877.83] loss=0.85 avg=1.09
[10470 | 2878.75] loss=0.68 avg=1.08
[10471 | 2879.67] loss=0.81 avg=1.08
[10472 | 2880.59] loss=1.02 avg=1.08
[10473 | 2881.51] loss=1.39 avg=1.08
[10474 | 2882.43] loss=1.22 avg=1.08
[10475 | 2883.36] loss=0.78 avg=1.08
[10476 | 2884.28] loss=0.60 avg=1.07
[10477 | 2885.20] loss=0.81 avg=1.07
[10478 | 2886.12] loss=1.15 avg=1.07
[10479 | 2887.04] loss=0.88 avg=1.07
[10480 | 2887.96] loss=1.10 avg=1.07
[10481 | 2888.88] loss=1.19 avg=1.07
[10482 | 2889.80] loss=0.93 avg=1.07
[10483 | 2890.71] loss=1.01 avg=1.07
[10484 | 2891.63] loss=1.75 avg=1.08
[10485 | 2892.55] loss=1.09 avg=1.08
[10486 | 2893.47] loss=1.10 avg=1.08
[10487 | 2894.39] loss=1.07 avg=1.08
[10488 | 2895.31] loss=1.05 avg=1.08
[10489 | 2896.23] loss=1.46 avg=1.08
[10490 | 2897.15] loss=1.26 avg=1.08
[10491 | 2898.07] loss=0.87 avg=1.08
[10492 | 2899.00] loss=1.39 avg=1.08
[10493 | 2899.92] loss=0.67 avg=1.08
[10494 | 2900.83] loss=1.32 avg=1.08
[10495 | 2901.76] loss=0.78 avg=1.08
[10496 | 2902.68] loss=1.17 avg=1.08
[10497 | 2903.60] loss=1.18 avg=1.08
[10498 | 2904.52] loss=1.26 avg=1.08
[10499 | 2905.44] loss=1.03 avg=1.08
Generating samples...
======== SAMPLE 1 ========
buffers to the file's buffer
`/local:/tmp/tmp-file' will search the variable for
a file name with a non-nil value."
(setq buffer-local-copy (or local-copy (car local-copy)))
(setq file-local-list (cons (cons file file-local-list)
;; Not at least to the files in the list.
(if (null buffer-local-copy)
;; Set the list in the current buffer.
(car (cdr buffer-local-copy)))
;; Set the value of a variable.
(if (null local-copy)
(cons (cons local-copy local-copy)
(if (null file-local-list)
;; Set the list in this buffer.
(concat buffer-local-list
" "/tmp/")))
(if (null file-local-list)
;; Set buffer-local-list to the file. Otherwise,
;; make sure that any local file in
;; any other buffer changes its value.
;; make sure that its value has a default value.
(push buffer-local-list file-local-list)))
(setq buffer-local-list new-file-list)
(setq new-file-list buffer-local-list)))
;; Set the list in the list buffer to this variable, if it exists
;; in the system buffer.
;; If it has any other entry, set the list in the list buffer to file
;; file-name, otherwise set it to
======== SAMPLE 2 ========
buffers
(defvar org-macs-keymap
(save-excursion
(back-to-indentation)
;; We use a symbol to highlight the "in" and "out" keys,
;; i.e., there are two groups of three "inside" and "outside" fields.
(push ((looking-at org-pct-in-field) '(all)) org-macs-keymap)
(setq org-macs-keymap nil) )
))
(if (looking-back org-pct-in-field-function-line-forward)
(delete-region (point-min) (progn (forward-line 1) (point))))
(point)
(goto-char (match-end 0)))))
(defvar org-macs-keymap) ;; This entry is bound so we can set this variable to nil.
(defvar org-macs-keymap (list 'mouse-event-events (cons 'mouse-event-events 'org-macs))
(defvar org-macs-keymap (list 'mouse-event-events (cons 'mouse-event-events 'org-macs))))))
(define-derived-mode org-macs-keymap "org-macs"
"Set keymap in the org-macs menu."
(add-hook 'mode-hook 'org-mode-map)
(add-hook 'save-buffer-hook 'mouse-mouse-update)
;; See this entry in `org-macs-keymap'."
;; FIXME: Don't use `org-macs-keymap' for this, because that will not work.
(setq org-macs-keymap org-macs-keymap))
;; The keymap used in Emacs is called mocc.el's keymap.
(put 'mocc (list '(org-macs-keymap)))
(defun org-macs-keymap-save-keymap (org-keymap)
(cond
((assoc org-keymap)
;; Do not use `org-save-keymap'; for example, use `org-goto-p', since
;; this will allow us to jump to a particular key or frame
;; when a frame is displayed in another window.
(org-back-to-indent)
(let ((org-keymap (cdr (org-export-macs-keymap)))
,org-keymap))
(set-keymap-cache org-keymap)
(org-set-file-local-map org-keymap)))
(org-macs-update
(let ((org-macs-keymap-alist (cdr (org-export-macs-keymap)))
,(org-macs-keys-alist))))
(defun org-macs-keymap-save-keymap (org-keymap)
(save-excursion
(org-macs-next-p)
(let* ((keymap (org-export-macs-keymap))
(value (car keymap))
(alist (cdr keymap)))
(org-macs-insert-keymap (cdr (org-export-macs-keymap)))
(when (eq keymap value)
(delete-region (point) (1+ (point)))
(when (eq keymap value)
(if (looking-at (org-export-macs-keymap)) org-macs-keymap))
(put-text-property (match-beginning 0) (match-end 0)
'save-keymap)
(when (eq keymap value)
======== SAMPLE 3 ========
buffers
(goto-char n)
(let* ((n (downcase this-indent)))
(goto-char n)
(while n
(setq this-indent
(if n (setq this-indent n))))))))
(defun newsticker-mark-indent-paragraph (n-start)
"Insert a paragraph starting with the indentation in N-DELIM."
(interactive "p")
(message "Indent in paragraph: ")
(if
(not (buffer-string))
(insert paragraph)
(setq n-start (or start (point))))
(kill-buffer n))
(provide 'syntax-tests)
(require 'lex-mode)
(require 'lex)
;;; syntax-tests.el ends here
<|endoftext|>;;; font-lock.el -- provide all the syntax definitions for all major modes )
;; Copyright (C) 1999-2005, 2007-2019 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; This version of font-lock provides the ability to set syntax and indentation of all
;; major modes without having to customize font-lock.
;
;;; Code:
(require 'cl-lib)
(defun font-lock-reuse ()
(save-excursion
(save-match-data
(goto-char (match-beginning 0))
(re-search-forward "^\\(\\(\\sw\\|\\\\r\\)\\|[^:]+\\)\\s-**\\(?" nil t)
(setq font-lock-mode-value '("^\\>\\|:")
font-lock-enable-comment
font-lock-ignore-syntax-after-comments
nil)
font-lock-use-font-lock)
(save-restriction
(narrow-to-region (point-max) (max (- n-start font-lock-indent)))
(goto-char (match-end 0))
(while (re-search-forward "\\(.*\\)" (point-max))
(setq font-lock-indent-value '("^\\>\\|:")
font-lock-use-font-lock))
(setq font-lock-mode-value '("^\\s-*\\)"))
(setq font-lock-enable-comment '("^\\>")))
;;;
; FontLock.el
;;;
; Font_Lock.el
;;;
(set (make-initial-value 'font-lock-font
font-lock-use-font-lock)
;;;
======== SAMPLE 4 ========
buffers (or return nil)
(string-match (if (or (and (null entry)
(not (cdr entry))
(not (member table (cdr entry))))
(null t)))))
(funcall (or (string-match "" (string-to-number table)
(if (and (null entry)
(null (cdr entry)))))
table))
(let ((len (length table)) ; The length of each entry.
(car (cdr table))))
(- len (length entry)) ; Length of each entry.
(if (or (null entry)
(string-match
(or (not table) string-match))
(string-to-number table) len))
(setq entry (cdr entry)) ; The entry's length.
(let ((len (length entry))
;; Remove the element of entry at end.
(if (null len) (or len 1) "")))
(if (called-interactively-p 'interactive)
(let ((entry (cdr entry))
;; Use the `-n' flag, because it may
;; trigger a breakpoint.
entry)
nil))
[10500 | 2930.91] loss=1.48 avg=1.09
[10501 | 2931.82] loss=1.39 avg=1.09
[10502 | 2932.74] loss=0.71 avg=1.09
[10503 | 2933.66] loss=1.53 avg=1.09
[10504 | 2934.57] loss=1.86 avg=1.10
[10505 | 2935.49] loss=1.00 avg=1.10
[10506 | 2936.40] loss=0.63 avg=1.09
[10507 | 2937.32] loss=1.35 avg=1.09
[10508 | 2938.24] loss=1.50 avg=1.10
[10509 | 2939.15] loss=1.05 avg=1.10
[10510 | 2940.07] loss=1.25 avg=1.10
[10511 | 2940.99] loss=1.61 avg=1.10
[10512 | 2941.90] loss=1.45 avg=1.11
[10513 | 2942.81] loss=1.06 avg=1.11
[10514 | 2943.73] loss=1.05 avg=1.11
[10515 | 2944.64] loss=0.83 avg=1.10
[10516 | 2945.56] loss=0.85 avg=1.10
[10517 | 2946.47] loss=1.14 avg=1.10
[10518 | 2947.39] loss=1.30 avg=1.10
[10519 | 2948.30] loss=0.78 avg=1.10
[10520 | 2949.21] loss=1.05 avg=1.10
[10521 | 2950.13] loss=0.79 avg=1.10
[10522 | 2951.04] loss=1.03 avg=1.10
[10523 | 2951.96] loss=1.15 avg=1.10
[10524 | 2952.87] loss=1.40 avg=1.10
[10525 | 2953.79] loss=1.25 avg=1.10
[10526 | 2954.71] loss=1.92 avg=1.11
[10527 | 2955.63] loss=1.11 avg=1.11
[10528 | 2956.55] loss=0.93 avg=1.11
[10529 | 2957.47] loss=0.85 avg=1.11
[10530 | 2958.38] loss=0.63 avg=1.10
[10531 | 2959.30] loss=0.74 avg=1.10
[10532 | 2960.22] loss=1.29 avg=1.10
[10533 | 2961.14] loss=1.73 avg=1.11
[10534 | 2962.06] loss=1.08 avg=1.10
[10535 | 2962.97] loss=1.10 avg=1.10
[10536 | 2963.90] loss=1.29 avg=1.11
[10537 | 2964.82] loss=1.09 avg=1.11
[10538 | 2965.74] loss=1.15 avg=1.11
[10539 | 2966.66] loss=0.80 avg=1.10
[10540 | 2967.57] loss=0.88 avg=1.10
[10541 | 2968.49] loss=1.11 avg=1.10
[10542 | 2969.41] loss=0.90 avg=1.10
[10543 | 2970.34] loss=0.96 avg=1.10
[10544 | 2971.26] loss=0.88 avg=1.10
[10545 | 2972.18] loss=0.69 avg=1.09
[10546 | 2973.10] loss=1.36 avg=1.09
[10547 | 2974.02] loss=0.92 avg=1.09
[10548 | 2974.94] loss=1.09 avg=1.09
[10549 | 2975.86] loss=1.21 avg=1.09
[10550 | 2976.78] loss=1.01 avg=1.09
[10551 | 2977.70] loss=1.17 avg=1.09
[10552 | 2978.63] loss=1.79 avg=1.10
[10553 | 2979.55] loss=0.80 avg=1.10
[10554 | 2980.48] loss=1.65 avg=1.10
[10555 | 2981.40] loss=1.07 avg=1.10
[10556 | 2982.32] loss=1.07 avg=1.10
[10557 | 2983.25] loss=1.58 avg=1.11
[10558 | 2984.17] loss=0.99 avg=1.11
[10559 | 2985.10] loss=0.85 avg=1.10
[10560 | 2986.02] loss=0.95 avg=1.10
[10561 | 2986.95] loss=1.02 avg=1.10
[10562 | 2987.87] loss=0.97 avg=1.10
[10563 | 2988.79] loss=1.02 avg=1.10
[10564 | 2989.72] loss=1.06 avg=1.10
[10565 | 2990.64] loss=0.90 avg=1.10
[10566 | 2991.56] loss=1.59 avg=1.10
[10567 | 2992.48] loss=1.17 avg=1.10
[10568 | 2993.40] loss=0.77 avg=1.10
[10569 | 2994.33] loss=1.24 avg=1.10
[10570 | 2995.25] loss=1.62 avg=1.11
[10571 | 2996.17] loss=1.22 avg=1.11
[10572 | 2997.09] loss=0.94 avg=1.11
[10573 | 2998.02] loss=1.56 avg=1.11
[10574 | 2998.94] loss=1.14 avg=1.11
[10575 | 2999.87] loss=1.19 avg=1.11
[10576 | 3000.79] loss=1.53 avg=1.12
[10577 | 3001.71] loss=1.09 avg=1.11
[10578 | 3002.63] loss=1.46 avg=1.12
[10579 | 3003.56] loss=1.04 avg=1.12
[10580 | 3004.48] loss=1.03 avg=1.12
[10581 | 3005.41] loss=0.88 avg=1.11
[10582 | 3006.33] loss=1.21 avg=1.12
[10583 | 3007.25] loss=1.08 avg=1.11
[10584 | 3008.17] loss=0.95 avg=1.11
[10585 | 3009.09] loss=0.90 avg=1.11
[10586 | 3010.02] loss=1.40 avg=1.11
[10587 | 3010.94] loss=0.73 avg=1.11
[10588 | 3011.86] loss=0.89 avg=1.11
[10589 | 3012.78] loss=0.82 avg=1.11
[10590 | 3013.71] loss=0.82 avg=1.10
[10591 | 3014.63] loss=0.49 avg=1.10
[10592 | 3015.55] loss=0.76 avg=1.09
[10593 | 3016.47] loss=1.26 avg=1.09
[10594 | 3017.39] loss=1.06 avg=1.09
[10595 | 3018.31] loss=0.81 avg=1.09
[10596 | 3019.23] loss=1.56 avg=1.10
[10597 | 3020.15] loss=1.08 avg=1.10
[10598 | 3021.07] loss=1.25 avg=1.10
[10599 | 3021.99] loss=0.55 avg=1.09
Generating samples...
======== SAMPLE 1 ========
(gnus-server-expire-files) (gnus-server-update-files (gnus-create-new-server ngnus-server-name)))
(or (eq (nth 2 file) (memq (org-server-to-file
(gnus-server-to-type
(and (memq (org-server-to-name
(org-list-completions
gnus-server-sub-methods 'not-gv-server)))))
(or (and (memq (org-server-to-type
(org-list-completions
gnus-server-sub-methods 'not-gv-server)
(not (gnus-expire-files
gnus-server-expire-files)))
(and gnus-expire-files
(not (gnus-expire-file
(and gnus-expire-files
gnus-server-expire-files))))))))
(unless (consp (consp files)) (unless (member files gnus-update-list))
(delete (if (eq (gnus-server-to-type files) 'not-gv-server) (gnus-server-update-files) files)))))
(gnus-server-expire-files files))))
(defvar gnus-server-update-list)
(defun gnus-new-server (file &optional server-name)
"Update all information in FILE (GNU/USERS in NNTP/GNU
======== SAMPLE 2 ========
(gnus-map-read-article 'gnus-new-article article article)
(gnus-article-save)))
(defun gnus-unlist-group-tags (group group)
"Delete all tags or nil if there is no such group."
(unless (and (file-directory-p group)
(not (gnus-files-remote-p group))
(gnus-unlist-group-tags-regexp group)))))
(defun gnus-unlist-group-tags (group group)
"Delete all tags or nil if there is no such group."
(when (gnus-expert-p group)
;; Insert the whole report. We just create the tags.
(with-parsed-tramp-file (file-truename group)
(with-current-buffer gnus-newsgroup-buffer
(with-tramp-connection-property
(file-remote-p
group
(cond
((file-exists-p (gnus-file-filename group)
(with-current-buffer gnus-newsgroup-buffer
(with-parsed-tramp-file
gnus-expert-ungroup-data)
nil
(tramp-call-interactive-p
group 'gnus-group-expectations
group (format "%s" group)))
((not (equal group group-number-lines)))
;; Return nil. The only place in the group that will have
;; all the tag-categories and categories that are not in any groups
;; already.
nil
nil
nil
(if (gnus-group-cache-member group 'gnus-unlistify-tags)
(gnus-check-group-references
group 'gnus-unlistify-tags)
nil
nil
(gnus-cache-set-cache
group 'gnus-unlistify-tags nil t t group)))
(error "No such group"))
(with-current-buffer (gnus-cache-cache group))
(defun gnus-unlistify-tags (group article)
"Delete all tags or nil if there's no such group."
(if (eq article gnus-unlistify-tags-regexp)
(gnus-unlistify-group-tags-regexp)
(let ((tags nil) tags nil)
(gnus-message-re "Unnumerically remove group tag (default 'gnus-unlistify-tags): ")
(gnus-unlistify-tags group nil nil nil nil nil nil t t))
(with-rc (gnus-cache-unpackgroup) nil
(with-tasks (or gnus
======== SAMPLE 3 ========
"--"))
(or (derived-mode-p 'tex-mode) "f")
(tex-mode--setup-window))))
(delete-frame tex-mode-buffer)
(setq tex-type 0))
(tex-mode--with-buffer "F")
(setq tex-type nil)
;; Insert a menu keymap that makes the region look like a plain tex-menu. So we
;; insert an ellipsis as described above.
(tex-toggle-overlay tex-menu-keymap
(set-keymap tex-menu-keymap tex-menu-map)
;; Setup menu for display.
(setf (tex-menu-entry menu-line) (tex-menu-entry "TexMenu" menu-line))
(setq tex-menu--with-buffer "F")
(tex-menu-menu-map tex-menu-menu-map))
(tex-menu--set-menu tex-menu))
(provide 'tex-mode)
;;; tex-mode.el ends here
<|endoftext|>;;; tex-mode.el --- TeX support for Emacs and Emacs Lisp -*- lexical-binding: t -*-
;; Copyright (C) 1998-2002, 2004, 2007-2019 Free Software Foundation, Inc.
;; Keywords: emulations
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; XEmacs support for Emacs has been around for a
;; long time. XEmacs does not yet support it properly
;; with Emacs. Therefore, we do this to address situations where XEmacs
;; supports an XEmacs XEmacs mode (such as if you're using
;; Emacs >=26 without the mode).
;;
;; XEmacs support for Emacs features have the following components:
;;
;; - XEmacs mode. XEmacs mode is a single window system.
;; - XEmacs mode is a fully supported system with a buffer store.
;; - XEmacs mode is a system with multiple XEmacs buffers.
;; - XEmacs mode supports both windows and systems with both
;; XDEmacs and XEmacs and also supports XEmacs with XEmacs,
;; XDEmacs, and XDEmacs with XEmacs as well as XEmacs XEmacs.
;; - XEmacs mode has a customizable XEmacs sub-menu,
;; including key bindings, menu entries and control keymaps. You can
;; use XEmacs mode menu-bar to customize the current buffer
;; and system. XEmacs mode support is available with the
;; addition of the following new features:
;;
;; - XEmacs mode works with a modified and/or rebinded window with the
;; following special features:
;;
;; - XEmacs mode has been fully implemented and emulates Emacs, XEmacs
;; Emacs XEmacs, and XEmacs XEmacs. You can customize XEmacs
;; Emacs mode to use some XEmacs and XEmacs XEmacs with the
;; following features:
;;
;; - XEmacs mode is enabled with a customized XEmacs sub-menu,
;; including the following special features:
;;
;; - XEmacs mode is fully supported with a fully supported buffer store.
;; - XEmacs mode enables the use of the XEmacs buffer store.
;; - XEmacs mode makes XEmacs enable and supports both XEmacs and
;; XEmacs XEmacs. You can use XEmacs mode menu-bar to customize
======== SAMPLE 4 ========
(list ',-a))
(setq argv (if (zerop arg)
(list ',-a
(concat 'equal '(equal t) ',-a)))))) ; 0)
argv))))
;;;###autoload
(defun math-parse-math-sub-left (argv)
(interactive "p")
(goto-char (+ argv argv))
(if (eq (current-column) (- argv 1))
(if (eq (> (point) argv) 2)
(math-parse-bounds (math-sub-a 3 (+ argv argv)))))
(error "Math-Operations: [^\n]* %." argv)
(set-calc-texinfo-table 0 (concat 'matrix '(p a b)) (+ argv 1)))
;;;###autoload
(defun math-parse-mul-left (argv argv)
(interactive "p")
(if (eq (current-column) argv)
(if integerp (setq argv (list argv (1- argv))))
(setq argv (1- argv))
(error "Math-Operations: [^\n]* %:" argv)
(if (eq (current-column) argv)
(error "Math-Operations: [^\n]* %." argv)
(setq p (concat 'mul (math-sub-a (1+ p) argv)))
(setq argv (1- argv))))
;;;###autoload
(defun math-parse-mul-right (argv argv _)
;; First find the first pair of numbers in the right-hand side of the list-of-intr-begs.
"Interactively, the first two symbols in a list-of-intr-begs are the starting values."
(if math-parse-mul-right-c (car math-parse-mul)
(setq math-parse-mul-right-c (cdr math-parse-mul))
(setq math-parse-mul-right-c (cdr math-parse-mul))))
;;;; A matrix of symbols
;; These are symbols to use as vectors.
;; These are vectors for vectors of integer and integer/float.
;; The symbols here are symbols for vectors of all vectors, whose element is
;; `math-vector-s'.
(defun math-vector-s (c1 c2)
(let ((m1 (math-vector-m1 c1)))
(while (setq p (math-vector-m1 c2))
(math-addp (car p) m2)
(and (setq m1 (calcFunc-div (car p) (cdr p))) (setq m1 (cdr p)))
(setq p (math-addp (calcEuler-subp (car p)) (cdr p)))
(setq m1 (1+ m1)))
m1))
;;; Complex formulas are often used as submatrices.
(defun calcFunc-mul (r1 r2)
(or (and r1 (math-mul r2 r2))))
(defun calcFunc-mul-right (r1 r2)
(or r2 (math-mul r2 r2))
(defun calcFunc-mul-y (r1 r2)
(or (and r1 (math-mul r2 r2 r2)) 0)
;;; The submatrix numbers
(defun calcFunc-symmony (n1 n2)
(or n1 (math-sub-
[10600 | 3047.53] loss=1.33 avg=1.09
[10601 | 3048.45] loss=0.71 avg=1.09
[10602 | 3049.37] loss=1.46 avg=1.09
[10603 | 3050.29] loss=1.08 avg=1.09
[10604 | 3051.20] loss=0.88 avg=1.09
[10605 | 3052.12] loss=1.24 avg=1.09
[10606 | 3053.03] loss=0.57 avg=1.09
[10607 | 3053.95] loss=0.75 avg=1.08
[10608 | 3054.87] loss=0.55 avg=1.08
[10609 | 3055.79] loss=1.25 avg=1.08
[10610 | 3056.70] loss=1.36 avg=1.08
[10611 | 3057.61] loss=1.32 avg=1.09
[10612 | 3058.53] loss=0.70 avg=1.08
[10613 | 3059.44] loss=1.65 avg=1.09
[10614 | 3060.36] loss=0.80 avg=1.09
[10615 | 3061.27] loss=1.01 avg=1.08
[10616 | 3062.19] loss=1.05 avg=1.08
[10617 | 3063.11] loss=1.51 avg=1.09
[10618 | 3064.02] loss=1.09 avg=1.09
[10619 | 3064.94] loss=0.95 avg=1.09
[10620 | 3065.85] loss=0.99 avg=1.09
[10621 | 3066.76] loss=0.79 avg=1.08
[10622 | 3067.69] loss=1.00 avg=1.08
[10623 | 3068.60] loss=0.87 avg=1.08
[10624 | 3069.51] loss=1.21 avg=1.08
[10625 | 3070.43] loss=1.03 avg=1.08
[10626 | 3071.34] loss=0.75 avg=1.08
[10627 | 3072.26] loss=0.68 avg=1.07
[10628 | 3073.17] loss=1.35 avg=1.08
[10629 | 3074.09] loss=0.78 avg=1.07
[10630 | 3075.00] loss=1.29 avg=1.08
[10631 | 3075.92] loss=0.95 avg=1.07
[10632 | 3076.84] loss=1.11 avg=1.07
[10633 | 3077.75] loss=1.16 avg=1.08
[10634 | 3078.67] loss=1.65 avg=1.08
[10635 | 3079.58] loss=1.74 avg=1.09
[10636 | 3080.50] loss=1.02 avg=1.09
[10637 | 3081.41] loss=1.46 avg=1.09
[10638 | 3082.33] loss=1.60 avg=1.10
[10639 | 3083.25] loss=0.76 avg=1.09
[10640 | 3084.16] loss=0.75 avg=1.09
[10641 | 3085.08] loss=1.03 avg=1.09
[10642 | 3086.00] loss=1.03 avg=1.09
[10643 | 3086.92] loss=1.60 avg=1.09
[10644 | 3087.84] loss=0.83 avg=1.09
[10645 | 3088.75] loss=1.39 avg=1.09
[10646 | 3089.68] loss=1.36 avg=1.10
[10647 | 3090.60] loss=1.14 avg=1.10
[10648 | 3091.52] loss=1.22 avg=1.10
[10649 | 3092.43] loss=1.01 avg=1.10
[10650 | 3093.35] loss=1.53 avg=1.10
[10651 | 3094.27] loss=0.66 avg=1.10
[10652 | 3095.19] loss=1.78 avg=1.10
[10653 | 3096.11] loss=0.92 avg=1.10
[10654 | 3097.03] loss=1.78 avg=1.11
[10655 | 3097.94] loss=1.26 avg=1.11
[10656 | 3098.86] loss=0.94 avg=1.11
[10657 | 3099.78] loss=1.25 avg=1.11
[10658 | 3100.70] loss=0.98 avg=1.11
[10659 | 3101.62] loss=0.95 avg=1.11
[10660 | 3102.54] loss=0.91 avg=1.11
[10661 | 3103.46] loss=0.92 avg=1.10
[10662 | 3104.38] loss=0.92 avg=1.10
[10663 | 3105.30] loss=1.00 avg=1.10
[10664 | 3106.22] loss=0.67 avg=1.10
[10665 | 3107.14] loss=0.86 avg=1.09
[10666 | 3108.06] loss=1.06 avg=1.09
[10667 | 3108.98] loss=1.02 avg=1.09
[10668 | 3109.90] loss=1.04 avg=1.09
[10669 | 3110.83] loss=1.43 avg=1.10
[10670 | 3111.75] loss=1.46 avg=1.10
[10671 | 3112.67] loss=1.12 avg=1.10
[10672 | 3113.59] loss=1.03 avg=1.10
[10673 | 3114.51] loss=0.98 avg=1.10
[10674 | 3115.43] loss=1.20 avg=1.10
[10675 | 3116.35] loss=1.13 avg=1.10
[10676 | 3117.27] loss=1.53 avg=1.10
[10677 | 3118.20] loss=0.78 avg=1.10
[10678 | 3119.12] loss=1.31 avg=1.10
[10679 | 3120.04] loss=0.77 avg=1.10
[10680 | 3120.96] loss=0.90 avg=1.10
[10681 | 3121.88] loss=1.13 avg=1.10
[10682 | 3122.81] loss=1.14 avg=1.10
[10683 | 3123.73] loss=1.04 avg=1.10
[10684 | 3124.65] loss=1.36 avg=1.10
[10685 | 3125.57] loss=1.18 avg=1.10
[10686 | 3126.50] loss=1.10 avg=1.10
[10687 | 3127.42] loss=0.61 avg=1.10
[10688 | 3128.34] loss=1.12 avg=1.10
[10689 | 3129.27] loss=0.81 avg=1.09
[10690 | 3130.19] loss=0.88 avg=1.09
[10691 | 3131.11] loss=1.49 avg=1.09
[10692 | 3132.03] loss=1.66 avg=1.10
[10693 | 3132.96] loss=0.84 avg=1.10
[10694 | 3133.88] loss=1.28 avg=1.10
[10695 | 3134.80] loss=0.72 avg=1.10
[10696 | 3135.72] loss=1.60 avg=1.10
[10697 | 3136.65] loss=1.29 avg=1.10
[10698 | 3137.57] loss=1.04 avg=1.10
[10699 | 3138.49] loss=1.41 avg=1.10
Generating samples...
======== SAMPLE 1 ========
-gnus-file-name gnus-group-name)
(setq gnus-group-path (buffer-file-name)))
(setcar (org-remove-dir-list
(mapcar 'car org-mw-entry))
'(directory-dirs)
(setcar (or (and org-mw-entry
(org-list-files-by-group (org-with-dir-dup
(nth 0 entry))))))))
(defun org-mw-expand-dirlist ()
"Fold all the entries of a new entry in the Emacs group dir.
This operation sets up the Emacs group directory, or if we want
to edit the entry there, then sets up the entries of the current
group dir in a buffer. This is called a 'expand". See the doc file for
the 'expand' options.
Optional argument EXPAND is a string of the string to expand.
When the value is non-nil, an entry of the current group dir is
expanded automatically. `org-group-path' is used as the
name of the group directory.
If you want to edit a previous entry of the current group dir in a
buffer, or if there is one already, use your own file name.
You can also create groups with the `org-set-path' command
provided that you enable the variable `org-group-path'."
(or (file-directory-p org-mw-dirs-directory)
(let ((org-mw-entry (directory-file-name org-mw-dirs-directory))))
(setq org-mw-dirs-directory (make-directory org-mw-dirs-directory)))))
(defun org-mw-edit-dirs-directory (name)
"Edit directory of a group dir specified in NAME in the Emacs group dir
or in a buffer whose file name is the name of a group.
See the documentation of this variable and its functions
for other ways to edit the group dir (such as making it more unique)."
(interactive "sDirectory path: ")
(when name
(org-group-insert-modes "*Group Dir*")
(let ((directory-dir (org-copy-name name)))
(org-mw-edit-dirs-directory name directory-dir)
(save-current-buffer "*GROUP DIR*/")
(let ((dir (org-get-dir-by-name (car (org-edit-dnd-name group-dir)))))
(when (re-search-backward
(concat "^"
"\\([^\"]\\).*\\)?\\("
"/")
(progn
(replace-match "\\`\\'" 1)
nil))
(let ((subdir (org-get-dir-by-name group-dir)))
(unless subdir
(or (or (or (org-subdir-p dir)
(if subsigns (org-subdir-subdir dir)
======== SAMPLE 2 ========
-message-message-message)
;;;###autoload
(defcustom message-in-edit-hook nil (make-local-variable 'mail-edit-hook)
"Hook hook for editing messages in message messages."
:global t :group 'message-edit-mode
:group 'message-edit-message-message
:keymap message-edit-keymap)
(defcustom message-edit-keymap (if (memq (current-buffer buffer-file-name) 'message-edit-keymap)
"<message-to-send-to>")
"Keymap used in message message messages."
:version "23.1"
:type 'sexp)
(defcustom message-in-send-to-window nil nil
"No window to send the message.")
;; TODO: This would use something like `user-login-here' as the window
;; to send the message. The function will ask the user for their username
;; before sending the message. You should also ask for their email before
;; sending the message, i.e. before setting up the message buffer for
;; send-mail
(defcustom message-send-mail t
"Non-nil means we send the message to the user by typing \"send\"
\"mail\" in the buffer. This option can be used to make
Emacs buffer that handles sending of different mail formats."
:group 'message-send
:group 'message-send
:type 'boolean)
(defcustom message-add-buffer-stats t
"How many seconds to add to the default timer on a message."
:group 'message-send-buffer
:type 'number)
(defcustom message-add-timer '(4) nil
"How many seconds to add in a message."
:group 'message-send-buffer
:group 'message-send
:type 'number)
(defcustom message-mail-display t
"Whether to display the message in the message buffer.
Set to t when showing the message. If nil, it will
be displayed as just a message."
:group 'message-mail
:group 'message-send
:type 'boolean)
(defcustom message-mail-message-height nil #'message-mail-display
"Alive height is returned instead of the default height after the message
has just been seen. When nil, we use `message-mail-message-height'
to represent the message height.")
(defcustom message-mail-mailers 1
"Number of mailing addresses to be sent. Default is 1. You
should send one message, and then send all messages in each
mail category instead.
If `message-mail-mail-charset' is non-nil, which will do the math.
If nil, is used instead of message-mail-charset to find the
letter of mail that was sent."
:version "23.1"
:type 'number)
(defcustom message-mail-headers nil
"Whether to show headers in message message messages."
:version "33.1"
:type 'string)
(defcustom message-mail-message-size nil #'message-mail-message-size)
"The default size for message messages."
:version "23.1"
:type 'number)
(defcustom message-mail-messages-in-message-messages
"This value is the default size for messages in the message message message
message message messages message messages message-mail-messages."
:version "23.1"
:type 'number)
(defcustom message-mail-mail-size-of-message-message-messages
10
"The default size for a message message message message. If nil,
message will be displayed (as a message message message).
See section `Message Message Format' for details on the format
of messages in messages messages.
See also `message-mail-messages'."
:version "23.1"
:type 'number)
(defcustom message-mail-send-mail
"The default message envelope to send and keep. This
`
======== SAMPLE 3 ========
-point (point 'point))
(progn
(skip-chars-backward " \t")
(skip-chars-forward " \t")
(goto-char (point-min))
(when (bolp) (sit-for (2 0)))))
;; Move to the first possible part of the tag and check if anything is.
;; Don't move forward if there's no tag at the end of the line.
(if (or (not (or (nth 0 arg))
(looking-at "[ \t]*/")
(looking-at "\\(.*\\.\\)")))
(progn
(skip-chars-forward "\n")
(sit-for (1 0)))
;; If there is no tag at the end of the line,
;; move back the rest of the line. Otherwise we
;; move forward.
(if (not (looking-at "[ \t{}\\|#\\)")
(progn
(goto-char (match-end 0))
(forward-line -3)
(goto-char (match-end 2)))
;; If there is a tag at the bottom of the line, don't move forward.
(let* ((case-fold-search t)
(start-tag (match-string 2))
(end-tag (end-of-line 1)))
(while (and (< (car start-tag) end-tag)
(looking-at "[ \t\r]\\|#\\)")
(let ((point-marker (point-at-eol))
(pos (point)))
(push-mark (point-marker))
(if (and pos (not (eobp))))
(goto-char pos)
(setq pos -1)
(and pos (point)))))
(forward-line (1 0))
(if (null pos)
(t
======== SAMPLE 4 ========
-type paren-start char-start char-end paren-end str nil))
(error nil)))
(defun tramp-unix-with-tcp (pwd)
"Convert Tcp or TCP connection to tcp.
This is useful when you're having a large number of tcp connections.
With an existing `tramp-connection-number-pwd' in your local
file, this function may be able to find the best match
for you."
(if (tramp-connection-number-pwd "tcp"))
(format "Tcp or TCP connection %s \"%s\": %s" (tramp-completing-read-name-or-lower-object
(tramp-net-connector
(tramp-get-connection-net))))
(tramp-dolist-pwd (tramp-connection-number-pwdp
(file-name-nondirectory tramp-completing-read-name-or-lower-object nil)))
(let ((buffer-name (buffer-name))
(port (buffer-size)))
(when (equal (tramp-make-connection-to-tramp-net) pwd)
(error "Invalid connection to Tramp: Unknown connection %s" (tramp-connection-number-pwd pwd)))))
(defun tramp-convert-to-tramp-net-name ()
"Return a Tramp namespace object that identifies the given host."
(or (tramp-host-completing-read-name-or-lower-object tramp-tramp-host-file-name)
(setq tramp-nhost-proxies (tramp-nhost-proxies
(tramp-file-name-directory tramp-file-name-directory
(tramp-net-name-directory)))
(tramp-convert-to-tramp-net-name-or-lower-object)
(cond
;; For a given host, we can identify the name with an
;; "hostname, and we must call 'tramp-unix-with-tcp-command'
;; to get the full pathname.
(if (tramp-nhost-proxies-p hostname)
;; Tramp-http-parameters may provide a bogus
;; host-login string.
(push (pop hostname) tramp-host-proxies-p tramp-local-path-path-path
;; This should resolve to a "name" string.
`(,,hostname, ?\([a-zA-Z0-9_.]?\\(?:[ \t]\\{2,3}\\)?[ \t]*?\\([0-9]+\\)\\)\\)")
;; Tramp-http-hostparameters will probably get
;; one as the "name..." string.
(push hostname nil)))
[10700 | 3163.89] loss=1.43 avg=1.11
[10701 | 3164.81] loss=0.40 avg=1.10
[10702 | 3165.72] loss=1.25 avg=1.10
[10703 | 3166.64] loss=0.73 avg=1.10
[10704 | 3167.55] loss=1.56 avg=1.10
[10705 | 3168.46] loss=0.94 avg=1.10
[10706 | 3169.38] loss=1.02 avg=1.10
[10707 | 3170.29] loss=0.92 avg=1.10
[10708 | 3171.21] loss=0.81 avg=1.10
[10709 | 3172.12] loss=1.30 avg=1.10
[10710 | 3173.03] loss=1.08 avg=1.10
[10711 | 3173.94] loss=1.23 avg=1.10
[10712 | 3174.85] loss=0.62 avg=1.09
[10713 | 3175.77] loss=1.12 avg=1.10
[10714 | 3176.68] loss=1.43 avg=1.10
[10715 | 3177.59] loss=1.11 avg=1.10
[10716 | 3178.50] loss=1.09 avg=1.10
[10717 | 3179.42] loss=1.26 avg=1.10
[10718 | 3180.33] loss=1.01 avg=1.10
[10719 | 3181.25] loss=1.26 avg=1.10
[10720 | 3182.16] loss=0.92 avg=1.10
[10721 | 3183.07] loss=1.18 avg=1.10
[10722 | 3183.99] loss=1.34 avg=1.10
[10723 | 3184.90] loss=1.59 avg=1.11
[10724 | 3185.82] loss=0.95 avg=1.11
[10725 | 3186.73] loss=1.46 avg=1.11
[10726 | 3187.65] loss=1.13 avg=1.11
[10727 | 3188.56] loss=1.30 avg=1.11
[10728 | 3189.48] loss=0.93 avg=1.11
[10729 | 3190.39] loss=1.20 avg=1.11
[10730 | 3191.31] loss=0.89 avg=1.11
[10731 | 3192.23] loss=0.92 avg=1.11
[10732 | 3193.14] loss=0.88 avg=1.10
[10733 | 3194.06] loss=1.18 avg=1.10
[10734 | 3194.98] loss=1.57 avg=1.11
[10735 | 3195.90] loss=0.99 avg=1.11
[10736 | 3196.81] loss=0.80 avg=1.11
[10737 | 3197.73] loss=1.77 avg=1.11
[10738 | 3198.65] loss=1.03 avg=1.11
[10739 | 3199.57] loss=1.10 avg=1.11
[10740 | 3200.49] loss=0.81 avg=1.11
[10741 | 3201.41] loss=1.64 avg=1.11
[10742 | 3202.32] loss=1.27 avg=1.11
[10743 | 3203.24] loss=0.97 avg=1.11
[10744 | 3204.16] loss=1.06 avg=1.11
[10745 | 3205.08] loss=1.25 avg=1.11
[10746 | 3206.00] loss=1.84 avg=1.12
[10747 | 3206.92] loss=0.95 avg=1.12
[10748 | 3207.84] loss=1.70 avg=1.13
[10749 | 3208.76] loss=1.09 avg=1.13
[10750 | 3209.67] loss=1.14 avg=1.13
[10751 | 3210.59] loss=0.89 avg=1.12
[10752 | 3211.51] loss=1.04 avg=1.12
[10753 | 3212.43] loss=1.18 avg=1.12
[10754 | 3213.35] loss=1.40 avg=1.13
[10755 | 3214.28] loss=1.00 avg=1.12
[10756 | 3215.20] loss=1.49 avg=1.13
[10757 | 3216.12] loss=0.80 avg=1.12
[10758 | 3217.03] loss=0.94 avg=1.12
[10759 | 3217.95] loss=1.00 avg=1.12
[10760 | 3218.87] loss=0.95 avg=1.12
[10761 | 3219.80] loss=1.35 avg=1.12
[10762 | 3220.72] loss=1.18 avg=1.12
[10763 | 3221.65] loss=1.04 avg=1.12
[10764 | 3222.58] loss=1.34 avg=1.12
[10765 | 3223.50] loss=1.21 avg=1.12
[10766 | 3224.42] loss=1.44 avg=1.13
[10767 | 3225.35] loss=0.78 avg=1.12
[10768 | 3226.27] loss=0.78 avg=1.12
[10769 | 3227.19] loss=1.07 avg=1.12
[10770 | 3228.11] loss=0.82 avg=1.12
[10771 | 3229.03] loss=1.01 avg=1.12
[10772 | 3229.95] loss=1.18 avg=1.12
[10773 | 3230.88] loss=0.86 avg=1.11
[10774 | 3231.80] loss=1.04 avg=1.11
[10775 | 3232.72] loss=0.72 avg=1.11
[10776 | 3233.64] loss=0.75 avg=1.11
[10777 | 3234.56] loss=0.84 avg=1.10
[10778 | 3235.49] loss=1.12 avg=1.10
[10779 | 3236.41] loss=1.17 avg=1.10
[10780 | 3237.33] loss=1.20 avg=1.11
[10781 | 3238.26] loss=1.06 avg=1.11
[10782 | 3239.18] loss=1.34 avg=1.11
[10783 | 3240.10] loss=0.92 avg=1.11
[10784 | 3241.02] loss=1.65 avg=1.11
[10785 | 3241.94] loss=1.53 avg=1.12
[10786 | 3242.86] loss=1.16 avg=1.12
[10787 | 3243.79] loss=0.98 avg=1.11
[10788 | 3244.71] loss=1.09 avg=1.11
[10789 | 3245.63] loss=1.22 avg=1.12
[10790 | 3246.55] loss=0.94 avg=1.11
[10791 | 3247.48] loss=0.89 avg=1.11
[10792 | 3248.40] loss=1.08 avg=1.11
[10793 | 3249.33] loss=1.22 avg=1.11
[10794 | 3250.25] loss=0.81 avg=1.11
[10795 | 3251.17] loss=0.97 avg=1.11
[10796 | 3252.09] loss=0.70 avg=1.10
[10797 | 3253.02] loss=1.19 avg=1.10
[10798 | 3253.94] loss=0.71 avg=1.10
[10799 | 3254.85] loss=1.41 avg=1.10
Generating samples...
======== SAMPLE 1 ========
(defface comint-x-menu
'((featurep 'x-mouse-menu-mouse)
((class 'mouse)
((window-full-screen 'comint-x-mouse-face)
(progn ,@(condition-case
`(select-window ,@window-full-screen)
,@(display-fill-function ,@current-column))
(if (comint-face-p (selected-frame) 'Comint-x-Menu))
(progn ,@(point-min))
))
;; Use comint-fontify-variables to see how to customize the
;; value of some variables. If the variable doesn't exist and you want a
;; value of a non-ASCII part, use a prefix argument. Otherwise, use the
;; value of any of the variables in that mode's menu.
((string= (comint-x-menu-symbol "Comint-X-menu-" comint-x-menu) "Comint-X"
'((< comint-x-menu-symbol comint-x-menu)
;; A numeric prefix argument means to use this key's value.
'((<= (length comint-x-menu-symbol)
comint-x-menu-symbol))))
((class 'comint-mode-generic)
((or (eq 'compilation-mode compilation-mode-generic) 0)
(progn
(setq completion-interactive
(comint-completion-completion-invisibility completion-interactive))
mode)
(if comint-compilation-mode
context 'comint-compilation)
(set (make-local-variable 'comint-x-menu)
mode completions))
(t
;; The "comodo-interactive" keyword is a misnomer here because I think
;; it would be better to return the string itself instead of just the
;; result.
(set-buffer-modified-p nil)
)
)
;; Check the variables of the last entry in the last list.
(defvar comint-last-entry nil
(or (and comint-last-entry 1)
(eq comint-last-entry t))
(and (eq comint-last-entry 'compilation-mode)
(ignore-errors (comint-compilation-mode)))
))
)
;;; Compilation mode
;;
(defvar compilation-mode) ;; for compilation but not compiled; for compilation
"A global mode used for editing code."
()
;;
;; Local Variables:
;; This mode should not be changed. (I am not aware of a global menu.)
;;
()
;;;###autoload
(defvar compilation-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [f4] 'compilation-mode-map)
(define-key map [q] 'compilation-mode-menu)
)
(define-key map [c-f] 'compilation-mode-menu) ; menu
)
;; Get to the last entry in the last list.
(defvar compilation-last-entry nil
======== SAMPLE 2 ========
(org-set-default image-file-directory info))
(save-restriction
(narrow-to-regexp
(concat "http://ftp.c-smu.net/:pubsub:http://ftp.c-smu.net:pub//pubkey/:pubsub:pubkey:pubkey=:pubkey:pubkey:" url "-%s" url)
(goto-char (max (point-min)) (point-max))
(if (search-forward url nil t)
(error "No `%s'" href))
(goto-char (max (point-min)) (point-max)))
(let ((rfc2022-encrypt-headers '("Content-Type: multipart/mixed" ?\e
"\"\s-\"")
(inhibit-point-motion-hooks t)
(inhibit-read-only t)
(inhibit-message "" ; ignore headers
(setq message (concat "No " message "\""
(char-to-string url))))
(with-output-to-time org-get-time-string
(save-excursion
(beginning-of-line)
(message "Content-Transfer-Encoding: %s (%d bytes)"
(setq encoded (1- encoded))
(if (and no-error
(or (eq no-error 'yes)
(and
(not (string= "-" url "-"))
(or (not no-error))
(and
(not (null encode-time-string
(org-agenda-parse-parse-data))))
(and (not (not no-error))
======== SAMPLE 3 ========
(cl-defmethod cl-findmethod :test 'finddoc-find-method 'cl-find-method)
(gnus-define-method cl-findmethod "find" 'cl-find-method)
(cl-defmethod cl-findinstrumenting :test 'method-find-instrumenting)
(cl-defmethod cl-findinstrumenting :test 'method-instrumenting)
(cl-defmethod cl-getmethod :test 'method-get-method)
(cl-defmethod cl-getinstrumentning :test 'method-get-instrumentning)
(cl-defmethod cl-getinstrumentning :test 'method-instrumentning)
(cl-defmethod cl-getinstrumentning :test 'method-instrumentning)
(cl-defmethod cl-getmethod :test 'method-get-method)
(cl-defmethod cl-request-method :test 'request-method)
(cl-defmethod cl-request-method :test 'request-method)
(cl-defmethod cl-request-method :test 'request-method)
(cl-defmethod cl-request-method :test 'request-method)
(cl-defmethod cl-request-method :test 'request-method)
(cl-defmethod cl-getmethod :test 'getmethod-getmethod)
(cl-defmethod cl-getinstrumentning :test 'get-instrumentning)
(cl-defmethod cl-getinstrumentning :test 'get-instrumentning)
(cl-defmethod cl-getinstrumentning :test 'get-instrumentning)
(cl-defmethod cl-read-method :test 'write-method)
(cl-defmethod cl-read-method :test 'write-method)
(cl-defmethod cl-read-method :test 'write-method)
(cl-defmethod cl-read-method :test 'write-method)
(cl-defmethod cl-process-method :test 'process-method)
(cl-defmethod cl-process-method :test 'process-method)
(cl-defmethod cl-process-method :test 'process-method)
(cl-defmethod cl-process-method :test 'process-method)
(cl-defmethod cl-process-defining :test 'process-defining)
(cl-defmethod cl-process-defining :test 'process-defining)
(cl-defmethod cl-process-defining :test 'process-defining)
(cl-defmethod cl-process-defining :test 'process-defining)
(require 'cl-math)
(cl-defmethod (cl-type :test 'cl-program)
"List Lisp routines called for the purpose of finding and accessing some object.
Arguments STRING are the parameters to be passed to a `cl-program' for
reassembly."
:regexp "^[ \t][ \r\n]*(\r\n|[^\\]\\s-+?[^\\]\\s *\\(:^\\s *(^\\)[ \t]*)"
(list 'cl-program)
(list 'cl-program
(list 'cl-file "cl-" cl-exp-files 'cl-expansion-files))
(cl-make-module-alist)
(cl-incl-with-newer-than-newer-than-default-args 'cl-expansion-exponents &optional arg)
(cond (cl-read-file "Run program: "
'cl-exp-files nil nil
cl-exp-files
======== SAMPLE 4 ========
(defvar ios-bib-file-cache-file)
(defvar ios-bib-file-name-cache) ; In case a file isn't loaded.
(defun ios-bib-directory-file (directory)
(let ((file (file-truename directory)))
(if (string-match "^\\([^\\-]\\)\\([^\\]\\|$\\)" directory)
(match-string-no-properties t)))
(if (and (file-name-absolute path)
(file-directory-p path)
(or (string-match "/$" (regexp-quote directory)) "/$")
(error "Not a path"))
(file-name-as-directory path))
(let ((file (make-directory ".ipad"))
(regexp-uname-p path))
(setq prefix (file-name-nondirectory directory t))
(setq prefix (directory-nolist-string regexp-uname-p t)
entry (read-from-minibuffer (concat prefix
(substring (1- (length prefix)))))))
(if (and (file-directory-p path)
(file-readable-p path))
(setq prefix (substring path (match-end 0))
entry (regexp-quote entry))
(setq prefix (file-name-directory path directory)))
(add-to-list 'ipad-inhibit-file-readable-p
(length prefix) (file-name-nondirectory path) nil t)
(add-node-file "/tmp/ipad/file-writename" nil))
;;;###autoload
(defun ios-bib-set-ipad-inhibit-file-writename (directory)
"Enable IPAD to set the IPad in the current directory
in the currently executed IOS command. It is a list of directories in the current
single IOS command that get a non-nil prefix argument for this set.
Otherwise, it is a list of directories in the current IOS
command that gets a non-nil prefix argument by setting a property
called ipad-inhibit-file-writename . This property is inherited from
ipad-inhibit-file-writename-file-writename in order to enable IPad in the
current command.
The returned value is a list of directories and subdirectories
that were set by this command set, and directories from the
source of or derived from this command. For example, some of the directories
from
/opt/example/index.html/" and/or
/opt/example/(/.emacs/sample/") may be set to /opt/example/.
(if (fboundp 'check-for-file-writename)
(setq check-for-file-writename (or check-for-file-writename t))
(funcall (if (file-readable-p path)
(or (null path) (file-directory-p path) (file-suffix-suffix path)))))
(provide 'ipad)
;;; ipad.el ends here
<|endoftext|>;;; ipad-tests.el --- tests for ipad test library -*- lexical-binding: t; -*-
;; Copyright (C) 2000-2019 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> -*-
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option)
[10800 | 3280.68] loss=1.12 avg=1.10
[10801 | 3281.60] loss=1.13 avg=1.10
[10802 | 3282.51] loss=0.72 avg=1.10
[10803 | 3283.43] loss=0.91 avg=1.10
[10804 | 3284.34] loss=1.42 avg=1.10
[10805 | 3285.25] loss=0.90 avg=1.10
[10806 | 3286.16] loss=0.88 avg=1.10
[10807 | 3287.07] loss=1.20 avg=1.10
[10808 | 3287.99] loss=1.17 avg=1.10
[10809 | 3288.90] loss=1.45 avg=1.10
[10810 | 3289.82] loss=0.98 avg=1.10
[10811 | 3290.73] loss=0.80 avg=1.10
[10812 | 3291.64] loss=1.21 avg=1.10
[10813 | 3292.55] loss=1.28 avg=1.10
[10814 | 3293.47] loss=0.84 avg=1.10
[10815 | 3294.38] loss=0.48 avg=1.09
[10816 | 3295.29] loss=0.83 avg=1.09
[10817 | 3296.20] loss=0.55 avg=1.08
[10818 | 3297.11] loss=1.06 avg=1.08
[10819 | 3298.03] loss=0.90 avg=1.08
[10820 | 3298.95] loss=0.98 avg=1.08
[10821 | 3299.86] loss=1.29 avg=1.08
[10822 | 3300.78] loss=0.56 avg=1.08
[10823 | 3301.70] loss=0.66 avg=1.07
[10824 | 3302.61] loss=1.14 avg=1.07
[10825 | 3303.53] loss=1.24 avg=1.08
[10826 | 3304.45] loss=1.12 avg=1.08
[10827 | 3305.37] loss=1.08 avg=1.08
[10828 | 3306.28] loss=1.35 avg=1.08
[10829 | 3307.20] loss=1.06 avg=1.08
[10830 | 3308.12] loss=1.02 avg=1.08
[10831 | 3309.03] loss=1.32 avg=1.08
[10832 | 3309.95] loss=0.87 avg=1.08
[10833 | 3310.87] loss=0.83 avg=1.08
[10834 | 3311.79] loss=1.22 avg=1.08
[10835 | 3312.71] loss=0.89 avg=1.08
[10836 | 3313.63] loss=1.21 avg=1.08
[10837 | 3314.55] loss=1.06 avg=1.08
[10838 | 3315.47] loss=1.10 avg=1.08
[10839 | 3316.39] loss=1.06 avg=1.08
[10840 | 3317.31] loss=1.54 avg=1.08
[10841 | 3318.23] loss=1.13 avg=1.08
[10842 | 3319.15] loss=1.64 avg=1.09
[10843 | 3320.07] loss=1.59 avg=1.09
[10844 | 3320.98] loss=0.91 avg=1.09
[10845 | 3321.90] loss=1.01 avg=1.09
[10846 | 3322.82] loss=1.28 avg=1.09
[10847 | 3323.75] loss=1.00 avg=1.09
[10848 | 3324.67] loss=0.80 avg=1.09
[10849 | 3325.59] loss=1.41 avg=1.09
[10850 | 3326.51] loss=0.74 avg=1.09
[10851 | 3327.43] loss=0.95 avg=1.09
[10852 | 3328.36] loss=0.88 avg=1.08
[10853 | 3329.28] loss=1.19 avg=1.09
[10854 | 3330.20] loss=1.31 avg=1.09
[10855 | 3331.12] loss=1.42 avg=1.09
[10856 | 3332.04] loss=1.17 avg=1.09
[10857 | 3332.97] loss=1.15 avg=1.09
[10858 | 3333.90] loss=1.05 avg=1.09
[10859 | 3334.82] loss=0.97 avg=1.09
[10860 | 3335.74] loss=1.05 avg=1.09
[10861 | 3336.67] loss=0.72 avg=1.09
[10862 | 3337.59] loss=0.95 avg=1.09
[10863 | 3338.51] loss=1.47 avg=1.09
[10864 | 3339.43] loss=1.32 avg=1.09
[10865 | 3340.36] loss=1.85 avg=1.10
[10866 | 3341.28] loss=0.75 avg=1.10
[10867 | 3342.20] loss=1.59 avg=1.10
[10868 | 3343.13] loss=0.82 avg=1.10
[10869 | 3344.05] loss=1.60 avg=1.10
[10870 | 3344.97] loss=1.20 avg=1.10
[10871 | 3345.90] loss=1.30 avg=1.11
[10872 | 3346.82] loss=1.03 avg=1.11
[10873 | 3347.74] loss=1.17 avg=1.11
[10874 | 3348.66] loss=1.65 avg=1.11
[10875 | 3349.58] loss=1.39 avg=1.11
[10876 | 3350.50] loss=0.64 avg=1.11
[10877 | 3351.42] loss=1.15 avg=1.11
[10878 | 3352.34] loss=1.18 avg=1.11
[10879 | 3353.26] loss=0.92 avg=1.11
[10880 | 3354.18] loss=2.00 avg=1.12
[10881 | 3355.10] loss=1.38 avg=1.12
[10882 | 3356.02] loss=0.80 avg=1.12
[10883 | 3356.94] loss=1.42 avg=1.12
[10884 | 3357.86] loss=0.52 avg=1.11
[10885 | 3358.79] loss=1.19 avg=1.11
[10886 | 3359.70] loss=1.37 avg=1.12
[10887 | 3360.62] loss=1.30 avg=1.12
[10888 | 3361.54] loss=0.99 avg=1.12
[10889 | 3362.46] loss=1.22 avg=1.12
[10890 | 3363.39] loss=1.32 avg=1.12
[10891 | 3364.31] loss=0.83 avg=1.12
[10892 | 3365.23] loss=1.19 avg=1.12
[10893 | 3366.15] loss=1.07 avg=1.12
[10894 | 3367.07] loss=1.53 avg=1.12
[10895 | 3367.99] loss=1.03 avg=1.12
[10896 | 3368.91] loss=1.21 avg=1.12
[10897 | 3369.83] loss=1.00 avg=1.12
[10898 | 3370.75] loss=1.14 avg=1.12
[10899 | 3371.67] loss=0.97 avg=1.12
Generating samples...
======== SAMPLE 1 ========
(lambda () (interactive)
'region))
(let ((orig-buffer (current-buffer)))
(condition-case err
(goto-char (or (point-min) (point-max))
(while (re-search-backward
(intern eudir-keyfile)
nil t))
(let (dir)
(goto-char (or (point-min) (point-max)))
(while (re-search-backward eudir-keyfile nil t t t)
(save-restriction
(narrow-to-region (point) (1- (point-max)) (max-line-width))
(goto-char (or (point-min) (point-max))
(if (search-forward eudir-keyfile nil t t) t nil t)
(goto-char (- (point) (point-max)))
(replace-match ""))
(forward-char -1)
(forward-line (- (point) (point-max)))
(goto-char (- (point) (point-max)))
(forward-char 1))))
(end-of-line))))
(goto-char orig-buffer)
(set-marker (point-max) orig)
(with-current-buffer (find-buffer-visiting t)
(if (not (looking-at eudir-key))
(progn
(forward-sexp)
;; We're not at the beginning and end of the file, so
;; delete this buffer in case any other buffer
(kill-buffer)
(delete-region (bolp) end-of-line)
(with-current-buffer (insert-buffer-visit b)
(goto-char (point-min))
======== SAMPLE 2 ========
"\\[tBLACK_MATCH]\\|\\(\\w+\\)[:space:]\\|\\W+\\)" t
"\\[tBLACK_MATCH]) \
which follows the same rules as
\"" "\\[tBLACK_MATCH]\\|\\(\\\\\\w+\\)[:space:]\\|\\W+\\)"
"Customizations to highlight.
Each one is followed by a single space, with a space delimiter.
This `\\[tBLACK_MATCH]' is executed after every other customizations,
including ones for `tilde' and `tilde_space', as well as one for
`l' and `l' and `l'.
Each of the `tilde' commands should take no more than 1 line. It is
not evaluated in the normal fashion to determine whether any customization
replaces the current pattern in its pattern match or not. For a
different case, please see the documentation for `tilde' for the
default and `tilde_space' and `l' for l.
When `tilde' was first used to highlight a pattern and that pattern
match, the standard pattern matches `tilde' for that pattern.
Each customization should not change if `tilde' is running non-interactively,
even if that customization did not occur to other customizations. Any
pattern matching an earlier customization, even if the pattern matches
`tilde' or `l' for that pattern, is ignored (i.e. the customization won't be
seen, only evaluated for the initial customization)."
(interactive)
(let ((tilde 1))
(save-excursion
(save-restriction
(narrow-to-subtree
(let (pattern)
(goto-char (point-min))
(while (re-search-forward "\\(\\w+\\)[:space:]\\|\\(\\\\\\w+\\)" t)
(end-of-line)
(when (re-search-forward "\\(\\w+\\)")
(goto-char (match-end 0))
(when (re-search-forward "\\(\\w+\\)")
(delete-region (match-beginning 0) (match-end 0))
(when (re-search-forward "\\(\\w+\\)\\)" nil t)
(goto-char (match-beginning 0))
(push-mark)
(setq pattern (match-string 1))))
(set-default pattern (match-string 0)
name
name (match-string 0)
tilde
match
pattern))))
(pcomplete-mode)
======== SAMPLE 3 ========
"")))))
(if not
gnus-bibtex-info-flag-is-on))
(if not
(if type
(if (eq type 'type1)
(if (eq type 'value1)
(if (eq type 'type2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
(if (eq type 'value2)
======== SAMPLE 4 ========
(t :weight (lambda (_ (name &rest _values)
(symbol-value name)))
value)))
(should (equal value "")
(t :weight (lambda (_ (name &rest _values)
(symbol-value name)))
value)))
;; Only handle one keyword
(should (equal value "")
(t :weight (lambda (_ (name &rest _values)
(symbol-value name))))
value))))
(ert--with-current-values (should (equal value "<"))
"Non-local string representation for function values."
(&optional value default)
(interactive "p")
(let* ((first (and (condition-case-unless
(funcall first value))
first)
(value (symbol-value symbol-value)
value (symbol-value value))
(t default 'symbol-value))))
;; Return value
(should (equal value "<"))
;; If `eval' returns non-nil, we don't care about this
;; at all for the symbol.
(prog1
(list 'symbol value)
(eval (symbol-value symbol)))
;; Return non-nil if the symbol exists.
;; If a `eval' returns nil, then we know it has been
;; passed to `eval' and it exists.
(should (equal value nil))
;; If `eval' did not get called, then `eval' is called
;; when the symbol was evaluated.
(let ((value nil)
(c (eval-string-concat value
(symbol-function (symbol-value symbol-value))
value))
(b (eval (symbol-value symbol-value) (symbol-value symbol-value))))
(setq value (symbol-value value))
(and (cdr value)
(or value
(progn
(with-output-to-temp-buffer "*Expected value: **"
[10900 | 3397.11] loss=0.81 avg=1.12
[10901 | 3398.03] loss=0.97 avg=1.12
[10902 | 3398.95] loss=1.20 avg=1.12
[10903 | 3399.86] loss=0.86 avg=1.11
[10904 | 3400.78] loss=1.50 avg=1.12
[10905 | 3401.70] loss=0.68 avg=1.11
[10906 | 3402.62] loss=1.25 avg=1.11
[10907 | 3403.53] loss=0.81 avg=1.11
[10908 | 3404.45] loss=1.17 avg=1.11
[10909 | 3405.36] loss=0.94 avg=1.11
[10910 | 3406.28] loss=0.88 avg=1.11
[10911 | 3407.19] loss=1.00 avg=1.11
[10912 | 3408.11] loss=0.66 avg=1.10
[10913 | 3409.02] loss=0.82 avg=1.10
[10914 | 3409.94] loss=0.96 avg=1.10
[10915 | 3410.86] loss=1.10 avg=1.10
[10916 | 3411.78] loss=1.10 avg=1.10
[10917 | 3412.70] loss=1.11 avg=1.10
[10918 | 3413.62] loss=1.15 avg=1.10
[10919 | 3414.53] loss=1.16 avg=1.10
[10920 | 3415.45] loss=0.84 avg=1.10
[10921 | 3416.36] loss=1.02 avg=1.10
[10922 | 3417.28] loss=1.15 avg=1.10
[10923 | 3418.20] loss=1.59 avg=1.10
[10924 | 3419.12] loss=0.84 avg=1.10
[10925 | 3420.04] loss=1.35 avg=1.10
[10926 | 3420.96] loss=0.82 avg=1.10
[10927 | 3421.87] loss=1.29 avg=1.10
[10928 | 3422.78] loss=1.00 avg=1.10
[10929 | 3423.70] loss=1.29 avg=1.10
[10930 | 3424.62] loss=1.79 avg=1.11
[10931 | 3425.54] loss=0.92 avg=1.11
[10932 | 3426.46] loss=1.17 avg=1.11
[10933 | 3427.38] loss=1.53 avg=1.11
[10934 | 3428.30] loss=0.71 avg=1.11
[10935 | 3429.21] loss=1.22 avg=1.11
[10936 | 3430.13] loss=1.19 avg=1.11
[10937 | 3431.05] loss=0.90 avg=1.11
[10938 | 3431.97] loss=1.45 avg=1.11
[10939 | 3432.88] loss=1.14 avg=1.11
[10940 | 3433.80] loss=1.19 avg=1.11
[10941 | 3434.72] loss=1.08 avg=1.11
[10942 | 3435.63] loss=1.30 avg=1.11
[10943 | 3436.55] loss=1.99 avg=1.12
[10944 | 3437.47] loss=1.28 avg=1.12
[10945 | 3438.39] loss=1.11 avg=1.12
[10946 | 3439.31] loss=1.14 avg=1.12
[10947 | 3440.23] loss=0.77 avg=1.12
[10948 | 3441.14] loss=1.10 avg=1.12
[10949 | 3442.06] loss=0.93 avg=1.12
[10950 | 3442.98] loss=1.12 avg=1.12
[10951 | 3443.90] loss=0.78 avg=1.11
[10952 | 3444.82] loss=1.20 avg=1.12
[10953 | 3445.74] loss=1.03 avg=1.11
[10954 | 3446.65] loss=0.95 avg=1.11
[10955 | 3447.57] loss=1.29 avg=1.11
[10956 | 3448.49] loss=1.45 avg=1.12
[10957 | 3449.41] loss=1.28 avg=1.12
[10958 | 3450.33] loss=1.48 avg=1.12
[10959 | 3451.25] loss=0.70 avg=1.12
[10960 | 3452.17] loss=1.35 avg=1.12
[10961 | 3453.09] loss=1.00 avg=1.12
[10962 | 3454.01] loss=1.03 avg=1.12
[10963 | 3454.93] loss=0.59 avg=1.11
[10964 | 3455.85] loss=1.00 avg=1.11
[10965 | 3456.76] loss=1.04 avg=1.11
[10966 | 3457.68] loss=1.20 avg=1.11
[10967 | 3458.61] loss=1.08 avg=1.11
[10968 | 3459.52] loss=1.05 avg=1.11
[10969 | 3460.44] loss=0.96 avg=1.11
[10970 | 3461.36] loss=0.98 avg=1.11
[10971 | 3462.28] loss=0.79 avg=1.11
[10972 | 3463.20] loss=1.13 avg=1.11
[10973 | 3464.12] loss=0.71 avg=1.10
[10974 | 3465.04] loss=1.19 avg=1.10
[10975 | 3465.96] loss=1.04 avg=1.10
[10976 | 3466.88] loss=1.08 avg=1.10
[10977 | 3467.80] loss=0.90 avg=1.10
[10978 | 3468.73] loss=0.98 avg=1.10
[10979 | 3469.64] loss=0.89 avg=1.10
[10980 | 3470.56] loss=0.83 avg=1.09
[10981 | 3471.48] loss=0.94 avg=1.09
[10982 | 3472.40] loss=0.97 avg=1.09
[10983 | 3473.33] loss=1.38 avg=1.09
[10984 | 3474.25] loss=1.16 avg=1.09
[10985 | 3475.17] loss=1.11 avg=1.10
[10986 | 3476.09] loss=1.06 avg=1.09
[10987 | 3477.01] loss=0.93 avg=1.09
[10988 | 3477.93] loss=0.85 avg=1.09
[10989 | 3478.85] loss=1.05 avg=1.09
[10990 | 3479.76] loss=0.91 avg=1.09
[10991 | 3480.68] loss=1.17 avg=1.09
[10992 | 3481.60] loss=1.39 avg=1.09
[10993 | 3482.52] loss=0.86 avg=1.09
[10994 | 3483.44] loss=1.17 avg=1.09
[10995 | 3484.36] loss=1.25 avg=1.09
[10996 | 3485.28] loss=0.65 avg=1.09
[10997 | 3486.20] loss=0.75 avg=1.08
[10998 | 3487.12] loss=1.44 avg=1.09
[10999 | 3488.04] loss=1.07 avg=1.09
Saving checkpoint/run1/model-11000
Generating samples...
======== SAMPLE 1 ========
(dolist (v (split-string c))
(let ((i (cons (car-safe c) (car-safe (aref c 1)))
(v (car-safe c))))
(if v
;; Check if a replacement is suitable for the current buffer; if nil,
;; clear it. Otherwise, restore the value.
(dolist (v (match-beginning v)
(cons (aref v (vector v))))
(dolist (a (aref a v) (car b))))
(setq t (cdr a)
c (cdr b))))
(goto-char c)
(setq c (1+ c)))))
(let ((newbuf (get-buffer-create " *buffer-*"))
(buf-size (get-buffer-create "*buffer-*"))
(buffer-modified-p nil)
(id (get-buffer-create "*id")))))
(defun comint-mode -name (process string &rest contents)
"Call `comint-mode'-style function to run `comint-make', if a string was set.
This may also override the default value in the variable `comint-mode-output-file'."
(let* ((org-process nil)
(name (or string (setq string (cons string org-process))))
(output-file (let ((current-buffer (if name
(car name)) org-output-file)))
(file-name-nondirectory (if org-mode-edit-file-directory "file")))))
(add-hook 'comint-mode.el t)
(add-to-list 'info-buffer-size)
(add-hook 'comint-mode-mode-update 1)
(add-hook 'comint-mode-edit nil)
(remove-hook 'comint-mode-edit (if org-mode-edit-file-directory "file"))
(setq org-mode-output-file (concat output-file (if (eq major-mode "emacs")
(buffer-name)))
org-output-file))
(defun comint-create-file (filename &optional force)
"Create a NEWT FILE FILE to use for editing.
This is useful to save a buffer if the buffer cannot be obtained.
See also `files-file-name'."
(with-current-buffer (get-buffer-create "*buffer-*" nil)
(let* ((name-new-buf (string-to-number filename))
(file-new-mode-output (if force "t" "f") "%s")
(old-name (or (get-buffer-create "*buffer-*" t) "(dots)")
;; Set the existing buffer name, otherwise it will be changed.
======== SAMPLE 2 ========
(defun mh-menu-add-menu-bar-menu (file)
"Add the menu bar to the current file.
With prefix argument LABEL, put the current menu bar on the menu bar.
This command should invoke `mh-create-menu' at the current
buffer. When called interactively the user must specify the
function `mh-create-menu'.")
(defun mh-add-menu-bar (filename)
(let ((menu-bar-name (symbol-name filename))
(name (or (file-attribute-modification-time filename) 0)))
(when name (set-marker (current-buffer) t))
(save-restriction
(widen)
(while (setq name (cdr name))
(setq name (cdr name)))))))
(defun mh-add-menu-buffer (filename)
"Add the menu to the current buffer."
(mapc 'set-buffer-local-map filename)
(let* ((buf (get-buffer (current-buffer)))
(region (prefix-numeric-value 0)))
(or (null buffer-file-regexp) (setq buffer-file-regexp (concat ".*" (buffer-string)))
(prog1 (or (buffer-line-number-p (expand-file-name filename) 0))) ; ignore buffer-file-regexp
(prog1 (or (buffer-line-number-p (expand-file-name filename)))))
(when (and (not (stringp buffer-file-regexp))
(get-buffer buffer-file-regexp)))
(push (or (null buffer-file-regexp) buf) buffers)))
;(defun mh-add-menu-menu ()
; (interactive)
; (with-current-buffer (mh-menu-map "/d" filename)))
(defun mh-menu-add-menu ()
"Add the menu to the current buffer."
(mapc 'set-buffer-local-map filename)
(let ((buf (make-local-variable 'mh-customize-file nil))
(menu
(lambda (c) (with-current-buffer (mh-menu-map "\r" "" c) (buffer-name (or (get-buffer c) nil))))))
(setq mh-customize-file 'menu-bar-name)))
(defun mh-menu-set-key (map (lambda (keyword) nil) (keymap))
"Set the keymap for the current buffer.
With prefix argument KEY, go to the region where KEY is found.
If KEY is nil, use `mm-insert-menu-key'."
(setq mh-current-selected-window-configuration
(when (mapcar (lambda (x) (get-buffer x nil))
(get-text-property (point-min) (point-max) 'buffer)))
nil t))
(mh-menu-set-menu-map keymap))
;;; Miscellaneous functions
(defun mh-menu ()
"Open the menu.
With prefix argument M-, make sure the new menu is visible."
(interactive)
(setq mh-menu (make-vector 1))
(unless (get-buffer (get-buffer "*M-*buffer-Info*"))
(setq mh-open-menu-buffer-file (get-buffer-file "*buffer-Info*"))
(setq mh-menu (make-vector 1)))
(mapc 'menu-bar (make-vector 1 ?\C-c mh-open-menu-buffer-file))
======== SAMPLE 3 ========
(setq ebnf-buffer-name
(cons "buffer" ebnf-buffer-name))
(setq ebnf-buffer-name "\n"))
(t
(user-error "Could not read buffer %s" buffer)
(throw 'exit nil))
(setq ebnf-directory-alist nil))
(when (and (consp gnus-mode-alist)
(< ebnf-current-buffer gnus-mode-alist))
(setq gnus-mode-alist nil))
;; Use dnf-find-file to resolve the files we already have and to return them.
(if (and (listp gnus-mode-alist)
(>= (length gnus-mode-alist) 0)
(not (stringp gnus-mode-alist))
(equal (gnus-group-string-in-directory gnus-mode-alist)
(length gnus-mode-alist))))
(defun gnus-find-file-at-point (file)
;; Find the beginning or end position of FILE.
(dolist (file gnus-mode-alist)
(let ((start (point))
end pos)
(unless (bolp)
(setq pos (point))
(goto-char pos)
(forward-line 1))
(setq file (gnus-find-file-at-point file))
(while (not file)
(end-of-line)
(forward-line 1)))))
;;;###autoload
(defun gnus-goto-file (file)
"Go to the start of FILE.
Use \\[gnus-find-file] to find the start and end."
(interactive (beginning-of-line) (let ((begin (point)))
(back-to-indentation) ;; Do not move backward.
(save-excursion
(gnus-save-buffer)))))
;;;###autoload
(defun gnus-goto-file-marker (marked)
"Move to the marked line."
(interactive (list (marker-buffer marked)))
;; Find the start of file marked by mark.
(when (pos-visible-in-window-p (point))
(let* ((file (progn
(set-window-buffer (save-excursion (point) (point))))
(when (looking-at "\n\n")))
(end (if (not (re-search-backward "\\s-*\\([^ \t]*\\)\\(\\)\\:" mark nil t))
(point)))
;; We now have been in FILE, so we can make
;; note the start of the file.
(if (file-exists-p file)
(progn
(if (not (save-excursion (point) (point))
(forward-line 1)
======== SAMPLE 4 ========
"
;; "
;; " " "
;; " " " ")
;; "
;; "
;; "
;;;;;; " " " "
;; "
; " "
;; "
;;;;;; ))
(defun menu-bar-menu-remove-from-bottom ()
;; Go back from the top. Set cursor location to bottom.
;; We do not do this with `menu-bar-menu-remove-from-bottom', just in case.
;;
" Go back to the top. Do it for
;; `menu-bar-menu-remove-from-bottom'.
(if (not (memq system-type '(windows-nt)))
menu-bar-menu-add-at-point-from-right
(beginning-of-defun) ;; Make sure that current defsubr is at point or end.
(let* ((prev (and menu-bar-window menu-bar-menu-end)))
(save-excursion
(end-of-defun)
(let ((end-end (and menu-bar-window
menu-bar-window
menu-bar-menu-display)))
(move-marker (minibuffer-end-position))
(set-marker
(funcall menu-bar-mode-map 'menu-bar-menu-remove-from-bottom
'leftmost (minibuffer-end-position))))))
;;; Interface functions.
(defun menu-bar-menu-remove-from-right ()
;; Make sure that previous menu is selected
(cond
((and menu-bar-window (selected-window)) ;; make menu-bar-menu-remove-from-right available
(menu-bar-bar-p (selected-window)))
;; Remove menu that belongs there
((and menu-bar-window (selected-window)) ;; make menu-bar-menu-remove-from-right available
menu-bar-menu-display)))
;;; Menu functions.
(defun menu-bar-menu-remove-from-bottom ()
;; Make sure that previous menu-bar is selected
;; and that its menu-bar is available
;; but not its menu-bar-menu-display. If menu-bar-menu-remove-from-bottom does not appear...
;; the menu-bar should be removed and the menu displayed.
;; ;; The menu should either be displayed
(menu-bar-menu-remove-from-bottom menu-bar-menu-display))
;;; Utilities.
;;;
(defun menu-bar-menu-update (name)
"Update the menu in menu-bar with the menu that exists."
(interactive (list (cons name menu-bar-menu-display)))
(setq name (cdr (assq ',name menu-bar-menu-include)))
(setq menu-bar-menu-update ?\s)))
(defun menu-bar-menu-remove-from-bottom ()
;; Remove menu that belongs there
(t
(mapc 'delete key-binding
menu-bar-menu-remove-from-bottom
menu-bar-menu-display))
(
[11000 | 3517.81] loss=1.17 avg=1.09
[11001 | 3518.73] loss=0.93 avg=1.09
[11002 | 3519.65] loss=1.25 avg=1.09
[11003 | 3520.57] loss=1.39 avg=1.09
[11004 | 3521.49] loss=1.13 avg=1.09
[11005 | 3522.41] loss=1.28 avg=1.09
[11006 | 3523.33] loss=1.27 avg=1.10
[11007 | 3524.24] loss=0.82 avg=1.09
[11008 | 3525.15] loss=0.76 avg=1.09
[11009 | 3526.07] loss=1.49 avg=1.09
[11010 | 3526.99] loss=1.10 avg=1.09
[11011 | 3527.91] loss=1.41 avg=1.10
[11012 | 3528.82] loss=0.98 avg=1.10
[11013 | 3529.74] loss=0.98 avg=1.09
[11014 | 3530.65] loss=0.98 avg=1.09
[11015 | 3531.57] loss=0.93 avg=1.09
[11016 | 3532.48] loss=1.01 avg=1.09
[11017 | 3533.40] loss=1.83 avg=1.10
[11018 | 3534.31] loss=1.20 avg=1.10
[11019 | 3535.23] loss=1.15 avg=1.10
[11020 | 3536.14] loss=1.19 avg=1.10
[11021 | 3537.06] loss=1.07 avg=1.10
[11022 | 3537.97] loss=1.11 avg=1.10
[11023 | 3538.88] loss=0.98 avg=1.10
[11024 | 3539.80] loss=1.32 avg=1.10
[11025 | 3540.71] loss=1.10 avg=1.10
[11026 | 3541.63] loss=1.18 avg=1.10
[11027 | 3542.54] loss=1.25 avg=1.10
[11028 | 3543.45] loss=1.10 avg=1.10
[11029 | 3544.37] loss=0.61 avg=1.10
[11030 | 3545.28] loss=1.23 avg=1.10
[11031 | 3546.20] loss=0.95 avg=1.10
[11032 | 3547.11] loss=1.21 avg=1.10
[11033 | 3548.02] loss=1.54 avg=1.10
[11034 | 3548.94] loss=1.05 avg=1.10
[11035 | 3549.86] loss=1.42 avg=1.11
[11036 | 3550.77] loss=1.00 avg=1.11
[11037 | 3551.69] loss=1.21 avg=1.11
[11038 | 3552.60] loss=1.21 avg=1.11
[11039 | 3553.52] loss=1.04 avg=1.11
[11040 | 3554.44] loss=1.06 avg=1.11
[11041 | 3555.36] loss=1.07 avg=1.11
[11042 | 3556.28] loss=1.00 avg=1.11
[11043 | 3557.20] loss=1.07 avg=1.10
[11044 | 3558.11] loss=0.97 avg=1.10
[11045 | 3559.03] loss=0.91 avg=1.10
[11046 | 3559.94] loss=0.95 avg=1.10
[11047 | 3560.86] loss=1.39 avg=1.10
[11048 | 3561.78] loss=1.05 avg=1.10
[11049 | 3562.69] loss=1.07 avg=1.10
[11050 | 3563.61] loss=0.76 avg=1.10
[11051 | 3564.53] loss=1.09 avg=1.10
[11052 | 3565.44] loss=0.88 avg=1.10
[11053 | 3566.36] loss=1.50 avg=1.10
[11054 | 3567.27] loss=1.14 avg=1.10
[11055 | 3568.19] loss=0.82 avg=1.10
[11056 | 3569.11] loss=0.73 avg=1.09
[11057 | 3570.03] loss=0.65 avg=1.09
[11058 | 3570.95] loss=1.06 avg=1.09
[11059 | 3571.87] loss=1.81 avg=1.10
[11060 | 3572.78] loss=1.06 avg=1.10
[11061 | 3573.70] loss=0.59 avg=1.09
[11062 | 3574.62] loss=1.10 avg=1.09
[11063 | 3575.54] loss=1.25 avg=1.09
[11064 | 3576.46] loss=1.20 avg=1.09
[11065 | 3577.37] loss=0.74 avg=1.09
[11066 | 3578.29] loss=0.69 avg=1.09
[11067 | 3579.21] loss=1.27 avg=1.09
[11068 | 3580.13] loss=1.15 avg=1.09
[11069 | 3581.05] loss=1.04 avg=1.09
[11070 | 3581.97] loss=0.88 avg=1.09
[11071 | 3582.89] loss=1.55 avg=1.09
[11072 | 3583.81] loss=0.83 avg=1.09
[11073 | 3584.72] loss=1.14 avg=1.09
[11074 | 3585.64] loss=0.76 avg=1.09
[11075 | 3586.56] loss=0.71 avg=1.08
[11076 | 3587.48] loss=1.44 avg=1.09
[11077 | 3588.40] loss=1.06 avg=1.09
[11078 | 3589.31] loss=1.20 avg=1.09
[11079 | 3590.23] loss=1.03 avg=1.09
[11080 | 3591.15] loss=0.90 avg=1.08
[11081 | 3592.07] loss=1.21 avg=1.09
[11082 | 3592.99] loss=1.41 avg=1.09
[11083 | 3593.91] loss=0.88 avg=1.09
[11084 | 3594.84] loss=1.51 avg=1.09
[11085 | 3595.76] loss=1.21 avg=1.09
[11086 | 3596.68] loss=1.28 avg=1.09
[11087 | 3597.60] loss=1.07 avg=1.09
[11088 | 3598.51] loss=1.21 avg=1.09
[11089 | 3599.44] loss=1.84 avg=1.10
[11090 | 3600.35] loss=0.64 avg=1.10
[11091 | 3601.28] loss=1.09 avg=1.10
[11092 | 3602.20] loss=1.58 avg=1.10
[11093 | 3603.13] loss=1.11 avg=1.10
[11094 | 3604.05] loss=1.76 avg=1.11
[11095 | 3604.98] loss=1.00 avg=1.11
[11096 | 3605.90] loss=0.87 avg=1.11
[11097 | 3606.82] loss=1.18 avg=1.11
[11098 | 3607.74] loss=1.12 avg=1.11
[11099 | 3608.66] loss=0.94 avg=1.10
Generating samples...
======== SAMPLE 1 ========
(put 'routines '(0 0 0)))
;; Routine variables:
(defvar routines-def
(mapcar
"\\[\mbox[:class:]]-\\(\\(?:def[a-z.]*\\)\\([0-9.]*\\)\\(\\(?:\\([0-9.]*]\\|?\\)[0-9.]*]*\\)\\).")
routines
"\\[%s-%s]" ; class
class-decl
class-name def
(when (assoc class-name
'("class." "class-name" "class-decl"))
(setq class-name '(routines-def)))
routines-def)
(put 'routines '(0 0 0)))
;; Variable declaration declarations:
;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar routines-all-declarations-function
(let ((list (cdr list)))
(if (< 0 list)
;; ; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
'((decl ?*)
(decl ( ?/ ?+ ?\]) ; ;; ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(key (routines-def
;;(?:def[:class] .+ .+ .*)
.-)
======== SAMPLE 2 ========
<|endoftext|>;;; nautilus.el --- Quail interface for Quail
;; Copyright (C) 1985-1987, 1992, 1995, 2001-2019 Free Software
;; Foundation, Inc.
;; Author: Jim D. O'Donohue <dosohue@gnu.org>
;; Keywords: Quail
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; GNU Emacs is a distributed, non-volatile distribution of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;; Code:
(defgroup nautilus nil
"Quail interface for Quail"
:prefix "nautilus-quail-"
:version "7.2"
:group 'quail)
(defcustom nauti-get-directory-file nil
"If non-nil, use a temporary directory name instead of the current buffer."
:group 'mode
:version "22.1"
:type 'boolean)
(defcustom nauti-find-window-and-display
'(or (and (nth 1 arg) (nth 2 arg))
(display-image (nth 1 arg))
(display-image (nth 2 arg))
(display-function (nth 1 arg) (nth 2 arg))
(display-message (nth 1 arg "Searching %s %s" nauti-directory-format) nil)
(display-message "Reading %s"
(+ (concat nauti-file "*" nauti-directory-format "\n") ":" nauti-format))
(display-message (nauti-file "*" nauti-directory-format "\n"))))
(defgroup nautilus nil
"Quail interface for Quail"
:prefix "nautilus-quail-"
:type 'boolean)
(defgroup nautilus-quail nil
"Quail interface for Quail", "http://quail.gnu.org/"
:prefix "nautilus-quail-"
:type '(choice (const :tag "None" nil)
(string :tag "Quail" nil))
:version "25.1"
:group 'quail-utils)
;;; Quail Utilities
;;
;; Quail Utilities are a large group of commands called "Quail-mode", where
;; they provide very complex and dynamic display and retrieval
;; of files, directories and the like.
;; Quail Utilities
;;
;; Quail Utilities in Emacs
;;
;; Quail Utilities, in Quail-mode
;; Quail Utilities, available directly from Quail
;;
;; The main thing they do is fetch images from http://quail.gnu.org.
;; It's very easy to use with GNU Emacs or Quail, and it should work
;; without any major dependencies on Quail.
;;
;; To use `quail-current-buffer' you need to set up the variables
;; to point at the file name (in Quail mode) followed by this
;; string.
;;
;; Quail Utilities
;; The main Quail interface that Emacs uses for quail.
;;
======== SAMPLE 3 ========
(interactive)
(save-excursion
(let ((buf (current-buffer)))
(setq buf (buffer-table-tables))
(setq buffer-file-name buf)
(if (= (length buffer-file-name) 0)
(setcdr (cdr buf)
(sort buffer-file-name (cdr buf))
(when (consp buffer-file-name)
(setq buffer-file-name (nconc buffer-file-name (nreverse (cdr buf))))
(insert buffer-file-name)))
(push buffer-file-name (delq buf buffer-file-name))
(when (memq type '(file/directory/multiline])
(sort buffer-file-name (cdr buffer-file-name))
(unless (read-buffer (format "#%s %s%s%s" buffer-file-name (car buffer-file-name))
"Save the current buffer and save the current version."
(cdr buffer-file-name))))
(add-to-history (insert file-name buffer-file-name)
"Save the current buffer and save the current version
with the history line to the file name "))
nil))))
(cl-defmethod map-line (map arg)
(t
(save-excursion (add-text-properties (point-min) (point-max) todo-history-lines nil)
nil nil t)))
(defun toggle-dired-file-selection ()
(interactive)
(map-line #'toggle-dired-file-selection)))
(defvar buffer-file-name
(buffer-in-region (point-min) (point-max) todo-history-lines t)))
(defun toggle-dired-line (line &optional file-name)
(interactive)
(setq buffer-file-name (copy-directory file-name))
(if (and file-name
(setq buffer-file-name
(propertize (current-message)
"Select the region to read: "))
buffer-file-name
(let ((start (point)))
(or (and (stringp entry) (get-char-property (point) 'Dired-name-char)
(stringp start)) (yes-or-no-p))
(unless (and (< (point) start)
(/= (point-max) (point-min) (point-max)))
(error "Read file: No file exists but `mark' is active"))
======== SAMPLE 4 ========
(define-key map [upstart] 'downstart)
(define-key map [forward] 'forward)
(define-key map [upleft] 'upleft)
(define-key map [downleft] 'upleft)
(define-key map [forward] 'forward)
(define-key map [downright] 'downright)
(define-key map [upright] 'upright)
(define-key map [downleft] 'downleft)
(define-key map [downright] 'downleft)
(define-key map [upright] 'upright)
(define-key map [overleft] 'overleft))
(define-key menu-bar-menu 'menu-bar-insert "Menu bar for "
"Menu for all the current buffer. It is a list where you can select which buffer you want to insert.
You can insert a menu of several buffers:
1 : (select-frame . current-frame)
: (select-window . current-window)
: (select-key . current-key)
2 : (select-window-or-position . current-window)
: (select-point . current-point)
: (select-key . current-key)
3" : (selected-window nil)
: (selected-position nil)
: (selected-p nil)
: (selected-frame nil)
: key : value -1 : value (variable-value t)
: key (variable-value (var nil)
": key")))
(define-key menu-bar-menu 'menu-bar-insert-all "Menu-bar for all buffers.
This is a list where you can select which buffer you want to insert. You can specify
that there is more than one buffer in this list. If there is more
than one buffer in the list, then a menu is put in the buffer named *
and *or *you will be prompted for it in the buffer you select."
mappings)
(define-key menu-bar-menu 'menu-bar-in-place "Menu-bar for all buffers.
This is a list where you can select which buffer you want to insert."
mappings to)
(define-key menu-bar-menu 'menu-bar-insert "Menu-bar for all buffers.
Used by all buffers. The menu can then be modified. You can choose which buffer for
inserting and then you will be prompted for it the next time you choose
what buffer you want to
insert it. Selection in the menu will be done by
the user when the buffer is selected."
mappings to)
(define-key menu-bar-menu (menu name)
"Select a menu.
If no menu is specified, a default is selected. You can choose from
or from the menu. All the major buffers are put there and the variable
KEYWORD-VARIABLE is used to add the keyboard to the `select-window' key,
and there might be keys for selecting the buffers that are not listed and you know
that the buffer is not in menu but on the menu page. You can specify
that the buffer has a list with KEYWORD-VARIABLE of which the
window buffer you are choosing to select is actually in the major
buffer."
mappings)
(define-key menu-bar-menu 'menu-show
[11100 | 3634.05] loss=0.92 avg=1.10
[11101 | 3634.96] loss=1.21 avg=1.10
[11102 | 3635.88] loss=1.04 avg=1.10
[11103 | 3636.79] loss=0.94 avg=1.10
[11104 | 3637.71] loss=1.29 avg=1.10
[11105 | 3638.62] loss=1.47 avg=1.11
[11106 | 3639.54] loss=0.87 avg=1.10
[11107 | 3640.45] loss=1.37 avg=1.11
[11108 | 3641.36] loss=0.96 avg=1.11
[11109 | 3642.28] loss=1.06 avg=1.11
[11110 | 3643.20] loss=1.31 avg=1.11
[11111 | 3644.11] loss=0.78 avg=1.10
[11112 | 3645.02] loss=0.87 avg=1.10
[11113 | 3645.94] loss=1.15 avg=1.10
[11114 | 3646.85] loss=0.77 avg=1.10
[11115 | 3647.77] loss=1.32 avg=1.10
[11116 | 3648.68] loss=1.05 avg=1.10
[11117 | 3649.60] loss=1.12 avg=1.10
[11118 | 3650.51] loss=0.95 avg=1.10
[11119 | 3651.42] loss=1.63 avg=1.10
[11120 | 3652.34] loss=0.92 avg=1.10
[11121 | 3653.26] loss=1.39 avg=1.11
[11122 | 3654.17] loss=1.02 avg=1.10
[11123 | 3655.09] loss=0.74 avg=1.10
[11124 | 3656.01] loss=1.22 avg=1.10
[11125 | 3656.92] loss=0.84 avg=1.10
[11126 | 3657.84] loss=1.55 avg=1.10
[11127 | 3658.76] loss=1.14 avg=1.10
[11128 | 3659.68] loss=1.11 avg=1.10
[11129 | 3660.59] loss=0.71 avg=1.10
[11130 | 3661.51] loss=0.94 avg=1.10
[11131 | 3662.43] loss=0.86 avg=1.10
[11132 | 3663.35] loss=1.21 avg=1.10
[11133 | 3664.27] loss=1.50 avg=1.10
[11134 | 3665.19] loss=1.31 avg=1.10
[11135 | 3666.11] loss=1.08 avg=1.10
[11136 | 3667.03] loss=0.66 avg=1.10
[11137 | 3667.95] loss=1.37 avg=1.10
[11138 | 3668.87] loss=1.43 avg=1.11
[11139 | 3669.79] loss=0.91 avg=1.10
[11140 | 3670.71] loss=0.75 avg=1.10
[11141 | 3671.63] loss=1.01 avg=1.10
[11142 | 3672.55] loss=0.77 avg=1.10
[11143 | 3673.48] loss=1.52 avg=1.10
[11144 | 3674.40] loss=1.07 avg=1.10
[11145 | 3675.33] loss=0.92 avg=1.10
[11146 | 3676.25] loss=0.80 avg=1.09
[11147 | 3677.17] loss=0.80 avg=1.09
[11148 | 3678.09] loss=0.77 avg=1.09
[11149 | 3679.00] loss=0.96 avg=1.09
[11150 | 3679.92] loss=1.05 avg=1.09
[11151 | 3680.85] loss=0.80 avg=1.08
[11152 | 3681.77] loss=1.13 avg=1.08
[11153 | 3682.70] loss=1.32 avg=1.09
[11154 | 3683.62] loss=0.51 avg=1.08
[11155 | 3684.54] loss=0.63 avg=1.08
[11156 | 3685.47] loss=0.91 avg=1.08
[11157 | 3686.39] loss=1.25 avg=1.08
[11158 | 3687.31] loss=1.42 avg=1.08
[11159 | 3688.24] loss=0.91 avg=1.08
[11160 | 3689.16] loss=1.38 avg=1.08
[11161 | 3690.08] loss=1.29 avg=1.08
[11162 | 3691.00] loss=1.24 avg=1.09
[11163 | 3691.93] loss=1.37 avg=1.09
[11164 | 3692.85] loss=0.72 avg=1.08
[11165 | 3693.78] loss=0.72 avg=1.08
[11166 | 3694.70] loss=0.77 avg=1.08
[11167 | 3695.62] loss=1.01 avg=1.08
[11168 | 3696.55] loss=0.87 avg=1.07
[11169 | 3697.47] loss=0.94 avg=1.07
[11170 | 3698.40] loss=0.96 avg=1.07
[11171 | 3699.32] loss=0.90 avg=1.07
[11172 | 3700.24] loss=0.70 avg=1.07
[11173 | 3701.17] loss=1.27 avg=1.07
[11174 | 3702.09] loss=1.67 avg=1.07
[11175 | 3703.01] loss=0.94 avg=1.07
[11176 | 3703.93] loss=1.41 avg=1.08
[11177 | 3704.85] loss=1.28 avg=1.08
[11178 | 3705.78] loss=1.17 avg=1.08
[11179 | 3706.70] loss=1.63 avg=1.09
[11180 | 3707.63] loss=1.16 avg=1.09
[11181 | 3708.55] loss=0.57 avg=1.08
[11182 | 3709.47] loss=1.32 avg=1.08
[11183 | 3710.39] loss=1.39 avg=1.09
[11184 | 3711.31] loss=1.09 avg=1.09
[11185 | 3712.24] loss=0.85 avg=1.08
[11186 | 3713.16] loss=1.69 avg=1.09
[11187 | 3714.08] loss=0.88 avg=1.09
[11188 | 3715.01] loss=1.16 avg=1.09
[11189 | 3715.93] loss=0.84 avg=1.09
[11190 | 3716.86] loss=1.82 avg=1.09
[11191 | 3717.78] loss=0.91 avg=1.09
[11192 | 3718.71] loss=0.78 avg=1.09
[11193 | 3719.63] loss=1.29 avg=1.09
[11194 | 3720.56] loss=0.84 avg=1.09
[11195 | 3721.48] loss=1.08 avg=1.09
[11196 | 3722.40] loss=0.93 avg=1.09
[11197 | 3723.33] loss=1.20 avg=1.09
[11198 | 3724.25] loss=1.25 avg=1.09
[11199 | 3725.18] loss=0.94 avg=1.09
Generating samples...
======== SAMPLE 1 ========
(if (eq (char-before) ?\s)
`(?\s . ?s)
(mapconcat 'number (number-to-string ?\s)) " "))
"")
(if (string-match (substring char 1))
(setq b t)
(mapc (lambda (s)
(setq b t))))
(if (not (eq (char-before) ?\])
(progn
(delete-char 2)
(delete-char 3)
; ``(,`,
(when (or arg (eq (char-before) ?\s)
(char-to-string ?\s)))
(insert " "
(current-buffer))))
(save-excursion
(delete-region (point) (progn (beginning-of-line)
(if (and (looking-at-p (char-to-string))
(char-to-string ?\s)))
(current-buffer)))))
(goto-char (match-end 0))
(message "Buffer: %s" (buffer-name))))))
;; Check if we can make a string on the right-hand side.
(save-excursion
(let ((buf (current-buffer)))
(delete-region (point) (progn (forward-char)) (not (bobp)))
(unless (null buf))
(insert "\n")
(switch-to-buffer buf)))
(insert " ")))
;;(math-def-macro math-find-math-result (expr test1 mathp)
;;
======== SAMPLE 2 ========
(pcase (cadr (oref (nth 2 entry)))))
(list '(?a . ,(nth 1 entry) ; . ,(oref (oref (nth 2 entry)))))
;;; TAB
(defsubst gnus-tag-to-delete-to-marker (tag)
"Return t if TAG is t at point.
See `gnus-tag-to-delete-to-marker-function' for a description for the
method."
(if (vectorp (car (gnus-trim tag))) (gnus-tag-to-delete-to-marker tag))))
;;;
;;;
;;;
;;;
(defun gnus-tag-update-to-marker (tag)
"Update `tag' tag to mark the tag at point.
Note that if a tag has been deleted from `gnus-tag-to-delete-to-marker',
it is also updated."
(interactive "@e")
(let ((new (car (tag-to-delete-from-marker tag)))
(old nil))
(while (not old)
(push (list (car (gnus-tag-to-marker new)))
gnus-tag-to-deletion-flag))
(and (equal old gnus-tag-to-delete-to-marker)
(equal old gnus-tag-to-delete-to-marker)
(equal old gnus-tag-to-disassociate-flag))
(when (gnus-tag-to-delete-to-marker "")
(let ((old (car (gnus-tag-to-delete-from-marker tag)))
gnus-tag-to-delete-to-marker))))
;;;
;;;
;;;
(defun gnus-tag-to-get ()
"Get TAG at point."
(let ((current (car current)))
(and gnus-tag-to-delete-to-marker
(not (eq gnus-tag-to-get-flag gnus-tag-to-get))))
(and gnus-tag-to-get-flag
(eq gnus-tag-to-get-flag gnus-tag-to-get))
(push (car current) gnus-tag-to-get)))
;;;
;;;
;;;
(defun gnus-tag-to-delete-from-marker (new gnus-tag-to-get-flag)
"Delete TAG which has been marked with `gnus-tag-to-get-flag'.
A tag which has been changed is restored as well."
(cond ((not new) nil)
((gnus-tag-to-delete-from-marker nil) nil)
(t nil))
(while (not (eq gnus-tag-to-get-flag gnus-tag-to-get))
(push (list gnus-tag-to-get-flag gnus-tag-to-get-flag)
gnus-tag-to-to-get-flag))
(setq gnus-tag-to-get-flag gnus-tag-to-get-flag)
(gnus-tag-to-do-delete
gnus-tag-to-do-delete)
(gnus-remove-from-marker gnus-tag-to-do-delete))
(when (or gnus-tag-to-get-flag
(and (eq gnus-tag-to-get-flag gnus-tag
======== SAMPLE 3 ========
(defgroup viper-help-regex-regex "Regexp Help"
"A Lisp Regex which reuses help elements in a specific search, regardless of
the current value.
The function returns one `string' regex to search using.
See `viper-help-regex-alist'."
:type '(repeat symbol)
:group 'viper-help-regex)
(defcustom viper-regex-search-buffer "*EUR*"
"The string to use the regexp searching for the current search."
:type '(choice (const :tag "no match, save search buffer" "All of a match")
(const :tag "Save buffer" "Include match")
(repeat :tag "Save buffer" "Exclude match and search for match")
(const :tag "None match, save search buffer" "Only match")))
(defcustom viper-regex-buffer-file "*EUR*"
"The current regexp."
:type (const :tag "No match" nil))
(defcustom viper-regex-buffer-regex-type nil
"The regexp to search for the current match."
:type '(alist :tag "Regexp"))
(defcustom viper-string-alist nil
"Regexps.
A regexp string can have a `*' in it, e.g., \\<viper-re-match-alist>\\[*^\"\n\"\\] .
A `*' can be a `^' in the second part of the string, e.g., \\<viper-re-match-alist>\\[*^\"\n\"\\] ;
\\<viper-re-match-alist>
\\<viper-re-match-alist>
\\<viper-re-match-alist>
\\<viper-re-match-alist>
List of regexps with different `~' suffix, e.g. \\`foo-string-string\\] .
\\<viper-re-match-alist>
`+'
\\(*+\\)?
`\\(.*\\|\\|*^\\)?
\\<viper-re-match-alist> \\`*?
\\(\\|[\\|_.*\\|[\n\t]*]+\\)\\|[\\|_.*\\)"
\\|[\\|_.*\\|[\n\t]*_]
\\|[\\|_.*_]
\\|[\\|_}_]
======== SAMPLE 4 ========
(b)
(cond ((eolp)
;; Set up a "dummy thread"
(set-deceased-threads 1))
(t (error "Missing thread"))))))
(defun dired-setup-thread-and-remove-timer ()
"Setup dired.
This works through a thread that handles the display of a buffer's state. The window behind the buffer then scrolls down the frame.
The "dynamic" effect
*
(save-excursion (beginning-of-defun))
(unless (eq (window-buffer (get-buffer-create dired-current-buffer t)))
(if (not (eolp))
(window-buffer (window-point (get-buffer dired-current-buffer)) t)))
(push (buffer-substring (point) (point-max))
(pop-to-buffer dired-current-buffer t t))))
(defun dired-pop-to-buffer ()
"Pop the window back into dired.
This also applies to `dired-insert-buffer-function', `dired-pop-to-buffer',
`dired-pop-to-buffer', and `dired-insert-buffer'."
(interactive)
(let ((buffer (window-buffer buffer))
(b (window-point (window-point)))
(buffer-end (window-end (window-point))))
(if buffer (pop-to-buffer buffer)))
(save-window-excursion (and (not dired-pop-to-buffer) (dired-pop-to-buffer)))))
(defun dired-insert-buffer-function ()
"Insert the buffer back into dired.
This also applies to `dired-insert-buffer-function', `dired-pop-to-buffer',
`dired-pop-to-buffer', and `dired-insert-buffer'."
(interactive)
(let* ((buffer-end (window-point))
(b (point)))
(cond ((and (not dired-pop-to-buffer) (not dired-pop-to-buffer))
(push (window-buffer (window-point b)) b))
(unless (eolp)
(dired-pop-to-buffer)
(push (dired-pop-to-buffer b))
(dired-pop-to-buffer b))))))
(defun dired-pop-to-buffer ()
"Pop the window back into dired.
This also applies to `dired-pop-to-buffer', `dired-pop-to-buffer',
`dired-pop-to-buffer', and `dired-insert-buffer'."
(interactive)
(set-window-blank-map (dired-pop-to-buffer))
(let ((w (window-buffer)))
(dolist (a (window-point)) (dolist (b (window-point)) (dolist (c (window-end)) (dolist (f (window-end)) (window-point)))
(if (eofa)
(setq b (window-point b)))
(cond ((and (get-buffer-window a) ; dired window
(eofa (window-point (get-buffer-window b)))
(buffer-live-p (if (eofa a) nil 0)))
(window-next 'nob))
[11200 | 3750.60] loss=1.32 avg=1.09
[11201 | 3751.52] loss=0.90 avg=1.09
[11202 | 3752.43] loss=1.07 avg=1.09
[11203 | 3753.35] loss=1.37 avg=1.09
[11204 | 3754.26] loss=1.21 avg=1.09
[11205 | 3755.18] loss=1.04 avg=1.09
[11206 | 3756.09] loss=1.31 avg=1.09
[11207 | 3757.00] loss=1.02 avg=1.09
[11208 | 3757.92] loss=1.51 avg=1.10
[11209 | 3758.83] loss=0.82 avg=1.09
[11210 | 3759.75] loss=0.64 avg=1.09
[11211 | 3760.66] loss=1.14 avg=1.09
[11212 | 3761.57] loss=1.02 avg=1.09
[11213 | 3762.49] loss=1.18 avg=1.09
[11214 | 3763.40] loss=0.80 avg=1.09
[11215 | 3764.32] loss=1.17 avg=1.09
[11216 | 3765.23] loss=1.60 avg=1.09
[11217 | 3766.15] loss=0.91 avg=1.09
[11218 | 3767.06] loss=1.93 avg=1.10
[11219 | 3767.97] loss=1.25 avg=1.10
[11220 | 3768.88] loss=1.26 avg=1.10
[11221 | 3769.80] loss=1.19 avg=1.10
[11222 | 3770.72] loss=1.31 avg=1.11
[11223 | 3771.63] loss=1.12 avg=1.11
[11224 | 3772.55] loss=1.14 avg=1.11
[11225 | 3773.46] loss=1.03 avg=1.11
[11226 | 3774.38] loss=0.92 avg=1.10
[11227 | 3775.30] loss=0.82 avg=1.10
[11228 | 3776.21] loss=0.81 avg=1.10
[11229 | 3777.13] loss=1.50 avg=1.10
[11230 | 3778.05] loss=0.83 avg=1.10
[11231 | 3778.97] loss=0.96 avg=1.10
[11232 | 3779.88] loss=1.35 avg=1.10
[11233 | 3780.80] loss=1.30 avg=1.10
[11234 | 3781.72] loss=1.05 avg=1.10
[11235 | 3782.64] loss=1.11 avg=1.10
[11236 | 3783.55] loss=1.19 avg=1.10
[11237 | 3784.47] loss=1.30 avg=1.11
[11238 | 3785.39] loss=1.45 avg=1.11
[11239 | 3786.31] loss=1.37 avg=1.11
[11240 | 3787.24] loss=1.20 avg=1.11
[11241 | 3788.16] loss=0.87 avg=1.11
[11242 | 3789.08] loss=0.81 avg=1.11
[11243 | 3790.00] loss=0.44 avg=1.10
[11244 | 3790.92] loss=1.33 avg=1.10
[11245 | 3791.84] loss=0.77 avg=1.10
[11246 | 3792.76] loss=0.98 avg=1.10
[11247 | 3793.68] loss=0.55 avg=1.09
[11248 | 3794.60] loss=1.24 avg=1.09
[11249 | 3795.52] loss=1.32 avg=1.10
[11250 | 3796.45] loss=0.75 avg=1.09
[11251 | 3797.37] loss=0.85 avg=1.09
[11252 | 3798.30] loss=1.12 avg=1.09
[11253 | 3799.22] loss=1.46 avg=1.09
[11254 | 3800.14] loss=0.79 avg=1.09
[11255 | 3801.06] loss=1.03 avg=1.09
[11256 | 3801.98] loss=1.17 avg=1.09
[11257 | 3802.90] loss=1.27 avg=1.09
[11258 | 3803.82] loss=1.54 avg=1.10
[11259 | 3804.75] loss=1.16 avg=1.10
[11260 | 3805.67] loss=1.35 avg=1.10
[11261 | 3806.60] loss=0.93 avg=1.10
[11262 | 3807.52] loss=1.08 avg=1.10
[11263 | 3808.44] loss=0.99 avg=1.10
[11264 | 3809.37] loss=1.15 avg=1.10
[11265 | 3810.29] loss=0.88 avg=1.10
[11266 | 3811.21] loss=0.73 avg=1.09
[11267 | 3812.13] loss=0.75 avg=1.09
[11268 | 3813.06] loss=0.86 avg=1.09
[11269 | 3813.98] loss=1.23 avg=1.09
[11270 | 3814.91] loss=1.01 avg=1.09
[11271 | 3815.82] loss=0.85 avg=1.09
[11272 | 3816.74] loss=1.25 avg=1.09
[11273 | 3817.66] loss=0.93 avg=1.09
[11274 | 3818.59] loss=0.91 avg=1.08
[11275 | 3819.51] loss=0.99 avg=1.08
[11276 | 3820.44] loss=0.81 avg=1.08
[11277 | 3821.36] loss=0.94 avg=1.08
[11278 | 3822.28] loss=0.88 avg=1.08
[11279 | 3823.21] loss=1.54 avg=1.08
[11280 | 3824.13] loss=1.12 avg=1.08
[11281 | 3825.06] loss=1.03 avg=1.08
[11282 | 3825.98] loss=1.25 avg=1.08
[11283 | 3826.90] loss=0.81 avg=1.08
[11284 | 3827.82] loss=0.97 avg=1.08
[11285 | 3828.74] loss=1.40 avg=1.08
[11286 | 3829.66] loss=1.27 avg=1.08
[11287 | 3830.58] loss=0.87 avg=1.08
[11288 | 3831.50] loss=1.00 avg=1.08
[11289 | 3832.42] loss=1.01 avg=1.08
[11290 | 3833.34] loss=1.24 avg=1.08
[11291 | 3834.27] loss=1.03 avg=1.08
[11292 | 3835.19] loss=1.00 avg=1.08
[11293 | 3836.12] loss=0.88 avg=1.08
[11294 | 3837.04] loss=1.37 avg=1.08
[11295 | 3837.97] loss=1.44 avg=1.08
[11296 | 3838.89] loss=1.22 avg=1.09
[11297 | 3839.82] loss=0.79 avg=1.08
[11298 | 3840.74] loss=1.12 avg=1.08
[11299 | 3841.66] loss=0.91 avg=1.08
Generating samples...
======== SAMPLE 1 ========
modification-context-map [list]
(let* ((map (make-sparse-keymap)))
(define-key map "g\x2[\t]*" 'cperl-menu-menu-map)
(define-key map "c\x2[\t]*" 'cperl-menu-keys-map)
(define-key map "\t" 'cperl-menu-mouse-2-line-mouse-mouse-map)
(define-key map [down] 'setq-menu
'cperl-menu-mouse-3-line-mouse-mouse-mouse-map)
(define-key map "\t" 'cperl-menu-mouse-3-line-mouse-mouse-map)
(define-key map "\r" 'cperl-menu-mouse-mouse-map)
map)
"Keymap used in keyboard menus.")
(defvar cperl-mode-map
"An alist of keymap and state-specific state definitions.
They should contain one or more arguments, and not have the same
keymap definitions."
:vars
(let ((map (make-sparse-keymap)))
(define-key map [down] 'setq-menu
'cperl-menu-mouse-mouse-map)
map)
"Map used in keyboard menus.")
(define-derived-mode cperl-mode mode-local-map
"Keymap for cperl mode.")
;;;; Utility functions
;;;; (convert-keymap-parent-keymap-to-cperl-map-key-map)
;;;###autoload
(put 'convert-conversion-conversion-options 'menu-bar-define-generic-variable
;;;###autoload
(define-derived-mode cperl-mode mode-local-map
"Major mode for editing Perl mode's conversion routine.
This buffer is used as a window.
If you use a mouse or keyboard for Emacs, this will help you.
If called interactively, this buffer will display the message
prompting you to enter a different format to where you'd rather go.
See the \"Multiturpose Usage\" section in `cperl-mode' for more
depth and a description of this buffer."
(require 'convert-conversion)
(set (make-local-variable 'cperl-mode-map)
(cons (progn
(insert (format "%s %S/%s"
'(?\t ?\ ]) (concat " *" (substitute-key-definition
"[" "" "" "]")) t)
(display-buffer display-buffer))
(setq converted-conversion-conversion-options
(cons '("" (match-string 1) "")) t)
(kill-buffer converted-conversion-conversion-options))))))
(defun cperl-mode-setq-modes (functions)
"Set FUNCTION-DESCRIPTOR-MAPs and MODE-MODE-CONTROL-MAPs to defaults in FUNC-DESCRIPTOR-MAP.
FUNCTION-DESCRIPTOR-MAPS can be set via `cperl-keymap' or `locate-keymap'
in a key-binding."
(interactive "P")
(let ((cperl-use-local-map-functions 'menu-bar-if-keymap)))
(funcall
======== SAMPLE 2 ========
mod-save-selected nil
"Save the Emacs buffer using this list."
(mapcar (function :key-spec 'list
(mapcar (function :tag "list") list))
(car list))
list)
(if (save-excursion
(goto-char (point-min))
(search-forward "\\(" nil t)
(replace-match "\n\t" t nil nil))))
(if (and (eq (current-buffer) (buffer-name))
(not (eq (car-safe (cdr (car (car (buffer-name)))))))
(not (car (car (cdr (car (car (car (cdr (car))))))))))
nil
(error "This buffer does not include buffer "))))
list))
(defun org-mode--modes-list-regexps (parts parts)
"Return all matches for `org-mode-prog-regexp'."
(when (or (listp parts)
(< parts 4))
(nconc (match-string 1 parts) (substring parts 0 -2))
parts))
(defun org-mode--modes-find-regexp (match)
"Find the next match for `org-mode-grep' regexp matching regexps.
The process of searching all matches for `org-mode-grep' regexps
will be started by replacing them with the correct match to use. With
`org-mode-restore-regexp-face', replace a single match with a regexp matching
the same regexp as the current face. This function is needed if
`org-mode-" is nil, otherwise `org-mode-grep' is t."
(cons match (format "%s%s" matches 1 (org-mode-grep))))
(defun org-mode-grep-regexp (match)
"Find regexp matching `org-mode-grep' regexp matching
previous match to use for `org-mode'."
(cons match (setq match nil))
(when (assoc matches org-mode-grep-regexp-alist)
(dolist (match (lambda (x) (org-mode-grep (car x))))
(setq match (cons match (mapcar
(mapcar 'car x) match))))
;; Match is not set yet.
(let (f)
(when (and (assoc match org-mode-grep-regexp-alist)
'string-matching)
;; Add match if match matched, then delete regexp.
(rename-match match t))))))
(defun org-mode-rebuild-regexps (&rest matches)
"Rebuild regexps in Emacs."
(save-excursion
(let (e (save-restriction
(let* ((f (car (cdr (car matches)))
(or (not (eq (car (nth 2 f))) "!"))
(setq regex
======== SAMPLE 3 ========
mod-find-next-function
"Return the current line number for the next search.
The search is in a mode line, which will be shown on mouse
press. If the current line number is greater than the current window position
of the next search window or point at point, then it is narrowed
down to the level of this line number so it is shown on the next window.
If the current window is less than the level of window
of the next search window or point at point, then it will be shown
on that window.
Note that for each window in the current window, the depth
of the buffer or cursor position of the next search window is
not affected. The search must be expanded in that window.")
(autoload 'srecode-compile-search-functions "recode-compile")
(autoload 'srecode-compile-command "recompile")
(autoload 'srecode-compile-help-functions "recode-compile")
(autoload 'srecode-compile-string-functions "recode-compile")
(autoload 'srecode-compile-string-args "recode-compile")
(autoload 'srecode-compile-in-menu "recode-compile")
(autoload 'srecode-comint-init "recode-compile")
(autoload 'font-lock-keywords "(^ \\)\\([^ \t]*\\(.+\\)/\\([^ \t]+\\)\\'" nil "font-lock-keywords-regexp: \")
;;;###autoload
(defvar srecode-mode-specific-variables nil
"For each variable in the `standard-mode-alist', return a list of them.
Variables can be used to set `srecode-current-display-mode' and `srecode-current-display-font-lock'
variables. If these are set multiple times and they are set in a single file
or buffer, their lists are sorted by default, which is a good
pattern.
If you add a new line with `("\n" at the beginning or at the end") to the `srecode-current-display' and
returnnil", you can then edit the `current-display' variable."
:type 'set
:group 'srecode-mode
:group 'srecode-font-lock-keywords)
;;;###autoload
(defvar srecode-regexp-alist
(concat srecode-regexp-alist (list "{" "[\\([0-9]+\\(\\)\\]*\\(\\[[0-9]+\\]\\)\\]"))
"The entries for regexp-alist variable srecode mode variables.
`srecode-mode-alist' uses `srecode-default-regexp',
`srecode-default-regexp', `srecode-global-regexp',
`srecode-all-comments-only-mode', and
`srecode-mode-alist' uses `srecode-use-local-regexp'.
(defvar srecode-mode--tag-symbol (substring-no-properties nil t))
;;;###autoload
(defcustom srecode-mode-symbol nil
"If the default syntax of a symbol is `symbol', then it must be set directly
through srecode-mode-alist.
If the default syntax of a variable is `symbol',
then it must be set directly through srecode-mode-alist.
The syntax of a variable and its variable-local variable is
the property symbol (which is then used to set variables in SREcode files.
When srecode uses the `default-syntax' property as the syntax of
a symbol, then
it sets `default-syntax' to what it uses. This way, srecode
will check whether it has a property. In particular, if it does not, it
should set that variable.")
:type 'symbol
:group 'srecode-mode
:group 'srecode)
(defvar srecode-mode-defs nil)
(defvar srecode-mode-function nil)
(defvar srecode-mode-mode-symbol nil)
(defconst s
======== SAMPLE 4 ========
mod))))
(setq (cdr (assoc (get-text-property (point) c-default-display-buffer)
(window-property-mouse-pos
(point))
visible-font-lock-keywords)))
text)
;; FIXME: this should not be called on a function which is called
;; before the value of the variable has been set.
buffer-before-goto-edit-arguments)))
(message nil (point))))
;; Do some sort of display.
(set-minibuffer-output buffer-undo-list)
(setq buffer-undo-list nil))
(message "%s: buffer %s has deleted file %s" buffer-undo-list)
(set-buffer (get-buffer-create buffer-undo-list) buffer-undo-list nil))
(defalias 'window (with-selected-buffer buf)
"Change what window currently displays.
If nil (a buffer whose value is `scroll-up') it is removed. If a buffer with a
preferences variable has no value, then it is used instead.
When called after some type of operation, it is applied to the same
environment and so on. After this it is not used during the rest of the
buffer.
\(fn &optional EVENT EVENT &rest ARGLIST &rest WINDOW DATABASE)"
(unless (eq (window-parent buffer) ?#)
(push-mark)
;; Try to save the window with current value from this buffer.
(save-window-excursion
(narrow-to-region (point-min) (point))
(let ((overlay-at-point-change t))
(overlay-insert
(substitute-command-keys
'call-interactively 'buffer-name (window-buffer)
text nil t overlay-at-point-change t))
,@header buffer-name) ;; Insert the text here as a string
;; or just replace that. This will save the frame
;; from the current buffer. It is also better to use
;; the buffer `overlay-insert' instead.
(replace-with-text-property overlay-at-point-change text overlay-at-point-change))
;; Don't replace any existing text. If it can be saved by
;; `overlay-insert-text' there is no reason not to use the overlay.
(overlay-insert overlay text overlay-at-point-change (overlay-get overlaid-at-point)))
;; Else save the frame if it can be saved by `overlay-insert'.
(overlay-insert overlay text overlay overlay-at-point-change overlay (overlay-get overlay-at-point-change)))
;; If we cannot find a window which has the value
;; from this buffer and cannot replace the text it has saved,
;; use `window' as the buffer.
(if (equal overlay 'buffer)
(setq overlay (get-text-property
[11300 | 3867.03] loss=1.05 avg=1.08
[11301 | 3867.95] loss=0.81 avg=1.08
[11302 | 3868.87] loss=1.06 avg=1.08
[11303 | 3869.78] loss=0.92 avg=1.08
[11304 | 3870.70] loss=1.49 avg=1.08
[11305 | 3871.61] loss=0.96 avg=1.08
[11306 | 3872.52] loss=1.17 avg=1.08
[11307 | 3873.44] loss=1.29 avg=1.08
[11308 | 3874.35] loss=1.18 avg=1.08
[11309 | 3875.27] loss=0.45 avg=1.08
[11310 | 3876.18] loss=1.37 avg=1.08
[11311 | 3877.09] loss=0.98 avg=1.08
[11312 | 3878.00] loss=1.39 avg=1.08
[11313 | 3878.92] loss=1.32 avg=1.09
[11314 | 3879.83] loss=0.90 avg=1.08
[11315 | 3880.74] loss=0.98 avg=1.08
[11316 | 3881.65] loss=0.98 avg=1.08
[11317 | 3882.57] loss=0.95 avg=1.08
[11318 | 3883.49] loss=0.98 avg=1.08
[11319 | 3884.40] loss=0.98 avg=1.08
[11320 | 3885.32] loss=1.53 avg=1.08
[11321 | 3886.23] loss=0.79 avg=1.08
[11322 | 3887.14] loss=1.17 avg=1.08
[11323 | 3888.06] loss=1.58 avg=1.09
[11324 | 3888.98] loss=0.98 avg=1.08
[11325 | 3889.89] loss=1.00 avg=1.08
[11326 | 3890.81] loss=1.34 avg=1.09
[11327 | 3891.73] loss=0.87 avg=1.08
[11328 | 3892.64] loss=1.29 avg=1.09
[11329 | 3893.56] loss=0.91 avg=1.08
[11330 | 3894.47] loss=0.69 avg=1.08
[11331 | 3895.39] loss=0.83 avg=1.08
[11332 | 3896.31] loss=1.19 avg=1.08
[11333 | 3897.23] loss=0.83 avg=1.08
[11334 | 3898.14] loss=1.33 avg=1.08
[11335 | 3899.06] loss=1.26 avg=1.08
[11336 | 3899.99] loss=0.97 avg=1.08
[11337 | 3900.90] loss=1.38 avg=1.08
[11338 | 3901.82] loss=1.62 avg=1.09
[11339 | 3902.74] loss=1.20 avg=1.09
[11340 | 3903.66] loss=1.37 avg=1.09
[11341 | 3904.58] loss=1.00 avg=1.09
[11342 | 3905.50] loss=1.32 avg=1.09
[11343 | 3906.43] loss=1.73 avg=1.10
[11344 | 3907.35] loss=1.02 avg=1.10
[11345 | 3908.27] loss=1.44 avg=1.10
[11346 | 3909.19] loss=1.23 avg=1.10
[11347 | 3910.11] loss=0.47 avg=1.10
[11348 | 3911.02] loss=0.84 avg=1.09
[11349 | 3911.94] loss=1.04 avg=1.09
[11350 | 3912.86] loss=0.80 avg=1.09
[11351 | 3913.78] loss=1.27 avg=1.09
[11352 | 3914.70] loss=1.21 avg=1.09
[11353 | 3915.62] loss=1.60 avg=1.10
[11354 | 3916.55] loss=1.71 avg=1.11
[11355 | 3917.48] loss=1.44 avg=1.11
[11356 | 3918.40] loss=0.95 avg=1.11
[11357 | 3919.33] loss=1.46 avg=1.11
[11358 | 3920.25] loss=1.88 avg=1.12
[11359 | 3921.16] loss=0.93 avg=1.12
[11360 | 3922.08] loss=1.20 avg=1.12
[11361 | 3923.00] loss=1.18 avg=1.12
[11362 | 3923.92] loss=1.52 avg=1.12
[11363 | 3924.85] loss=0.86 avg=1.12
[11364 | 3925.77] loss=0.64 avg=1.11
[11365 | 3926.70] loss=1.24 avg=1.12
[11366 | 3927.62] loss=1.08 avg=1.12
[11367 | 3928.55] loss=1.00 avg=1.11
[11368 | 3929.47] loss=1.52 avg=1.12
[11369 | 3930.40] loss=0.87 avg=1.12
[11370 | 3931.32] loss=1.16 avg=1.12
[11371 | 3932.25] loss=1.38 avg=1.12
[11372 | 3933.17] loss=0.91 avg=1.12
[11373 | 3934.09] loss=1.15 avg=1.12
[11374 | 3935.02] loss=1.27 avg=1.12
[11375 | 3935.94] loss=1.66 avg=1.12
[11376 | 3936.87] loss=1.19 avg=1.12
[11377 | 3937.79] loss=1.18 avg=1.13
[11378 | 3938.72] loss=1.43 avg=1.13
[11379 | 3939.64] loss=1.00 avg=1.13
[11380 | 3940.56] loss=1.17 avg=1.13
[11381 | 3941.48] loss=1.32 avg=1.13
[11382 | 3942.41] loss=1.06 avg=1.13
[11383 | 3943.33] loss=1.32 avg=1.13
[11384 | 3944.25] loss=0.71 avg=1.13
[11385 | 3945.18] loss=0.86 avg=1.12
[11386 | 3946.10] loss=1.07 avg=1.12
[11387 | 3947.03] loss=1.09 avg=1.12
[11388 | 3947.95] loss=0.89 avg=1.12
[11389 | 3948.87] loss=1.65 avg=1.13
[11390 | 3949.79] loss=1.02 avg=1.12
[11391 | 3950.71] loss=1.06 avg=1.12
[11392 | 3951.63] loss=1.39 avg=1.13
[11393 | 3952.55] loss=0.89 avg=1.12
[11394 | 3953.47] loss=1.08 avg=1.12
[11395 | 3954.39] loss=1.36 avg=1.13
[11396 | 3955.31] loss=1.10 avg=1.13
[11397 | 3956.24] loss=0.88 avg=1.12
[11398 | 3957.16] loss=1.00 avg=1.12
[11399 | 3958.08] loss=0.75 avg=1.12
Generating samples...
======== SAMPLE 1 ========
the source code may have changed. This is an error."
(setq norec-mode-line (cdr norec-mode-line))
(setq file-name (cdr file-name))
(setq file (cdr (assq 'file-name file-name)))
(if (re-search-forward "(\\s *\\(d\\)\\)?[0-9]" nil t)
(setq file-name (match-string 1))))
(defun norec-set-buffer-file-name-or-dir (filename)
"Set a buffer from FILE in the current process."
(interactive)
(setq filename (concat filename "-" nil))
(gnus-set-mode-line 'inhibit-point)
(setq file (cdr file-name)))
(make-variable-buffer-local 'norec-mode-line)
(make-variable-buffer-local 'norec-buffer-file-name-or-file-name)
(make-variable-buffer-local 'norec-file-name-or-file-name)
(make-variable-local 'norec-mode)
;;;###autoload
(defun norec-set-buffer-filename (filename)
"Create a buffer from FILE in the current buffer."
(interactive)
(goto-char (point-min))
(replace-match "^\\0-*" nil t c)
(set-buffer "*norec*")
(make-directory "Norec\n")
(norec-set-buffer))
(defun norec-set-buffer-directory (filename)
"Set a directory from FILE.
A `default' directory is created from the file in the current process. If you want to
make this file or copy the existing buffer, add the `norec-file-directory-alist'
variable to your init file."
(interactive "P")
(and (setq filename (cd /path/to/dired-file)
(directory-files (expand-file-name filename)))
(setq directory (expand-file-name filename)
default (directory-file-name (concat directory (expand-file-name filename))))))
(defun norec-dir-to-directory (files)
"Make `directory-files' or `directory-files' and use the file.
FILES can be directories, namespaces, subdirectories such as .*,
or local variables, etc."
(interactive)
(let ((directory-files (expand-file-name (file-name-directory files)))
(dir (car directories))
(args (nreverse directory-files))
(file-name-full-name (cdr directory))
(args2)
(files (file-name-nondirectory file)))
(when files
;; Do directory change
(let* ((mode-name (file-name-directory (cdr files))))
(setq buffer-file-name (file-name-nondirectory file)))
(while (not (eobp))
;; Directory directory must have this file
(or (directoryp directory)
;; The default can be a number of "~/.*/usr/local/bin/" suffixes
;; which are all useful, in that order.
;; Let's set up one of them and try to copy over
;; the directory.
(setq args2 (list (concat filename files))))
(if (and (string-match "~@" args2) (string-equal (substring args1 args2))
======== SAMPLE 2 ========
the file.
Some of them:
- * Fax file. The name can contain space, as in
- * Gnus, which allows the user to add an image from a source file
* * Gnus
- * Gnus URL URL. When `gnus-show-image-urls' is set,
* images can also be shown as URLs by
- * Faxfile. Gnus does not allow this, because
* Faxfile is a directory."
:group 'gnus-view-file
:type 'regexp)
(defcustom gnus-image-files-p-alist
nil
"Non-nil means Gnus will search for the file that has an image file extension (e.g.
`image-url-extended' or `image-url-extended-p'). An optional value of t means
to allow the user to alter this variable in the init file.
If the argument TAB is non-nil and this is a prefix, then Gnus will
search for images for an additional prefix, using the corresponding file name,
instead of searching either for an image file extension, or
for the extension of the file.
Note how the argument to TAB is not treated as non-nil; Gnus will
search for images for an image file.
This variable will be used to specify whether to use image filtering on images, and
whether to treat images as PNG images or not.
If nil, Gnus will search for images in the specified file name.
If the argument SELF-EXTENSED specifies a path for the image file,
use it instead of specifying an image extension.
To define the argument for this variable:
(define-key gnus-cache-argument 'image-url-extended)
(define-key gnus-cache-argument 'gif-url-extended)
`(define-key ,default-function ',(mapcar 'lambda e (image-url-ext)
image-url-ext)))
(or (and 'image-url-extended "")
(error "The image extension `gnus-image-files-p' doesn't exist"))
;; If you use an image file extension (like a PNG image,
;; or a .iso image), then use the file path rather than the file name,
;; since it is easier to see if there is an image file for images when
;; the extension is not a file name. Note that an image file extension
;; may not appear if the file path, with the same default file name or directory
;; as the argument list, is different. If your file is a .png (or
;; a .jpeg file) then the .jpg or .jmp images are included in
;; `gnus-image-file-expansion-alist'.
;; If the image file extension is a file name, you can use it as a prefix
;; name; see `gnus-image-file-name-regexp' and `gnus-image-file-expansion-alist
;; entries.
;; These entries are inserted at the end of the file.
(if (and gnus-image-path
(= (length image-url-extended)
(not (memq (car image-url-regexp) '(< . .>))
gnus-image-path))
(gnus-image-file-name (gnus-image-path image-url-extended))
image-url-path)
(and gnus-image-directory
gnus-image-path image-url-extended)))
;;; Variables used for `gnus-show-image-properties'."
;; ============================================================================
;;; Code:
(dolist (group (plist-get (make-list "gnus-show" 'list))
(let* ((default gnus-image-alist)
======== SAMPLE 3 ========
the title with this line:
" title ")
where t is a \"#'\" character. Note: The list of arguments to \"#<string>\" also includes \"#<string>\" (if any)."
;; Don't bother with \"#<char>\" in front of the text, as it is too long.
(let* ((string (car (cdr (cdr (setq string (car string))))))
(c-string-to-string string "[#<char>]")))
(c-make-char c-word-list
"#<char>] " string)))
(defun c-c-forward-word (n)
"Convert C-C-X forwardword to its corresponding C-X word.
This function looks for a sequence of numbers which have `number' in the
symbol name,
and compares the number at the left or right positions
and the number at the right and left position."
(interactive "^v\nP\
begin C-x\nP")
(c-move--nreverse c-c-word-regexp t)
(cond ((not (c-isearch-on-previous-word)) ; non-nil means the
(or (eq (car (car n)) c-isearch-on-next-word) ; false.
nil)
(c-isearch-on-previous-word))
(t ))
(c-forward-word t)
(c-c-forward-whitespace s)
(c-isearch-on-whitespace
(c-c-point-in-region c-c-word-regexp nil)))
(defun c-c-forward-whitespace (n)
"Convert C-C-Y forwardword to its corresponding C-Y word.
This is probably a mistake, as the `number' argument is only one character.
However, this function looks for a sequence of numbers which should not be
converted to the following C-Y word,
using a different argument, and compared to such
number. (This does not use C-symbol when comparing to a string; in
that case it's a mistake.")
;;;###autoload
(define-minor-mode c-c-forward-word-hook
(interactive "^v\nP\
begin C-x\nP")
(c-c-forward-word nil)
(c-c-forward-whitespace t) ; false in MS-Windows
(c-c-forward-whitespace nil nil c-c-end-of-whitespace))
(defvar c-c-c-lisp-indent-info (&optional arg)
"If non-nil, `c-c-lisp-indent-info' is put at the beginning of an entry in
the Emacs Lisp Language Specification. Otherwise use `c-c-lisp-indent-set'.
A value of `c-c-lisp-indent-set' controls how the language's indent code is used.
A value less than this is used to define the language (e.g. to edit it with another
function or with a macro rather than using a function). You can't use this
variable unless you know how to use the language.
For more information, see `c-c-lisp-indent-mode' in the manual.")
(define-minor-mode c-c-c-defalias-p "c-c-"
"Possible values: t (if `c-c-indent-set' is also nil), `c-c-defalias-mode' (not `c-c-defalias-mode'),
`c-c-defalias-region' or `c-c-start-with-defgeneric'.")
;;;
======== SAMPLE 4 ========
the
(while (< (1 d)
(setq buf (get-file-buffer (car d))))
(if (eq (car buf) 'pending)
;; We might delete the file that's already been
;; written, or if the file has changed, create another
;; `pending' file (if there was one)
(setq n (if (eq (car buf) "delete") buf nil)
;; No need for changing the file name.
buf (cons (cons (cons (buffer-name) (current-buffer)) buf)
nil ))
;; If there were no files to write, leave the file list alone.
(if new (delete-file buf))
buf
(setq n (buffer-nondir-list)))
(message "No new files to write")
(erase-buffer)
(kill-buffer buf)
(setq n (1+ n)))))))
(setq n (1+ n))))
(declare-function org-babel-show-end-tag "org-babel-insert-end-tag" ())
(declare-function org-babel-beginning-of-element "org-babel-set-element")
;;;***
;;;### (autoloads nil "comint" "org/comint.el" (0 0 0 0))
;;; Generated autoloads from comint
(push (purecopy '(org-babel-comint-mode-map org-babel-comint-map))
(push (purecopy '(org-babel-comint-mode-map (org-babel--mode-map)) "org-babel")
(defvar org-babel-comint-map nil)
(provide 'org-babel)
;; Local variables:
;; generated-autoload-file: "org-loaddefs.el"
;; End:
;;; org-babel.el ends here
<|endoftext|>;;; org-babel.el -- Customize `org-babel.el' file
;; Copyright (C) 2002-2019 Free Software Foundation, Inc.
;; Author: Carsten Dominik <carsten.dominik@gmail.com>
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://
[11400 | 3983.49] loss=1.02 avg=1.12
[11401 | 3984.41] loss=1.79 avg=1.12
[11402 | 3985.33] loss=1.47 avg=1.13
[11403 | 3986.25] loss=1.07 avg=1.13
[11404 | 3987.16] loss=1.19 avg=1.13
[11405 | 3988.08] loss=0.82 avg=1.12
[11406 | 3988.99] loss=1.28 avg=1.13
[11407 | 3989.90] loss=0.99 avg=1.12
[11408 | 3990.82] loss=1.51 avg=1.13
[11409 | 3991.73] loss=1.38 avg=1.13
[11410 | 3992.65] loss=1.28 avg=1.13
[11411 | 3993.56] loss=1.01 avg=1.13
[11412 | 3994.47] loss=1.38 avg=1.13
[11413 | 3995.38] loss=1.75 avg=1.14
[11414 | 3996.30] loss=0.73 avg=1.14
[11415 | 3997.21] loss=1.22 avg=1.14
[11416 | 3998.13] loss=1.48 avg=1.14
[11417 | 3999.04] loss=1.12 avg=1.14
[11418 | 3999.95] loss=1.41 avg=1.14
[11419 | 4000.87] loss=0.87 avg=1.14
[11420 | 4001.78] loss=1.17 avg=1.14
[11421 | 4002.70] loss=1.40 avg=1.14
[11422 | 4003.61] loss=1.11 avg=1.14
[11423 | 4004.53] loss=0.53 avg=1.14
[11424 | 4005.44] loss=1.39 avg=1.14
[11425 | 4006.36] loss=0.95 avg=1.14
[11426 | 4007.27] loss=1.14 avg=1.14
[11427 | 4008.19] loss=1.13 avg=1.14
[11428 | 4009.11] loss=0.74 avg=1.13
[11429 | 4010.02] loss=0.89 avg=1.13
[11430 | 4010.94] loss=1.07 avg=1.13
[11431 | 4011.86] loss=0.99 avg=1.13
[11432 | 4012.77] loss=1.15 avg=1.13
[11433 | 4013.69] loss=0.98 avg=1.13
[11434 | 4014.61] loss=1.29 avg=1.13
[11435 | 4015.53] loss=1.14 avg=1.13
[11436 | 4016.45] loss=1.37 avg=1.13
[11437 | 4017.37] loss=1.18 avg=1.13
[11438 | 4018.29] loss=1.23 avg=1.13
[11439 | 4019.21] loss=0.89 avg=1.13
[11440 | 4020.13] loss=0.86 avg=1.13
[11441 | 4021.05] loss=1.31 avg=1.13
[11442 | 4021.96] loss=1.36 avg=1.13
[11443 | 4022.88] loss=1.18 avg=1.13
[11444 | 4023.80] loss=1.21 avg=1.13
[11445 | 4024.72] loss=1.23 avg=1.13
[11446 | 4025.65] loss=0.99 avg=1.13
[11447 | 4026.57] loss=1.13 avg=1.13
[11448 | 4027.49] loss=0.71 avg=1.13
[11449 | 4028.42] loss=1.08 avg=1.13
[11450 | 4029.34] loss=0.98 avg=1.13
[11451 | 4030.27] loss=1.18 avg=1.13
[11452 | 4031.19] loss=1.27 avg=1.13
[11453 | 4032.12] loss=1.15 avg=1.13
[11454 | 4033.04] loss=0.92 avg=1.13
[11455 | 4033.97] loss=0.80 avg=1.12
[11456 | 4034.89] loss=0.86 avg=1.12
[11457 | 4035.81] loss=0.64 avg=1.12
[11458 | 4036.74] loss=1.18 avg=1.12
[11459 | 4037.66] loss=0.86 avg=1.11
[11460 | 4038.58] loss=0.64 avg=1.11
[11461 | 4039.51] loss=1.27 avg=1.11
[11462 | 4040.43] loss=0.82 avg=1.11
[11463 | 4041.35] loss=1.17 avg=1.11
[11464 | 4042.28] loss=0.61 avg=1.10
[11465 | 4043.20] loss=0.92 avg=1.10
[11466 | 4044.13] loss=1.16 avg=1.10
[11467 | 4045.06] loss=1.07 avg=1.10
[11468 | 4045.98] loss=1.06 avg=1.10
[11469 | 4046.90] loss=1.11 avg=1.10
[11470 | 4047.82] loss=0.96 avg=1.10
[11471 | 4048.74] loss=1.02 avg=1.10
[11472 | 4049.66] loss=0.99 avg=1.10
[11473 | 4050.58] loss=0.94 avg=1.10
[11474 | 4051.50] loss=1.07 avg=1.10
[11475 | 4052.42] loss=0.78 avg=1.09
[11476 | 4053.35] loss=1.55 avg=1.10
[11477 | 4054.27] loss=1.26 avg=1.10
[11478 | 4055.19] loss=0.80 avg=1.10
[11479 | 4056.11] loss=1.02 avg=1.10
[11480 | 4057.03] loss=0.66 avg=1.09
[11481 | 4057.96] loss=0.87 avg=1.09
[11482 | 4058.88] loss=0.66 avg=1.09
[11483 | 4059.80] loss=1.28 avg=1.09
[11484 | 4060.71] loss=0.96 avg=1.09
[11485 | 4061.63] loss=1.50 avg=1.09
[11486 | 4062.55] loss=1.23 avg=1.09
[11487 | 4063.47] loss=1.45 avg=1.09
[11488 | 4064.39] loss=1.36 avg=1.10
[11489 | 4065.31] loss=1.30 avg=1.10
[11490 | 4066.22] loss=1.22 avg=1.10
[11491 | 4067.14] loss=0.60 avg=1.10
[11492 | 4068.06] loss=0.93 avg=1.09
[11493 | 4068.97] loss=0.37 avg=1.09
[11494 | 4069.89] loss=1.24 avg=1.09
[11495 | 4070.81] loss=1.05 avg=1.09
[11496 | 4071.73] loss=0.95 avg=1.09
[11497 | 4072.64] loss=1.21 avg=1.09
[11498 | 4073.56] loss=1.38 avg=1.09
[11499 | 4074.47] loss=0.75 avg=1.09
Generating samples...
======== SAMPLE 1 ========
|
(nth 2 (car newtype)))
(* (nth 1 (car newtype)))
(* (nth 1 (car newtype))))))
(defun vhdl-completiontable--complete-completion-field ;
"Completion table for vhdl-completion table.
Completions will be completions to be
complemented. As a prefix argument, a valid completion prefix can also be
-- todo if a given prefix argument is not a prefix.
-- todo if the given prefix argument
includes the specified file.
It is a list of completions and a symbol, the string corresponding
to the item being complemented.
When in the buffer, the command `vhdl-completions'
will complete this completions.
The optional argument TOOB is a symbol representing the default todo
and also the current todo; if any of the symbols is not a
symbol, the `vhdl-completions' command returns nil.
The `vhdl-completions' command will return nil instead of listing."
(mapc
`(define-key map [nil] [nil] ...] 'vhdl-completions))
"Vhdl completion buffer."
nil nil t)
(provide 'vhdl)
;; Local Variables:
;; define-key map "C-y" prefix keymap
;; End:
;;; vhdl.el ends here
<|endoftext|>;;; vhdl.el --- vhdl implementation
;; Copyright (C) 2002-2005, 2008, 2006, 2009 Free Software Foundation,
;; Inc.
;; Author: David Gillespie <goddag@idge.com>
;; Maintainer: emacs-devel@gnu.org
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; This file defines various features and utilities
;; to handle vhdl (VHDL2). It also provides for a VHDL interface
;; from VHDL.
;;; History:
;; FIXME: Why does this require a global variable? A VHDL2, VHDL3
;; ; `vhdl-vhdl-p' is used in the vhdl2.el files.
;; To override the global value of `vhdl-vhdl-p' a value of
;; `var-value-default', in the file `vhdl-key.el', is needed.
;;
;; A set of variables that describes vhdl features is defined
;; in `vhdl-defstruct'. If you set this variable after this
;; entry in a buffer, you can edit the entry in `vhdl-key.el'.
;; The following variables are provided
======== SAMPLE 2 ========
|||
;;;###mh-autoload
;;
;; M-h: :help Help string to call to interactively, or nil.
;; Also available in the mode's mode-specific
;; file, under `mh-mode'. By default, the line-number and the prefix,
;; and/or a
;; ;; <:help (t): this is a handy function for finding
;; comments, etc. By prefixing the
;; line-number with
;; (when (eq (regexp-opt t) 'tbl)) this function searches for
;; <:help <:level <:prefix The line number
;; or `:help Specifies exactly where the line number
;; really starts, so that you can
;; not need to enter comments as this
;; can sometimes appear near a comment.
;; Note that this function will usually return nil when it returns a
;; interactive expression.
;;
;; The rest of this function defines how it will interactively
;; find the right comment or symbol and also some other way to
;; query the user.
;;
;; The variables `mh-ignore-comment-indications' and
;; `mh-ignore-function-comment' define special ways to set
;; `mh-indirect-comment-handling', `mh-indirect-comment-start' and
;; `mh-indirect-comment-end' to ignore comment lines or symbol lines or
;; `mh-indirect-comment-begin', in order to give us a quicker way to tell
;; exactly where the point-line is, and what message should be sent.
;;
;; Note that these variables are useful only if you set them here, but
;; they don't have any direct effect in any way, see the footnote
;; for details.
;;
;; To specify how to use this function to do some other things, such as the
;; most specific function, you may
;; set the variable `mh-function-symbols' and the variable
;; `mh-symbols-only' or set `mh-symbols-only' to nil to not
;; do the exact thing that `mh-symbols' does, such as `mh-comment'.
;;
;; The variables `mh-indirect-comment-handling' and
;; `mh-indirect-function-comment' define special ways to
;; query the user.
;;
;; However, you should never specify this function so that
;; the user will never be able to access any comment lines.
;;
;; I can't even put the value of `mh-indirect-comment-handling'
;; to nil, since this will not set any variable `mh-indirect-comment-handling'
;; and the value of `mh-indirect-function-symbols', so don't get confused
;; for it.
;; For example, see:
(defun mh-ignore-comment-indications (line-number)
(when (eq (car line-number) 'int-only)
(cond
((null (car
======== SAMPLE 3 ========
|\n")
"[&\""] "[]")
(message "\n")
(message "\n")
(narrow-to-region (point))
(let (p) (goto-char beg) (while (<= p (point) nil t))
(setq p (point))
(while (<= (= (point) beg) (point-max))
(recenter t) (message "--%s" (nth 2 arg)))
(goto-char beg) (while (<= (point) beg)
(while (<= (point) p)
(unless (<= p (point))
(narrow-to-region (point))))
(when (and (eq t arg) (nth 1 arg))
(message "The following: ")
(set-buffer arg)
(kill-region (point) (1+ arg))
(forward-line 1) (setq p (point)))
(message "--- " p))))))
(defun c-backward-sexp (&optional arg n)
"Move forward to the beginning of line, not `c-bounds'."
(interactive "r")
(if (and (not c-bounds)
(= (line-beginning-position) c-bounds))
(error "Can't move to beginning of bib")
(if (not (bib-search-forward 'line-beginning t 'backward-sexp))
;; In a c-backward-sexp c-search-forward, this line must end
;; before point.
(error "Could not move to beginning of c-bounds"))
(if (and (not c-bounds)
(< (line-end-position) t))
(error "Can't move to beginning of c-bounds"))
(if (and (not c-bounds) (= (line-end-position) bib-search-bounds))
(error "Can't move to beginning of c-bounds"))
(if (< (line-end-position) 1)
(error "Cannot move to beginning of c-bounds"))
(with-silent-modification 2
(let (n)
(kill-region (point) (- (marker-position (point))) c-bounds))
(goto-char (point-max))
(while (<= (point) (point-max))
(setq n (point-marker)))
(goto-char (point-max))
(delete-region (point) (- (marker-position (point))) c-bounds)
(move-to-heading c-bounds (- n (marker-position (point))))
(forward-line n)))
(when org-bib-search-forward
(while (- (point) (/ (marker-position (marker-position))) c-bounds))
(delete-region (point) c-bounds)
(goto-char (point-max))
(delete-region (/ (marker-position (marker-position))) c-bounds)
(goto-char (point-
======== SAMPLE 4 ========
|)
(save-excursion
(goto-char (point-min))
(if (looking-at "[-]")
(forward-char 1)
(setq-char-if-paragraph t))))
(forward-char 1)
(c-forward-line (point))
(setq-char-if-paragraph t))))))
;;; User command line
;; Note: It is the same command code that Emacs sets if the user
;; enters the user file
;; ;; sets `interior-mode'. This sets all the Emacs variables
;; ;; as `interior-mode'.
;;
;; The variable MODE variables are all for a given mode
;; ;; except that mode variables are only set if they are in the Emacs
;; ;;
;;
;; mode. the variables set by the user.
;;
;; The user commands are those functions specified by a
;; comment.
;;
;; You can use the variable `interior-mode' to customize the
;; mode in Emacs Lisp mode. The following commands are
;; ;; available to you, but they are not needed in Emacs Lisp mode.
;;
;; This command sets MODE to use the mode for all commands (unless specified by
;; \"interior-mode\" argument if the user leaves MODE). It also
;;
;; emacs-mode defines modes for `interior-mode'
;; for variables (e.g. variable-completion-mode); e.g. this
;;
;; can run Emacs Lisp in a way that MODE and MODE-C/MES will
;; be not the same. A variable called \"interior-mode\" can be the same
;; thing if either of them sets MODE, E.g. if the user enters
;; \"interior-mode\".
;;
;; Note that MODE is also a symbol; it is used,
;; as follows:
;;
;; t
;; (interior-show)
;; Use MODE-C/MES to view the buffer.
;;
;; `interior-mode-setup' will start the default Emacs mode
;;
;; setting of the environment variables if MODE is set.
;;
;; (This is only used if MODE-C/MES is set to use `interior-mode')
(defvar interior-mode-list nil
"List of minor modes that Emacs sets to use the current buffer.
This is used automatically.")
(defvar interior-mode-mode-list
'((mode . "M")
(sub-mode . "M")
(mod-mode . "M")
(mode-symbol . "M")
(mode-sexp . "M")
(mode-if . "M")
(mode-local . "M")
(mode-local-symb . "M")
;; Use of M-B
(mode . "M-B")
(mod-mode . "M-B")
(mod-if-if . "M-B")
(mode-local . "M-B")
(mode-local-symb . "M-B")
(mode-local-if-if-if-if-if-if-if-if-if-if-if-if-if-if-if-if-if-if-if
;; :style toggle
;; (:fore
[11500 | 4099.88] loss=0.95 avg=1.09
[11501 | 4100.80] loss=0.91 avg=1.08
[11502 | 4101.72] loss=1.10 avg=1.08
[11503 | 4102.64] loss=0.76 avg=1.08
[11504 | 4103.55] loss=1.31 avg=1.08
[11505 | 4104.47] loss=1.28 avg=1.09
[11506 | 4105.39] loss=1.77 avg=1.09
[11507 | 4106.31] loss=0.95 avg=1.09
[11508 | 4107.23] loss=1.00 avg=1.09
[11509 | 4108.14] loss=1.26 avg=1.09
[11510 | 4109.06] loss=0.88 avg=1.09
[11511 | 4109.98] loss=0.84 avg=1.09
[11512 | 4110.89] loss=1.20 avg=1.09
[11513 | 4111.81] loss=1.48 avg=1.09
[11514 | 4112.73] loss=0.68 avg=1.09
[11515 | 4113.65] loss=0.93 avg=1.09
[11516 | 4114.56] loss=1.26 avg=1.09
[11517 | 4115.48] loss=1.08 avg=1.09
[11518 | 4116.40] loss=0.75 avg=1.08
[11519 | 4117.32] loss=1.00 avg=1.08
[11520 | 4118.24] loss=1.01 avg=1.08
[11521 | 4119.16] loss=1.06 avg=1.08
[11522 | 4120.08] loss=0.89 avg=1.08
[11523 | 4121.00] loss=0.95 avg=1.08
[11524 | 4121.91] loss=1.30 avg=1.08
[11525 | 4122.83] loss=2.18 avg=1.09
[11526 | 4123.75] loss=1.28 avg=1.09
[11527 | 4124.67] loss=1.36 avg=1.10
[11528 | 4125.59] loss=1.40 avg=1.10
[11529 | 4126.50] loss=1.02 avg=1.10
[11530 | 4127.42] loss=0.91 avg=1.10
[11531 | 4128.34] loss=1.48 avg=1.10
[11532 | 4129.25] loss=1.23 avg=1.10
[11533 | 4130.17] loss=1.26 avg=1.10
[11534 | 4131.09] loss=0.91 avg=1.10
[11535 | 4132.01] loss=1.33 avg=1.10
[11536 | 4132.93] loss=1.14 avg=1.10
[11537 | 4133.84] loss=0.99 avg=1.10
[11538 | 4134.76] loss=1.37 avg=1.11
[11539 | 4135.68] loss=1.04 avg=1.11
[11540 | 4136.59] loss=1.43 avg=1.11
[11541 | 4137.51] loss=0.98 avg=1.11
[11542 | 4138.42] loss=1.53 avg=1.11
[11543 | 4139.34] loss=0.83 avg=1.11
[11544 | 4140.25] loss=1.09 avg=1.11
[11545 | 4141.17] loss=0.89 avg=1.11
[11546 | 4142.09] loss=0.59 avg=1.10
[11547 | 4143.00] loss=1.05 avg=1.10
[11548 | 4143.92] loss=0.78 avg=1.10
[11549 | 4144.84] loss=1.13 avg=1.10
[11550 | 4145.75] loss=1.21 avg=1.10
[11551 | 4146.67] loss=1.28 avg=1.10
[11552 | 4147.59] loss=0.75 avg=1.10
[11553 | 4148.50] loss=1.46 avg=1.10
[11554 | 4149.42] loss=0.94 avg=1.10
[11555 | 4150.34] loss=1.18 avg=1.10
[11556 | 4151.25] loss=1.34 avg=1.10
[11557 | 4152.17] loss=0.92 avg=1.10
[11558 | 4153.09] loss=1.14 avg=1.10
[11559 | 4154.01] loss=0.63 avg=1.10
[11560 | 4154.93] loss=0.39 avg=1.09
[11561 | 4155.84] loss=0.89 avg=1.09
[11562 | 4156.77] loss=1.32 avg=1.09
[11563 | 4157.69] loss=1.18 avg=1.09
[11564 | 4158.60] loss=0.86 avg=1.09
[11565 | 4159.52] loss=0.90 avg=1.09
[11566 | 4160.44] loss=1.04 avg=1.09
[11567 | 4161.35] loss=1.02 avg=1.09
[11568 | 4162.27] loss=1.31 avg=1.09
[11569 | 4163.19] loss=0.93 avg=1.09
[11570 | 4164.11] loss=1.20 avg=1.09
[11571 | 4165.03] loss=1.70 avg=1.09
[11572 | 4165.95] loss=1.20 avg=1.09
[11573 | 4166.87] loss=1.39 avg=1.10
[11574 | 4167.79] loss=0.74 avg=1.09
[11575 | 4168.71] loss=0.90 avg=1.09
[11576 | 4169.63] loss=0.92 avg=1.09
[11577 | 4170.55] loss=1.29 avg=1.09
[11578 | 4171.47] loss=0.98 avg=1.09
[11579 | 4172.39] loss=0.98 avg=1.09
[11580 | 4173.31] loss=1.31 avg=1.09
[11581 | 4174.23] loss=1.12 avg=1.09
[11582 | 4175.15] loss=1.07 avg=1.09
[11583 | 4176.07] loss=1.16 avg=1.09
[11584 | 4176.99] loss=1.18 avg=1.09
[11585 | 4177.91] loss=0.77 avg=1.09
[11586 | 4178.83] loss=0.95 avg=1.09
[11587 | 4179.75] loss=0.85 avg=1.09
[11588 | 4180.67] loss=1.17 avg=1.09
[11589 | 4181.59] loss=0.88 avg=1.09
[11590 | 4182.51] loss=1.77 avg=1.09
[11591 | 4183.43] loss=1.21 avg=1.09
[11592 | 4184.35] loss=1.06 avg=1.09
[11593 | 4185.27] loss=1.05 avg=1.09
[11594 | 4186.19] loss=1.01 avg=1.09
[11595 | 4187.11] loss=1.14 avg=1.09
[11596 | 4188.04] loss=0.83 avg=1.09
[11597 | 4188.96] loss=0.46 avg=1.08
[11598 | 4189.88] loss=1.19 avg=1.08
[11599 | 4190.80] loss=0.99 avg=1.08
Generating samples...
======== SAMPLE 1 ========
p.p.c++)
(defvar font-lock-variable-name-face-re
(font-lock-map-keywords
"*%b*" font-lock-default-function--symbol
"*" font-lock-def-list-face font-lock-def-list-face-" face font-lock-def-function-face font-lock-def-function-"
font-lock-face "bold" font-lock-font-lock-face--face font-lock-def-faces font-lock-face--face " font-lock-face+faceface-"
font-lock-dict-face font-lock-font-lock-dict-face font-lock-dict-face-" font-lock-dict-p-face-p font-lock-font-lock-dict-face-p
font-lock-max-string-face font-lock-max-face font-lock-max-face-p
font-lock-face-def nil font-lock-face-face-p font-lock-face-face-face-p
font-lock-face-max-face font-lock-face-face-p-face font)))
(defconst font-lock-dict-face-face font-lock-dict-face-face
"Font-lock dictionary faces.")
(defmacro font-lock-get-face (&rest forms)
"Replace face definitions or font-lock definitions and return faces.
Returns non-nil if face was used. Returns nil when face
was modified or replaced."
(dolist (form forms)
(cond ((car form)
;; Fontifier and font-lock.
;; If the font-lock-face is set to the face (so this face
;; can be easily changed to a font-lock face), returns nil.
(font-lock-define-face font-lock-face-face forms))))
(font-lock-face-default form))
(defmacro font-lock-get-face-list (&rest forms)
"Return faces of the list or nil if face was used."
(dolist (forms forms)
(cond ((cdr forms)
(font-lock-set-face-list forms nil nil font-lock-face-list
nil nil nil)))
((font-lock-font-list-default form)
(t form)
(add-hook 'font-lock-font-list-change-functions t nil form)))
(when font-lock-face-definitions
(goto-char from-point)
(while (and (not from-point) (not font-lock-definitions))
(if (re-search-forward font-lock-face-definitions until no-regexp)
nil ; look for font-lock-like defalias entries
(search-forward "|" nil)) ; look for font-lock-style defalias.
(when font-lock-style-face-definitions
(font-lock-font-set-face-list forms))
(let* ((face-defname
(save-excursion (insert face-defname))
(font-lock-font-set-face-list forms)))
(setq font-lock-face-definitions font-lock-face-definitions))
======== SAMPLE 2 ========
p (math-sub 2 3))))
(math-expand-pos (nth 1 math-expr-matches)))))
(defvar math-expand-pos) ;; variable set at position 0
(define-key math-expand-pos-function 'math-forward-symbol)
(define-key math-expand-pos-function 'math-point-symbol)
(defun math-expand-left (pos)
(math-forward-left)
(setq math-expr-matches math-expr-matches))
(defun math-expand-top (pos)
(setq math-expr-matches math-expr-matches))
;;; Indentation symbols
;;;
;;;
(defun math-extend-indent (expr)
(if (Math-read-expr) (setq expr (nthcdr expr math-expr-matches)))
(if (not (math-neg-indent-expr expr)) (math-expand-indent expr math-expr-matches)
(math-extend-indent expr)))))
(defun math-expand-precedence (string val)
(math-extend-indent string val)
(or (math-expr-matches
(math-lookup-var val '(nil val)))
(and (not (math-neg-indent-expr val)))
(math-extend-indent string val)
(let* ((val (math-extend-indent val math-expr-matches))
(valval (math-add-var val 'math-expr-matches)))
(or (math-expr-matches (nth 3 math-token))
(math-lookup-var val math-expr-matches)))
(setq math-expr-matches
(or val math-expr-matches))
(if math-match-1
(prog1 (math-div-expr math-match-1 val)
(math-div-expr math-match-1 val)))
(when (math-matches-expr val)
(math-expander math-matches)
(setq val (math-extend-indent val math-expr-matches))
(if (Math-read-expr) (setq val (nth 2 math-expr-matches)))
(nth 3 math-expr-matches))
(while (and
(math-expression-matches (list (nth 3 math-expr-matches)))
(math-expr-matches val))
(or (math-expression-matches
(math-string-matches (car math-expr-matches))))
(error "No indentation found"))
(if (not (math-expr-matches math-expr-matches))
(setq val (nth 2 math-expr-matches)))
val)))
(defun math-sub (x)
(if (math-expr-matches x)
(progn
(setq math-expr-matches (nth 2 math-token)))
1)
x))
(defun math-neg-indent (symbol)
(if (or (math-expr-matches math-expr-matches)
(math-equal (math-sub math-neg-indent (nth 2 math-token
======== SAMPLE 3 ========
p.i)
(setq kwd nil)
(goto-char (1+ 1))
(when (string-match-p "(\\([0-9][[]:)]\\)")
((eq (re-search-forward "\n\\([^$][:.*\\]\\)"
(char-to-string (match-end 0)))
(if (save-match-data (not (eobp))))
(if (string-match-p
"\\([0-9][[]:]" nil t)
(buffer-substring-no-properties
(progn (nth 2 (symbol-name (buffer-substring (point)))))
buffer-read-only t)))
(setq kwd nil)
(when (string-match-p "!" kwd)
(goto-char (1+ (symbol-name (buffer-substring (point)))))
(setq kwd nil)
(when (string-match-p
(char-to-string (match-end 0)))
(goto-char (1+ (symbol-name (buffer-substring (point)))))
(setq kwd nil)
(when (or (not vcursor-at-point)
(< (point-max) vcursor-at-point))
(goto-char (1+ pos))))
(setq pwd (buffer-substring pwd (point)))
pwd))))
(setq pos 'p (point))
(setcdr pos (if (eq (point) t)
(point-min) t))
pos))
;;;###autoload
(defun vcursor-at-point (pos start)
"Test that point is at POS at START.
This test is for `insert-buffer' and for `insert-buffer-continued'.")
;;;###autoload
(defun vcursor-at-line (&optional start)
"Run `insert-buffer-continued' during insertion."
(interactive)
(insert (or start " " (buffer-substring start))))
;;;###autoload
(defun vcursor-at-buffer-continued (&optional start end)
"Run `insert-buffer' in the current buffer without asking if the buffer
has already been inserted.
Start is either nil or a string
======== SAMPLE 4 ========
p)
(goto-char (point-max))
(unless (and (nth 1 (car (cdr (nth 2 (car (cdr (cdr (car (cdr (cdr (cdr (cdr (car (car (car x))))))))))))))
(cdr (cdr (cdr (cdr (car (cdr (car x))))))))))))
(point))
(forward-line -1))))
;;; Change from t to `line'.
(defun t-line (char-pos)
"Treat CHAR-POS as the current character or line."
(interactive "d\nP")
(or (buffer-substring-no-properties (point) (point-max)))
(beginning-of-line)
(indent-to (1- t))
(beginning-of-line)
(indent-to (1- t))
(forward-char)
(comment-ind
((looking-at "[ \t\n\r\f]*[-a-zA-Z]")
(cond ((looking-at "\\*^*\n[ \t\n\p>"))
((looking-at "^")))))
;;; t-line
;;; lisp-indent-indoc
;;; c-def
;;; d-def
(cl-defmethod make-indent-column ((column 1))
(if (eq (char-after (char-after (1- column))) ?\C-\n)
(add-to-list 'column-def
(list
(dired-define-indent
(save-excursion
(goto-char (1+ column)))
(point-min))
nil) "indent"))
(dired-get-char-indent nil 'indent))
(declare-function vhdl-indent-col (col &optional first-word last-word)
"Handle the character at point."
(line-end-position))
(save-excursion
(beginning-of-line)
(unless last-word (goto-char (point-min))
(forward-line (min (2- (point)))
(save-excursion (beginning-of-line) (if (memq last-word last-word-re)
(1- (point)))))))
(if (assq last-word last-word-re alist) (forward-line))
(setq first-word (buffer-substring (point-max)
first-word)
first-word (point)))
(let ((column (make-indent 1))
(old-offset (point)))
(dired-set-indent-mode)
(beginning-of-line 1))
(let ((old-offset nil) old-offset)
(while old-offset
(goto-char
[11600 | 4216.73] loss=1.14 avg=1.08
[11601 | 4217.65] loss=0.72 avg=1.08
[11602 | 4218.56] loss=0.83 avg=1.08
[11603 | 4219.48] loss=1.45 avg=1.08
[11604 | 4220.39] loss=1.27 avg=1.08
[11605 | 4221.30] loss=0.89 avg=1.08
[11606 | 4222.22] loss=1.78 avg=1.09
[11607 | 4223.13] loss=0.92 avg=1.09
[11608 | 4224.05] loss=1.24 avg=1.09
[11609 | 4224.96] loss=1.10 avg=1.09
[11610 | 4225.88] loss=0.84 avg=1.09
[11611 | 4226.79] loss=1.51 avg=1.09
[11612 | 4227.70] loss=1.27 avg=1.09
[11613 | 4228.62] loss=1.04 avg=1.09
[11614 | 4229.53] loss=0.84 avg=1.09
[11615 | 4230.44] loss=1.23 avg=1.09
[11616 | 4231.36] loss=1.13 avg=1.09
[11617 | 4232.27] loss=1.28 avg=1.09
[11618 | 4233.19] loss=0.65 avg=1.09
[11619 | 4234.10] loss=1.14 avg=1.09
[11620 | 4235.01] loss=0.82 avg=1.09
[11621 | 4235.93] loss=1.00 avg=1.09
[11622 | 4236.84] loss=0.91 avg=1.08
[11623 | 4237.76] loss=1.24 avg=1.09
[11624 | 4238.67] loss=1.17 avg=1.09
[11625 | 4239.58] loss=1.63 avg=1.09
[11626 | 4240.50] loss=0.87 avg=1.09
[11627 | 4241.41] loss=1.22 avg=1.09
[11628 | 4242.33] loss=0.82 avg=1.09
[11629 | 4243.24] loss=1.16 avg=1.09
[11630 | 4244.16] loss=1.23 avg=1.09
[11631 | 4245.08] loss=0.82 avg=1.09
[11632 | 4245.99] loss=1.37 avg=1.09
[11633 | 4246.91] loss=1.29 avg=1.09
[11634 | 4247.83] loss=1.14 avg=1.09
[11635 | 4248.75] loss=1.49 avg=1.10
[11636 | 4249.67] loss=0.75 avg=1.09
[11637 | 4250.58] loss=1.80 avg=1.10
[11638 | 4251.50] loss=1.17 avg=1.10
[11639 | 4252.42] loss=1.00 avg=1.10
[11640 | 4253.34] loss=0.76 avg=1.10
[11641 | 4254.26] loss=1.02 avg=1.10
[11642 | 4255.17] loss=0.93 avg=1.09
[11643 | 4256.09] loss=0.95 avg=1.09
[11644 | 4257.01] loss=0.57 avg=1.09
[11645 | 4257.93] loss=1.04 avg=1.09
[11646 | 4258.85] loss=0.99 avg=1.09
[11647 | 4259.77] loss=0.95 avg=1.08
[11648 | 4260.69] loss=1.16 avg=1.09
[11649 | 4261.61] loss=0.94 avg=1.08
[11650 | 4262.53] loss=1.49 avg=1.09
[11651 | 4263.45] loss=1.05 avg=1.09
[11652 | 4264.37] loss=1.32 avg=1.09
[11653 | 4265.29] loss=0.92 avg=1.09
[11654 | 4266.21] loss=1.10 avg=1.09
[11655 | 4267.13] loss=1.14 avg=1.09
[11656 | 4268.06] loss=0.77 avg=1.09
[11657 | 4268.98] loss=1.22 avg=1.09
[11658 | 4269.90] loss=1.35 avg=1.09
[11659 | 4270.82] loss=1.31 avg=1.09
[11660 | 4271.74] loss=1.18 avg=1.09
[11661 | 4272.66] loss=1.18 avg=1.09
[11662 | 4273.58] loss=1.02 avg=1.09
[11663 | 4274.51] loss=0.88 avg=1.09
[11664 | 4275.43] loss=1.28 avg=1.09
[11665 | 4276.35] loss=0.63 avg=1.09
[11666 | 4277.28] loss=1.14 avg=1.09
[11667 | 4278.20] loss=1.04 avg=1.09
[11668 | 4279.12] loss=0.78 avg=1.09
[11669 | 4280.05] loss=1.05 avg=1.08
[11670 | 4280.97] loss=1.36 avg=1.09
[11671 | 4281.90] loss=1.19 avg=1.09
[11672 | 4282.82] loss=1.05 avg=1.09
[11673 | 4283.75] loss=1.17 avg=1.09
[11674 | 4284.67] loss=1.41 avg=1.09
[11675 | 4285.60] loss=1.13 avg=1.09
[11676 | 4286.52] loss=0.97 avg=1.09
[11677 | 4287.44] loss=1.15 avg=1.09
[11678 | 4288.36] loss=0.86 avg=1.09
[11679 | 4289.29] loss=1.83 avg=1.10
[11680 | 4290.22] loss=0.93 avg=1.10
[11681 | 4291.14] loss=1.02 avg=1.09
[11682 | 4292.07] loss=0.93 avg=1.09
[11683 | 4292.99] loss=1.29 avg=1.09
[11684 | 4293.91] loss=1.38 avg=1.10
[11685 | 4294.83] loss=1.48 avg=1.10
[11686 | 4295.76] loss=0.88 avg=1.10
[11687 | 4296.68] loss=1.83 avg=1.11
[11688 | 4297.60] loss=0.90 avg=1.10
[11689 | 4298.52] loss=0.85 avg=1.10
[11690 | 4299.44] loss=1.11 avg=1.10
[11691 | 4300.37] loss=1.42 avg=1.11
[11692 | 4301.29] loss=1.34 avg=1.11
[11693 | 4302.21] loss=1.28 avg=1.11
[11694 | 4303.13] loss=0.78 avg=1.11
[11695 | 4304.05] loss=1.17 avg=1.11
[11696 | 4304.97] loss=0.93 avg=1.10
[11697 | 4305.89] loss=1.01 avg=1.10
[11698 | 4306.81] loss=1.25 avg=1.11
[11699 | 4307.73] loss=1.09 avg=1.11
Generating samples...
======== SAMPLE 1 ========
(setq result nil))))
result)))
(and (consp string) (not (string< (car-safe result)) (car result))))
(let (res
(concat (org-split-string string) "\n")
(match-string-no-properties (cdr (car string)))
(if (re-search-forward (concat (regexp-quote (car result)))) ; check for match
(progn
(push (car result) res) res)
(cperl-string-split string res))
(cperl-string-split (nth 1 result)))))
(goto-char (point-min))
(goto-char (point-max))))
(defun org-html-to-formats ()
(let ((completion-ignore-case nil)
(composition nil))
(save-excursion
(if (re-search-backward "<</" ">" nil t)
(org-html-parse-text)
(org-html-display)
(insert (format-message "\\([^@]+\\)")))))
(with-current-buffer (org-list-split org-list-re)
(cond
;; FIXME: Should we set cperl's buffer to the original
;; buffer (or the list that contains it) so that cperl can view the list
;; contents of the modified file?
((org-string-nw-p string)
(let ((buffer-undo)
(info (org-with-wide-buffer (current-buffer)
nil (org-string-nw-p string))
(org-agenda-check-files (or org-agenda-link-link org-agenda-link-link))
(list org-agenda-link-link (or org-agenda-link-link string))
(org-agenda-add-link org-list-header))
(if composition
(progn
(add-text-properties (org-table-get-property :document-contents)
(table-get-header))))
(if org-agenda-link-link
(progn
(org-agenda-display)
(org-agenda-display))))))))
(defun org-html-parse-formats ()
(org-html-parse-formats)
======== SAMPLE 2 ========
(narrow-to-region (progn
(goto-char (match-end 0))
;; For a full list and buffer selection, consider
;; only one buffer.
(point-at-bol)))))
(save-excursion
(re-search-forward "^\\s-*:[^ ]\\s-*\\s-*$" nil t)
nil t)
(goto-char (match-end 0)))
(narrow-to-region (progn
(goto-char (match-end 0))
(forward-word-strictly 1))
(if (or (or (and (re-search-backward "^\\(?:" nil nil t)
(match-beginning 1))
(match-string-no-properties 1))
(re-search-forward
nil t (point-at-bol) nil t))))
(when (> (point) (1- start))))
(forward-line)))
(goto-char (point-min)))))
(defvar org-export-revision-hook nil)
(defun org-export-revision-set (entry &optional old)
"Non-nil if the current revision should be of the same name as entry with ERI.
For example: \"%{org-version-keys}\" means that version 2.5 is the version number.
If ERI is non-nil, use its version number to create a new revision.
If ERI is nil, use its version number to add any new entries to the
list."
(let ((old (get-text-property (point) 'org-list-old)))
(if (and entry (< entry version))
(progn
(save-excursion
(message "Eri version %s (%s): %s; "
(match-string-no-properties 1))
(goto-char (if (and old (match-end 0))
(match-end 0))
(re-search-forward "#*!" nil t)))
(goto-char
======== SAMPLE 3 ========
;; don't force it on non-default configurations
;; that can be found through the "\\." syntax.
(concat "\\$" (regexp-quote " ")))))
;; `-`' for `and' and `equal' means \\<let`<\\|equal_>='s is used to
;; bind the regexps
(unless (fboundp 'match-case-fold-search)
(let* ((match-type (oref regexp t))
(start (match-string 2))
;; Replace the first match with the expected string.
(case-fold-search nil)
(case-fold-search t))
;; If the match matches a function, it's put on a submatch
;; string so that regexp-* can make the matches match their substrings.
(if (match-string 0)
(progn
(when (string-match (oref regexp start t) match)
(progn
(setq match (string-to-signal match-string))))
(setq match (match-string 1))
(setq match-string nil)))
;; There's nothing to match.
(unless (string= match "")
(goto-char (match-end 0)))
(progn
(let ((result-type (match-string 0 pattern))
(case-fold-search nil))
(if (match-string 0 pattern)
(progn
(goto-char (match-end 0))
;; Regexp that matches an element of a non-default
(let ((case-fold-search nil)
(concat match-type
;; (`and' nil)
(concat ";"))
(concat "[%s]" pattern)
(setq match (concat match pattern)))
;; Regexp with case matching.
(let ((case-fold-search nil))
(dolist (v (oref v type)
(push v result-type))
(when (not match-type)
(push re (regexp-quote v start))
;; Look for an entry with the same argument as the
;; matching function, and use that as the result of the
;; match
(push (match-string 0 pattern) reval)
;; There's one that matches one, and that's matched
======== SAMPLE 4 ========
;; FIXME? Maybe add that?
(gnus-message-set-action
(concat "Add action for %s? "
(gnus-summary-articles-string))))
nil)))))
(defun gnus-summary-make-article-default (news &optional info)
(unless info (setq news gnus-summary-files))
(gnus-message "Making a summary...")
(let ((articles gnus-summary-articles)))
(if (stringp news)
(gnus-group-set-article info :user-mail-address)
(gnus-group-set-article gnus-summary-contents)
(list news articles))
(or gnus-summary-files
(gnus-summary-files (gnus-article-get-contents gnus-summary-files)))))
(defun gnus-summary-set-actions (articles)
"Set the functions and actions that are needed by the summary.
See `gnus-summary-actions' in gnus-summary."
(setq articles (delq nil articles))
(let* ((articles (with-current-buffer (get-buffer-create articles)
(gnus-summary-make-article-default
gnus-summary-files nil
gnus-summary-files))))
(when (file-exists-p articles)
(setq articles (delq nil articles)))
(gnus-summary-get-article article)
(delq nil articles))
(apply #'set-articles articles))
(defun gnus-summary-get-article (article)
"Return list of articles."
(mapcar (lambda (article)
(with-current-buffer
gnus-summary-files
(file-name-sans-extension (cons article gnus-summary-files)))
(goto-region (point-min) (line-end-position))))
(glist article gnus-summary-article)))
(defun gnus-summary-get-article-header (body)
"Return the article header for the current buffer."
(let ((headers
(concat
"\^[ \t]"
(format gnus-summary-article-header ":")))
(or headers
(let ((header (mapcar
(lambda(x) (get (car x) ":"))
":"))))
headers))
(let* ((name (gnus-file-attributes body)))
(and
(eq (car name) (car body))
(equal (format "(%08d) \t" name "\C-x")
(equal (format "(%c %03d) \t)")
(equal (format "(%c %04d) \t)")
(equal (format "(%u %a %l")
(format "(%r
[11700 | 4333.23] loss=1.42 avg=1.11
[11701 | 4334.15] loss=0.90 avg=1.11
[11702 | 4335.07] loss=0.84 avg=1.10
[11703 | 4335.99] loss=1.25 avg=1.11
[11704 | 4336.90] loss=1.48 avg=1.11
[11705 | 4337.82] loss=1.24 avg=1.11
[11706 | 4338.74] loss=1.06 avg=1.11
[11707 | 4339.65] loss=1.32 avg=1.11
[11708 | 4340.57] loss=0.85 avg=1.11
[11709 | 4341.49] loss=1.59 avg=1.11
[11710 | 4342.41] loss=0.90 avg=1.11
[11711 | 4343.32] loss=1.04 avg=1.11
[11712 | 4344.24] loss=0.92 avg=1.11
[11713 | 4345.15] loss=0.76 avg=1.11
[11714 | 4346.07] loss=1.03 avg=1.10
[11715 | 4346.99] loss=1.09 avg=1.10
[11716 | 4347.91] loss=0.66 avg=1.10
[11717 | 4348.82] loss=1.45 avg=1.10
[11718 | 4349.74] loss=1.03 avg=1.10
[11719 | 4350.66] loss=1.36 avg=1.11
[11720 | 4351.57] loss=1.06 avg=1.11
[11721 | 4352.49] loss=1.21 avg=1.11
[11722 | 4353.41] loss=0.78 avg=1.10
[11723 | 4354.32] loss=1.13 avg=1.10
[11724 | 4355.23] loss=0.88 avg=1.10
[11725 | 4356.15] loss=1.04 avg=1.10
[11726 | 4357.07] loss=1.63 avg=1.11
[11727 | 4357.99] loss=1.07 avg=1.11
[11728 | 4358.90] loss=0.70 avg=1.10
[11729 | 4359.81] loss=0.75 avg=1.10
[11730 | 4360.73] loss=0.99 avg=1.10
[11731 | 4361.64] loss=0.98 avg=1.10
[11732 | 4362.55] loss=0.77 avg=1.09
[11733 | 4363.47] loss=1.35 avg=1.09
[11734 | 4364.38] loss=1.18 avg=1.10
[11735 | 4365.30] loss=0.88 avg=1.09
[11736 | 4366.21] loss=1.20 avg=1.09
[11737 | 4367.13] loss=0.88 avg=1.09
[11738 | 4368.05] loss=1.26 avg=1.09
[11739 | 4368.96] loss=0.81 avg=1.09
[11740 | 4369.88] loss=1.21 avg=1.09
[11741 | 4370.80] loss=1.14 avg=1.09
[11742 | 4371.71] loss=0.75 avg=1.09
[11743 | 4372.63] loss=0.97 avg=1.09
[11744 | 4373.55] loss=1.96 avg=1.10
[11745 | 4374.47] loss=1.11 avg=1.10
[11746 | 4375.38] loss=1.59 avg=1.10
[11747 | 4376.30] loss=0.81 avg=1.10
[11748 | 4377.22] loss=1.26 avg=1.10
[11749 | 4378.13] loss=1.48 avg=1.10
[11750 | 4379.05] loss=1.44 avg=1.11
[11751 | 4379.97] loss=1.00 avg=1.11
[11752 | 4380.88] loss=0.76 avg=1.10
[11753 | 4381.80] loss=1.05 avg=1.10
[11754 | 4382.72] loss=0.74 avg=1.10
[11755 | 4383.64] loss=1.03 avg=1.10
[11756 | 4384.55] loss=0.70 avg=1.09
[11757 | 4385.47] loss=1.30 avg=1.10
[11758 | 4386.38] loss=0.87 avg=1.09
[11759 | 4387.30] loss=1.22 avg=1.10
[11760 | 4388.22] loss=0.80 avg=1.09
[11761 | 4389.13] loss=0.93 avg=1.09
[11762 | 4390.05] loss=1.26 avg=1.09
[11763 | 4390.97] loss=1.22 avg=1.09
[11764 | 4391.89] loss=1.35 avg=1.10
[11765 | 4392.81] loss=0.82 avg=1.09
[11766 | 4393.73] loss=1.17 avg=1.09
[11767 | 4394.64] loss=0.70 avg=1.09
[11768 | 4395.56] loss=1.38 avg=1.09
[11769 | 4396.48] loss=1.41 avg=1.10
[11770 | 4397.39] loss=0.75 avg=1.09
[11771 | 4398.31] loss=0.89 avg=1.09
[11772 | 4399.22] loss=1.24 avg=1.09
[11773 | 4400.14] loss=1.22 avg=1.09
[11774 | 4401.05] loss=0.89 avg=1.09
[11775 | 4401.97] loss=0.83 avg=1.09
[11776 | 4402.89] loss=1.60 avg=1.09
[11777 | 4403.81] loss=0.61 avg=1.09
[11778 | 4404.73] loss=1.16 avg=1.09
[11779 | 4405.64] loss=0.81 avg=1.09
[11780 | 4406.56] loss=0.73 avg=1.08
[11781 | 4407.48] loss=0.93 avg=1.08
[11782 | 4408.40] loss=1.30 avg=1.08
[11783 | 4409.32] loss=0.66 avg=1.08
[11784 | 4410.23] loss=0.82 avg=1.08
[11785 | 4411.16] loss=1.44 avg=1.08
[11786 | 4412.07] loss=0.83 avg=1.08
[11787 | 4412.99] loss=1.08 avg=1.08
[11788 | 4413.91] loss=0.95 avg=1.08
[11789 | 4414.82] loss=1.17 avg=1.08
[11790 | 4415.74] loss=1.14 avg=1.08
[11791 | 4416.66] loss=1.04 avg=1.08
[11792 | 4417.59] loss=1.34 avg=1.08
[11793 | 4418.51] loss=1.09 avg=1.08
[11794 | 4419.43] loss=1.05 avg=1.08
[11795 | 4420.35] loss=0.89 avg=1.08
[11796 | 4421.27] loss=0.93 avg=1.08
[11797 | 4422.19] loss=1.04 avg=1.08
[11798 | 4423.11] loss=1.28 avg=1.08
[11799 | 4424.03] loss=1.47 avg=1.08
Generating samples...
======== SAMPLE 1 ========
child to the start of the file if the current buffer contains one.
Otherwise, it is used to insert a newline between the old file name and the new one
The value is updated as appropriate.
* Variables for editing on Emacs 24.4 (see
tabulated mode) in `org-mode-map-hook' are copied from
the global `org-mode-map'.
For convenience, `org-buffer-current-file' returns the file name,
and any other properties of the file if they are properties of a file.
See also `org-mode-map-group-line-history' and `org-mode-map-string-history'.
* The old file format is used in the case that Emacs does not
have an Emacs-related buffer."
(interactive)
(org-at-mode-line-point)
(org-beginning-of-line)
(org-insert-file-contents file-name name)
(org-put nil 'org-mode-filter-functions 'funcall))
(org-define-mode-local org-mode-map org-mode-map-functions)
(defvar org-show-group (and (or (not org-group)
org-group-buffer)
org-group-buffer)
"Keymap to use for showing group text in the current buffer.
`org-mode-map-group-line-history' or `org-mode-map-string-history'
is inserted as appropriate.")
(defcustom org-toggle-group-mode 't
"Set to toggle GROUP to inhibit the highlighting of the current buffer.
In use, it is a list specifying what's been inserted."
:version "24.1" ;; obsolete because of bugs in Org 19.1
:group org-mode-toggle-map
:type 'set)
(defun org-mode-map-group-file-revision (file)
"Save the current file into a temporary file.
The buffer is the buffer in which the temporary file has been created.
When the file is visited again it will be saved in the buffer, but
the file contents may be modified by other users. When the buffer is
visited again, it will be overwritten.
Return t if the temporary file has been generated and not
in the buffer. If the temporary file has not been created, then
if we're on a temporary file and the buffer is in a temporary file
the file name of it should be saved in the file-name buffer before
setting the buffer. If we're on a temporary file and none of the local
file name matches the buffer name the buffer name, like an Emacs
buffer of the form: buffer-name."
(setq file (file-name-directory file '("file-name.%s.f"
(buffer-file-name))))
(with-temp-buffer (set-buffer-multibyte nil) (find-buffer-visiting temp-file))
(if file
(with-temp-buffer
(find-buffer-visiting file)
(delete-region (point-min) (point-max) (point-max) (point-min)))
(save-buffer)
;; We can't save the temporary file now, so we restore the buffer
;; only one file at a time.
(org-mode-map-group-file file))))
(defun org-mode-map (entry file-name &optional special-file-alist)
"Edit the current buffer as a group text.
Entry should be a list or the form:
(NEW-FILE-ONLINE-FLAGS NEW-GROUP-MODE COMMAND-FILE)
where NEW-FILE-ONLINE-FLAGS (defaults to a string) and NEW-GROUP-MODE (defaults to the key map)
NOTE: if THIS-FILENAME does not start with a group buffer then the entry may be
a group file name that is in the mode list, or a file name
======== SAMPLE 2 ========
child to an
;; ;; position of the buffer (before or after `buffer-name'),
;; ;; (unless the buffer-name is the current buffer)
;; ;; (setcdr (symbol-value buffer-name) current-buffer))))
;;;###autoload
(defcustom hfyj-toggle-buffer-name-function 'hfyj-hfy-change-buffer-name-function
"Interactively changing the buffer name in some buffer.
The function is called with one argument:
- the buffer name.
- the buffer name (and its text)
- the value displayed."
:type (const :tag "Buffer" :value buffer-name)
:options 'hfyj-toggle)
(defun hfyj-change-buffer-name (buffer)
(or (functionp buffer)
(not (hfyj-hfy-change-buffer-name-and-buffer-name (symbol-value buffer)))
buffer))
(defun vhfyj-hfy-change-buffer-name (buffer function)
"Hfyj update the buffer name in some buffer; FUNC should evaluate to (FUNC variable)
Hfyj buffers. The returned buffer must match the current buffer."
(let ((hdef-name buffer-name)
(func (function-called-at-point))
(buffer-name function))
(error "Not in buffer %s" (buffer-name buffer))
(if (not function)
(error "Can't update buffer %s" function)
(with-tramp-connection-property
nil
(set-buffer-name (symbol-value buffer))))
(when (and (bufferp (buffer-identity-p))
(not (eq (char-before) ?\n t)))
(progn
(unless (equal func (car (nth 1 (list variable list))) 'vhfyj-current-buffer)
(error "Can't update buffer %s? ")))
;; update the buffer name to the value of the variable list
(unless (and (nullfunc (cdr (symbol-value vhfyj-current-buffer)))
(not (equal (string-to-number (symbol-value vhfyj-current-buffer))) nil))
(with-tramp-connection-property vhfyj-current-buffer
(setq vhfyj-current-buffer (symbol-value vhfyj-current-buffer)))
(let ((buffer-name (and (bound-and-true-p hfyj-hfy-buffer-name)
(condition-case error
(progn (goto-char (point-min))
(error (if nil
hfyj-hfy-variable-name)))
(error (if (funcall function function) nil )))))
(
======== SAMPLE 3 ========
child for this region, so don't use it.")
(/= (*- (char-after (regexp-quote char)))
(/= (/= (+ (* (char-after (point) char))) (+ (* (point) (1- (point))) char)))
(+ (+ (* (point) (1- char)) (- (* char (point) (- char (point) (point) (+ 0 char))
(- 0 char) (+ char (point) 0))))))
(/= (/= (- char (- char 0)))
(+ (* char (point) (- char 0)))
(c-syntactic-skip-to-region)
(c-syntactic-skip-to-char-after)
(+ (* (char-after (point) (+ char (+ 0 char)))
(if (re-search-forward "^[ \t]*")
(point-max)
0)
(if (c-goto-char (+ (- (point) char)) (+ 1)))
(if (c-goto-char (+ (point) char)) (+ - 1))))))
(/= (/= (- (+ char 0))))
(/ (+ (char-after (point)) (+ (- (+ (* (* (+ (+ (char-after (point) char)
(point) (point-max)
(point-max)) ?+)
(c-syntactic-skip-to-char-after)
(if (re-search-forward "^[ \t]*/*" nil)
("^[ \t]*" nil)
("^[ \t]*" nil))
(c-goto-char (+ (- (point) (- (1+ c-syntactic-c-back-p)) 2)
(point 0)
(+ (- (point) (- (- c-syntactic-c-forward-p)))
(point-max)))))))))
(/= (+ (* 0 (* char 0))))
(/= (?\r (c-syntactic-skip (+ (- (+ (1- (char-after) ?*)) ?*)) (1
======== SAMPLE 4 ========
child-id-entry-type entry)
(and (semanticdb-get-current-type 'ttype) entry))
(or entry
(not (member (cdr entry) tag-alist)
tag-alist))
entry)))
;;; Internal variables
(defvar semantic-auto-save-documentation-text
((semanticdb-get-current-buffer)
(set-buffer semantic-auto-save-buffer)
"Buffer used in semantic buffer list.")
)
;;;###autoload
(defconst semantic-auto-save-regexp
"\C-u"
(concat "\\(" (regexp-quote tag-alist "\\)"))
"Regexp to use in semantic semantic buffer list")
;;;###autoload
(define-semantic-tag-alias 'semantic-auto-save-documentation-text
semantic-auto-save-string
"Auto-save the tag description for the current buffer.")
;;;###autoload
(define-semantic-tag-alias 'semantic-auto-save-documentation-marker-alist
semantic-auto-save-marker-alist
"Auto-save the buffer in marker list.")
(defvar semantic-auto-save-documentation-text
"Type in the current buffer's definition.")
;;;###autoload
(define-semantic-tag-alias 'semantic-auto-save-marker-p
semantic-auto-save-marker-alist
"Auto-save the buffer definition.)
;; Font-lock font lock
;;;###autoload
(defvar semantic-font-lock-keywords
"Keywords to associate with a font lock font. Set it.
If set interactively, set the variable `semantic-font-lock-keywords'.
See `semantic-font-lock-keywords'."
:group 'semantic)
;;;###autoload
(define-semantic-tag-alias 'semantic-font-lock-keywords
semantic-font-lock-keywords
"Keywords to associate with a font lock font. Set it.
See `semantic-font-lock-keywords'."
:group 'semantic)
;;;###autoload
(define-semantic-tag-alias 'semantic-font-lock-keywords
semantic-font-lock-keywords
"Keywords to associate with a font lock font. Set it.
See `semantic-font-lock-keywords'."
:group 'semantic)
;;;###autoload
(define-semantic-tag-alias 'semantic-font-lock-keywords-to-list
semantic-font-lock-keywords-to-list
"Keywords to associate with a font lock font. Set it.
See `semantic-font-lock-keywords-to-list'."
:group 'semantic)
;;;###autoload
(defconst semantic-font-lock-keywords
"Tag keyword words
\(.+ . +)"
semantic-font-lock-keywords-to-list
semantic-font-lock-defaults)
(define-global-type 'semantic-font-lock-font-lock-face
'semantic-font-lock-font-lock-face
'semantic-font-lock-font-lock-key-map
"Face for font locking face for C/C++ declarations.")
;;;###autoload
(defvar semantic-font-lock-font-lock-face
'semantic-font-lock-font-lock-face
"Face used in font locking face for C/C++ declaration")
;;;###autoload
(defvar semantic-font-lock-keywords-to-list
'semantic-font-lock-font-lock-face)
(defvar semantic-font-lock-font-lock-fkeys
"Face used in font lock font name.")
(defcustom semantic-font-lock-fkeys :format "(text)")
(defcustom semantic-font-lock-fkeys-to-list :format "(text)")
(defun Semantic-font
[11800 | 4449.39] loss=1.07 avg=1.08
[11801 | 4450.32] loss=0.95 avg=1.08
[11802 | 4451.24] loss=0.75 avg=1.08
[11803 | 4452.16] loss=1.10 avg=1.08
[11804 | 4453.07] loss=0.95 avg=1.08
[11805 | 4453.99] loss=1.18 avg=1.08
[11806 | 4454.90] loss=0.85 avg=1.08
[11807 | 4455.82] loss=1.12 avg=1.08
[11808 | 4456.74] loss=1.25 avg=1.08
[11809 | 4457.65] loss=0.81 avg=1.08
[11810 | 4458.57] loss=1.41 avg=1.08
[11811 | 4459.48] loss=1.22 avg=1.08
[11812 | 4460.40] loss=0.48 avg=1.07
[11813 | 4461.32] loss=1.00 avg=1.07
[11814 | 4462.23] loss=0.89 avg=1.07
[11815 | 4463.15] loss=0.83 avg=1.07
[11816 | 4464.06] loss=1.26 avg=1.07
[11817 | 4464.98] loss=1.14 avg=1.07
[11818 | 4465.89] loss=0.98 avg=1.07
[11819 | 4466.81] loss=0.98 avg=1.07
[11820 | 4467.72] loss=1.59 avg=1.08
[11821 | 4468.64] loss=0.74 avg=1.07
[11822 | 4469.55] loss=1.14 avg=1.07
[11823 | 4470.47] loss=0.83 avg=1.07
[11824 | 4471.39] loss=1.41 avg=1.07
[11825 | 4472.30] loss=0.91 avg=1.07
[11826 | 4473.22] loss=0.96 avg=1.07
[11827 | 4474.14] loss=1.25 avg=1.07
[11828 | 4475.06] loss=1.48 avg=1.08
[11829 | 4475.97] loss=1.12 avg=1.08
[11830 | 4476.89] loss=1.02 avg=1.08
[11831 | 4477.81] loss=0.91 avg=1.08
[11832 | 4478.73] loss=1.29 avg=1.08
[11833 | 4479.64] loss=1.26 avg=1.08
[11834 | 4480.56] loss=1.25 avg=1.08
[11835 | 4481.48] loss=0.96 avg=1.08
[11836 | 4482.40] loss=1.23 avg=1.08
[11837 | 4483.32] loss=0.87 avg=1.08
[11838 | 4484.23] loss=1.38 avg=1.08
[11839 | 4485.15] loss=1.28 avg=1.08
[11840 | 4486.07] loss=1.35 avg=1.09
[11841 | 4486.99] loss=0.87 avg=1.08
[11842 | 4487.91] loss=1.65 avg=1.09
[11843 | 4488.83] loss=1.26 avg=1.09
[11844 | 4489.75] loss=0.81 avg=1.09
[11845 | 4490.66] loss=1.28 avg=1.09
[11846 | 4491.58] loss=0.99 avg=1.09
[11847 | 4492.50] loss=0.85 avg=1.09
[11848 | 4493.42] loss=0.84 avg=1.09
[11849 | 4494.33] loss=0.85 avg=1.08
[11850 | 4495.25] loss=1.15 avg=1.08
[11851 | 4496.18] loss=1.33 avg=1.09
[11852 | 4497.10] loss=1.47 avg=1.09
[11853 | 4498.01] loss=0.77 avg=1.09
[11854 | 4498.93] loss=1.08 avg=1.09
[11855 | 4499.85] loss=1.38 avg=1.09
[11856 | 4500.77] loss=1.25 avg=1.09
[11857 | 4501.69] loss=0.96 avg=1.09
[11858 | 4502.61] loss=0.64 avg=1.09
[11859 | 4503.53] loss=1.27 avg=1.09
[11860 | 4504.45] loss=1.28 avg=1.09
[11861 | 4505.37] loss=1.09 avg=1.09
[11862 | 4506.29] loss=1.39 avg=1.09
[11863 | 4507.21] loss=0.82 avg=1.09
[11864 | 4508.13] loss=1.07 avg=1.09
[11865 | 4509.05] loss=1.16 avg=1.09
[11866 | 4509.97] loss=1.28 avg=1.09
[11867 | 4510.88] loss=1.04 avg=1.09
[11868 | 4511.81] loss=1.34 avg=1.09
[11869 | 4512.73] loss=0.84 avg=1.09
[11870 | 4513.65] loss=0.87 avg=1.09
[11871 | 4514.57] loss=0.86 avg=1.09
[11872 | 4515.49] loss=1.57 avg=1.09
[11873 | 4516.41] loss=1.07 avg=1.09
[11874 | 4517.33] loss=1.02 avg=1.09
[11875 | 4518.26] loss=1.35 avg=1.09
[11876 | 4519.18] loss=0.90 avg=1.09
[11877 | 4520.10] loss=0.86 avg=1.09
[11878 | 4521.02] loss=0.58 avg=1.08
[11879 | 4521.94] loss=1.20 avg=1.08
[11880 | 4522.86] loss=0.67 avg=1.08
[11881 | 4523.78] loss=0.63 avg=1.08
[11882 | 4524.71] loss=0.84 avg=1.07
[11883 | 4525.63] loss=1.42 avg=1.08
[11884 | 4526.55] loss=0.77 avg=1.07
[11885 | 4527.47] loss=0.86 avg=1.07
[11886 | 4528.40] loss=0.92 avg=1.07
[11887 | 4529.32] loss=0.93 avg=1.07
[11888 | 4530.24] loss=0.98 avg=1.07
[11889 | 4531.16] loss=1.08 avg=1.07
[11890 | 4532.08] loss=1.12 avg=1.07
[11891 | 4533.01] loss=1.14 avg=1.07
[11892 | 4533.93] loss=0.58 avg=1.06
[11893 | 4534.85] loss=1.09 avg=1.07
[11894 | 4535.77] loss=0.69 avg=1.06
[11895 | 4536.70] loss=1.08 avg=1.06
[11896 | 4537.62] loss=1.19 avg=1.06
[11897 | 4538.54] loss=1.23 avg=1.06
[11898 | 4539.47] loss=0.98 avg=1.06
[11899 | 4540.39] loss=1.58 avg=1.07
Generating samples...
======== SAMPLE 1 ========
(error "You have to visit multiple files in different directories"))
(eval-when-compile
(require 'cl-lib))
;; Completing functions
(define-compose-or-make-comint-function
(comint :function "comint" :name "A-FUNCTION (FUNCTION ...)"
:arguments '("TODO" "BAR" "DEF"))
(lambda (p)
(funcall
(let ((start (comint-get-props 'start p)))
(comint-make-comint-function start p)))
(error "No file names at point"))
(message "This file is incomplete"))))
(define-compose-or-make-comint-function
(comint :function "comint"
:arguments '("INTO-COMINT" "INTO-COMM"
:arguments '("TOLISTAN" "TRUE" "CONDITION"))
:arguments '("INTO-PROTECT" "INTO-PROTECT"
:arguments '("UNINTERACTIVE" "UNINTERACTIVE"))
:arguments '("STOPTEMPT " . start))
(lambda (p)
(funcall
(let ((s (comint-get-props 'start p)))
(comint-make-comint-function start p)))
(message "File is incomplete"))
(define-compose-or-make-comint-function-list
(comint :function "comint"
:arguments '("CONDITION" "TOCOPITATION")))
(define-compose-or-make-comint-function-list-name
(comint :function "comint"
:arguments '("INTO-COMINT" "INTEGRITY"))
(lambda (p)
(funcall
(let ((s (comint-get-props 'start p)))
(comint-make-comint-function start p)))
(message "File is incomplete")
(user-error "You have to visit multiple files in different directories"))
(condition-case error
(progn
(error "Not in a comint file"))
(error "It is possible to complete a completion and not know the name")))))
;;; Completion and list
(define-compose-or-make-comint-function
(comint :function "comint"
:arguments '("TODO" "TOCOPITATION")))
(cond ((and (not comint-completion-at-point)
(progn
(comint-complete-all))
(message)))
((eq comint-completion-at-point 'comint)
;; We want to do a completion,
;; otherwise we may be asked
(error "This completions need to be added from comint.el"))
(let ((vals
(comint-get-completion-at-point))
(comint
======== SAMPLE 2 ========
(format "\\|[^.+]\\|%d/\\([_,.]+\\)\\|\
" (match-string 1 last-charset))
(push (cons 'match-string last-charset)
'\\([[^.]\\)\\|[^.+:][^.[0-9.]+][^[^.+]\\)\\|%d/\\([.+:]|[^.+:\\]"))
string))
;; Don't check any trailing trailing space, so it matches
;; the following: "\\(\\)?\\'"
(skip-chars-backward "$")
(unless (equal (subexpression "\\|" regexp) "\\)")
(insert string)
(forward-char (if (equal (subexpression "\\|" regexp) 7))
(if (string= (subexpression "\\|" regexp) 2)
(concat (subexpression "\177") "\^\\(\\|" (subexpression " ")))
(subexpression "\\|" regexp))
"")))
;; Check if trailing space is "\\.[^ \t]*\\(:=\\|[ \t]*\\)".
(if (looking-at "[ \t]*$" regexp) (looking-at "[?-][-=0-9%]$"))
;; If the leading space matches, then check whether the
;; next match belongs to "\\<match\\>" or not.
(cond ((?q "\\<match:\\>[ \t]*\\\\\\?\\))
((?d "\\<match:\\>[ \t ]*")
(while (string-match '("\\*\\|[^.+.]+>" regexp string)
(and (stringp (match-end 1) (match-string 1 string))
(save-excursion (cdr (match-beginning 1)) (if (matchp string)
(string-to-number (match-end 1)))
(string-to-number (match-end 1)) string)))
(list (match-string 0 string)
(cons 'match-string string))))))))
(let (result)
;; If match was "", return a string, but don't check that the
;; next one belongs to "\\[.*/]\\[.*/\(.]+\\)".
(if (looking-at "^." regexp)
(push (list (match-string 0 regexp)
(if 'string (1+ (match-end 0))
(let (result)
======== SAMPLE 3 ========
(setq default (symbol-name default)))
(condition-case ()
(cons `((default ,(cons def-default-functions
def-default-functions `(let ,@prolog-fun,
def-default-functions)))))
(fun
(when (>= def-default-function def-default-functions)
(narrow-to-region
def-default-functions
(concat (substring def-default-function def)
(substring def-default-functions
def-default-functions))))
;; Define this function as a cons cell,
;; and return it.
(t (mapcar (lambda(x) (cons x (symbol-name x)))
(cons
(car (assq def-default-functions (cdr x)) x))
def)))
def-default-functions)))
;; Define this function as a cons cell,
;; and set that as the default (so we don't need to know which one's
;; not the default, so just return.
(when (or (not def-default-functions)
def-default-function))
;; Determine the default function on def-defs,
;; of the same form as below, and return it.
(let* ((def-fn (symbol-function def-fn)))
(if (or def-fn (or def-def def-default-function)))
def-fn
def-fn)
;; Set this function in the `default' list
;; so def-defs are not expanded.
(let ((def (symbol-name def)))
(set* (mapcar (lambda (x) (symbol-name x)) x))
(if def-fn
def
def))
;; If that is not true, return nil.
(with-current-buffer def
(apply #'call-process def nil)))
;; Check that each def is not just a default!
;; If it's a function, set it.
(unless (featurep 'def-global)
;; Check if it's a list.
(let ((def-fn def-fn) (def-fun def-fun))
(when (>= def-fn def-fun)
======== SAMPLE 4 ========
(unless file-info
(setq file-id file-file-p
(copy-file file))
(find-file file)))
(set-directory file file))
(put-text-property (point) :style file)
(move-to-header-line line)
(set-text-properties :inherit font-lock-keywords 'ignore)
(setq line (point) (convert-standard-filename file-info))
(set-file-buffer line))
(setq file-info)
(insert "Table")
(unless (file-exists-p file)
(delete-file file)
(put-text-property :type 'plain-text 'org-backend-table)
(write-region 'blank))
;; If nothing is found, add it to the buffer.
(unless (string-equal file-info '("\fF" . ""))
(set-buffer-modified-p nil))
;; Make sure we have a clean line.
(unless (file-readable-p file)
(delete-file file)
(write-region "0-11" line t t)
(goto-char (point-min))
(backward-char 1)
(insert-file file))
(setq file-info)
(insert "\n\t")
(insert string-of-number " "))
;; If file exists yet, remove all whitespace.
(unless file-readable-p
(set-file-noselect (if file-readable-p
(concat file-readable-p "\n")))
(setq file-info (replace-regexp-in-string
"( ". (match-string 1))))
;; For a number of lines, add the number to the file.
(when (or (equal file-included-p file-included-p)
(equal file-included-p file-included-p))
(set-file-noselect (replace-regexp-in-string
(replace-regexp-in-string " " "")))))
;; Set the filename, if the number is smaller than the file.
(set-file-noselect (replace-regexp-in-string
" ( ". "))))
(provide 'org-mode-list)
;;; org-mode-list.el ends here
<|endoftext|>;;; org-texinfo.el --- Custom Texinfo format for PostScript editing
;; Copyright (C) 2004 - 2006, 2007-2019 Free Software Foundation, Inc.
;; Author: Stefan Josefski
;; Keywords: Texinfo, PostScript
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; The following functions are used for Texinfo.
;;
;; A function for choosing a Texinfo-style editor
;;
;; (
[11900 | 4565.85] loss=1.11 avg=1.07
[11901 | 4566.77] loss=1.67 avg=1.08
[11902 | 4567.68] loss=0.99 avg=1.07
[11903 | 4568.59] loss=1.23 avg=1.08
[11904 | 4569.51] loss=1.04 avg=1.08
[11905 | 4570.42] loss=1.16 avg=1.08
[11906 | 4571.34] loss=0.90 avg=1.07
[11907 | 4572.25] loss=1.07 avg=1.07
[11908 | 4573.16] loss=0.70 avg=1.07
[11909 | 4574.07] loss=1.03 avg=1.07
[11910 | 4574.98] loss=0.86 avg=1.07
[11911 | 4575.89] loss=1.09 avg=1.07
[11912 | 4576.80] loss=1.19 avg=1.07
[11913 | 4577.72] loss=1.32 avg=1.07
[11914 | 4578.62] loss=1.15 avg=1.07
[11915 | 4579.54] loss=1.40 avg=1.08
[11916 | 4580.45] loss=0.74 avg=1.07
[11917 | 4581.36] loss=1.23 avg=1.07
[11918 | 4582.27] loss=1.33 avg=1.08
[11919 | 4583.18] loss=1.17 avg=1.08
[11920 | 4584.09] loss=1.55 avg=1.08
[11921 | 4585.01] loss=1.22 avg=1.08
[11922 | 4585.92] loss=0.90 avg=1.08
[11923 | 4586.84] loss=0.88 avg=1.08
[11924 | 4587.75] loss=1.72 avg=1.09
[11925 | 4588.67] loss=1.09 avg=1.09
[11926 | 4589.58] loss=1.00 avg=1.09
[11927 | 4590.49] loss=1.44 avg=1.09
[11928 | 4591.41] loss=0.88 avg=1.09
[11929 | 4592.33] loss=1.31 avg=1.09
[11930 | 4593.25] loss=0.59 avg=1.08
[11931 | 4594.17] loss=0.71 avg=1.08
[11932 | 4595.08] loss=0.61 avg=1.08
[11933 | 4596.00] loss=1.08 avg=1.08
[11934 | 4596.92] loss=0.88 avg=1.07
[11935 | 4597.84] loss=1.03 avg=1.07
[11936 | 4598.76] loss=1.27 avg=1.08
[11937 | 4599.68] loss=0.73 avg=1.07
[11938 | 4600.60] loss=0.67 avg=1.07
[11939 | 4601.52] loss=1.54 avg=1.07
[11940 | 4602.44] loss=1.20 avg=1.07
[11941 | 4603.37] loss=0.94 avg=1.07
[11942 | 4604.29] loss=1.34 avg=1.08
[11943 | 4605.21] loss=0.95 avg=1.07
[11944 | 4606.13] loss=1.93 avg=1.08
[11945 | 4607.06] loss=1.21 avg=1.08
[11946 | 4607.98] loss=1.31 avg=1.09
[11947 | 4608.90] loss=1.43 avg=1.09
[11948 | 4609.82] loss=1.42 avg=1.09
[11949 | 4610.74] loss=1.11 avg=1.09
[11950 | 4611.66] loss=1.43 avg=1.10
[11951 | 4612.59] loss=0.88 avg=1.09
[11952 | 4613.51] loss=1.37 avg=1.10
[11953 | 4614.43] loss=1.43 avg=1.10
[11954 | 4615.35] loss=1.34 avg=1.10
[11955 | 4616.28] loss=1.32 avg=1.10
[11956 | 4617.21] loss=1.15 avg=1.11
[11957 | 4618.13] loss=0.89 avg=1.10
[11958 | 4619.05] loss=0.91 avg=1.10
[11959 | 4619.97] loss=1.05 avg=1.10
[11960 | 4620.90] loss=1.21 avg=1.10
[11961 | 4621.82] loss=0.88 avg=1.10
[11962 | 4622.74] loss=0.87 avg=1.10
[11963 | 4623.66] loss=0.91 avg=1.10
[11964 | 4624.59] loss=1.68 avg=1.10
[11965 | 4625.51] loss=0.97 avg=1.10
[11966 | 4626.44] loss=0.93 avg=1.10
[11967 | 4627.36] loss=1.32 avg=1.10
[11968 | 4628.28] loss=1.16 avg=1.10
[11969 | 4629.20] loss=1.50 avg=1.11
[11970 | 4630.13] loss=1.56 avg=1.11
[11971 | 4631.04] loss=0.98 avg=1.11
[11972 | 4631.96] loss=1.76 avg=1.11
[11973 | 4632.88] loss=1.14 avg=1.12
[11974 | 4633.80] loss=0.95 avg=1.11
[11975 | 4634.72] loss=1.13 avg=1.11
[11976 | 4635.64] loss=0.83 avg=1.11
[11977 | 4636.56] loss=0.87 avg=1.11
[11978 | 4637.49] loss=0.56 avg=1.10
[11979 | 4638.41] loss=0.75 avg=1.10
[11980 | 4639.33] loss=1.07 avg=1.10
[11981 | 4640.25] loss=1.25 avg=1.10
[11982 | 4641.17] loss=0.59 avg=1.10
[11983 | 4642.09] loss=1.00 avg=1.09
[11984 | 4643.02] loss=1.32 avg=1.10
[11985 | 4643.94] loss=1.29 avg=1.10
[11986 | 4644.86] loss=1.04 avg=1.10
[11987 | 4645.78] loss=0.78 avg=1.09
[11988 | 4646.69] loss=0.77 avg=1.09
[11989 | 4647.61] loss=0.90 avg=1.09
[11990 | 4648.53] loss=0.99 avg=1.09
[11991 | 4649.46] loss=1.23 avg=1.09
[11992 | 4650.38] loss=1.26 avg=1.09
[11993 | 4651.30] loss=0.79 avg=1.09
[11994 | 4652.23] loss=1.10 avg=1.09
[11995 | 4653.15] loss=0.86 avg=1.09
[11996 | 4654.07] loss=0.76 avg=1.08
[11997 | 4654.99] loss=0.86 avg=1.08
[11998 | 4655.91] loss=1.20 avg=1.08
[11999 | 4656.84] loss=1.25 avg=1.08
Saving checkpoint/run1/model-12000
Generating samples...
======== SAMPLE 1 ========
(let (result)
(setq result
(if (and (numberp (car (reverse (car result)))))
(setq result (cdr (assoc
(funcall
;; Return the returned value
(or (memq method '(symbol (mapcar 'symbol (lambda (symbol)
;; return them all
nil))
(cadr result)))))))
result))
(defun cpl-set-coding-region (start end cpl-keyword-coding-table-function-kwds)
;; This calls CPL-EXAMPLE-RETURN-FOR-KEYWORD and
;; we then return the keyword.
(let* ((p (cpl-read-keyword-command
(or cpl-keyword-coding-table-function-kwds p))
(start end)
(last (not (equal (cadr (mapcar (cdr p) end))))))
)))
(defun cpl-set-coding-table-function-kwds (start end)
;; This calls CPL-EXAMPLE-RETURN-FOR-KEYWORD and
;; we then return the keyword.
(or (pl-insert-keyword start end "^ " nil))
;; This calls CPL-EXAMPLE-RETURN-FOR-KEYWORD and
;; we then return the key.
(and (listp end)
(or start
(not (equal (cadr (cdr end))))))))
(defun cpl-set-coding-table-function-kwds (start end)
;; This calls CPL-EXAMPLE-RETURN-FOR-KEYWORD and
;; we then return the keyword.
======== SAMPLE 2 ========
(nth 2 the-name)
(nth 0 the-name)
(nth 3 the-name)
(nth 4 the-name))))))
(nth 1 the-name)
(nth 2 the-name)
(nth 3 the-name)
(setq nth 2 (- dt 2))
(while (and (= nth 5 the-name) (< nth 3 t))
(setq t t t)
(while (and (< nth 6 the-name) (< nth 3 t))
(setf (cons 'nth 3 t) nil t))
(setq the-name t)
(when (> nth 4 the-name)
;; FIXME: If the name in the list of the last 5 entries
;; from point is the last name but in a "todo"
;; list, add a line after the nil in this case
;; to the list of the last 5 entries from point
(let* ((new-list (read-string (pop the-names))
(list nil))
(new (copy-marker old)))
(if (and (consp new-list) new-list)
(concat (make-string t) ; empty line at end
(+ nth 5 (1+ nth 2))
(1+ nth 6))
(1+ nth 3)))
(nth 6 new-list)))))))))
;; The same as (intern-add (list (list the-name (concat t ""))))
(defun nth 1 (int-n))
;; A sequence of the following characters that appears as a comment or
;; string can be ignored; they're not necessary.
;; We want to put those characters at point in the same way
;; that strings with space are left-justified to ensure
;; the same look.
(defun nth 2 (int-n))
(defun nth 3 (int-n))
(defun nth 4 (int-n))
(defun nn 3 (int-n)
;; Make an entry in the minibuffer for ints that we think are
;; interesting.
;; The minibuffer
======== SAMPLE 3 ========
(nth 2 args)))
(push
(buffer-substring-no-properties
(if (not (eq is-empty-p 'is-first))
(message "Error %s" is-empty-p)
(error "Unknown non-empty argument to is-first-argument %s" arg))))
(concat args
;; FIXME: this function can have different arguments.
(if (not has-empty-args)
(if arg (null found)
"")
(nth 2 args))))
;; For instance, is not set as an argument for an empty
;; empty statement. Instead, it has an empty argument.
(if empty-arg
(if (eq is-empty-arg empty-arg)
;; If this is the first argument, the rest of
;; is empty.
(string-equal arg ""))
(throw 'found t))))))
;; For example, `:foo' can't be empty because one is, but
;; there is no empty argument. We use the first. This
;; function can do the same for non-empty argument.
;; However, if is-empty-arg then the arguments for the current
;; program will be the arguments for the last call, i.e.
;; `:foo' won't work if it's not empty.
(setq args (if is-empty-arg (nth 2 args)
(nth 1 args))))
;; For other cases of `:foo', we could have something else.
(let ((orig-arg (nth 2 args))
(result-list (with-temp-buffer
(condition-case err
:type is-empty
nil
(error
(buffer-substring-no-properties
(if is-empty-arg (funcall args) (funcall result-list)
======== SAMPLE 4 ========
;; Not at all, just in case
;; if (and (consp buffer-list) (consp buffer-list))
;; We have a buffer, try again
;; and just end up with another empty list.
(let ((creds-read 0))
(witness nil))
;; If no buffer exists, and no buffer-list
(while (and rcons (not bcc-list))
(and (not rcons (eq buffer-list 'ignore))
;; It isn't a buffer yet, check for it later.
;; And it isn't in a buffer yet, just to get it
;; in. If it isn't in a buffer yet, do what?
(let ((d-buffer (aref rcons buffer-list)))
(setq bcc-list '(ignore buffer-string))
(set-buffer bcc-list)
(if (zerop (length bcc-list))
(set-marker (marker-position nil) (point)))
bcc-list))
;; There are already a buffer, but this one is empty
(goto-char bcc-list))))))))
;; ======================================================================
;;; Buffer management functions
(defun bcc-handle-buffer-p (value &optional value)
"Like `get-buffer-local-variables'."
(unless (or value (derived-mode-p 'mode))
(error "Invalid value at the beginning of buffer ")
(let ((found-buffer nil) (buffer nil)
buffer-list)
(while (and found-buffer (not (bcc-p value))
(set-buffer found-buffer))
(setq found-buffer buffer)
(setq found-buffer-keyword nil)
(unless (looking-at "[ \t]*\n\".*\"$" nil)
(setq buffer-list
(cons (cdr (assoc value bcc-buffer-local-variables))))
(if t
(progn
(setq buffer-list (cons (car buffer-list) value)
buffer-list buffer-list)
(setq found-buffer-keyword nil)))))
(setq found-buffer-keyword nil)
(if found-buffer-keyword
(progn
(set-buffer found-buffer-keyword nil)
(goto-char (car found-
[12000 | 4687.80] loss=0.97 avg=1.08
[12001 | 4688.73] loss=1.20 avg=1.08
[12002 | 4689.65] loss=1.54 avg=1.09
[12003 | 4690.58] loss=0.92 avg=1.09
[12004 | 4691.50] loss=0.96 avg=1.09
[12005 | 4692.42] loss=1.02 avg=1.08
[12006 | 4693.34] loss=1.06 avg=1.08
[12007 | 4694.26] loss=1.28 avg=1.09
[12008 | 4695.19] loss=1.27 avg=1.09
[12009 | 4696.11] loss=1.44 avg=1.09
[12010 | 4697.03] loss=1.59 avg=1.10
[12011 | 4697.95] loss=1.44 avg=1.10
[12012 | 4698.87] loss=0.43 avg=1.09
[12013 | 4699.79] loss=1.11 avg=1.09
[12014 | 4700.71] loss=1.79 avg=1.10
[12015 | 4701.63] loss=1.28 avg=1.10
[12016 | 4702.55] loss=0.98 avg=1.10
[12017 | 4703.47] loss=1.08 avg=1.10
[12018 | 4704.38] loss=1.07 avg=1.10
[12019 | 4705.30] loss=1.01 avg=1.10
[12020 | 4706.22] loss=0.95 avg=1.10
[12021 | 4707.13] loss=1.26 avg=1.10
[12022 | 4708.05] loss=1.14 avg=1.10
[12023 | 4708.96] loss=0.89 avg=1.10
[12024 | 4709.88] loss=1.13 avg=1.10
[12025 | 4710.80] loss=1.16 avg=1.10
[12026 | 4711.72] loss=1.53 avg=1.10
[12027 | 4712.64] loss=0.96 avg=1.10
[12028 | 4713.55] loss=1.56 avg=1.11
[12029 | 4714.47] loss=1.20 avg=1.11
[12030 | 4715.38] loss=1.45 avg=1.11
[12031 | 4716.30] loss=1.29 avg=1.11
[12032 | 4717.21] loss=1.13 avg=1.11
[12033 | 4718.12] loss=1.05 avg=1.11
[12034 | 4719.04] loss=1.27 avg=1.11
[12035 | 4719.96] loss=0.85 avg=1.11
[12036 | 4720.87] loss=0.88 avg=1.11
[12037 | 4721.78] loss=0.91 avg=1.11
[12038 | 4722.70] loss=0.86 avg=1.10
[12039 | 4723.61] loss=1.00 avg=1.10
[12040 | 4724.53] loss=0.84 avg=1.10
[12041 | 4725.44] loss=1.54 avg=1.11
[12042 | 4726.36] loss=1.37 avg=1.11
[12043 | 4727.27] loss=1.18 avg=1.11
[12044 | 4728.18] loss=1.10 avg=1.11
[12045 | 4729.10] loss=1.28 avg=1.11
[12046 | 4730.01] loss=0.88 avg=1.11
[12047 | 4730.93] loss=1.39 avg=1.11
[12048 | 4731.85] loss=0.95 avg=1.11
[12049 | 4732.76] loss=0.93 avg=1.11
[12050 | 4733.67] loss=1.07 avg=1.11
[12051 | 4734.59] loss=0.80 avg=1.10
[12052 | 4735.50] loss=0.90 avg=1.10
[12053 | 4736.42] loss=0.72 avg=1.10
[12054 | 4737.33] loss=1.04 avg=1.10
[12055 | 4738.24] loss=0.92 avg=1.10
[12056 | 4739.16] loss=1.04 avg=1.10
[12057 | 4740.08] loss=1.21 avg=1.10
[12058 | 4740.99] loss=1.16 avg=1.10
[12059 | 4741.90] loss=1.35 avg=1.10
[12060 | 4742.82] loss=1.13 avg=1.10
[12061 | 4743.74] loss=0.80 avg=1.10
[12062 | 4744.66] loss=0.98 avg=1.10
[12063 | 4745.58] loss=0.81 avg=1.09
[12064 | 4746.49] loss=0.94 avg=1.09
[12065 | 4747.41] loss=1.08 avg=1.09
[12066 | 4748.33] loss=1.37 avg=1.09
[12067 | 4749.24] loss=0.67 avg=1.09
[12068 | 4750.16] loss=1.05 avg=1.09
[12069 | 4751.08] loss=1.50 avg=1.09
[12070 | 4752.00] loss=0.89 avg=1.09
[12071 | 4752.92] loss=1.07 avg=1.09
[12072 | 4753.84] loss=1.22 avg=1.09
[12073 | 4754.76] loss=0.99 avg=1.09
[12074 | 4755.68] loss=1.24 avg=1.09
[12075 | 4756.59] loss=1.19 avg=1.09
[12076 | 4757.51] loss=0.75 avg=1.09
[12077 | 4758.43] loss=1.12 avg=1.09
[12078 | 4759.35] loss=1.49 avg=1.09
[12079 | 4760.26] loss=1.31 avg=1.10
[12080 | 4761.18] loss=1.13 avg=1.10
[12081 | 4762.10] loss=1.31 avg=1.10
[12082 | 4763.02] loss=1.22 avg=1.10
[12083 | 4763.95] loss=1.91 avg=1.11
[12084 | 4764.87] loss=1.30 avg=1.11
[12085 | 4765.79] loss=0.95 avg=1.11
[12086 | 4766.71] loss=1.13 avg=1.11
[12087 | 4767.63] loss=1.27 avg=1.11
[12088 | 4768.55] loss=1.62 avg=1.12
[12089 | 4769.48] loss=0.98 avg=1.11
[12090 | 4770.40] loss=1.69 avg=1.12
[12091 | 4771.32] loss=1.27 avg=1.12
[12092 | 4772.24] loss=1.22 avg=1.12
[12093 | 4773.16] loss=1.15 avg=1.12
[12094 | 4774.08] loss=0.93 avg=1.12
[12095 | 4775.00] loss=1.38 avg=1.12
[12096 | 4775.92] loss=1.10 avg=1.12
[12097 | 4776.85] loss=1.19 avg=1.12
[12098 | 4777.77] loss=0.97 avg=1.12
[12099 | 4778.69] loss=0.94 avg=1.12
Generating samples...
======== SAMPLE 1 ========
(with-modes
(format (concat "^" (buffer-name) " :instrument: "
(format "strument: "))))
(while (setq mode (cdr modes))
(cond
((string-equal "^" mode)
(string-to-number mode))
((string-equal "c" mode)
'car (string-to-number mode)))
(if (string-equal "\\(^ \\[/]+\\|^\\[/]+\\)/" mode)
(setq mode (cdr (cdr modes))))))))))
(setq mode (cons (cons "c" mode)))
(with-modes
(modes
(add
(cond
(setq mode nil)
(setq mode 'instrument)
(cond
((string-equal "^" mode)
(setq mode (cdr modes))
(unless (assq 'inc (mod 'inc mode)))
(when (string-match "\\^" mode)
(setq mode (cdr modes)))))))))))
;;;###mh-autoload
(put 'mh-mode 'mh-mode-flag '((mh-mode . mh-mode) (mh-auto . mh-mode))
"Switch between the Mh mode buffer and `mh-mode-flag'."
(if (mh-mode-p) (mh-mode 1) (setq mode 'mh-mode))
;; We need the buffer-local variables.
(funcall mode 'mh-mode-flag))
(defun mh-mode-flag ()
;; We want to take advantage of the `mh-flag' variable.
;; Otherwise it forces us to do a `mh-instrument' test.
(let ((mh-mode '(mh-minor-mode-flag (mh-minor-mode-flag (and mh-minor-mode
'mh-mode))))
(if (null mh-flag)
(setq mh-flag (mh-minor-mode-flag (and mh-minor-mode
'mh-minor-mode))))
(if (null mh-flag)
(progn (when mh-instrument
(when mh-instrument-flag (if mh-flag (and mh-instrument
(set-default (mh-minor-mode-flag (and mh-minor-mode
======== SAMPLE 2 ========
:init-active t )))
(t
(setq c (math-sub c 1)
g (math-trunc g))))
(if (eq (aref a 1) 'math-mult-div2)
(math-reject-arg a 'math-mult-div2 3)
(math-reject-arg a 'multifract
(math-mul a 1)
(math-rng (math-mul a 1)
(math-mul a 2)
(math-mul a 3))))
(math-mul a (math-mul (math-mul (math-mul
'math-mult-div2)))
(math-mul a 2)
(math-mul g (math-mul g))))
(math-div g '(math-mul a 2)
(math-mul a 1) '(math-mul g 3) (math-mul (math-mul g 2) '(math-mul g 3)
(math-mul g 3)))
(math-reject-arg a 'calm-constant-form 3)))
(let ((g (math-div a 1)))
(and (setq g (math-div a 2))
(setq g (math-div a 3)))
(and (setq g (math-div a 4))
(setq g (math-div a 5)))
(if g
(math-reject-arg a 'calm-constant-form g))
g))))
(defmacro math-mul (a b)
(math-div a b (math-mul a 1)
(math-mul a 2)
(math-mul a 3)))
(defconst math-div-1
"Math-divisible-pi."
(cond ((let ((n 0)
(math-expand-integers
(math-neg
(list 'math-div n))
t))))
((and (listp b) (not (integerp b))
(listp c)
(math-div
(list 'math-div
======== SAMPLE 3 ========
(* 4.7 (make-string (+ 6.0 7.0 6.0 7.0 6.0)) ?x))
;; FIXME: this might be an odd number.
(t
(let ((minor-mode (list-of-windows-mode-keys
(/ (% 5.0 0.0 5.0 0.0))
nil)))
(mapc (function (list (list-windows-mode (list-windows-mode)) min-mode))))
(dolist (windows minor-mode)
(if (< (length windows minor-mode)
(length windows) (= 0 (car (car windows)) ?x))
(dolist (windows (apply 'max-widths (nth 1 (car windows))))
(apply 'max-heights (cons (length windows) window)
(apply 'max-widths size (setq windows nil)))))
(dolist (windows (funcall minor-mode (list (+ 7.1 (length windows) size))))
(funcall minor-mode size (list (car windows)) nil)))
(let ((minor-mode (list-of-windows-mode-keys min-mode))))
(dolist (windows (make-windows-windows-windows))
(dolist (windows (funcall minor-mode (list min-mode 0)))))
(list (make-window-all windows)))))
(defun make-windows-windows-windows-windows (&optional mode)
"Make each window of the selected system in BUFFER of a different kind.
The windows are selected with the new value of BUFFER, and are those
in which you wish to display them. If `minor-mode' does not allow
displaying of the same window of the system from a different
frame, the new value of all the windows is returned as a list.
With a prefix argument MODE the mode can be specified using a list of
windows, and the mode name is taken as a string to represent
it. For example, if you want to display the following window:
\\*windows-mode.el\\*\\*\\*
\\\\*windows.el\\*\\*
\\* \\*window-buffer-name.el*
For Emacs and UNIX platforms, call `windows-mode on `setq-mode'.
MODE allows windows to be displayed in several different window buffers,
using the same `setq-buffer-name' (called
`setq-window-alist') that `windows-mode' provides.
The returned list is a list of the different kinds of windows.
\\*windows.el*
\\*windows.hx*
\\*windows.lx*
\\*windows.m*
\\*window.o*
The list of modes for which `windows-mode' is the key
`window-alist' (the default of each window) is returned."
(push-local-variables
'(if (string-match "-l" (symbol-name window-alist))
(if (equal (length window-alist) (string-match window-alnum-string windows-alist))
(match-string 0 (symbol-name window-alnum
======== SAMPLE 4 ========
(save-excursion
(goto-char (point-min))
(not (eobp))))))
(and (bolp)
(save-excursion
(goto-char start)
(not (cdr (assq 'forward-char-if-in-region start-regexp-alist)))
(re-search-forward
?\n (save-restriction
(widen)
(line-end-position)
(point))))
(eq (match-beginning 0) (match-end 0))
(setq end (match-beginning 0))
(cprincl "\\([.]_}[^_]\\|[^_]\\|[^_]+>\\)"))
;; `\\([^_]\\|[^_]\\|[^_]\\|[^_]+>\\)" should contain
;; one match, so we can sort here by only the first.
(cprincl "\\([.+\\([_a-zA-Z__]\\)?\\)\n[_a-zA-Z_]+\\)\\(\\([.+\\([_a-zA-Z_]\\)?\\)[\n\r\r]+\\)?"))
(regexp-opt (goto-char (line-beginning-position 2))
(match-string-no-properties 1))))
(when (and (re-search-forward regexp-regexp start-regexp-alist)
(save-excursion
(forward-sentence 1)
(not (bobp))))
nil)
(t (insert regexp-opt nil 1))
(insert (match-end 1) (point)))
(defsubst match-index (match-type match-start &optional start-end)
(let* ((match-type (car match-start))
(start (match-beginning 0), match-end (match-end 0)))
;; The match-style is set by `match-start-regexp', `match-end-regexp'.
(if start (> (length match-start) match-start)
;; match-end is the end of the `end' part.
match-end))
)
;; Support for a different display format.
(defun match-style-type (char ?\; &optional start-end match-start-regexp)
"Compute a style-specific version of match-start.
When non-nil use this style format, the characters which match
the start of the range in CHAR become character by character.
Otherwise CHAR is treated as a non-character
character. So a charset of characters which match CHAR becomes
character at beginning of range, then CHAR becomes character until
the range with charsets.
CHAR is treated as a non-character character
[12100 | 4804.12] loss=1.05 avg=1.12
[12101 | 4805.04] loss=1.02 avg=1.12
[12102 | 4805.95] loss=0.95 avg=1.12
[12103 | 4806.87] loss=1.19 avg=1.12
[12104 | 4807.78] loss=1.27 avg=1.12
[12105 | 4808.69] loss=1.11 avg=1.12
[12106 | 4809.60] loss=0.77 avg=1.12
[12107 | 4810.51] loss=0.92 avg=1.11
[12108 | 4811.42] loss=0.75 avg=1.11
[12109 | 4812.33] loss=0.97 avg=1.11
[12110 | 4813.24] loss=1.91 avg=1.12
[12111 | 4814.15] loss=0.83 avg=1.11
[12112 | 4815.06] loss=0.75 avg=1.11
[12113 | 4815.97] loss=0.95 avg=1.11
[12114 | 4816.88] loss=0.79 avg=1.11
[12115 | 4817.79] loss=0.78 avg=1.10
[12116 | 4818.71] loss=1.68 avg=1.11
[12117 | 4819.62] loss=0.70 avg=1.10
[12118 | 4820.54] loss=1.05 avg=1.10
[12119 | 4821.45] loss=1.07 avg=1.10
[12120 | 4822.36] loss=1.08 avg=1.10
[12121 | 4823.27] loss=1.29 avg=1.10
[12122 | 4824.18] loss=1.31 avg=1.11
[12123 | 4825.10] loss=0.95 avg=1.11
[12124 | 4826.01] loss=1.20 avg=1.11
[12125 | 4826.93] loss=1.37 avg=1.11
[12126 | 4827.84] loss=0.89 avg=1.11
[12127 | 4828.76] loss=1.55 avg=1.11
[12128 | 4829.67] loss=1.45 avg=1.11
[12129 | 4830.59] loss=1.00 avg=1.11
[12130 | 4831.51] loss=0.67 avg=1.11
[12131 | 4832.43] loss=0.77 avg=1.11
[12132 | 4833.34] loss=1.07 avg=1.11
[12133 | 4834.26] loss=1.04 avg=1.10
[12134 | 4835.18] loss=1.38 avg=1.11
[12135 | 4836.10] loss=0.85 avg=1.10
[12136 | 4837.02] loss=0.85 avg=1.10
[12137 | 4837.93] loss=1.17 avg=1.10
[12138 | 4838.85] loss=1.55 avg=1.11
[12139 | 4839.77] loss=1.04 avg=1.11
[12140 | 4840.69] loss=1.11 avg=1.11
[12141 | 4841.61] loss=0.91 avg=1.10
[12142 | 4842.53] loss=1.92 avg=1.11
[12143 | 4843.46] loss=1.06 avg=1.11
[12144 | 4844.37] loss=1.07 avg=1.11
[12145 | 4845.30] loss=1.26 avg=1.11
[12146 | 4846.22] loss=1.53 avg=1.12
[12147 | 4847.14] loss=1.00 avg=1.12
[12148 | 4848.06] loss=1.37 avg=1.12
[12149 | 4848.98] loss=1.50 avg=1.12
[12150 | 4849.90] loss=1.15 avg=1.12
[12151 | 4850.82] loss=0.85 avg=1.12
[12152 | 4851.75] loss=0.70 avg=1.12
[12153 | 4852.68] loss=0.84 avg=1.11
[12154 | 4853.60] loss=1.17 avg=1.11
[12155 | 4854.52] loss=1.29 avg=1.12
[12156 | 4855.44] loss=1.12 avg=1.12
[12157 | 4856.36] loss=1.14 avg=1.12
[12158 | 4857.29] loss=1.15 avg=1.12
[12159 | 4858.21] loss=0.85 avg=1.11
[12160 | 4859.13] loss=1.24 avg=1.11
[12161 | 4860.06] loss=0.99 avg=1.11
[12162 | 4860.98] loss=1.31 avg=1.12
[12163 | 4861.90] loss=1.12 avg=1.12
[12164 | 4862.83] loss=0.83 avg=1.11
[12165 | 4863.75] loss=1.21 avg=1.11
[12166 | 4864.67] loss=1.08 avg=1.11
[12167 | 4865.60] loss=1.00 avg=1.11
[12168 | 4866.52] loss=1.14 avg=1.11
[12169 | 4867.44] loss=1.27 avg=1.11
[12170 | 4868.36] loss=0.73 avg=1.11
[12171 | 4869.28] loss=0.78 avg=1.11
[12172 | 4870.20] loss=1.52 avg=1.11
[12173 | 4871.12] loss=0.74 avg=1.11
[12174 | 4872.04] loss=1.21 avg=1.11
[12175 | 4872.97] loss=1.07 avg=1.11
[12176 | 4873.89] loss=1.06 avg=1.11
[12177 | 4874.81] loss=1.39 avg=1.11
[12178 | 4875.73] loss=0.94 avg=1.11
[12179 | 4876.65] loss=1.25 avg=1.11
[12180 | 4877.57] loss=1.21 avg=1.11
[12181 | 4878.49] loss=0.91 avg=1.11
[12182 | 4879.41] loss=1.07 avg=1.11
[12183 | 4880.33] loss=1.20 avg=1.11
[12184 | 4881.24] loss=1.18 avg=1.11
[12185 | 4882.16] loss=0.99 avg=1.11
[12186 | 4883.08] loss=1.30 avg=1.11
[12187 | 4884.00] loss=1.37 avg=1.11
[12188 | 4884.92] loss=1.03 avg=1.11
[12189 | 4885.84] loss=1.03 avg=1.11
[12190 | 4886.76] loss=1.40 avg=1.11
[12191 | 4887.68] loss=1.11 avg=1.11
[12192 | 4888.60] loss=1.61 avg=1.12
[12193 | 4889.52] loss=0.96 avg=1.12
[12194 | 4890.44] loss=1.18 avg=1.12
[12195 | 4891.36] loss=0.86 avg=1.12
[12196 | 4892.28] loss=1.01 avg=1.11
[12197 | 4893.20] loss=0.65 avg=1.11
[12198 | 4894.12] loss=0.95 avg=1.11
[12199 | 4895.03] loss=0.82 avg=1.11
Generating samples...
======== SAMPLE 1 ========
(if (or (<= num-sig-count num-sig-count)
(eq num-sig-list (num-sig-num num-sig-list))
(eq num-sig-id (num-sig-num num-sig-id))
num-sig-id))
num-sig-id)
(goto-char (1+ num-sig-char))
(skip-chars-forward " \t\r")
(let ((list (nth 3 num))
name)
(while list
(setq name (car list))
(while (setq name (cdr list))
(setq name (car list)
(eq name '(".+" . ".)" . ">")))
(if (not name) ; Not needed. This is only useful for sorting
(not (listp name) '("%") (eq name '("%1")))
(message "%s sorting now done")))
(setq nn-sig-list
(sort name (1+ num-sig-char size))
(if (not (listp nn-sig-list))
(setcdr nn-sig-list
(nndir (nth 1 nn-sig-char) (cdr nn-sig-list))))
(nndir (cdr nn-sig-list)))
(setq nn-sigs-list (cdr nn-sigs-list)))))
(cl-destructuring-mark nn-sig-char size num-sig count last-n-sig-size))
;;;; New list
(defun nndir-add-in-list '(list (nndir name string)))
(defun nndir-pop-nndir (nndir name)
(cons nndir nndir-name name))
(define-derived-mode nndir-mode dired-mode "Dired"
"Major mode for editing Dired.
This entry is for users who prefer editing in buffers named `~/.emacs',
and don't want to type \\[dired-mode] or the like. This is the default for
dired."
(let ((list (or (string-equal nndir 1)
(function-call-with-args nnndir
(list "~/.emacs" nil))))
name))
(and (string-match "\\`" list)
(progn
;; If `~/.emacs', but without the ";" in the prefix
;; keyword, use "~/.emacs" instead.
"~/.emacs")))
t)
new)
(defun nnd
======== SAMPLE 2 ========
(let* ((name (buffer-name)))
(name-list
(lambda (start end)
(if (or (eq name-list-p 'all)
(consp start t))
(car name-list)
(name-p end nil)))
name
t))
(or name-list "")))
(defun smerge-smerge-dictionaries-regexps (regexp)
"Get the list of citations and the corresponding revision by looking through entries."
(let* ((doc (get-text-property (point) 'smerge-doc-re-doc)
(id (get-text-property (point) 'smerge-id-re-doc))
title
(bib-entry-number (id-entry-start id-entry-number)
(id-entry-end id-entry-number)))
(if (not (get-text-property (get diff-id title-references) 'smerge-dictionaries-regexp))
;; Don't rely on this function.
(or (get-text-property (get diff-id title-references) 'smerge-dictionaries-regexp)
(funcall diff-id title-references (id-entry-start id)))))
(if (not (get-text-property (get diff-id title-references) 'smerge-dictionaries-regexp))
bib-entry-number
result-repo)
(smerge-dictionaries-regexp (id name-references id-references)
(doc-entry-name title-references :format "\\(id\\).txt") ? "")))))
;; --------------------------------------------------------------
;; --------------------------------------------------------------
;; --------------------------------------------------------------
;; The above function takes the entries for `id-references' and
;; `id-ref-number' and returns them. It passes
;; 'smerge-smerge-references-regexps-function into `smerge-dictionaries-regexps'
;; to make sure the results are correct so that they are displayed
;; on the display in smerge-references buffers.
(defun smerge-dictionaries-regexps-function
(regexp prefix
(concat "\\'" 'smerge-d-ref-type)
"\\(ref\\s-+\\)\\'"
(get-text-property
======== SAMPLE 3 ========
(substring (ltrim 4) '(0 1)) (substring (ltrim 5) '(1 1)) ;; FIXME: The function used here has no `ltrim' in it so this is a good thing!
nil)
(ltrim 4 3))
(apply #'apply (lambda (var var-var-bindings) var-binding (list var-var-bindings))))
(defun ltrim-list-formulas (formulas)
"Get a lambda expression for each formula we add to the list. Add one for each formula we do add."
;; Use this for lambda functions, which we already do.
(let ((formulas nil)) ; These formulas are just lists.
(apply #'apply #lisp-lambda-list
(list (list-subst (ltrim 2) (ltrim 0)))
(apply (funcall forms (ltrim (list 3 2))))
(apply (nth 1 forms) form)
(list forms formulas t nil))
form)
"List of formulas to make a lambda list."
(let ((forms nil)) ; These formulas are just lists.
(apply #'apply #nforms))
(cond ((nth 2 forms) form)
((and (listp forms) (listp (car forms) "")
(member (car forms) (listp (car forms))
(listp (cadr forms))))
((nth 2 forms) (nth 1 forms) (nth 1 forms)) ;; FIXME: If a function is passed in, but in a list (like a function list) it
;; doesn't have the form that it's supposed to come from.
(when (and (listp forms) (car forms))
(when (nth 2 forms)
(car (list (apply 'car forms)))
(list 'list))))
((listp forms) form)
(t
(nth 3 forms))))
(apply #'apply nil
(lambda () (car forms)))
(let ((forms (nth 1
(listp forms))
(count 0))
(if (listp forms)
(append forms (list (listn (list-subst forms 0)))
(list (list 'lists '(nil nil)))))
(list forms count)))
(defun ltrim-list-formulas-by-args (arglist form)
"List of formulas for selecting FUN and TAB from args to form."
(nconc form 4)
(nconc (lambda (form)
(list `(cl-funcall ,form 1)
(calc-formula #'car-cdr (listcar form)))
(list (listn #'calc-formula
(listn t))))))
(defun ltrim-list-formulas-by-directive (&rest forms)
"Get terms of a lambda expression.
A list of names. If the list of names has the form
`forms', then they form elements. For example (as in
a
======== SAMPLE 4 ========
(nreverse c)))
(if (and (consp result) (null result))
(progn
(setq result
(car (setq result (cdfit-to-string
(car (caar result)))
(append result (list (cdfit-to-string
(car (car result)))
(car result)))))
result))
(if (member result result-noms) result-noms
(if (consp result-noms)
(member result-noms (cdr result)))
(setq result-noms nil
result-nil nil
result-noms nil
(car result))))
(setq result (cdr result)))
result)
(defun c-defs-defn (args args-1 &optional noms-2)
(interactive "P")
(if (eq (cadr args) 'defn)
(cl-assert (eq (cdr args) "defn_" 'defname-table))
(if (not (eq (cadr args) 'defn) 'defspec-table))
(c-cadr args))))
(defun c-make-defunc (arg)
"Make a definition for `defunc-from' to a specific defdecl-function.
Otherwise, create a new one."
(cond
((symbolp arg) (car arg))
((cdr arg) (cdr arg))
((c-cadr arg))
((or (symbolp arg-noms)
(symbolp (car arg)))
(if noms
(funcall (cddr arg-noms) (cddr arg-noms)))
(cl-destructuring-bound
(setf (cadr arg) (cadr arg))
(cl-destructuring-bound (cadr arg))
(cl-fstruct
'ccontainer nil 'components))
(t nil))
;; There are two ways to create a new one.
(if (eq (car-safe args) 'defn)
(setq args (cdr args))))
nil)))
(defun c-make-convert (str (car-safe str))
"Make `c-default-conversion' in place of the defaults given by `c-default-conversion'."
(if str
(concat (make-string (length str)) ?\n (concat str " " str))))
(define-obsolete-function-alias 'default-conversion
'default-conversion "30.1")
(defun c-define-default (arg)
"Set the default for the current function, if any."
(declare (indent 1) (debug (list ',arg)))
(declare (debug (symbolp (list ',arg)))
[12200 | 4920.49] loss=1.32 avg=1.11
[12201 | 4921.41] loss=1.07 avg=1.11
[12202 | 4922.33] loss=1.17 avg=1.11
[12203 | 4923.25] loss=0.66 avg=1.10
[12204 | 4924.16] loss=0.94 avg=1.10
[12205 | 4925.08] loss=1.15 avg=1.10
[12206 | 4926.00] loss=0.88 avg=1.10
[12207 | 4926.91] loss=0.82 avg=1.10
[12208 | 4927.83] loss=1.72 avg=1.10
[12209 | 4928.74] loss=1.48 avg=1.11
[12210 | 4929.66] loss=0.68 avg=1.10
[12211 | 4930.57] loss=1.60 avg=1.11
[12212 | 4931.48] loss=1.17 avg=1.11
[12213 | 4932.40] loss=0.99 avg=1.11
[12214 | 4933.31] loss=0.95 avg=1.11
[12215 | 4934.22] loss=0.97 avg=1.10
[12216 | 4935.14] loss=0.85 avg=1.10
[12217 | 4936.05] loss=0.81 avg=1.10
[12218 | 4936.96] loss=0.76 avg=1.10
[12219 | 4937.87] loss=0.79 avg=1.09
[12220 | 4938.79] loss=1.05 avg=1.09
[12221 | 4939.70] loss=1.02 avg=1.09
[12222 | 4940.61] loss=0.88 avg=1.09
[12223 | 4941.53] loss=0.85 avg=1.09
[12224 | 4942.44] loss=1.20 avg=1.09
[12225 | 4943.35] loss=0.99 avg=1.09
[12226 | 4944.27] loss=1.35 avg=1.09
[12227 | 4945.18] loss=0.93 avg=1.09
[12228 | 4946.09] loss=1.08 avg=1.09
[12229 | 4947.01] loss=1.12 avg=1.09
[12230 | 4947.93] loss=0.88 avg=1.09
[12231 | 4948.84] loss=1.07 avg=1.09
[12232 | 4949.76] loss=1.21 avg=1.09
[12233 | 4950.68] loss=0.88 avg=1.09
[12234 | 4951.60] loss=0.79 avg=1.08
[12235 | 4952.51] loss=0.99 avg=1.08
[12236 | 4953.44] loss=1.39 avg=1.08
[12237 | 4954.35] loss=0.87 avg=1.08
[12238 | 4955.27] loss=1.55 avg=1.09
[12239 | 4956.19] loss=0.81 avg=1.08
[12240 | 4957.11] loss=1.25 avg=1.09
[12241 | 4958.02] loss=0.99 avg=1.09
[12242 | 4958.94] loss=0.77 avg=1.08
[12243 | 4959.86] loss=1.45 avg=1.09
[12244 | 4960.78] loss=0.85 avg=1.08
[12245 | 4961.70] loss=0.96 avg=1.08
[12246 | 4962.63] loss=1.06 avg=1.08
[12247 | 4963.55] loss=1.17 avg=1.08
[12248 | 4964.47] loss=1.26 avg=1.08
[12249 | 4965.39] loss=1.39 avg=1.09
[12250 | 4966.31] loss=1.12 avg=1.09
[12251 | 4967.23] loss=1.54 avg=1.09
[12252 | 4968.15] loss=1.65 avg=1.10
[12253 | 4969.07] loss=0.72 avg=1.09
[12254 | 4970.00] loss=1.29 avg=1.10
[12255 | 4970.92] loss=1.07 avg=1.10
[12256 | 4971.84] loss=1.35 avg=1.10
[12257 | 4972.76] loss=0.88 avg=1.10
[12258 | 4973.68] loss=1.19 avg=1.10
[12259 | 4974.60] loss=0.95 avg=1.10
[12260 | 4975.52] loss=0.91 avg=1.09
[12261 | 4976.45] loss=1.14 avg=1.09
[12262 | 4977.38] loss=1.06 avg=1.09
[12263 | 4978.30] loss=1.11 avg=1.09
[12264 | 4979.23] loss=0.76 avg=1.09
[12265 | 4980.15] loss=1.09 avg=1.09
[12266 | 4981.07] loss=1.10 avg=1.09
[12267 | 4982.00] loss=1.16 avg=1.09
[12268 | 4982.92] loss=1.04 avg=1.09
[12269 | 4983.85] loss=1.05 avg=1.09
[12270 | 4984.77] loss=0.97 avg=1.09
[12271 | 4985.69] loss=0.73 avg=1.09
[12272 | 4986.62] loss=1.05 avg=1.09
[12273 | 4987.54] loss=1.20 avg=1.09
[12274 | 4988.46] loss=2.10 avg=1.10
[12275 | 4989.38] loss=0.97 avg=1.10
[12276 | 4990.31] loss=0.64 avg=1.09
[12277 | 4991.23] loss=1.20 avg=1.09
[12278 | 4992.15] loss=0.80 avg=1.09
[12279 | 4993.08] loss=0.78 avg=1.09
[12280 | 4994.00] loss=1.26 avg=1.09
[12281 | 4994.93] loss=1.09 avg=1.09
[12282 | 4995.85] loss=0.93 avg=1.09
[12283 | 4996.77] loss=0.95 avg=1.08
[12284 | 4997.69] loss=0.76 avg=1.08
[12285 | 4998.62] loss=0.62 avg=1.08
[12286 | 4999.54] loss=1.07 avg=1.08
[12287 | 5000.46] loss=1.31 avg=1.08
[12288 | 5001.38] loss=1.05 avg=1.08
[12289 | 5002.29] loss=0.85 avg=1.08
[12290 | 5003.21] loss=0.96 avg=1.08
[12291 | 5004.13] loss=1.24 avg=1.08
[12292 | 5005.06] loss=0.91 avg=1.08
[12293 | 5005.98] loss=1.38 avg=1.08
[12294 | 5006.90] loss=0.85 avg=1.08
[12295 | 5007.82] loss=1.18 avg=1.08
[12296 | 5008.74] loss=1.05 avg=1.08
[12297 | 5009.66] loss=0.99 avg=1.08
[12298 | 5010.58] loss=1.61 avg=1.08
[12299 | 5011.50] loss=0.78 avg=1.08
Generating samples...
======== SAMPLE 1 ========
(let ((cnt (1+ cnt)))
(if (eq (setq cnt (1+ (cddr cnt)))
(not (member char cnt)))
(setq pos (1+ pcl1))
(setq cnt (1+ cnt))
(setq pcl (cddr cnt))
(put-text-property cnt cnt pos (marker-position cnt))
(setq cnt (cddr cnt)))
(put-text-property cnt cnt pos (marker-position cnt))
t))))))
;; Prevent the display from being confused.
(and (not (eq arg 'no-show)
(eq (setq char char-display-key)
'no-show))
;; We don't want to have to use multi-line char conversion.
(setq char-display-key nil
char-display-key nil
char-display-key-p nil))
(defun char-display-key (key)
"Return value of `char-display-key' for the given key."
(cdr char-display-key)
(not (string-match "[[:alpha:]] *[[:[:end:]][:alpha:]][:end:]" key))
;; If we didn't display-key, we return nil.
(or (eq char-display-key key)
(error "No such key"))
;; Add a function to the next function list. The first function
;; in the list is called with a non-nil `display-key' argument, so that we
;; can display it. If there is a previous function in the list, and a function that
;; is called from `display-key'
;; then there is no need for an append function to be called as
;; it should be done.
(if (member char-display-key
(lambda (key)
(let ((char-display-key 'face char-display-key))
(unless (string-match "\C-*" char-display-key))
(setq char-display-key char-display-key))
(unless display-key
(set-text-properties 0 char-display-key 'face)))))
(if display-key
(save-window-excursion
(while (not (string-match "\C-*" char-display-key))
(with-temp-buffer
;; Put back the text property to the current buffer.
(when (string-match
(concat "|" (replace-match
"\\(.*|\\)[ \r\n?\C-*\n]\\'"
======== SAMPLE 2 ========
"*"
"-"
"\\(c\\|c\\)\\|\\(C\\|C\\|c\\|C\\|C\\|c\\|c\\)\\|")))
"\\.t"
(c-list (c-list (funcall c-sublist-function
(list (if c-sublist-index 'symbol-spec 'symbol-type 'symbol)))
c-sublist-index
c-sublist-index)
"\\|[~]?\\(c[:~]+\\([~]" ?\\|")
"~")))
(c-list (if c-list-in-list
(list "~") nil)
(if c-list-in-list
(if c-list-out-list
(list "[~]?\\(c[:~]+\\[~]?\\)")))
)
;; The list of possible strings.
(cons c-list '(:~])
(c-list (if c-list-index
(list "[~]?\\(c[:~]+\\([~]" ?\\|)
(if c-index '~'
(substring (c-string-substring c-index) (point))
c-index t))))))
;; FIXME: add function to the macro list?
(c-macro-eval c-list)
(c-list '(:~ "~" "(:< " (" (* c-list c-list) 2))))
(c-list-in-list '(:~ nil c-list-index nil)
(if (not (c-list-index 'c-list-index c-list-index)))
(list "~")))
(c-list-out-list '(:~ nil c-list-index nil)
(c-list-in-list '(:~ nil c-list-index nil)
(list "~") nil))
nil)
(defvar c-list-index nil)
(defvar c-list-index-in-list nil)
(defvar c-list-in-list-index-in-list nil)
(defvar c-list-index-in-list-index-in-list nil)
(defvar c-list-index nil)
(defun c-list-index-in-list (c-list-index-index-in-list-type c-list-index)
;; FIXME: add function to the macro list?
(c-macro-eval c-list)
(c-list-in-list (:~ "~" '(:<)) (list
======== SAMPLE 3 ========
(t (format org-agenda-agenda-regexp
"|\\s-+\\'")))
(or (null date)
(setq date (org-babel-agenda-create-date))
date (org-babel-agenda-create-date)))
(mapc (lambda (f)
(format org-agenda-agenda-regexp
"|\\s-+\\'")))
(if (eq org-newsgroups-defaults "newsgroups")
date
'((org-agenda-show-date
(or org-agenda-newsgroups-defaults
org-agenda-show) t))
'((org-agenda-show-date
(or org-agenda-newsgroups-defaults
org-agenda-show)))
1))))
(t (format org-agenda-agenda-regexp
"|\\s-+\\"))))
org-babel-agenda-summary
org-agenda-summary
(t (org-agenda-analyze-summary-summary-completion
======== SAMPLE 4 ========
'(?f . ?m ?n))
;; See also `makefile'.
(cl-incf bb) ;(:file . ;<br-name ;;;
(file-name-nondirectory
(and arg (prefix-numeric-value arg)))
(file-name-nondirectory
(string-match
name
(file-name-nondirectory name)
(string-match
t
(file-name-nondirectory
name))))
;; In case the file name changes.
[12300 | 5037.13] loss=1.38 avg=1.08
[12301 | 5038.05] loss=0.70 avg=1.08
[12302 | 5038.97] loss=1.39 avg=1.08
[12303 | 5039.89] loss=0.59 avg=1.08
[12304 | 5040.81] loss=0.83 avg=1.07
[12305 | 5041.72] loss=1.00 avg=1.07
[12306 | 5042.64] loss=0.69 avg=1.07
[12307 | 5043.56] loss=0.93 avg=1.07
[12308 | 5044.48] loss=1.09 avg=1.07
[12309 | 5045.40] loss=1.26 avg=1.07
[12310 | 5046.31] loss=1.44 avg=1.07
[12311 | 5047.24] loss=0.88 avg=1.07
[12312 | 5048.16] loss=0.79 avg=1.07
[12313 | 5049.07] loss=0.64 avg=1.06
[12314 | 5049.99] loss=0.96 avg=1.06
[12315 | 5050.91] loss=0.95 avg=1.06
[12316 | 5051.83] loss=0.74 avg=1.06
[12317 | 5052.74] loss=0.63 avg=1.05
[12318 | 5053.66] loss=1.28 avg=1.06
[12319 | 5054.57] loss=0.99 avg=1.06
[12320 | 5055.49] loss=1.11 avg=1.06
[12321 | 5056.40] loss=1.71 avg=1.06
[12322 | 5057.31] loss=1.49 avg=1.07
[12323 | 5058.23] loss=0.73 avg=1.06
[12324 | 5059.15] loss=1.30 avg=1.07
[12325 | 5060.06] loss=0.79 avg=1.06
[12326 | 5060.98] loss=1.09 avg=1.06
[12327 | 5061.89] loss=1.00 avg=1.06
[12328 | 5062.81] loss=1.13 avg=1.06
[12329 | 5063.72] loss=1.42 avg=1.07
[12330 | 5064.64] loss=1.20 avg=1.07
[12331 | 5065.55] loss=1.18 avg=1.07
[12332 | 5066.47] loss=1.35 avg=1.07
[12333 | 5067.38] loss=1.17 avg=1.07
[12334 | 5068.30] loss=1.09 avg=1.07
[12335 | 5069.21] loss=1.05 avg=1.07
[12336 | 5070.13] loss=1.34 avg=1.08
[12337 | 5071.04] loss=1.22 avg=1.08
[12338 | 5071.96] loss=1.24 avg=1.08
[12339 | 5072.87] loss=0.81 avg=1.08
[12340 | 5073.79] loss=1.06 avg=1.08
[12341 | 5074.71] loss=1.44 avg=1.08
[12342 | 5075.63] loss=1.32 avg=1.08
[12343 | 5076.54] loss=1.34 avg=1.09
[12344 | 5077.46] loss=1.05 avg=1.09
[12345 | 5078.37] loss=0.97 avg=1.08
[12346 | 5079.29] loss=1.13 avg=1.08
[12347 | 5080.21] loss=1.02 avg=1.08
[12348 | 5081.13] loss=0.58 avg=1.08
[12349 | 5082.05] loss=0.88 avg=1.08
[12350 | 5082.97] loss=0.99 avg=1.08
[12351 | 5083.89] loss=1.19 avg=1.08
[12352 | 5084.80] loss=1.02 avg=1.08
[12353 | 5085.73] loss=1.14 avg=1.08
[12354 | 5086.64] loss=1.15 avg=1.08
[12355 | 5087.56] loss=1.07 avg=1.08
[12356 | 5088.48] loss=1.39 avg=1.08
[12357 | 5089.40] loss=1.10 avg=1.08
[12358 | 5090.32] loss=1.29 avg=1.08
[12359 | 5091.24] loss=1.22 avg=1.08
[12360 | 5092.16] loss=1.43 avg=1.09
[12361 | 5093.08] loss=1.41 avg=1.09
[12362 | 5094.00] loss=1.19 avg=1.09
[12363 | 5094.92] loss=1.00 avg=1.09
[12364 | 5095.84] loss=0.86 avg=1.09
[12365 | 5096.77] loss=1.18 avg=1.09
[12366 | 5097.69] loss=0.79 avg=1.09
[12367 | 5098.61] loss=1.03 avg=1.09
[12368 | 5099.53] loss=1.04 avg=1.09
[12369 | 5100.45] loss=0.52 avg=1.08
[12370 | 5101.38] loss=1.45 avg=1.08
[12371 | 5102.30] loss=1.69 avg=1.09
[12372 | 5103.23] loss=0.96 avg=1.09
[12373 | 5104.15] loss=1.17 avg=1.09
[12374 | 5105.07] loss=1.40 avg=1.09
[12375 | 5105.99] loss=1.57 avg=1.10
[12376 | 5106.92] loss=1.35 avg=1.10
[12377 | 5107.84] loss=1.35 avg=1.10
[12378 | 5108.77] loss=0.98 avg=1.10
[12379 | 5109.69] loss=1.22 avg=1.10
[12380 | 5110.61] loss=1.05 avg=1.10
[12381 | 5111.54] loss=1.44 avg=1.11
[12382 | 5112.46] loss=1.05 avg=1.10
[12383 | 5113.38] loss=0.29 avg=1.10
[12384 | 5114.30] loss=0.96 avg=1.10
[12385 | 5115.22] loss=1.13 avg=1.10
[12386 | 5116.15] loss=1.79 avg=1.10
[12387 | 5117.07] loss=1.35 avg=1.11
[12388 | 5117.99] loss=0.99 avg=1.10
[12389 | 5118.92] loss=0.78 avg=1.10
[12390 | 5119.84] loss=1.06 avg=1.10
[12391 | 5120.76] loss=1.37 avg=1.10
[12392 | 5121.68] loss=1.16 avg=1.10
[12393 | 5122.60] loss=1.15 avg=1.10
[12394 | 5123.53] loss=0.70 avg=1.10
[12395 | 5124.45] loss=1.13 avg=1.10
[12396 | 5125.37] loss=1.34 avg=1.10
[12397 | 5126.29] loss=0.84 avg=1.10
[12398 | 5127.21] loss=0.85 avg=1.10
[12399 | 5128.13] loss=1.07 avg=1.10
Generating samples...
======== SAMPLE 1 ========
" nil " nil " nil " nnf" " nnf"
" nil ".pdf" "pdf" t)))
(setq dir (file-attribute-type 'archive-extract-from-bakam)
(c-gensym "pdf" "pdf" nil (file-attributes (file-attributes
archive-extract-from-bakam)
".archive" "archive")))
(setq dir (extract-buffer "*pdf*"
(file-name-sans-extension buffer-file-name "*pdf*")))
(setq dir (file-attribute-type 'archive-extract-archive-archive nil))
(provide 'extract-archive)
;;; extract-archive.el ends here
<|endoftext|>;;; extract-pdf.el --- Utility functions to manipulate the PDF file contents -*- lexical-binding: t -*-
;; Copyright (C) 2003-2005, 2007-2019 Free Software Foundation, Inc.
;; Author: Marko Kornak <marko@kornak.czerka.dk>
;; Created: 24 Dec 2003
;; Keywords:
;;
;; Extract the contents of the current document (the current line) as a series.
;; Extract all files, including the current line in each directory. This
;; is currently not supported using the standard "gzip+bzip2" command.
;; Extract the content of the current buffer using the 'mpr-handle' option.
;; Read a chunk number by calling the `write-to-page-number' function
;; `mpr-buffer' in `mpr-read-buffer'. This function should return
;; a list of all the files, or nil if none of them has been read
;; or the previous page number has been read. For example, if we have a
;; document called "XAML.txt" and it has not yet been read in any
;; way, and the buffer isn't read, it will be "read" to be inserted in the
;; *extract* buffer and this will return nil.
(defun mpr-handle (file)
(let* ((proc ; Return the buffer contents from FILE.
(mpr-extract-file (file-attribute-prec file "extract-to-file-name"))
;; Insert the corresponding file as the last line.
(file-name-nondirectory file)
;; If we're reading text in a buffer, and mpr-handle
(write-to-page-number 'extract-from-bakam file 1)
(mpr-extract-file nil))
(goto-char (point-max)) ; Skip any previous lines or if no buffer,
;; ; or insert the current line as the text or file name
;; ; from the table where the table was extracted
;; ; or insert no lines at all in each buffer.
(forward-line (number-to-string (point-min))))
;; If the current file is not a pdf, insert a \"\" in the current buffer.
(and (or (bound-
======== SAMPLE 2 ========
(let ((b8 (length b)))
(while (< b8 b)
(let* ((x (car b8))
(x1 (car x)))
(while (< x1 x1)
(setqx (cdr x)
y (cdr x))
(setqb (cdr x)
x (cdr y)
x2 (cdr x2)
x2 (+ x)))
(setqx2 (cdr x2)
y2 (cdr x2)
x2 x1 y x1 x2 x1 x2 x1 y)
(while (< x2 x2)
(setqx2 (cdr x)
y (cdr x2)
x1 (cdr x2))
(setqb (cdr x1)
y (cdr x1))
(while (< x2 x2)
(setqx2 (cdr x2)
x1 (cdr x1))
x1 y1 y1 x1 w1 y1 x1 w1 x1)))
(setqb2 (cdr y2)
x2 (cdr y2)
x2 x1 y x1 y x1 x1 x1 x1 w1 y1 x1 x1)
(setqx2 (cdr y2)
x2 (cdr y2)
x2 (+ x) (cdr y2))
(if (not x1)
(let ((x2 (+ (length b)))
x1 x2 y x1 x2)
(while (< x2 x2)
(setqx (cdr y2)
x1 (cdr y1))
(setqx1 (cdr x)
x2 (cdr x2)))
(setqx2 (cdr y2)
x1 (cdr x1))
(while (< x2 x2)
(setqx1 (cdr y1)
x2 (cdr y1))
(setqx2 (cdr x1)
x2 (cdr y2)))
(setqx11 (cdr y1)
x1 (cdr x1))
======== SAMPLE 3 ========
(defun math-n-narrow ()
(let* ((i (1+ i))
(c (math-n-div (numbers--get-calcFunc 1 3))
(c-num-i (numbers--get-calcFunc 1)))
(k (math-setq i
(math-sort math-n-narrow
(+ 2 (/ c (calcFunc-exp (numbers--get-calcFunc 1))))))
(/= c (numbers--get-calcFunc 1) 1)))
(b (math-get-calcFunc -1)))
(push (list 'math-div (numbers--get-calcFunc c) pn)))
(defun math-n-nrow ()
(let ((c 1))
(while (and c (not (and (- 1 (calcFunc-exp c 2)) 1))
(and (< c
(math-lessp c (math-mul (math-mul c 1) 1)))
(> c
(math-mul (math-mul c 2) 1))))
(when (Math-lessp math-nrow)
(with-temp-file (format "%d" (nth 1 math-nrow))))
(goto-char c)
(beginning-of-line)
(while (and (<= c 1) (< (point) c))
(unless (or (get-text-property (point) 'math-column-p)
(and (< (Math-vectorp (progn (beginning-of-line) 2)
(point-max))
(setq p (point)))))
(beginning-of-line)
(when (and (>= c (numbers--get-calcFunc 1)) (< (math-numberp (numbers-narrow '2)))
(not (or (fboundp 'math-nrows))
(>= c (numbers--get-calcFunc 1))
(or (fboundp 'math-nrow))
(math-multiply-p (numbers-narrow 1)
(math-nrows-p 1))
(math-multiply-p (numbers-narrow 2)
(math-nrow 2)))
======== SAMPLE 4 ========
"List of symbols for Emacs Lisp support.
The symbol system is defined by `macro-mode-alist'."
(concat
"Key symbol list"
(let ((symbol
;; A new face is defined.
(read-face "Regexp to use with macro name in %d characters.
See `macro-mode-alist' for examples.")
nil))
;; A macro is defined, and the current symbol is
;; changed.
(format "%s (\\|\\s-*\\(\\s *\\)\\{1\\}\\[.0f\\]?"
nil (expand-file-name macro-name nil t))
(list (format "Regexp `%s'." (expand-file-name macro-name))))
(while (or (consp (car symbol)) (< (car (car (car symbol))) 0))
(unless (car-safe (cdr (car (car symbol)))
(throw 'exit
(macroexp-goto-symbol (car symbol)))))
(setq symbol (cons "Macro" symbol))
(setq symbol (macroexp-goto-symbol symbol)))
;; (if macro-name
;; All the symbols must use the function which should get the
;; value.
;; The symbol should be defined in the variable `progn', which is
;; defined in the macro system by `macro-mode-alist'."
(let* ((symbol (car (car symbol)))
(lispp (cdr (car (car "lisp-regexp")))
(name (match-string 1)))
(exp (concat "`" (regexp-quote symbol)))
(sym nil)) #'macro-table)
(list (format "%s: "
(cond
((listp name) name) ; Macro does not exist
(t
(expand-file-name name)))
((symbolp name) ; Macro does not exist
(t (expand-file-name name))))
(t (list "name")))
(t (list "lisp"))))
(setq symbol (cons "" symbol)))
;; Don't use lisp-regexp, it does not recognize lisp-local-defaults.
(setq symbol (and (car (car symbol))
(member symbol
(funcall macro
[12400 | 5153.97] loss=1.01 avg=1.10
[12401 | 5154.89] loss=0.91 avg=1.09
[12402 | 5155.81] loss=0.76 avg=1.09
[12403 | 5156.73] loss=0.72 avg=1.09
[12404 | 5157.64] loss=1.00 avg=1.09
[12405 | 5158.56] loss=1.12 avg=1.09
[12406 | 5159.47] loss=1.18 avg=1.09
[12407 | 5160.39] loss=1.69 avg=1.09
[12408 | 5161.30] loss=1.44 avg=1.10
[12409 | 5162.22] loss=1.09 avg=1.10
[12410 | 5163.13] loss=0.82 avg=1.09
[12411 | 5164.04] loss=1.69 avg=1.10
[12412 | 5164.96] loss=1.03 avg=1.10
[12413 | 5165.87] loss=1.04 avg=1.10
[12414 | 5166.79] loss=1.32 avg=1.10
[12415 | 5167.70] loss=1.06 avg=1.10
[12416 | 5168.62] loss=1.53 avg=1.11
[12417 | 5169.54] loss=1.23 avg=1.11
[12418 | 5170.45] loss=1.53 avg=1.11
[12419 | 5171.37] loss=1.45 avg=1.11
[12420 | 5172.28] loss=1.28 avg=1.12
[12421 | 5173.20] loss=1.16 avg=1.12
[12422 | 5174.11] loss=0.57 avg=1.11
[12423 | 5175.03] loss=1.21 avg=1.11
[12424 | 5175.95] loss=1.14 avg=1.11
[12425 | 5176.86] loss=1.04 avg=1.11
[12426 | 5177.78] loss=1.18 avg=1.11
[12427 | 5178.70] loss=1.03 avg=1.11
[12428 | 5179.61] loss=1.17 avg=1.11
[12429 | 5180.53] loss=1.25 avg=1.11
[12430 | 5181.44] loss=0.81 avg=1.11
[12431 | 5182.35] loss=1.12 avg=1.11
[12432 | 5183.27] loss=0.71 avg=1.11
[12433 | 5184.18] loss=0.95 avg=1.10
[12434 | 5185.10] loss=0.92 avg=1.10
[12435 | 5186.02] loss=1.28 avg=1.10
[12436 | 5186.94] loss=1.09 avg=1.10
[12437 | 5187.85] loss=0.87 avg=1.10
[12438 | 5188.77] loss=1.54 avg=1.11
[12439 | 5189.68] loss=1.41 avg=1.11
[12440 | 5190.60] loss=1.13 avg=1.11
[12441 | 5191.51] loss=1.32 avg=1.11
[12442 | 5192.43] loss=0.83 avg=1.11
[12443 | 5193.35] loss=1.40 avg=1.11
[12444 | 5194.27] loss=0.44 avg=1.11
[12445 | 5195.19] loss=1.13 avg=1.11
[12446 | 5196.10] loss=1.11 avg=1.11
[12447 | 5197.02] loss=1.02 avg=1.10
[12448 | 5197.94] loss=1.51 avg=1.11
[12449 | 5198.86] loss=1.08 avg=1.11
[12450 | 5199.78] loss=1.02 avg=1.11
[12451 | 5200.70] loss=1.40 avg=1.11
[12452 | 5201.62] loss=1.24 avg=1.11
[12453 | 5202.53] loss=0.86 avg=1.11
[12454 | 5203.45] loss=0.76 avg=1.11
[12455 | 5204.38] loss=0.81 avg=1.10
[12456 | 5205.29] loss=1.59 avg=1.11
[12457 | 5206.21] loss=1.45 avg=1.11
[12458 | 5207.12] loss=1.15 avg=1.11
[12459 | 5208.04] loss=0.94 avg=1.11
[12460 | 5208.96] loss=1.50 avg=1.11
[12461 | 5209.88] loss=0.96 avg=1.11
[12462 | 5210.80] loss=0.50 avg=1.11
[12463 | 5211.72] loss=1.16 avg=1.11
[12464 | 5212.63] loss=0.55 avg=1.10
[12465 | 5213.56] loss=1.66 avg=1.11
[12466 | 5214.47] loss=0.87 avg=1.10
[12467 | 5215.39] loss=1.59 avg=1.11
[12468 | 5216.31] loss=1.12 avg=1.11
[12469 | 5217.22] loss=1.15 avg=1.11
[12470 | 5218.15] loss=1.27 avg=1.11
[12471 | 5219.07] loss=1.31 avg=1.11
[12472 | 5219.99] loss=1.60 avg=1.12
[12473 | 5220.90] loss=1.45 avg=1.12
[12474 | 5221.82] loss=1.47 avg=1.12
[12475 | 5222.74] loss=0.72 avg=1.12
[12476 | 5223.66] loss=1.03 avg=1.12
[12477 | 5224.58] loss=1.18 avg=1.12
[12478 | 5225.51] loss=0.89 avg=1.12
[12479 | 5226.43] loss=1.03 avg=1.12
[12480 | 5227.35] loss=1.14 avg=1.12
[12481 | 5228.27] loss=0.78 avg=1.11
[12482 | 5229.20] loss=1.15 avg=1.11
[12483 | 5230.12] loss=0.87 avg=1.11
[12484 | 5231.04] loss=1.11 avg=1.11
[12485 | 5231.96] loss=0.92 avg=1.11
[12486 | 5232.88] loss=0.99 avg=1.11
[12487 | 5233.81] loss=1.11 avg=1.11
[12488 | 5234.73] loss=1.28 avg=1.11
[12489 | 5235.65] loss=0.95 avg=1.11
[12490 | 5236.57] loss=1.11 avg=1.11
[12491 | 5237.50] loss=1.20 avg=1.11
[12492 | 5238.42] loss=1.00 avg=1.11
[12493 | 5239.34] loss=0.74 avg=1.11
[12494 | 5240.26] loss=1.18 avg=1.11
[12495 | 5241.18] loss=1.13 avg=1.11
[12496 | 5242.09] loss=1.03 avg=1.11
[12497 | 5243.01] loss=1.38 avg=1.11
[12498 | 5243.93] loss=0.35 avg=1.10
[12499 | 5244.85] loss=0.76 avg=1.10
Generating samples...
======== SAMPLE 1 ========
brow-recompile
(if edev-save-state
(if (< (epg-context-start epg-get-state) 0)
(epg-context-state-get epg-get-state)
(epg-context-state-get epg)))
(progn
(message "Called `save-state' to save state. Save state if it is saved.")
(kill-buffer edev-state-kill-buffer)
(if (epg-context-set-value epg-save-state)
(progn (epg-context-set-value epg-save-state)
(kill-buffer edev-state-kill-buffer))
(epg-context-set-value epg-save-state))))
(kill-buffer edev-state-kill-buffer)
(narrow-to-region epg-select-save-state-nicks))))
(save-excursion
(skip-chars-backward " \r\t")
(skip-chars-forward "^[ \t]*$"))
(if (< (epg-context-start epg-get-state) 0)
(progn
(message "Called `save-state'"))))))
;;;(defun ep-select-save-window (&optional _window nn)
;;; ;; The same trick as above, but to avoid overwriting the list
;;; ;; of the list (which can have multiple windows) using the same
;;; ;; variable.
;;;(put 'select-window 'error (list 'window-error))
(defun ep-select-window-after-kill (&optional _window nn)
(cond
((eq arg 'save-region-p)
(setq nn (1- nn))
(set-window-point nn t)))
(defun ep-select-window-after-save (rest _window _nargs)
(epg-create-frame (get-buffer-create epg-context-frame))
(save-buffer-state (if nn (get-buffer-state (ebnf-get-window-property) nn)))))
(provide 'ebnf)
(defun ep-select-window-after-kill (&optional _buffer _nargs)
`(select-window ,(ebnf-get-window-property
(ebnf--buffer-read-only))))
;; Check that `window-mark' is the correct window:
;; (unless nn (ebnf--window-new-window n))
(cond
(window-new-window
(window-new-minior 0)
(save-window-excursion (set-window-buffer
(ebnf--buffer-read-only))))))
(provide 'ebn-select)
;; Local Variables
;; Generated dynamically.
;;; ep-select.el ends here
<|endoftext|>;;; ep-select.el --- fast edit menu with fast select -*- lexical-
======== SAMPLE 2 ========
brow-definit-text (nth 1 entry))
;; TODO if a single-character text must be included in each
;; line
(or (eobp)
(let ((string (org-element-property :type symbol))
(n (match-beginning 1))
(text (match-string 1 text)))
(org-element-set-body (nth 1 entry))
(org-element-set-object (nth 2 entry))
(when (eq (org-element-type symbol) 'string)
;; Just use text directly after the symbol
(org-element-set-body-property n (nth 3 entry))
(org-element-get-body-property n (1+ n))
(org-at-babel-function nil 'body))
(org-element-get-body-property n))))
(defun org-element-set-object (element element object)
"Set the body of a FORM in ITERATION as a VALUE.
This should be bound as a property list if required."
(let* ((object (org-element-create-property element))
(list nil)
(elt (org-element-property element :elt)))
(org-element-put-body (org-element-property object))
(let ((data (org-element-read-data object))))
(or (org-element-property element)
;; Check whether entry is a value object
(and (string= (org-element-get-body object) object)
(equal data (org-element-get-body-property element))))))
(org-element-property :value :key (:type :after key))))
(cl-defmethod org-element-set-object (element &optional element)
"Create an object object in ELEMENT.
For each element, set the object object body as a property list.
The property list is an associative list of properties.
For this purpose, the first object in the item list is
touched as the body of the property list. The element will have a
property list of properties. For example, the following property
: `org-element-list-item-properties' creates a list of this
property:
`org-element-list-item-properties'
that is inherited by the `org-element'.
`org-element-list-item-properties' is also a list.
For an additional property to be used as the body of the object,
the property list should be an object object, or the
key-binding `org-element' object."
(org-make-item :property :key :after (cl-destructuring-bind (lambda (item) element) :key "key" :after (cl-destructuring-bind item))))))
(provide 'xml/org-element-property)
;; Local variables:
;; generated-autoload-file: "xml/org-element-property.el"
;; End:
;;; xml/org-element-property.el ends here
<|endoftext|>;;; xml/org-extension-generic.el --- XML extension generic generic
;; Copyright (C) 1985-1987, 1994, 2000-2019 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Bill Gillespie <greg@saint.uft.nl>
;; Keywords: extensions, languages
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version
======== SAMPLE 3 ========
brow-revert-in-mode-line" t))
(goto-char (match-beginning 0))
(forward-sexp 1))
(goto-char (match-beginning 0)))
(save-excursion
(beginning-of-line)
(if (match-beginning 1) (forward-sexp 1))
(forward-char 1))))))
(when buffer-file-name
(let ((buf (expand-file-name buf)))
(when (and (file-directory-p buf)
(or (zerop (current-buffer))
(directory-file-name-directory-p buf)))
(setq buf (file-name-as-directory
(directory-file-name-other-directory-p 0))))
(with-current-buffer buf
(let ((buf-file-name-exp-1 t)))
(when buf-file-name-exp-1
(widen)
(setq buf-file-name-exp-1 (+ 1 buf-file-name-exp-1))))
(unless (file-exists-p buf-file-name-exp-1)
(setf (file-extract-name buf-file-name-exp-1) nil)))
(when (null buf-file-name-exp-1)
;; Create a new buffer and create the file.
(when file-name-directory
(save-excursion
(forward-line 1)
(let ((buf (file-exists-p file-name)))
;; Make sure we don't delete the file name!
(dolist (buf-file-name-exp-1 buffer-file-name-name
buf-file-name-exp-1
;; Don't delete the file name!
buffer-file-name-filename
(file-name-directory buf-file-name-exp-1))
(insert (expand-file-name " " buffer-file-name-name-exp-1)))
(goto-char (point-min))
(let ((buf-file-name-exp-1 (file-name-directory
======== SAMPLE 4 ========
brow
(error "No match found in $n")))
(defun gnus-publish-server-string (string server)
"Return the PostScript-style URL as a string STRING (string=string 1?1).
Returns a number of tokens. If STRING has a name (like \"\\S--\"),
the output is a list containing all the regexps and the server string.
If STRING includes \"\\(?:\\)\" or no server, only strings will be generated.
If STRING includes \"\\{nofurn}\\(\\[~?*]?\\w\\)?\\r\", results will be
used instead.
This function assumes that `gnus-publish-server-function' accepts
a non-nil \"/\\(?::\\)\", \"\" and \"\\(~\\\\\\)\" prefixes, and that
gnus-publish-server-function is called
with \[universal-argument] prefix arguments."
(let ((tokens
(substitute-command-keys (string-match "\\$")
gnus-publish-server-string))
(current-prefix-arg nil)
(prefix-suffix ":\\s-" prefix-suffix)
(type (string-match "\\([^@~?~?\\{$~}\\|~\\{$~}$\\}\\)~\\|\\s-*\\)?[~?~?\\{$~}$\\|~\\{$~}%\\)?" nil tokens))
(substitute-command-keys
"\\(?\\{0-9\\}^[-a-zA-Z0-9$]+: \\([0-9]+\\|[0-9]+\\)?"
gnus-publish-server-string subst-format t t
"?([^@~?~?\\{$~}\\|~\\{$~}\\|~\\{$~}\\|~\\{$~}\\|~\\{$~}\\|~\\{$~}%\\)?")))
(defvar gnus-publish-server-string)
(unless gnus-publish-server-string
(let* ((token (substring token 1))))
(when token ;Necessary for `gnus-subscribe' or `gnus-publish-server-function'.
(process-property (process-parameter process (gnus-publish-server-function token))
'gnus-publish-server-string))
(catch :exit
(gnus-publish-server-string "" token))))
(defvar gnus-publish-server-function
(dolist (f gnus-publish-server-string)
(if gnus-publish-server-string-p (gnus-publish-server-function f)))
"Function to be called with a match to a PostScript-style URL.")
;;;###autoload
(defun gnus-publish-server-string (string info-only)
"Return the PostScript-style URL as an expression STRING (string=string STRING).
See also \"/^<text:file>\\(?[0-9]?\\)?\\\\"
(let* ((string (file-name-as-directory (file-name-sans-extension string))
(match-data (or (file-name-nondirectory string)
(if (string-match "^\\s-+$\\(.+?\\)")
[12500 | 5270.39] loss=1.01 avg=1.10
[12501 | 5271.30] loss=1.24 avg=1.10
[12502 | 5272.22] loss=0.96 avg=1.10
[12503 | 5273.14] loss=0.80 avg=1.09
[12504 | 5274.05] loss=1.35 avg=1.10
[12505 | 5274.96] loss=1.15 avg=1.10
[12506 | 5275.87] loss=0.99 avg=1.10
[12507 | 5276.79] loss=0.85 avg=1.09
[12508 | 5277.70] loss=1.26 avg=1.09
[12509 | 5278.62] loss=1.41 avg=1.10
[12510 | 5279.53] loss=1.13 avg=1.10
[12511 | 5280.44] loss=1.04 avg=1.10
[12512 | 5281.36] loss=0.41 avg=1.09
[12513 | 5282.27] loss=1.64 avg=1.10
[12514 | 5283.18] loss=1.17 avg=1.10
[12515 | 5284.09] loss=1.38 avg=1.10
[12516 | 5285.01] loss=1.03 avg=1.10
[12517 | 5285.92] loss=0.51 avg=1.09
[12518 | 5286.83] loss=0.87 avg=1.09
[12519 | 5287.74] loss=0.99 avg=1.09
[12520 | 5288.66] loss=1.18 avg=1.09
[12521 | 5289.57] loss=1.16 avg=1.09
[12522 | 5290.48] loss=1.27 avg=1.09
[12523 | 5291.40] loss=1.26 avg=1.10
[12524 | 5292.32] loss=0.80 avg=1.09
[12525 | 5293.24] loss=0.68 avg=1.09
[12526 | 5294.15] loss=1.38 avg=1.09
[12527 | 5295.07] loss=1.39 avg=1.09
[12528 | 5295.98] loss=0.83 avg=1.09
[12529 | 5296.90] loss=1.14 avg=1.09
[12530 | 5297.82] loss=0.88 avg=1.09
[12531 | 5298.73] loss=0.52 avg=1.08
[12532 | 5299.65] loss=1.11 avg=1.08
[12533 | 5300.57] loss=1.11 avg=1.08
[12534 | 5301.49] loss=1.26 avg=1.09
[12535 | 5302.41] loss=1.04 avg=1.09
[12536 | 5303.32] loss=0.85 avg=1.08
[12537 | 5304.24] loss=1.55 avg=1.09
[12538 | 5305.16] loss=0.93 avg=1.09
[12539 | 5306.07] loss=0.71 avg=1.08
[12540 | 5306.99] loss=0.64 avg=1.08
[12541 | 5307.91] loss=0.77 avg=1.08
[12542 | 5308.83] loss=1.04 avg=1.07
[12543 | 5309.75] loss=0.91 avg=1.07
[12544 | 5310.67] loss=1.21 avg=1.07
[12545 | 5311.58] loss=0.92 avg=1.07
[12546 | 5312.50] loss=1.25 avg=1.07
[12547 | 5313.42] loss=0.88 avg=1.07
[12548 | 5314.35] loss=1.36 avg=1.08
[12549 | 5315.26] loss=0.87 avg=1.07
[12550 | 5316.18] loss=1.03 avg=1.07
[12551 | 5317.10] loss=0.98 avg=1.07
[12552 | 5318.02] loss=0.99 avg=1.07
[12553 | 5318.93] loss=0.98 avg=1.07
[12554 | 5319.85] loss=1.18 avg=1.07
[12555 | 5320.77] loss=1.33 avg=1.07
[12556 | 5321.69] loss=1.73 avg=1.08
[12557 | 5322.61] loss=1.35 avg=1.08
[12558 | 5323.53] loss=1.04 avg=1.08
[12559 | 5324.45] loss=0.77 avg=1.08
[12560 | 5325.37] loss=0.96 avg=1.08
[12561 | 5326.29] loss=0.96 avg=1.08
[12562 | 5327.21] loss=0.73 avg=1.07
[12563 | 5328.13] loss=1.57 avg=1.08
[12564 | 5329.04] loss=1.17 avg=1.08
[12565 | 5329.97] loss=0.89 avg=1.08
[12566 | 5330.88] loss=1.46 avg=1.08
[12567 | 5331.81] loss=0.70 avg=1.08
[12568 | 5332.72] loss=0.68 avg=1.07
[12569 | 5333.64] loss=1.28 avg=1.08
[12570 | 5334.56] loss=0.99 avg=1.08
[12571 | 5335.48] loss=0.97 avg=1.07
[12572 | 5336.40] loss=0.71 avg=1.07
[12573 | 5337.32] loss=0.81 avg=1.07
[12574 | 5338.24] loss=1.18 avg=1.07
[12575 | 5339.17] loss=1.08 avg=1.07
[12576 | 5340.09] loss=1.17 avg=1.07
[12577 | 5341.01] loss=0.69 avg=1.07
[12578 | 5341.93] loss=1.20 avg=1.07
[12579 | 5342.86] loss=1.53 avg=1.07
[12580 | 5343.78] loss=0.94 avg=1.07
[12581 | 5344.71] loss=1.17 avg=1.07
[12582 | 5345.62] loss=1.22 avg=1.07
[12583 | 5346.54] loss=1.12 avg=1.07
[12584 | 5347.46] loss=0.82 avg=1.07
[12585 | 5348.38] loss=1.07 avg=1.07
[12586 | 5349.31] loss=1.16 avg=1.07
[12587 | 5350.23] loss=1.38 avg=1.08
[12588 | 5351.15] loss=0.59 avg=1.07
[12589 | 5352.08] loss=1.07 avg=1.07
[12590 | 5353.00] loss=1.07 avg=1.07
[12591 | 5353.92] loss=1.55 avg=1.08
[12592 | 5354.84] loss=1.12 avg=1.08
[12593 | 5355.77] loss=1.05 avg=1.08
[12594 | 5356.69] loss=1.13 avg=1.08
[12595 | 5357.61] loss=1.11 avg=1.08
[12596 | 5358.53] loss=0.71 avg=1.07
[12597 | 5359.46] loss=0.72 avg=1.07
[12598 | 5360.38] loss=0.93 avg=1.07
[12599 | 5361.30] loss=1.02 avg=1.07
Generating samples...
======== SAMPLE 1 ========
set back the \"+b\" part. With a prefix of "" (or the empty string), only return that part of the symbol.
Called from a `comint-parse-string', if `comint-parse-paren' returns no such item, nil
then return the empty string.
Return the first matching item in the form (or list if empty) of the
argument LIST."
(let ((beg (line-beginning-position 0)))
(if (= beg (point))
(if (eq arg 'match-data)
(progn
(when (> beg (point))
(concat (ash "[[-a-zA-Z ]]+" beg a t)
" " word)
(substring (ash "-" beg start)))))
(org-beg-pos beg 2)
(mapc (lambda (symbol) (list (1- (car symbol)) (list (cdr symbol))))
(cons (and comint-displayable
(comint-parse-symbol :help "Display a token")
(org-babel-displayable-symbol :help "Display a symbol"))
symbol))))
(comint-display-sorted-item-list)))
(defun org-babel-decode-string (&optional delimit)
"Decode a string from Org to Orm."
(org-latex-to-string org-babel-string-escn)
(unless org-babel-decode-regexp-function-name-map
(let* ((comint-string-escn-regexp
(org-latex-to-regexp
;; There are some cases where `org-babel-string-escn-regexp' might
;; fail to identify the regexp in the file. For that
;; reason we don't try to use `org-babel-regexp'.
(org-babel-char-to-regexp
(org-babel-string-to-string org-babel-string-escn))
(org-babel-char-to-regexp (org-babel-char-to-regexp org-babel-string-escn))))
(comint-string (org-get-string-at-eol org-babel-char-to-regexp) delimit))
(org-babel-char-to-regexp org-babel-string-escn))))
(defun org-latex-to-string (string)
"Return the string to decode."
(let ((encoding (org-latex-to-name string))
(lame-string-size 0 0))
(while (string-match-p "@" string)
(setq string (match-string 1 string)))))
(defun org-latex-parse-string-to-prefixed (string)
"Parse the string (if any) that should be used for decoding."
(substitute-in-coding-system
'latex-special-case "@"
string org-babel-string-to-prefixed))
(defun org-latex-
======== SAMPLE 2 ========
set-buffer-modified-p)
(insert ?\n))))
;; Save buffer that should be deleted.
(or (set-buffer-modified-p (get-buffer buffer-modified-p))))
;; Remove the old buffer.
(delete-file file))
(set-buffer-modified-p nil))
;;;###autoload
(defun tmenu-toggle-undo ()
"Toggle undo mode.
Toggle undo on/off via TTY, `mouse-2', C-m or `C-c'
Toggle undo on/off via the TTY keystroke on/off."
(interactive)
(if (get-buffer-process buffer-file-name)
;; We want TTY-style undo to not be called by default.
(tty-mode 0))
(or (tty-mode 0)
(and (tty-mode 1)
(t (t (t (t (current-window))))))))
;;;###autoload
(defun tmenu-toggle-tutorial-undo ()
"Toggle TOUCHDOWN toggle on/off."
(interactive)
;; When a menu item is already t, use it instead.
(let ((t (car nil))) (car t))
(tmenu-toggle-undo t)
(tmenu-toggle-tutorial t)))
;;;###autoload
(defun tmenu-hide-overlay (overlay)
"Toggle undo hidden overlay of overlay.
If OVERLAY is at bottom level and is not an overlay of this list
overlay, toggle its overlay on/off. If at top level and is not an overlay
of this list, undo its overlay (both with and without) on/off."
(setq overlay (cond ((car overlay) (tmenu-toggle-overlay t)))
((eq (car overlay) tmenu-toggle-overlay)
(t (t (t (overlay-to (marker-position overlay) (marker-position t))))))
(setq overlay (cdr overlay)))
(overlay-put overlay 'menu-interface t))
(defun menu-toggle-overlay-tutorial (overlay)
"Toggle undo hidden overlay of overlay.
If OVERLAY is at bottom level and is not an overlay of this list
overlay, toggle's overlay on/off."
(setq overlay (cond ((car overlay) (tmenu-toggle-overlay t)))
(t (t (t (overlay-to (marker-position overlay) (marker-position t))))))
(if (eq (car overlay) tmenu-toggle-overlay-tutorial)
(overlay-put overlay 'menu-interface t))
(overlay-put overlay 'menu-interface t))
;;;###autoload
(defun menu-enable (&optional force-mode)
"Toggle menu with force enabled."
(interactive
(if force-mode
(message "Menu: Force switching...")
(setq menu-enable
(cons (let ((menu-enable-menu-map
(cons (menu-menu-list (get-buffer-create menu-menu-menu-map))))
list)
menu-enable-menu t)))
(if force-mode
(let ((map (cons (get-buffer-create menu-menu-map)
'menu))
(cons (>= (list nil) (mapcar (nth 1 list) menu-menu))))
======== SAMPLE 3 ========
set)
(when (buffer-live-p nntp-server-buffer)
(message-list "You are in Internet-Draft %s"
(buffer-string)
(buffer-string-no-properties
(buffer-substring-no-properties (point)
;; at end of line
" ")))))))
(setq nntp-server-buffer nntp-server-buffer-name)))
;; Check whether this is a draft.
(if (string-match "RFC1345 draft" draft)
(if (memq nstype '(text-property-any))
(match-string 1 draft)
(if (equal "" draft)
(error "Couldn't find draft `%s'" draft)))))
(if (and nntp-draft-list
(or (zerop nntp-draft-list)
(not (zerop nntp-draft-list)))
(nreverse nntp-draft-list))))
(defmacro nntp-keep-draftup (n1 n2 n3)
"Retrieve draft data from all pending NNTP servers.
If there are no pending NNTP servers, `nntp-keep-draft' is
called."
(setq n1 (nconc n2 n1 n2)))
(defvar nntp-draft-list--list ()
"List of items to keep in Draftup buffer.")
(defcustom nntp-keep-draft-buffer-name
(concat "\\([ \t\n]*" draftup-buffer-name)
"Name for a draft buffer to be kept in the draftup buffer.
There is no such name yet; the value defaults to "draftup-buffer".
It is not a list; there are a number of functions to be executed
depending upon this function.)
Note that the default value of the default variable `nntp-draft-list--list'
is:
(setq (cons (if (not nntp-draft-list)
"Draft up")
nntp-draft-list--list)
(concat nntp-draft-list--list)
(
======== SAMPLE 4 ========
set-buffer-process)
(with-temp-buffer
(insert-buffer-substring (point-min) (point-max) "\nPaste")
(goto-char (point-min)))))
(defun edebug-mark-forward (start end)
"Execute point-to-mark at START and END."
(interactive "P")
(let ((n (buffer-substring-no-properties start end))
(n-1 (point))))
(point)))
(defun edebug-set-buffer-format (buffer-name buffer-format)
(if (null buffer-name)
(format "%s %s" (car (car buffer-name)))
(list buffer-format buffer-name))
(if (eq current-prefix-arg 0)
(setq buffer-name buffer-format))
(if (eq current-prefix-arg 1)
;; FIXME: When the second arg is a string, we don't want to use
;; `delete-region' for a delete buffer.
(setq erc-read-region erc-buffer-stop)
buffer-name))
(defun edebug-mark-backward (start end)
"Execute point-to-mark at START and END."
(interactive "P")
(let ((n (buffer-substring-no-properties start end))))
(if (let ((pos (point)) (point)
(pos2 (point-min-pos))
(pos1 (point-min-pos))
(pos2 (point-min-pos))
(pos-1 (point-min-pos)))))
;; The user needs to clear the mark to do it. That is why
;; it's nice to have the prefix arg clear it before we leave the buffer-
;; buffer. (Bug#23100)
(progn
;; Update the user's options and start with the prefix argument. Then
;; revert point. The user is advised to make it clear
;; that this may be the only way to save any current
;; behavior and to make sure it's handled correctly.
(when user-options-changed (setq edebug-mark-backward
edebug-mark-forward (point))))
(with-temp-buffer
t
(let ((end (marker-position end))
(point (point-min)))
(if (eq (preceding-char-property -1) ?\s)
(progn
(indent-region (point) (point-max))
(end-of-line -1))
(setq point
begin (point)))))
(let ((pos (point)) (pos2 (point-min-pos))
;; Find point. This is an attempt to get the previous start
;; if point is within the buffer-paged area.
(pos2 (point-max-pos2))
;; Insert the new start here.
(start (point))
;; Find the position in where point was.
(setq pos (point)))))
(let ((p (point)))
(if point
[12600 | 5386.79] loss=1.04 avg=1.07
[12601 | 5387.71] loss=1.01 avg=1.07
[12602 | 5388.62] loss=1.08 avg=1.07
[12603 | 5389.54] loss=1.23 avg=1.07
[12604 | 5390.45] loss=0.91 avg=1.07
[12605 | 5391.37] loss=1.34 avg=1.07
[12606 | 5392.28] loss=1.07 avg=1.07
[12607 | 5393.20] loss=1.08 avg=1.07
[12608 | 5394.11] loss=1.50 avg=1.07
[12609 | 5395.02] loss=0.93 avg=1.07
[12610 | 5395.93] loss=1.03 avg=1.07
[12611 | 5396.85] loss=1.13 avg=1.07
[12612 | 5397.76] loss=0.79 avg=1.07
[12613 | 5398.67] loss=1.14 avg=1.07
[12614 | 5399.58] loss=0.76 avg=1.07
[12615 | 5400.50] loss=1.29 avg=1.07
[12616 | 5401.41] loss=0.81 avg=1.07
[12617 | 5402.32] loss=1.00 avg=1.07
[12618 | 5403.23] loss=0.83 avg=1.06
[12619 | 5404.15] loss=0.98 avg=1.06
[12620 | 5405.07] loss=1.14 avg=1.06
[12621 | 5405.98] loss=0.83 avg=1.06
[12622 | 5406.89] loss=1.04 avg=1.06
[12623 | 5407.81] loss=0.83 avg=1.06
[12624 | 5408.73] loss=1.21 avg=1.06
[12625 | 5409.65] loss=1.24 avg=1.06
[12626 | 5410.56] loss=0.67 avg=1.06
[12627 | 5411.48] loss=1.36 avg=1.06
[12628 | 5412.39] loss=0.83 avg=1.06
[12629 | 5413.31] loss=1.04 avg=1.06
[12630 | 5414.23] loss=1.17 avg=1.06
[12631 | 5415.15] loss=1.46 avg=1.06
[12632 | 5416.07] loss=1.01 avg=1.06
[12633 | 5416.98] loss=0.82 avg=1.06
[12634 | 5417.90] loss=0.98 avg=1.06
[12635 | 5418.82] loss=0.98 avg=1.06
[12636 | 5419.74] loss=0.88 avg=1.06
[12637 | 5420.66] loss=0.72 avg=1.05
[12638 | 5421.58] loss=1.09 avg=1.05
[12639 | 5422.50] loss=1.10 avg=1.05
[12640 | 5423.42] loss=0.86 avg=1.05
[12641 | 5424.34] loss=0.84 avg=1.05
[12642 | 5425.26] loss=1.58 avg=1.06
[12643 | 5426.18] loss=2.18 avg=1.07
[12644 | 5427.11] loss=1.00 avg=1.07
[12645 | 5428.03] loss=0.70 avg=1.06
[12646 | 5428.95] loss=1.11 avg=1.06
[12647 | 5429.87] loss=1.23 avg=1.07
[12648 | 5430.79] loss=0.85 avg=1.06
[12649 | 5431.71] loss=1.04 avg=1.06
[12650 | 5432.64] loss=1.19 avg=1.06
[12651 | 5433.56] loss=1.35 avg=1.07
[12652 | 5434.48] loss=1.10 avg=1.07
[12653 | 5435.40] loss=0.83 avg=1.06
[12654 | 5436.33] loss=1.45 avg=1.07
[12655 | 5437.25] loss=0.93 avg=1.07
[12656 | 5438.17] loss=1.05 avg=1.07
[12657 | 5439.09] loss=1.32 avg=1.07
[12658 | 5440.01] loss=1.41 avg=1.07
[12659 | 5440.94] loss=0.64 avg=1.07
[12660 | 5441.86] loss=1.24 avg=1.07
[12661 | 5442.79] loss=0.72 avg=1.07
[12662 | 5443.71] loss=1.49 avg=1.07
[12663 | 5444.63] loss=1.18 avg=1.07
[12664 | 5445.56] loss=0.94 avg=1.07
[12665 | 5446.48] loss=1.02 avg=1.07
[12666 | 5447.40] loss=0.69 avg=1.07
[12667 | 5448.32] loss=1.37 avg=1.07
[12668 | 5449.25] loss=0.56 avg=1.06
[12669 | 5450.17] loss=0.77 avg=1.06
[12670 | 5451.09] loss=0.44 avg=1.06
[12671 | 5452.01] loss=1.40 avg=1.06
[12672 | 5452.93] loss=0.90 avg=1.06
[12673 | 5453.86] loss=0.87 avg=1.06
[12674 | 5454.78] loss=0.96 avg=1.05
[12675 | 5455.70] loss=1.37 avg=1.06
[12676 | 5456.63] loss=0.86 avg=1.06
[12677 | 5457.55] loss=0.94 avg=1.05
[12678 | 5458.47] loss=0.86 avg=1.05
[12679 | 5459.39] loss=1.10 avg=1.05
[12680 | 5460.32] loss=1.15 avg=1.05
[12681 | 5461.24] loss=0.82 avg=1.05
[12682 | 5462.16] loss=1.20 avg=1.05
[12683 | 5463.08] loss=1.01 avg=1.05
[12684 | 5464.01] loss=0.81 avg=1.05
[12685 | 5464.93] loss=1.77 avg=1.06
[12686 | 5465.85] loss=0.97 avg=1.06
[12687 | 5466.77] loss=1.00 avg=1.06
[12688 | 5467.69] loss=0.84 avg=1.05
[12689 | 5468.61] loss=1.14 avg=1.05
[12690 | 5469.54] loss=1.21 avg=1.06
[12691 | 5470.46] loss=0.82 avg=1.05
[12692 | 5471.38] loss=1.22 avg=1.06
[12693 | 5472.30] loss=0.86 avg=1.05
[12694 | 5473.23] loss=1.22 avg=1.06
[12695 | 5474.15] loss=1.23 avg=1.06
[12696 | 5475.07] loss=1.24 avg=1.06
[12697 | 5475.99] loss=0.90 avg=1.06
[12698 | 5476.92] loss=1.22 avg=1.06
[12699 | 5477.84] loss=1.54 avg=1.06
Generating samples...
======== SAMPLE 1 ========
gnus-newsgroup-prefixed-header-color)
((eq major-mode 'gnus-newsgroup-mode)
(setq gnus-group-highlight-enabled t))
(;; On gnus-newsgroups-mode-hook, the next two lines
will cause the user to be prompted for a regexp to use.
(setq gnus-newsgroup-mode-message nil)
(setq gnus-newsgroup-current-re t)))
((string= nntp-current-command-line "<")
(setq nntp-current-command-line "")
(setq nntp-current-newsgroup nil))
((setq nntp-current-command-line "")
(setq gnus-newsgroup-set-last-command nntp-current-newsgroup-command-line))))
((setq nntp-current-newsgroup nil))
(t (gnus-message 6 "Message %s in %s area is: " nntp-message t)))
(t (gnus-message 6 "Message %s in %s area is: " nntp-message t)))
"The current message format."
(set-buffer nntp-buffer)
nil))
(defun gnus-group-highlight-mode ()
"Highlight the message in the current group."
(interactive)
(save-excursion
(let* ((gnus-newsgroup-header-color (gnus-group-highlight-message-header-color)))
(mapcar
(lambda (header)
(set-text-properties (symbol-name header)
(symbol-name (car (cadr mt)))
(cl-mapcar 'gnus-newsgroup-highlight-marker
(symbol-name (cadr mt)))
headers))
gnus-newsgroup-highlight-message-header-color) (gnus-newsgroup-highlight-message headers)
gnus-newsgroup-highlight-message-header-color headers))
(gnus-group-highlight-mode 1)
((or (eq major-mode 'gnus-newsgroup-mode-mode)
(and
(and (eq major-mode 'gnus-newsgroup-mode-mode)
,gnus-newsgroup-highlight-message-headers))
(gnus-group-highlight-mode 1)
(or
(or
(if (car (cadr mt))
(car (cadr mt))
(cl-cadadr mt)))
======== SAMPLE 2 ========
(when (not (eolp))
(insert ?\
"
" [<] ")
"\
\
\
\
\
\
"
" ?\
" [<] " ; to be inserted
[\n] " ; to be inserted
" " ; to be inserted
"\
\(\\|[*]\\{1:[<<>]*|\\|[<>]*|\\|[<>]*)\\)
\\{\\<{1:[<>>]*\\>\\)?"
"\
\ [\N] " " ; to be inserted
"[0-9A-ZA-Z_]\n")
(gpr-with-local-map '(eol 'word) (eol 'start) begp beg))
(pow p2))
(while (pow p0)
(let (p)
(while (and (zerop (marker-position begp))
(setq p (point)))
(goto-char (car p))
(forward-line)
(setq begp (point-marker))
(while (not (eolp))
(insert ?\
"
[<][<>]: ")
"\n")
(skip-chars-forward "\n")
(while (not (eolp))
(insert ?
"
" " " ; to be inserted
" " ; to be inserted
"\n\
\
[<<>]*\n " [[:_] "] " .=
"
" " ?\
\
[<>]\n "
======== SAMPLE 3 ========
'font-lock-variable-name))
(defmacro cl-parse-ignore-case-properties (spec beg end)
"Return non-nil when `set-font-lock-case-properties' does not include a case-sensitive
element. It returns t if `font-lock-case-properties' should also include this
element. Only nil when `font-lock-case-properties' includes `font-lock-case-property'.
\\{cl-parse-info}
\\{cl-bar-info}\n
" (length spec)
"Hexadecimal case property list to highlight."
(cl-find-property beg end 'ignore-case-value)
;; Use t-valued for non-matching
:group 'cl-cl-info
`(if ,cl-cased-case . ,(if ,cl-case . ,(lambda ,(match ,spec) ,spec))))
`(if ,if' . ,(lambda ,(match ,spec))))
(defstruct brace-start-re
(brace-start brace-end brace-start)
beg end)
;; Use rsh-ignore-case instead of `ignore' or `ignore-case'
`(let ((case-conversion-table-list t)
,@(save-excursion (dolist (def nil #'(:set . ,(cons nil :set)))
`(ignore . ,@(append ,def)))))
(brace-start-re (save-excursion (dolist (def nil #'(:restore . ,(propertize ,@(cons ,def) . ,@(cons ,def))))))))
,@(dolist (case-if-not (case ,cl-case ,@(cadr ,@(cadr-if-not-case))))))
.@(append ,cl-case . ,@(cadr-if-not )))
(defmacro cl-do-case-overlay (spec &rest body)
"Provide a context to `cl-case-overlay'.
This defines the cl--case-overlay body."
`(defcustom cl--case-overlay t
,@body)
,@(defvar cl--case-overlay #'cl-case-overlay
'(set ,prolog . ,(cadr ,cl--case-overlay)))))
(defmacro cl-do-case-keyword (macro symbol &rest body)
"Provide a context to `cl-case-keyword'.
This defines the cl--case-keyword body."
`(pragma cl--case-keyword scala-case-define-function cl--case-keyword)
,@(cl--case-keyword (lambda ,macro))))
(defmacro cl-do-case-macro (macro symbol &rest body)
"Provide a context to `cl-case-macro'."
`(let ((case-or-fold nil)
(prolog (lambda ,macro)
,@body)
(cl-do-case ,macro ,@body))
`(progn ,cl-case . ,@(lambda , (assoc ,prolog ,cl--case-macro))
(if ,prolog ,cl-case . ,(regexp-quote ,cl--case-case))
(cadr ,cl--case-def)))
;;
:set
;; `cl-do-prepend-prefix-list' `(cl-do-prepend
======== SAMPLE 4 ========
:type '(choice (const nil)
(sexp :tag "String of strings")
:value nil)
:group 'string-lessp)
\[defconst string-equal-formats
:type '(choice (const :tag "^[ \t]*"
:value nil)
:group 'string-lessp))
\[defunion string-width
:type '(choice (const nil)
(string :tag "String length for %s")
:group 'string-lessp)
\[defcustom string-width-string
:version "22.5")
"The width of a string width string."
:initialize `string-width-list'
:set 'equal-p-all
:risky t
:use 'equal-p-any
:initialize-hooks
:version "22.1")
\[defconst string-width-map
:type '(repeat (cons :tag "Other widths" :value (:tag "String"))))
\[defconst string-x-width-map
:type '(repeat (cons :tag "x-width" :value (:tag "Default X-width"))))
\[defconst string-x-height-map
:type '(repeat (cons :tag "X-height" :value (:tag "Default X-height"))))
\[defconst string-width-map
:type '(repeat (cons :tag "X-width" :value (:tag "Width"))))
\[defconst string-width-map
:type '(repeat (cons :tag "X-width" :value (:tag "Gestalt"))))
\[defcustom string-width-map
:version "22.1")
\[defvar string-width-map
:version "22.1")
\[eval `string-width-matching-string' nil t]
\[defconst string-width-matching-string
:type '(repeat (cons :tag "Match text" :tag "None"))))
\[defconst string-width-matching-regexp
:version "22.1")
\[defconst string-width-matching-regexp :version "22.1")
\[defconst string-width-matching-regexp (intern)
(cons ?@ regexp))
\[defconst string-width-matching-regexp
:type '(repeat (cons :tag "Regexp" :tag "stringwidth")))
\[defconst string-width-matching-regexp
:type '(repeat (cons :tag "Match text" :tag "None")))
* string-width-matching-regexp:
(defcustom string-width-matching-regexp
(concat "\\(\\(" ?\n)\\)?"
"[#t\"]\\(\\[?\t\\]+\\)?\\([a-zA-Z]+\\)[#t\n']+\\)"
nil nil
"[#t\n']+\\([a-zA-Z]+\\)[#t\n']+")
"Regular expression matching the width and height of elements in string-width-map.
Note that this regexp is used to match the text in the first element in string-width-map.
The length of the initial matched text and the number of elements in the map will
be normalized to the value of (float) string-width-matching-regexp."
:type '(repeat :tag "Regular expression matching length to string-width-map"
[12700 | 5503.38] loss=0.95 avg=1.06
[12701 | 5504.29] loss=0.69 avg=1.06
[12702 | 5505.21] loss=1.32 avg=1.06
[12703 | 5506.12] loss=1.11 avg=1.06
[12704 | 5507.03] loss=1.23 avg=1.06
[12705 | 5507.94] loss=1.04 avg=1.06
[12706 | 5508.86] loss=1.23 avg=1.07
[12707 | 5509.78] loss=0.89 avg=1.06
[12708 | 5510.69] loss=0.99 avg=1.06
[12709 | 5511.60] loss=0.64 avg=1.06
[12710 | 5512.51] loss=1.13 avg=1.06
[12711 | 5513.42] loss=1.10 avg=1.06
[12712 | 5514.34] loss=1.17 avg=1.06
[12713 | 5515.25] loss=1.03 avg=1.06
[12714 | 5516.16] loss=1.09 avg=1.06
[12715 | 5517.08] loss=1.74 avg=1.07
[12716 | 5517.99] loss=1.38 avg=1.07
[12717 | 5518.90] loss=1.04 avg=1.07
[12718 | 5519.81] loss=0.65 avg=1.07
[12719 | 5520.73] loss=1.13 avg=1.07
[12720 | 5521.64] loss=1.20 avg=1.07
[12721 | 5522.56] loss=0.97 avg=1.07
[12722 | 5523.47] loss=0.91 avg=1.07
[12723 | 5524.39] loss=0.82 avg=1.06
[12724 | 5525.31] loss=1.26 avg=1.07
[12725 | 5526.23] loss=1.31 avg=1.07
[12726 | 5527.14] loss=0.94 avg=1.07
[12727 | 5528.06] loss=1.54 avg=1.07
[12728 | 5528.98] loss=0.98 avg=1.07
[12729 | 5529.90] loss=1.26 avg=1.07
[12730 | 5530.81] loss=1.09 avg=1.07
[12731 | 5531.73] loss=0.68 avg=1.07
[12732 | 5532.65] loss=0.96 avg=1.07
[12733 | 5533.57] loss=0.92 avg=1.07
[12734 | 5534.49] loss=0.76 avg=1.06
[12735 | 5535.41] loss=1.50 avg=1.07
[12736 | 5536.32] loss=0.80 avg=1.06
[12737 | 5537.24] loss=1.44 avg=1.07
[12738 | 5538.16] loss=0.90 avg=1.07
[12739 | 5539.08] loss=0.89 avg=1.06
[12740 | 5539.99] loss=1.39 avg=1.07
[12741 | 5540.92] loss=0.99 avg=1.07
[12742 | 5541.84] loss=1.22 avg=1.07
[12743 | 5542.75] loss=0.81 avg=1.07
[12744 | 5543.67] loss=1.12 avg=1.07
[12745 | 5544.59] loss=1.15 avg=1.07
[12746 | 5545.51] loss=1.02 avg=1.07
[12747 | 5546.43] loss=1.33 avg=1.07
[12748 | 5547.35] loss=0.95 avg=1.07
[12749 | 5548.27] loss=1.35 avg=1.07
[12750 | 5549.19] loss=0.92 avg=1.07
[12751 | 5550.12] loss=1.05 avg=1.07
[12752 | 5551.04] loss=0.67 avg=1.07
[12753 | 5551.96] loss=1.11 avg=1.07
[12754 | 5552.88] loss=1.11 avg=1.07
[12755 | 5553.81] loss=0.58 avg=1.06
[12756 | 5554.72] loss=0.88 avg=1.06
[12757 | 5555.64] loss=1.37 avg=1.06
[12758 | 5556.56] loss=1.35 avg=1.07
[12759 | 5557.49] loss=0.90 avg=1.06
[12760 | 5558.41] loss=0.79 avg=1.06
[12761 | 5559.33] loss=1.47 avg=1.07
[12762 | 5560.25] loss=0.99 avg=1.06
[12763 | 5561.17] loss=0.97 avg=1.06
[12764 | 5562.09] loss=0.88 avg=1.06
[12765 | 5563.01] loss=0.61 avg=1.06
[12766 | 5563.94] loss=1.28 avg=1.06
[12767 | 5564.86] loss=1.12 avg=1.06
[12768 | 5565.78] loss=0.69 avg=1.06
[12769 | 5566.70] loss=1.30 avg=1.06
[12770 | 5567.62] loss=1.62 avg=1.06
[12771 | 5568.55] loss=1.33 avg=1.07
[12772 | 5569.46] loss=1.13 avg=1.07
[12773 | 5570.39] loss=1.34 avg=1.07
[12774 | 5571.31] loss=1.34 avg=1.07
[12775 | 5572.23] loss=0.86 avg=1.07
[12776 | 5573.15] loss=1.05 avg=1.07
[12777 | 5574.07] loss=0.79 avg=1.07
[12778 | 5574.99] loss=0.89 avg=1.07
[12779 | 5575.91] loss=0.90 avg=1.06
[12780 | 5576.84] loss=1.13 avg=1.07
[12781 | 5577.76] loss=1.03 avg=1.06
[12782 | 5578.68] loss=1.16 avg=1.07
[12783 | 5579.60] loss=0.94 avg=1.06
[12784 | 5580.52] loss=1.15 avg=1.07
[12785 | 5581.44] loss=1.46 avg=1.07
[12786 | 5582.36] loss=0.89 avg=1.07
[12787 | 5583.28] loss=0.78 avg=1.06
[12788 | 5584.21] loss=1.47 avg=1.07
[12789 | 5585.12] loss=0.86 avg=1.07
[12790 | 5586.05] loss=1.10 avg=1.07
[12791 | 5586.97] loss=0.94 avg=1.07
[12792 | 5587.89] loss=0.83 avg=1.06
[12793 | 5588.81] loss=0.88 avg=1.06
[12794 | 5589.73] loss=1.03 avg=1.06
[12795 | 5590.65] loss=1.23 avg=1.06
[12796 | 5591.58] loss=0.88 avg=1.06
[12797 | 5592.50] loss=1.19 avg=1.06
[12798 | 5593.42] loss=2.17 avg=1.07
[12799 | 5594.34] loss=1.24 avg=1.08
Generating samples...
======== SAMPLE 1 ========
:
"Name of the document's body."
(semantic-set-variable semantic-name-format (aref semantic-header-names
'body)))
;;;_ (semantic-set-variable semantic-name-format (aref semantic-header-names
'body)
(semantic-type-name-string)))
;;;_ `semantic-body-format' ;; `semantic-type-name-format'.
;; In a context where it could be a type
;; or a name with a name
(semantic-set-variable semantic-text-format (semantic-type-name-string)))
;; We have to convert the `semantic-body-format' value
;; into a type.
;;
;; The value used by this function is the form
;; (VAR . FUNC). . . . . PARAMETER . COOKIE)
;; that returns (VAR . FUNCTION), and if FUNCTION is nil
;; the value of the variable in the body
;; (VAR . FUNC). . . . . . PARAMETER). . COOKIE,
;; if any.
;;;_ ; (semantic-get-text-property)
;; ; (semantic-set-variable semantic-body-format (semantic-text-property
;; 'body)
(semantic-set-variable semantic-text-format (semantic-text-property)))
(defun semantic-body-format (start end val)
"Return the body format of the current buffer.
If VAR is negative, `semantic-body-format' will be applied as a value
of `semantic-body-format-format'. The type will be a string.
If VAR is a `string', an optional (ARCHIVE . ARCHIVE-REASON) value
for this variable is returned."
(semantic-set-variable semantic-body-format)
(let ((result nil))
(or (null result)
(error "The style string %s is not currently accepted (%s)"
(numberp start val))
(semantic-body-format-string (numberp start)))))
(defvar-local semantic-var-key-name
(semantic-format-find-name (key-type))
"String to be inserted at the body of the document.
The value is taken from `semantic-body-format-find-name', which takes the
key value of such a keyword."
(if (looking-at "[^>]+\":))
(semantic-format-make-value (semantic-text-property))
;; Remove trailing whitespace.
(if (looking-at "[-+?-=]") (format-warning "\n")
(if (looking-at "[<>#]>") "[<>#]>")
(format-warning "Unknown value to set in the body of a document: %s"
======== SAMPLE 2 ========
: [
(concat (buffer-name (cddr e)
e))
nil
"")))
; this is for e in al
; (e in al
(car e))
; al is al
; al = al
; el in el
;
; el = el
; el = el
; el.
; el.
======== SAMPLE 3 ========
: 2)
(table-insert-column 1 1) 2)
(table-insert-column 2 2)
(table-insert-column 1 2)))))
(setpt-left 0)
(set-char-property 0 0 (1+ (point))))
;; Don't insert a list of char-properties at the end of
;; the current line or in a region where they're not
;; set up.
(t (insert "\n")
(set-char-table nil nil nil
\n)))
;; Insert the region if necessary.
(t
(setq-local indent-string nil))
((looking-at "\n")
(delete-region (point) (1+ (point)))))
(skip-chars-forward " \t")
;; Use all whitespace.
(cond
((null tab-width)
(insert-region-and-branch (1+ tab-width))
(insert-char))
((null indent-string)
(insert-char))
(t
(delete-region indent-string (point))))))))
;; Insert a list of char charset, but no indent.
(let ((table-indent (table-to-string indent-string))
(t
(setq t nil))
(while tables (setq indent-string (make-string tab-width indent-string)))
(let ((list '(t bold
t \n \u \t .2 ; 0 indent
t c \r\v t indent-string)))))
(table-remove-characters nil)
t)))))
;;;###autoload
(defun tab (list)
"Tab a sequence of characters from TABLE.
FORMAT-TYPE is the format string `tab-width',
default is \"tab\". FUNCTION is the result function, which is called
and used to update the column boundaries. COUNT is a
number of columns. A positive count
======== SAMPLE 4 ========
: * (if (memq (car kv) '( ?x ?x ?x ))
;; this could be something
(concat (char-after)
1 (if (stringp kv) '(?x ?x))))))))))))))
(defun wisent-forward (&optional arg)
;; Back up if there is no space on the screen after this command.
(when (> arg 1)
(progn
(if (not (eq (char-after (point-min)) ?\n))
(forward-char))
(if (and (eq arg ?\n)
(> 0 arg)
(looking-at "\n")
(throw 'end-of-line))
(if (not (= arg ?+))))
(if (< arg 0)
nil
(list (if (> arg ?\n)
(subst-char-in-region (point-at-bol) (point-at-eol)))
nil
(setq arg (1+ arg)))
(while (> arg 0)
(unless (> arg ?\#)
;; We have a text boundary in this line.
(goto-char (point-at-bol) (point-at-eol))))
(when (not (eq arg ?\%)
(looking-at "\\$")
(if (eq arg ?\()
(throw 'end-of-line))
nil)))
(setq
(or arg (setq arg (list "\\\\")))
(save-excursion
(wisent-forward))
(goto-char (point-min))
(when (< arg ?\#)
(goto-char (point-at-bol))
;; Move point there is no space
(goto-char (point-max))
(throw 'end-of-line))
(if (> arg ?\#) ; This line isn't in line
;; Line should be in indentation style.
[12800 | 5619.86] loss=1.16 avg=1.08
[12801 | 5620.78] loss=1.07 avg=1.08
[12802 | 5621.70] loss=1.13 avg=1.08
[12803 | 5622.61] loss=0.76 avg=1.07
[12804 | 5623.53] loss=1.04 avg=1.07
[12805 | 5624.44] loss=0.87 avg=1.07
[12806 | 5625.36] loss=1.40 avg=1.07
[12807 | 5626.28] loss=1.18 avg=1.08
[12808 | 5627.20] loss=0.60 avg=1.07
[12809 | 5628.11] loss=1.10 avg=1.07
[12810 | 5629.03] loss=0.98 avg=1.07
[12811 | 5629.94] loss=0.84 avg=1.07
[12812 | 5630.86] loss=1.57 avg=1.07
[12813 | 5631.77] loss=1.03 avg=1.07
[12814 | 5632.69] loss=1.12 avg=1.07
[12815 | 5633.60] loss=0.43 avg=1.07
[12816 | 5634.52] loss=0.86 avg=1.06
[12817 | 5635.44] loss=1.19 avg=1.07
[12818 | 5636.35] loss=0.82 avg=1.06
[12819 | 5637.26] loss=1.18 avg=1.06
[12820 | 5638.18] loss=1.06 avg=1.06
[12821 | 5639.09] loss=1.25 avg=1.07
[12822 | 5640.01] loss=1.06 avg=1.07
[12823 | 5640.93] loss=1.38 avg=1.07
[12824 | 5641.85] loss=1.17 avg=1.07
[12825 | 5642.76] loss=1.14 avg=1.07
[12826 | 5643.68] loss=1.21 avg=1.07
[12827 | 5644.59] loss=1.16 avg=1.07
[12828 | 5645.50] loss=0.68 avg=1.07
[12829 | 5646.42] loss=0.96 avg=1.07
[12830 | 5647.33] loss=0.89 avg=1.07
[12831 | 5648.25] loss=1.21 avg=1.07
[12832 | 5649.17] loss=1.38 avg=1.07
[12833 | 5650.08] loss=1.07 avg=1.07
[12834 | 5651.00] loss=1.01 avg=1.07
[12835 | 5651.92] loss=1.97 avg=1.08
[12836 | 5652.84] loss=0.89 avg=1.08
[12837 | 5653.76] loss=1.52 avg=1.08
[12838 | 5654.67] loss=1.68 avg=1.09
[12839 | 5655.59] loss=0.61 avg=1.08
[12840 | 5656.51] loss=1.24 avg=1.08
[12841 | 5657.43] loss=1.31 avg=1.09
[12842 | 5658.35] loss=1.16 avg=1.09
[12843 | 5659.26] loss=1.04 avg=1.09
[12844 | 5660.18] loss=0.98 avg=1.09
[12845 | 5661.10] loss=1.12 avg=1.09
[12846 | 5662.03] loss=1.22 avg=1.09
[12847 | 5662.95] loss=0.97 avg=1.09
[12848 | 5663.87] loss=1.30 avg=1.09
[12849 | 5664.79] loss=1.77 avg=1.10
[12850 | 5665.70] loss=0.59 avg=1.09
[12851 | 5666.62] loss=1.22 avg=1.09
[12852 | 5667.54] loss=0.96 avg=1.09
[12853 | 5668.47] loss=1.24 avg=1.09
[12854 | 5669.39] loss=1.16 avg=1.09
[12855 | 5670.31] loss=1.16 avg=1.09
[12856 | 5671.23] loss=0.61 avg=1.09
[12857 | 5672.15] loss=1.60 avg=1.09
[12858 | 5673.07] loss=0.95 avg=1.09
[12859 | 5673.99] loss=0.77 avg=1.09
[12860 | 5674.92] loss=1.70 avg=1.10
[12861 | 5675.84] loss=1.27 avg=1.10
[12862 | 5676.76] loss=1.41 avg=1.10
[12863 | 5677.68] loss=1.20 avg=1.10
[12864 | 5678.60] loss=0.84 avg=1.10
[12865 | 5679.53] loss=0.80 avg=1.10
[12866 | 5680.45] loss=0.63 avg=1.09
[12867 | 5681.37] loss=1.30 avg=1.09
[12868 | 5682.30] loss=1.02 avg=1.09
[12869 | 5683.22] loss=1.13 avg=1.09
[12870 | 5684.14] loss=1.19 avg=1.09
[12871 | 5685.06] loss=0.81 avg=1.09
[12872 | 5685.98] loss=1.33 avg=1.09
[12873 | 5686.91] loss=0.80 avg=1.09
[12874 | 5687.83] loss=1.01 avg=1.09
[12875 | 5688.75] loss=0.83 avg=1.09
[12876 | 5689.68] loss=1.50 avg=1.09
[12877 | 5690.60] loss=1.62 avg=1.10
[12878 | 5691.52] loss=1.04 avg=1.10
[12879 | 5692.44] loss=1.08 avg=1.10
[12880 | 5693.36] loss=0.98 avg=1.09
[12881 | 5694.28] loss=0.82 avg=1.09
[12882 | 5695.20] loss=0.55 avg=1.09
[12883 | 5696.12] loss=1.07 avg=1.09
[12884 | 5697.05] loss=1.68 avg=1.09
[12885 | 5697.97] loss=0.83 avg=1.09
[12886 | 5698.89] loss=0.90 avg=1.09
[12887 | 5699.81] loss=1.06 avg=1.09
[12888 | 5700.73] loss=1.21 avg=1.09
[12889 | 5701.65] loss=1.20 avg=1.09
[12890 | 5702.57] loss=1.50 avg=1.09
[12891 | 5703.50] loss=1.82 avg=1.10
[12892 | 5704.42] loss=0.76 avg=1.10
[12893 | 5705.34] loss=0.72 avg=1.09
[12894 | 5706.26] loss=1.29 avg=1.10
[12895 | 5707.18] loss=1.06 avg=1.10
[12896 | 5708.10] loss=0.88 avg=1.09
[12897 | 5709.03] loss=1.43 avg=1.10
[12898 | 5709.95] loss=1.31 avg=1.10
[12899 | 5710.87] loss=0.69 avg=1.09
Generating samples...
======== SAMPLE 1 ========
(unless (integerp pdata)
(and (integerp cdata)
(integerp pdata)
(zerop cdata)))
((listp idx)
;; FIXME: Should we set a special idx
;; on the result to an ID-SYM list or do this
;; with no extra data?
idx)))))
(apply #'customize-customize-custom-p
#'customize-customize ((and idx (integerp idx) (integerp cdata)
(integerp pdata)))))
;;: A list of symbols. All of them are valid names, as long
;; but the names are not bound to elements of strings. When they are
;; bound, only return names, and not structures, except in
;; case `listp-idx' is non-nil, which is true when a name
;; symbol must be `x' and names are `x'.
(defun listp-default-idx (args)
(listp-idx 'listp (listp-type x)))
;; - If a list item was defined for a `list' or `listp',
;; `listp-listp-listp' creates the first element of that list pair and
;; `listp-listp-listp' moves to that element.
;; The function `listp-listp-listp' can have two arguments: one is a symbol
;; name and another is a list element. The first element has to be a symbol that would
;; be used instead of a list element, and the second element is a
;; list element.
(defun listp-default-get-list (s1 &optional x)
(listp-listp-list-listp-list (or x
(listp-types 'listp 'listp))
(listp-types 'listp-list-listp))))
;; - For a list in a buffer, `listp-alist' is used to construct
;; the list, when not an element of list.
(defun listp-listp-listp-list '(listp x)
(listp-listp-listp-list x nil nil t)
(listp-alist (listp-listp t (listp-names 'listp-listp x)))
(listp-listp-listp-list-list (listp-lists 'listp-listp x))
(listp-listp-listp-list-list (listp-lists 'listp-list p)))
;;: A list in a file.
(defun listp-listitem-open (x)
(save-excursion
(if (and x (or (save-excursion (listp-list itemp-
======== SAMPLE 2 ========
'nolist (c-list-tables itemlist)
(t 'nesting "")
:set keyword (nolist (c-list-tables itemlist)
(cons 'tag tags t)
(cons 'parent
'(nil nil)))))
'nolist (delq nil '(nil nil c-list-traits)))
(make-coding-system (or coding-system 'utf-8))
(unless coding-system 'utf-8 nil 'coding-system))
;; Allow `nreverse'.
(unless 'last-flag
(error "Do not allow C=N %S" t)))
(if last-flag (setq last-flag 'nreverse)))
(if coding-system 'utf-8 nil 'coding-system)))
(if last-flag 'nreverse)))))))
;; FIXME: This would look strange if the code we're working on didn't work!
((and coding-system 'utf-8) ;; C=P. Theoretically, coding-system should have a different
;; design. I've tried to find a good one, but none of the
;; implementations I've seen has been implemented very well.
;; I'd definitely like to see these be fixed.
;; This one just makes the code work on an 8-bit computer
;; that has C=P. The coding system seems to have had a different
;; design. I could go further and say there might be a
;; bug where there's a code that's very complex; perhaps the c/o/c
;; was coded differently.
(setq nolist nil)
(setq coding-system 'C+N
coding-system 'coding-system
coding-system 'coding-system)))
((and coding-system 'cnt-v ;; C-\\=C-? "C=P" would be better (nolist (c)
coding-system 'cnt-case 'cnt-case
======== SAMPLE 3 ========
(setq p (point)))
(let* ((x (list :before
:after ;; `p', `j', `v', `c', 'c-c'), `o'
(?\{
(?\\ (* 3 4) (* 8)))
(?^ (* 9) (* 10)))
(?\? ^ (* 11)))
(if (and (>= p x) (>= j x))
(let ((f (setq x (1+ x)))))
;; Now start to check each line in the same column.
(setcdr (nthcdr 3 f)
(if (cdr l1)
;; If the column is unchanged, then we
;; have found all the columns that
;; should be new. If so, then we look
;; for the columns that have already
;; been found.
(nth 4 f))
(cons (cdr l1) (nth 9 f)))))
;; Find new columns.
(goto-char (nth 2 f))
(if p
(if (>= (or (cdr l1) (nth 1 f)) (nth 2 f)))
p
(if (cdr l1)
(goto-char (* 2 (length f)))
(if (= (count-lines (nth 1 (downcase (car l1)) (nth 1 (car l1))))
p))
f)))))))
;; Find the starting positions of the columns before.
(setq x (1+ x))))
(if (setq f (cdr-safe g) (cdr l))
;; Now insert a new line, otherwise just insert a new line.
(if (or (nth 2 f) (nth 3 f))
(cons (cdr l1) (nth 9 f))
(setq f t t nil))
======== SAMPLE 4 ========
(unless (consp x) (funcall
x))
(error "%s is not a function" error)))
(cdr x)))
(push (cons 'function (copy-sequence x))))
(or (integerp x)
(error "")))
(prin1 x '(nil nil nil nil) :help "Compile X"))
(lambda (x y)
(setq x (cdr x))
(setq y (cdr x)))
(prin1 x '(nil nil nil nil 'lambda y)))
(and (integerp x)
(equal (file-name-sans-extension x 'file-attributes) (length x)))
(or (integerp y)
(error "")))
(pcase x:
((file-name-extension x 'file-attributes)
v)
((file-name-extension y 'file-attributes)
v)
((file-name-extension ov 'file-attributes)
v)
(t v)
(t v))))
(defun file-attributes-extend (file-name)
"Extend attributes using file-name."
(interactive (plist-get file-name :test #'equal))
(let ((attributes :test #'equal)))
(or (plist-get file-name :test)
(or (file-name-sans-extension file-name)
(or (file-name-extension ov file-name)
(file-name-extension ov ov))))))
(defvar file-name "")
(defvar file-name-extra-attributes
'("".format
(file-name-extension file-name)))
(defun file-name-extend (x)
(condition-case nil
(dolist (name attributes)
(let* ((v (file-name-extension name)))
(if (assoc v (cons (file-name-extension x) attributes)))
(if (or (not (nth 1 x))
(not v)))
(setcdr v (cdr name)))
(cdr x)
(nth 3 x)))))
(file-error x (message "File is not an X-Romex")))
(or (plist-get x 'file-attributes)
(if (not (file-name-sans-extension file-name))
(error "%s is not an absolute file-name" x))))
(or (plist-get x 'file-attributes)
(error "%s is not an absolute file-name" x)))
(or (plist-get x 'file-attribute-extensions t)
(error "%s = x %s" x))))
(defun file-file-attributes-extend (file-name-extra-attributes)
(interactive)
(if (file-name-extension file-name)
[12900 | 5736.47] loss=1.40 avg=1.10
[12901 | 5737.38] loss=0.83 avg=1.10
[12902 | 5738.29] loss=0.81 avg=1.09
[12903 | 5739.21] loss=1.08 avg=1.09
[12904 | 5740.13] loss=0.95 avg=1.09
[12905 | 5741.04] loss=0.91 avg=1.09
[12906 | 5741.96] loss=1.07 avg=1.09
[12907 | 5742.87] loss=1.00 avg=1.09
[12908 | 5743.78] loss=1.01 avg=1.09
[12909 | 5744.69] loss=0.81 avg=1.08
[12910 | 5745.61] loss=0.92 avg=1.08
[12911 | 5746.52] loss=1.10 avg=1.08
[12912 | 5747.43] loss=0.82 avg=1.08
[12913 | 5748.35] loss=1.80 avg=1.09
[12914 | 5749.26] loss=1.43 avg=1.09
[12915 | 5750.17] loss=1.32 avg=1.09
[12916 | 5751.08] loss=0.71 avg=1.09
[12917 | 5752.00] loss=0.90 avg=1.09
[12918 | 5752.91] loss=1.03 avg=1.09
[12919 | 5753.82] loss=1.25 avg=1.09
[12920 | 5754.74] loss=1.05 avg=1.09
[12921 | 5755.65] loss=0.94 avg=1.09
[12922 | 5756.57] loss=1.49 avg=1.09
[12923 | 5757.48] loss=0.92 avg=1.09
[12924 | 5758.40] loss=0.65 avg=1.08
[12925 | 5759.32] loss=0.85 avg=1.08
[12926 | 5760.24] loss=0.94 avg=1.08
[12927 | 5761.15] loss=0.89 avg=1.08
[12928 | 5762.07] loss=1.50 avg=1.08
[12929 | 5762.99] loss=1.18 avg=1.08
[12930 | 5763.90] loss=1.01 avg=1.08
[12931 | 5764.82] loss=1.30 avg=1.09
[12932 | 5765.74] loss=0.84 avg=1.08
[12933 | 5766.66] loss=1.48 avg=1.09
[12934 | 5767.58] loss=1.18 avg=1.09
[12935 | 5768.49] loss=0.98 avg=1.09
[12936 | 5769.42] loss=1.57 avg=1.09
[12937 | 5770.34] loss=1.53 avg=1.10
[12938 | 5771.26] loss=1.27 avg=1.10
[12939 | 5772.17] loss=1.00 avg=1.10
[12940 | 5773.09] loss=1.35 avg=1.10
[12941 | 5774.01] loss=0.72 avg=1.10
[12942 | 5774.94] loss=0.89 avg=1.09
[12943 | 5775.86] loss=0.95 avg=1.09
[12944 | 5776.78] loss=1.15 avg=1.09
[12945 | 5777.70] loss=1.45 avg=1.10
[12946 | 5778.62] loss=1.19 avg=1.10
[12947 | 5779.55] loss=0.87 avg=1.09
[12948 | 5780.47] loss=1.03 avg=1.09
[12949 | 5781.39] loss=0.82 avg=1.09
[12950 | 5782.32] loss=0.92 avg=1.09
[12951 | 5783.24] loss=1.36 avg=1.09
[12952 | 5784.17] loss=1.02 avg=1.09
[12953 | 5785.09] loss=0.95 avg=1.09
[12954 | 5786.01] loss=1.58 avg=1.10
[12955 | 5786.93] loss=1.16 avg=1.10
[12956 | 5787.86] loss=1.14 avg=1.10
[12957 | 5788.78] loss=1.15 avg=1.10
[12958 | 5789.70] loss=1.02 avg=1.10
[12959 | 5790.62] loss=0.87 avg=1.09
[12960 | 5791.54] loss=1.56 avg=1.10
[12961 | 5792.46] loss=0.74 avg=1.09
[12962 | 5793.38] loss=1.37 avg=1.10
[12963 | 5794.30] loss=1.83 avg=1.10
[12964 | 5795.23] loss=1.21 avg=1.11
[12965 | 5796.15] loss=1.17 avg=1.11
[12966 | 5797.08] loss=0.99 avg=1.11
[12967 | 5798.00] loss=1.21 avg=1.11
[12968 | 5798.92] loss=0.94 avg=1.10
[12969 | 5799.84] loss=1.39 avg=1.11
[12970 | 5800.76] loss=1.09 avg=1.11
[12971 | 5801.69] loss=1.22 avg=1.11
[12972 | 5802.61] loss=1.14 avg=1.11
[12973 | 5803.53] loss=0.75 avg=1.11
[12974 | 5804.44] loss=0.86 avg=1.10
[12975 | 5805.36] loss=1.20 avg=1.10
[12976 | 5806.29] loss=0.74 avg=1.10
[12977 | 5807.21] loss=0.88 avg=1.10
[12978 | 5808.13] loss=1.04 avg=1.10
[12979 | 5809.05] loss=1.04 avg=1.10
[12980 | 5809.96] loss=1.05 avg=1.10
[12981 | 5810.88] loss=1.16 avg=1.10
[12982 | 5811.80] loss=0.75 avg=1.09
[12983 | 5812.72] loss=1.58 avg=1.10
[12984 | 5813.64] loss=0.99 avg=1.10
[12985 | 5814.56] loss=0.93 avg=1.10
[12986 | 5815.48] loss=1.06 avg=1.10
[12987 | 5816.40] loss=1.15 avg=1.10
[12988 | 5817.32] loss=1.41 avg=1.10
[12989 | 5818.24] loss=1.15 avg=1.10
[12990 | 5819.16] loss=1.29 avg=1.10
[12991 | 5820.08] loss=1.47 avg=1.11
[12992 | 5821.00] loss=1.18 avg=1.11
[12993 | 5821.92] loss=0.69 avg=1.10
[12994 | 5822.84] loss=1.34 avg=1.10
[12995 | 5823.76] loss=1.33 avg=1.11
[12996 | 5824.69] loss=1.07 avg=1.11
[12997 | 5825.60] loss=1.07 avg=1.11
[12998 | 5826.52] loss=1.29 avg=1.11
[12999 | 5827.44] loss=0.87 avg=1.11
Saving checkpoint/run1/model-13000
Generating samples...
======== SAMPLE 1 ========
-goto-char (char-begin-before-sexp ?a)
(point-max))))))
(let ((goto-char (org-babel-get-entry beg end beg-start t))
(org-babel-skip-comint start end beg-start t))
(when (< beg-end (+ 6 n)))
(save-excursion
(org-babel-back-to-table org-babel-inlinetask)
(skip-chars-forward " \r\t\n")
(goto-char beg-end)
(mapc #'org-babel-inlinetask
(lambda (a b)
(when (memq a '(previous-command ?p))
(end-of-line)
(unless (org-lisp-boundp 'babel-comint-table)
(org-babel-forward-babel-table (comint beg end b)))))
(when (< beg-end (+ n)))
(let ((goto (org-babel-forward-babel-table (comint beg end b)
'font-lock-warning-face "Goto a, don't")))
(when (> beg-end (+ 6 n)))
(org-babel-backward-comint-to-column beg end)
(and (org-element-property :headline 'comint-table)
(org-babel-skip-comint beg end ":" 'font-lock-warning-face
org-babel-back-to-table
org-babel-inlinetask
org-babel-last-comint-table-p))))))))))
(if (assq 'babel-comint-table org-babel-cominc)
(org-babel-insert-pre-indentation
"babel"
(goto-char (org-babel-get-entry beg end t))
(org-babel-backward-to-table (copy-marker (1- beg))))))
(defmacro org-babel-forward-comint (&rest body)
"Forward BODY; return point; or return nil.
LIMIT 2. The point is now at beginning of line. Return point
and point."
(declare (indent 2) (debug t))
`(let ((goto-in-buffer-movemove nil)) ; move to end of line
(and (or (skip-chars-forward " \t\n") ; don't look back at the text before
======== SAMPLE 2 ========
-map
"\\[universal-argument] ?? \\[universal-argument-map] \
insert "\n" to toggle mode-line mode, and search for the file
directory (\"/home\")."
:group 'files
:version "24.1"
:type '(choice (const :tag "Disable" t)
(const :tag "Enable" t)
(const :tag "Disable" nil)
(list :key-type '("\\[universal-argument].*?\\)[ \t]*<.*" :value :help "Insert mode line and search"
:format "%s\n" :map :tag 'string)
:value (string :tag "File"))))
(put 'read-read-only 'help-display-multiple-options
(unless read-only
(put 'read-only #'read-only))
(set-window-buffer 0)
(set-window-buffer nil)
(insert "\n"))
(put 'window-up 'help-display-multiple-options
(unless window-up
(put 'window-up #'window-up))
(set-window-buffer 0))
(put 'window-up-or-delete 'help-display-multiple-options "No windows are up.")
(put 'window-dont-kill-windows 'help-display-multiple-options t)
(put 'window-dont-kill-window 'help-display-multiple-options "No windows are dntkilled.")
(put 'window-dont-kill-windows 'help-display-multiple-options "No windows are die and dntkilled.")
(set-window-display-mode-2
(window-buffer 0) (window-previous-window 0))
(put 'window-set-all-parameters 'help-display-multiple-options
(if window-set-all-parameters "Set/delete all parameters" "Disables on/off"))))
(put 'window-set-parameters 'help-display-multiple-options "Set/delete parameters")))
(put 'window-set-parameters 'help-display-multiple-options "The number of windows we display.")
;;;###autoload
(defcustom window-mode-hook 'window-mode-mode
"List of functions to call whenever the Emacs window is killed."
:group 'windows
:type '(hook (function-group (nreverse function-group))
(function (list (function :tag "Function") function)))
(put 'window-set-parameters 'help-display-multiple-options
(let ((window-buffer (get-buffer-window window-buffer)))
(when window-buffer
(window-on-quit-flag nil)))
(let ((inhibit-point-motion-hooks t)
(window-display-mode-button 'window-set-parameters
(when window-buffer "Dead window with current buffer"
(condition-case nil
(window-live-p window-buffer "Dead"))))
(window-display-window (window-buffer window))
(button-set-face window 'help-display-multiple-options #'window-dont-kill-windows)
(if window-dont-kill-windows "Kill window")))
(put 'window-set-parameters 'help-float
(let ((window-buffer (get-buffer-window window-buffer)))
(when window-buffer
======== SAMPLE 3 ========
-goto-region-beginning)
(defun rng-x-x-goto-region-beginning ()
"Return point in current region.
Return non-nil if point was moved to the beginning of a
`regexp-negotiator' (or more commonly, `regexp-quote'),
`line-width') and non-nil if point is just outside a
marker string."
(or (and
(eq (char-before) ?\(
;; If the region starts with a leading space, the regex
;; should match the leading space and this is the only
;; region in which we found a valid word, we may skip this
;; region with some other word.
(setq rng-string (concat (char-to-string
(if (re-search-forward rng-goto-region-beginning
(char-after) ""))) ; the string is not a string.
; there is nothing to skip. This is for
;; the case where the whitespace was preceded
;; by spaces/tbl, or we have a double ":". See
;; RNN and RRRGGG for more details.
(or (assq (char-before) (char-after))))
(cond ((and (looking-at regexp)
(prog1 (forward-sexp)
(setq end (match-beginning (match-end 0))))
((eq (char-before (match-beginning 0)) ?>)
(cond ((not (looking-at regexp)) ; end can be space-like?
(setq end (point)))
((and (re-search-forward regexp end t)
(looking-at "\\s ")))) ; line must be a string that starts
(t `(let ((match-start (match-end 0)))) ; end has spaces.
(rng-goto-region-beginning
(or
(let ((start (match-beginning 1)))
======== SAMPLE 4 ========
-char,
;; use `delete-region' for deletions if needed.
(prin1 (car eldoc-region))
(princ "\n#\n[*\n] *[\n,\r]*\n")
(princ "\n")))
;;; The first thing that needs to be done is setting up the buffer
;;; for the various commands. We need to do this while the buffer is
;;, as you may have guessed, already open.
;; (defun eldoc-read-command (start end)
;; ;; Read the command at start of the current buffer.
;; (if (and (>= start (/ (point)) end))
;; (progn
;; (let (command)
;; ;; If we are read the command, we are about
;; ;; to read the first line of the buffer. It is important that
;; ;; the first part of the command we read
;; ;; be followed by the rest of the line.
;; ;; This can happen a lot and it can lead to
;; ;; some unexpected output.
;; (let ((file-name (file-name-nondirectory
;; (expand-file-name file-name))))
;; (read-file-name name)
;; (if not (null command) prompt))
;; (if (>= end (/ (point) start))
;; ;; If we are read, we may be asked to type
;; (if (or (eolp) (looking-at "[ \t]*\n[ \t]*[ \t]*$")))
;; (setq start (1- start))))
;; ;; This should cause an error if read is open.
;; (if (and (derived-mode-p 'eldoc-mode)
;; (goto-char start)
;; (eldoc-back-to-command beg end))
;; (eldoc-send 'emacs-eldoc 'open 'not-open))
;; (if (eq start end)
;; (setq start (point)))
;; (when (search-forward-regexp
;; (regexp-quote (format-message
;; "Type `eldoc-type' into a text buffer."))
;; (buffer-sub
[13000 | 5857.52] loss=0.79 avg=1.10
[13001 | 5858.45] loss=1.69 avg=1.11
[13002 | 5859.37] loss=1.22 avg=1.11
[13003 | 5860.28] loss=1.32 avg=1.11
[13004 | 5861.20] loss=1.02 avg=1.11
[13005 | 5862.12] loss=1.98 avg=1.12
[13006 | 5863.03] loss=1.13 avg=1.12
[13007 | 5863.95] loss=1.19 avg=1.12
[13008 | 5864.87] loss=1.37 avg=1.12
[13009 | 5865.78] loss=1.33 avg=1.12
[13010 | 5866.70] loss=0.82 avg=1.12
[13011 | 5867.62] loss=0.93 avg=1.12
[13012 | 5868.54] loss=0.90 avg=1.12
[13013 | 5869.45] loss=1.24 avg=1.12
[13014 | 5870.37] loss=0.93 avg=1.12
[13015 | 5871.29] loss=1.20 avg=1.12
[13016 | 5872.20] loss=0.99 avg=1.12
[13017 | 5873.12] loss=1.01 avg=1.12
[13018 | 5874.03] loss=1.25 avg=1.12
[13019 | 5874.94] loss=1.00 avg=1.12
[13020 | 5875.86] loss=1.11 avg=1.12
[13021 | 5876.78] loss=1.00 avg=1.11
[13022 | 5877.70] loss=1.45 avg=1.12
[13023 | 5878.61] loss=1.08 avg=1.12
[13024 | 5879.52] loss=1.27 avg=1.12
[13025 | 5880.44] loss=0.89 avg=1.12
[13026 | 5881.35] loss=1.37 avg=1.12
[13027 | 5882.27] loss=1.42 avg=1.12
[13028 | 5883.18] loss=1.45 avg=1.13
[13029 | 5884.10] loss=1.12 avg=1.13
[13030 | 5885.01] loss=1.17 avg=1.13
[13031 | 5885.93] loss=1.01 avg=1.12
[13032 | 5886.84] loss=1.33 avg=1.13
[13033 | 5887.75] loss=1.17 avg=1.13
[13034 | 5888.67] loss=0.81 avg=1.12
[13035 | 5889.58] loss=1.40 avg=1.13
[13036 | 5890.49] loss=1.25 avg=1.13
[13037 | 5891.41] loss=1.03 avg=1.13
[13038 | 5892.33] loss=1.34 avg=1.13
[13039 | 5893.25] loss=1.00 avg=1.13
[13040 | 5894.17] loss=0.97 avg=1.13
[13041 | 5895.08] loss=0.73 avg=1.12
[13042 | 5896.00] loss=1.01 avg=1.12
[13043 | 5896.92] loss=1.51 avg=1.13
[13044 | 5897.83] loss=1.14 avg=1.13
[13045 | 5898.75] loss=0.85 avg=1.12
[13046 | 5899.66] loss=0.83 avg=1.12
[13047 | 5900.58] loss=1.83 avg=1.13
[13048 | 5901.50] loss=1.00 avg=1.13
[13049 | 5902.42] loss=0.73 avg=1.12
[13050 | 5903.34] loss=1.07 avg=1.12
[13051 | 5904.26] loss=1.36 avg=1.12
[13052 | 5905.18] loss=0.90 avg=1.12
[13053 | 5906.09] loss=1.28 avg=1.12
[13054 | 5907.01] loss=1.12 avg=1.12
[13055 | 5907.93] loss=1.03 avg=1.12
[13056 | 5908.85] loss=1.19 avg=1.12
[13057 | 5909.77] loss=0.58 avg=1.12
[13058 | 5910.69] loss=1.48 avg=1.12
[13059 | 5911.61] loss=1.41 avg=1.12
[13060 | 5912.54] loss=1.15 avg=1.12
[13061 | 5913.46] loss=0.78 avg=1.12
[13062 | 5914.38] loss=0.90 avg=1.12
[13063 | 5915.30] loss=0.78 avg=1.11
[13064 | 5916.22] loss=0.68 avg=1.11
[13065 | 5917.15] loss=1.20 avg=1.11
[13066 | 5918.07] loss=1.34 avg=1.11
[13067 | 5918.99] loss=0.69 avg=1.11
[13068 | 5919.91] loss=1.00 avg=1.11
[13069 | 5920.83] loss=0.72 avg=1.10
[13070 | 5921.75] loss=1.03 avg=1.10
[13071 | 5922.68] loss=0.79 avg=1.10
[13072 | 5923.59] loss=1.04 avg=1.10
[13073 | 5924.52] loss=0.95 avg=1.10
[13074 | 5925.44] loss=1.17 avg=1.10
[13075 | 5926.36] loss=1.07 avg=1.10
[13076 | 5927.28] loss=0.64 avg=1.09
[13077 | 5928.19] loss=0.85 avg=1.09
[13078 | 5929.12] loss=0.99 avg=1.09
[13079 | 5930.04] loss=0.83 avg=1.09
[13080 | 5930.96] loss=0.86 avg=1.09
[13081 | 5931.89] loss=1.17 avg=1.09
[13082 | 5932.81] loss=0.99 avg=1.09
[13083 | 5933.73] loss=0.84 avg=1.08
[13084 | 5934.65] loss=1.17 avg=1.08
[13085 | 5935.57] loss=1.49 avg=1.09
[13086 | 5936.50] loss=1.12 avg=1.09
[13087 | 5937.42] loss=0.79 avg=1.09
[13088 | 5938.34] loss=0.94 avg=1.08
[13089 | 5939.27] loss=1.26 avg=1.09
[13090 | 5940.19] loss=0.94 avg=1.08
[13091 | 5941.11] loss=0.74 avg=1.08
[13092 | 5942.04] loss=0.69 avg=1.08
[13093 | 5942.96] loss=1.28 avg=1.08
[13094 | 5943.88] loss=1.16 avg=1.08
[13095 | 5944.80] loss=0.67 avg=1.08
[13096 | 5945.72] loss=1.10 avg=1.08
[13097 | 5946.64] loss=1.03 avg=1.08
[13098 | 5947.56] loss=1.20 avg=1.08
[13099 | 5948.49] loss=1.26 avg=1.08
Generating samples...
======== SAMPLE 1 ========
FCF=
;;;;;;; XHTML
;; http://www.w3.org/TR/Xhtml/XHTML.html
;; http://www.w3.org/1999/02/08 "HTML3")
;;; Code:
(require 'calc-mode)
;;;###cal-autoload
(defun calc-calc-indent-keyword (keyword)
"Indent a word with point at the beginning. For every word at the start of the word, add the following:
+---------------+
+-------+
+-------+
+ "--"
+ "--"
+ "-------"
+ "--"
+ "----"
+ "----"
+ "----"
+ "----"
+ "----"
+ "--"
+ "----"
+ "-----"
+ "--"
+ "--"
+ "----"
+ "----"
+ "----"
+ "--"
+ "--"
+ "------"
+ "------"
+ "----"
+ "----"
+ "--"
+ "-----"
+ "-----"
+ "--"
+ "--"
+ "--"
+ "-------"
+ "--"
+ "--"
+ "--"
+ "--"
+ "---------"
+ "---------"
+ "--"
+ "--"
+ "-----------"
+ "----"
+ "----------------"
+ "----"
+ "------"
+ "------"
+ "---------"
+ "----------------"
+ "--"
+ "--"
+ "--"
+ "------"
+ "------"
+ "---------"
+ "-------------:"
+ "------~")
;;;###cal-autoload
(defun calc-calc-indent-subword (prefix keyword)
"Indent a subword with point at the beginning.
This will also indent to the beginning of each word in the word. For every word at the beginning of the word,
add the following:
+--------------- "--"
+--------------- "--"
+--------------- "----"
+--------------- "----"
+--------------- "----"
This function is used to set the Calc mode key bindings for a number of keywords.
For instance, the following keys will be defined:
- X-TAB-STRINGS-DELAY
- Halt - Delete key binding without waiting for a confirmation; with X-TAB
- C-X C-X RET
You will have to type in each of these modifiers by hand, and the
number of modifiers will depend on the number of keys
pressed.
These keys will bind to `halt', or `dalt', if their corresponding key
function is used as the input method.
The keys will also be set to the symbols `halt' and `c-x RET'.
This command is useful for adding various modifiers to the
current frame or to adding new modifiers as needed.
You can also set this variable to change when `emacs-lisp-mode'
is used to execute these keys."
(interactive "P")
(cond (prefix
======== SAMPLE 2 ========
FC(n) nil)
(error "Lisp-X: Error: No such file or directory")))
(defun lisp-x/xemacs-lisp-emacro-function ()
"Execute an Emacs Lisp emacro function.
This may be used to run an Emacs Lisp file, e.g., an Emacs Lisp file with
the .emacs-lisp.el file extension applied to it, e.g. that
it generates an Emacs Lisp file.")
(defun mml-defmacro-macro-function (function)
(setq mml-defmacro-macro-function
'foo (lambda () (funcall function))
mml-defmacro-macro-function
(let* ((macro (oref (concat "emacs-lisp" "") " " (match-string)))
(macro-args (oref (concat "macro" ")" macro))
(macro-comps (oref macro "--")
'foo 'bar (function (intern (concat "function\\".com" function)))))
(define-key mml-macro-function 'foo fmap)
(define-key mml-macro-macro-macro-macro-macro-macro ()
"*"))
(defun mml-defmacro-macro-macro (macro)
"Execute an Emacs Lisp macro function.
Macro MACRO is a Lisp function name whose Lisp name
contains any argument functions as defined by the variable
mml-macro-macro. The function will be called with two arguments:
the name or `name' of the MACRO's argument, which is to be
called with the optional argument FINDING-ATTRIBUTES."
(mml-defmacro-macro-macro macro)
(message "`macro' macro"))
(defun mml-defmacro-macro-macro-macro ()
"Execute an Emacs Lisp macro macro, without argument.
Macro MACRO is a Lisp function name whose Lisp name
contains any argument functions as defined by the variable
mml-macro-macro. The macro's function will have two arguments: the
name or the argument list of the macro's argument or its Lisp
name."
(interactive "*r")
(let* ((macro-file (oref (if (= (length macro-file) ?*)
(oref (car (last macro-file) ?*))))
;; Macro files with `macro-file-macro' syntax can be executed
;; through Lisp macros; we have to be careful to include
;; `lazy-macro-load-path' in this case.
;; We want to prevent macro compilation, so the function will
;; return t.
(macro-file-name-if-debug nil)
(lazy-macro-load-path (macro-file-name-file (car macro-file))
)))
(error "`macro' nil not found"))
(let* ((macro-info (oref (car (re-search-forward "^[0-9]+\\" nil
nil t)))))
(message "`macro-info' [macro-macro
======== SAMPLE 3 ========
FC (goto-char pos)
;; If the current line is too long, use space.
(save-restriction
(widen)
(while (and lines (/= pos 1))
(if (and (not (memq charset '(charset t))
(looking-at "^[a-zA-Z0-9_]+[0-9]")
(looking-at "\\.\\.\\{\\.\\}([a-zA-Z0-9_]+[0-9]\\)")
(setq chars-length chars-to-length))
(cond
;; FIXME: What is a space?
((and (memq charset '(charset t)) ; [0-9.];[^@]{^@}]*
(setq chars-length
(cons (get-char-property (point)
'charset) chars-to-length))))
(memq charset (match-string-no-properties 0)
(string))
(save-restriction
(widen)
(if (and (stringp chars-to-length first-chars)
(= chars-length chars-to-length)
(and (memq first char-start chars-end)
(string-match (concat "^[^* \t]*" first char-start) chars-to-length chars-to-length))))
(forward-char))
;; FIXME: Must specify an opening char.
((looking-at "^\\?\\|\\(\\(\\^#\\)"))
;; FIXME: Don't be afraid to remove spaces here.
(setq chars-length (string-to-char chars-length))
;; FIXME: We must use spaces after the spaces.
(goto-char pos)
(let* ((charset-length (or chars-length chars-to-length))
(char-to-
======== SAMPLE 4 ========
FC&S1&S2&S3&S4&S5&S6&S7&S8&S9&S0&S10&S11&S12&S13&S14&S0&S15&S16&S17&S18&S19&S20&S21&S2"))
(setcdr (nthcdr 2 (car v))))))
(if (and v1 (> nth v1)))
(if (not (eq (car v1) 'v1))
(v1 v1))))
;;;###autoload
(defun vhdl-mode-script-mode ()
(interactive)
(beginning-of-line)
(viper-save-buffer-state (current-buffer) (point) nil '(vhdl-show-script-mode 0))
(should (buffer-string-no-properties (current-buffer))))
;;;###autoload
(defun vhdl-mode-script-update ()
(interactive)
(beginning-of-line)
(viper-save-buffer-state (current-buffer) (point) nil '(viper-show-script-mode 0))
(should (buffer-string-no-properties (current-buffer))))
(defun vhdl-mode-script-setup (&optional save-history)
"Setup vhdl version history.
If you install it, it will be run only once. See `viper-mode-script-setup' for
specific instructions."
(interactive "P")
(vhdl-show-script-mode vhdl-mode-script-setup vhdl-show-script-mode-history))
;;;###autoload
(defun vhdl-mode-script-setup (history)
"Install vhdl version history."
(interactive
(or (looking-at "^\\([^\\]*?\\([^\\]\\|?[^\\]*?\\)[ \t\n\r]*:[ \t\n\r]+\\(\\(\\[[-?[^]*]\\)?"))
;; Insert a message that reads:
(message "Setting %s..."
(replace-regexp-in-string "^" "\\(\\*\\\\\\) "
(replace-regexp-in-string
;; "//[^//]+\\(\\([^ ]*\\) *\\)")) "\\) "
vhdl-mode-script-setup " \\(?" t (replace-regexp "^" "\\(\\([^ ]*\\)*[ *[ ]*\\)+" "
"\\) "
vhdl-mode-script-setup 'show-script-setup)))))
(provide 'viper-mode)
;;; vhdl-mode.el ends here
<|endoftext|>;;; vhdl-info-history.el --- vhdl info library backend for vhdl-mode
;; Copyright (C) 1995-2019 Free Software Foundation, Inc.
;; Author: James Clark <james.c.h@mh.ca>
;; Keywords: news, info, hypermedia
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version
[13100 | 5974.02] loss=0.77 avg=1.08
[13101 | 5974.94] loss=1.30 avg=1.08
[13102 | 5975.85] loss=0.75 avg=1.07
[13103 | 5976.77] loss=1.76 avg=1.08
[13104 | 5977.68] loss=1.23 avg=1.08
[13105 | 5978.60] loss=0.78 avg=1.08
[13106 | 5979.51] loss=0.65 avg=1.08
[13107 | 5980.42] loss=1.73 avg=1.08
[13108 | 5981.34] loss=1.00 avg=1.08
[13109 | 5982.25] loss=0.75 avg=1.08
[13110 | 5983.16] loss=1.05 avg=1.08
[13111 | 5984.07] loss=1.40 avg=1.08
[13112 | 5984.99] loss=1.32 avg=1.08
[13113 | 5985.90] loss=1.65 avg=1.09
[13114 | 5986.81] loss=0.75 avg=1.09
[13115 | 5987.73] loss=0.85 avg=1.08
[13116 | 5988.64] loss=0.86 avg=1.08
[13117 | 5989.56] loss=0.92 avg=1.08
[13118 | 5990.47] loss=0.96 avg=1.08
[13119 | 5991.38] loss=1.67 avg=1.08
[13120 | 5992.29] loss=0.98 avg=1.08
[13121 | 5993.21] loss=0.95 avg=1.08
[13122 | 5994.12] loss=1.32 avg=1.08
[13123 | 5995.04] loss=0.82 avg=1.08
[13124 | 5995.95] loss=1.21 avg=1.08
[13125 | 5996.86] loss=0.83 avg=1.08
[13126 | 5997.78] loss=1.14 avg=1.08
[13127 | 5998.69] loss=1.53 avg=1.09
[13128 | 5999.61] loss=0.85 avg=1.08
[13129 | 6000.53] loss=1.25 avg=1.08
[13130 | 6001.45] loss=1.36 avg=1.09
[13131 | 6002.36] loss=1.50 avg=1.09
[13132 | 6003.28] loss=1.06 avg=1.09
[13133 | 6004.20] loss=1.39 avg=1.09
[13134 | 6005.12] loss=1.36 avg=1.10
[13135 | 6006.04] loss=1.06 avg=1.10
[13136 | 6006.96] loss=0.79 avg=1.09
[13137 | 6007.87] loss=0.46 avg=1.09
[13138 | 6008.80] loss=1.33 avg=1.09
[13139 | 6009.72] loss=0.84 avg=1.09
[13140 | 6010.63] loss=1.08 avg=1.09
[13141 | 6011.55] loss=1.08 avg=1.09
[13142 | 6012.48] loss=1.22 avg=1.09
[13143 | 6013.39] loss=0.79 avg=1.09
[13144 | 6014.31] loss=1.04 avg=1.08
[13145 | 6015.23] loss=1.31 avg=1.09
[13146 | 6016.15] loss=1.19 avg=1.09
[13147 | 6017.07] loss=1.18 avg=1.09
[13148 | 6018.00] loss=1.46 avg=1.09
[13149 | 6018.92] loss=0.98 avg=1.09
[13150 | 6019.84] loss=0.76 avg=1.09
[13151 | 6020.76] loss=0.78 avg=1.09
[13152 | 6021.68] loss=0.59 avg=1.08
[13153 | 6022.61] loss=1.05 avg=1.08
[13154 | 6023.53] loss=1.66 avg=1.09
[13155 | 6024.45] loss=1.04 avg=1.09
[13156 | 6025.38] loss=0.87 avg=1.08
[13157 | 6026.30] loss=1.04 avg=1.08
[13158 | 6027.22] loss=0.76 avg=1.08
[13159 | 6028.14] loss=1.03 avg=1.08
[13160 | 6029.07] loss=1.52 avg=1.08
[13161 | 6029.99] loss=0.87 avg=1.08
[13162 | 6030.91] loss=0.87 avg=1.08
[13163 | 6031.84] loss=0.88 avg=1.08
[13164 | 6032.76] loss=1.00 avg=1.08
[13165 | 6033.68] loss=0.69 avg=1.07
[13166 | 6034.61] loss=1.02 avg=1.07
[13167 | 6035.53] loss=1.37 avg=1.08
[13168 | 6036.45] loss=0.92 avg=1.07
[13169 | 6037.38] loss=0.82 avg=1.07
[13170 | 6038.31] loss=1.08 avg=1.07
[13171 | 6039.23] loss=1.49 avg=1.08
[13172 | 6040.15] loss=0.92 avg=1.07
[13173 | 6041.07] loss=0.91 avg=1.07
[13174 | 6041.99] loss=1.11 avg=1.07
[13175 | 6042.91] loss=0.77 avg=1.07
[13176 | 6043.84] loss=1.06 avg=1.07
[13177 | 6044.76] loss=1.31 avg=1.07
[13178 | 6045.69] loss=0.97 avg=1.07
[13179 | 6046.61] loss=1.22 avg=1.07
[13180 | 6047.53] loss=1.16 avg=1.07
[13181 | 6048.45] loss=1.75 avg=1.08
[13182 | 6049.37] loss=0.87 avg=1.08
[13183 | 6050.29] loss=1.51 avg=1.08
[13184 | 6051.21] loss=1.44 avg=1.09
[13185 | 6052.13] loss=0.96 avg=1.08
[13186 | 6053.06] loss=0.58 avg=1.08
[13187 | 6053.98] loss=0.97 avg=1.08
[13188 | 6054.90] loss=1.62 avg=1.08
[13189 | 6055.82] loss=1.06 avg=1.08
[13190 | 6056.74] loss=1.36 avg=1.09
[13191 | 6057.66] loss=1.12 avg=1.09
[13192 | 6058.58] loss=0.68 avg=1.08
[13193 | 6059.50] loss=0.87 avg=1.08
[13194 | 6060.43] loss=1.06 avg=1.08
[13195 | 6061.35] loss=1.21 avg=1.08
[13196 | 6062.27] loss=1.38 avg=1.08
[13197 | 6063.19] loss=0.96 avg=1.08
[13198 | 6064.11] loss=0.99 avg=1.08
[13199 | 6065.03] loss=0.91 avg=1.08
Generating samples...
======== SAMPLE 1 ========
"Align point to column in a window"
["Invisibility" ; Non-nil means invert the message.
(:vert "Invisibility"))))
(defun ebrowse-display-frame (window)
(set-frame ebrowse-display-frame window)
(let ((x (window-point window)))
(set-frame ebrowse-frame window)
(if x
(set-window window x)
(if (< x 0)
(window-visible window)
(set-window window x))))
(defun ebrowse-display-frame-left (window t)
;; This is the `invisible-window.
;; FIXME: This doesn't work when the parent window is
;; not visible in the frame, or when the parent window is
;; not visible at all.
;; When window is visible, it's best to make point visible on the
;; parent window. (I.e., point is the first non-nil position in the
;; window.)
(setq window-min-size (ebrowse-invisible window '(1))))
;; FIXME: This doesn't work when the parent window is
;; not visible in the frame.
(setq window-indent (- (ebrowse-invisible window)
(- window-max-size))
(window-size (- window-min-size))
window-min-frame-count x)
(set-frame window-indent
(max (window-size window-min-frame-count))
(window-size (window-size window-min-frame-count))
window-size (window-size window))))
(defun ebrowse-show-frame (window)
(set-frame ebrowse-show-frame window)
(let (invisible-window (ebrowse-frame-invisible window))
(while (eobp))
(if (and (progn (window-live-p window)
(< window-max-size window)
(= window-min-size window))))
(let ((win (window-size window-min-window-count))
(win-frame (window-frame window))
(window (selected-window)))
;; Set the old frame and the new frame to reflect the
;; contents of the current window.
(unless (eobp)
(set-window-dedent nil)
(set-window-start window))
;; Invert the message, then display the frame
(if (and (eobp)
(ebrowse-invisible window)
(= window-min-window window)
(> (window-size window)
(display-not 0))
(if (> window-max-width (- window-max-width))))
(if window-start
(1min window (- window
======== SAMPLE 2 ========
("^" ?\177) (")
("^" ?\177))
(defvar wisent-current-display nil)
(defvar wisent-display-help nil)
;;;###autoload
(defun wisent-set-display (display list)
"Set/edit display list in WISENT-mode to the current display."
(interactive "P")
(setq wisent-current-display nil)
(wisent-remove-display-help-help)
(wisent-set-display-help)
(let ((win (make-frame--display-mode win)))
(if (+ (length wisent-current-display) 2) ; 0
(let (win win)
(while (cdr (assoc wisent-display-alist win)))
(wisent-add-display-help-help win nil nil)
(setqwin win)
(setqlist nil)))
(when (get-buffer-window wisent-current-display)
(wisent-display-help win "Display %d" (car list)))
(wisent-add-display-help list wisent-current-display)
(wisent-set-display-help-help))
;; When we do a simple toggle, then some menu and window.
(if wisent-toggle (wisent-remove-display-help-help)))
;; Set display mode after WISENT-mode is called.
(wisent-set-display-help)
;; Create a new wisent-current-display and add it to the current list.
(wisent-add-display-help-help (- (length wisent-current-display)))
(wisent-set-current-list win nil)))
(defun wisent-add-display-help-regexp (arg)
"Replace a regexp in the current entry of the WISENT display list with
the new regexp in the current entry of the list, as an absolute string."
(interactive (list (if arg (funcall (format "^\\(.*\\)"))))
(wisent-add-display-help-regexp arg)))
(defmacro wisent-add-display-help-regexp (&rest args)
"Efface `display' to another display."
(declare (intern (intern "help")) (intern (intern (intern "help"))) (intern (intern (intern (intern "help"))))))
(defun wisent-add-display-help-regexp (arg)
"Efface `display' again to another display."
(interactive (list (if arg (funcall (format "^\\(.*\\)")))
(wisent-add-display-help-regexp arg)))
(defmacro wisent-add-display-help-regexp-start (arg)
"Efface `display' to another display."
(declare (intern (intern "help")) (intern (intern (intern "help"))))))
(defmacro wisent-add-display-help-regexp-start (arg)
"Efface `display' to another display."
(declare (intern (intern "help"))))
(add-hook 'defun-yank 'wisent-make-argument-hook
(lambda ()
(yank))
"Efface `display' to another display run again."
(if wisent-toggle (wisent-add-display-help-regexp arg)
(if wisent-toggle (wisent-insert-display-help-regexp arg "")
(wisent-remove-display-
======== SAMPLE 3 ========
(and (not (stringp c)) :file))
(when (file-exists-p c)
(setq file-properties-used (cons (file-relative-name (car c)) file-properties-used)))
(let ((coding-system-for-write 'sha1))
(cond
((and (file-exists-p c)
(or (file-readable-p c)
(file-writable-p c)))
(set-file-modes file-properties-used)
(setq file-files-coding-system
(cons file-properties-used file-files-coding-system)))
(setq file-process-local-cache (cons file-process-local-cache
(directory-files file-process-local-cache)))))
(when file-process-local-cache
(set (make-local-variable 'file-process-local-cache) 0))
(when file-process-local-cache
(set (make-local-variable 'file-process-remote-function) new-file))
(make-local-variable 'file-process-local-cache)))
(prog1
,(when (not (file-writable-p c))
(file-exists-p c))
(condition-case nil
(save-excursion
(goto-char (point-min))
(set-visited-file-modtime (current-buffer))
(while (not (not (file-exists-p c)))))
(file-error)
(file-error))))
(defvar file-process-file-name)
(defvar file-process-local-cache)
(defvar file-process-local-cache-name)
(defvar file-process-last-input-file-name)
(defvar file-process-local-cache-name)
(defun file-process-parse-process ()
(setq file-process-local-cache (cons (file-local-cache) file-process-local-cache))
(unless file-process-parse-process
(run-hook-with-args
:require 'file-monitor
(custom-set-variable 'file-process-local-cache t))
(modify-syntax-entry ?^ (match-beginning 0) t))
(defun file-process-exit-unless-finally ()
(let ((inhibit-read-only t))
;; Otherwise, if any process failed, `file-process-exit'
;; can handle that as well.
(when file-process-remote-function
(make-local-variable 'file-process-local-cache)
(setq file-process-local-cache (find-file-noselect file-process-remote-function))))
(file-process-exit-unless-finally)
;; Otherwise, make sure the exit code is non-nil before the process process
;;
;; ;; will exit before using this file-process-local-cache.
(make-local-variable 'file-process-local-cache)
;; Otherwise, if there was a chance of something happen, the
;; process process was not connected, the exit code was non-nil, the
;; process exited at the correct time
;; nil)
(or (process-send-string
(concat "\\<input\\(?:"
nil
(file-name-nondirectory file-process-local-cache)
======== SAMPLE 4 ========
(diary-date-to-date-string
(diary-date-to-date-from-string
(or date-extension (date-extension
(diary-date-to-date-string
diary-date-to-date-from-string))))))
date-extension)
'function-list))
;;; User variables:
;;
;; The following variables are not actually user variables;
;; they appear as they look
(defvar calendar-time-stamp-p nil) ; in the calendar
(defconst calendar-time-stamp-timestamp-format "")
(defvar calendar-time-stamp-year nil
"String representing the year in days.")
(put 'calendar-time-stamp (lambda (year y &optional y t date)) 'calendar-time-stamp-timestamp-format)
(put 'calendar-time "")
(put 'calendar-time-in "")
'calendar-time-stamp-timestamp-date '(0 0 0 0))
(put 'calendar-time-stamp-time "")
(put 'calendar-time-name "")
;;; Variables:
;;
;; This variable contains the name of the diary file to use.
;; To convert the file to a file, you must make a temporary file before
;; doing this.
(defvar diary-dir)
(defvar calendar-dir-default-file
(convert-standard-filename
(concat "*" calendar-dir-name "*")
(concat (concat
(get-buffer-create "*calendar-diary*")
(get-buffer-process "calendar.exe"))
(concat (if diary-dir-default-file "Calendar-Diary-File" "")))))
(defvar calendar-file-name nil) ; in the file calendar-time-stamp
(defvar diary-time-list nil) ; in the file diary-time-file
(defvar calendar-time-string nil
"String representing the time value in days and hours and/or minutes.")
(defvar date-time-list nil) ; in the file datetime
(defvar date-format-list nil) ; in the file datetime-format
(defvar date-time-string nil) ; in the file datetime-format" tbv"))
;; Bug fixing: Don't change the date in DATE, but always change the format.
(defun diary-date-to-date (&optional no-extension diary-date-to-date)
"Transcode an old diary from user-defined time into the current time with
DATE as argument. The user can call `calendar-time' instead of
using `diary-date-from-time' here so that the buffer used by the
diary file can be reused. The time returned by `calendar-time-to-date-reuse'
will also have the name of the old one.
The user can call `calendar-time' instead of dnd-date-to-date,
or it does not care. If the time returned by `calendar-time-to-date-reuse'
is the same, the user can use `date' instead of `diary
[13200 | 6090.90] loss=1.19 avg=1.08
[13201 | 6091.82] loss=1.25 avg=1.08
[13202 | 6092.74] loss=1.91 avg=1.09
[13203 | 6093.65] loss=1.58 avg=1.10
[13204 | 6094.57] loss=1.37 avg=1.10
[13205 | 6095.49] loss=1.12 avg=1.10
[13206 | 6096.41] loss=1.36 avg=1.10
[13207 | 6097.32] loss=1.25 avg=1.10
[13208 | 6098.24] loss=0.98 avg=1.10
[13209 | 6099.15] loss=1.24 avg=1.10
[13210 | 6100.07] loss=0.73 avg=1.10
[13211 | 6100.99] loss=0.96 avg=1.10
[13212 | 6101.90] loss=0.96 avg=1.10
[13213 | 6102.82] loss=1.29 avg=1.10
[13214 | 6103.73] loss=0.87 avg=1.10
[13215 | 6104.65] loss=1.06 avg=1.10
[13216 | 6105.56] loss=0.78 avg=1.09
[13217 | 6106.48] loss=0.82 avg=1.09
[13218 | 6107.39] loss=1.29 avg=1.09
[13219 | 6108.30] loss=1.37 avg=1.10
[13220 | 6109.22] loss=1.05 avg=1.09
[13221 | 6110.14] loss=0.95 avg=1.09
[13222 | 6111.05] loss=0.73 avg=1.09
[13223 | 6111.96] loss=1.18 avg=1.09
[13224 | 6112.88] loss=1.03 avg=1.09
[13225 | 6113.79] loss=1.78 avg=1.10
[13226 | 6114.70] loss=2.00 avg=1.11
[13227 | 6115.62] loss=0.79 avg=1.10
[13228 | 6116.54] loss=1.09 avg=1.10
[13229 | 6117.46] loss=1.91 avg=1.11
[13230 | 6118.37] loss=0.75 avg=1.11
[13231 | 6119.29] loss=0.96 avg=1.11
[13232 | 6120.20] loss=1.00 avg=1.10
[13233 | 6121.12] loss=1.46 avg=1.11
[13234 | 6122.04] loss=0.80 avg=1.11
[13235 | 6122.96] loss=1.12 avg=1.11
[13236 | 6123.88] loss=1.31 avg=1.11
[13237 | 6124.80] loss=1.19 avg=1.11
[13238 | 6125.71] loss=0.56 avg=1.10
[13239 | 6126.63] loss=0.71 avg=1.10
[13240 | 6127.55] loss=0.95 avg=1.10
[13241 | 6128.47] loss=0.84 avg=1.09
[13242 | 6129.38] loss=0.75 avg=1.09
[13243 | 6130.30] loss=1.18 avg=1.09
[13244 | 6131.22] loss=1.04 avg=1.09
[13245 | 6132.14] loss=1.14 avg=1.09
[13246 | 6133.06] loss=0.97 avg=1.09
[13247 | 6133.98] loss=1.21 avg=1.09
[13248 | 6134.90] loss=0.91 avg=1.09
[13249 | 6135.82] loss=1.04 avg=1.09
[13250 | 6136.74] loss=1.12 avg=1.09
[13251 | 6137.66] loss=0.69 avg=1.09
[13252 | 6138.58] loss=0.87 avg=1.08
[13253 | 6139.50] loss=1.51 avg=1.09
[13254 | 6140.42] loss=0.71 avg=1.08
[13255 | 6141.34] loss=0.83 avg=1.08
[13256 | 6142.26] loss=0.68 avg=1.08
[13257 | 6143.18] loss=0.81 avg=1.08
[13258 | 6144.10] loss=0.77 avg=1.07
[13259 | 6145.02] loss=0.82 avg=1.07
[13260 | 6145.94] loss=0.99 avg=1.07
[13261 | 6146.86] loss=1.32 avg=1.07
[13262 | 6147.78] loss=1.26 avg=1.07
[13263 | 6148.70] loss=1.24 avg=1.07
[13264 | 6149.62] loss=1.36 avg=1.08
[13265 | 6150.55] loss=0.79 avg=1.07
[13266 | 6151.47] loss=1.85 avg=1.08
[13267 | 6152.40] loss=0.85 avg=1.08
[13268 | 6153.32] loss=1.22 avg=1.08
[13269 | 6154.25] loss=0.89 avg=1.08
[13270 | 6155.17] loss=0.94 avg=1.08
[13271 | 6156.10] loss=1.33 avg=1.08
[13272 | 6157.02] loss=0.79 avg=1.08
[13273 | 6157.94] loss=0.95 avg=1.08
[13274 | 6158.86] loss=1.10 avg=1.08
[13275 | 6159.79] loss=0.88 avg=1.08
[13276 | 6160.71] loss=0.89 avg=1.07
[13277 | 6161.63] loss=0.92 avg=1.07
[13278 | 6162.55] loss=1.11 avg=1.07
[13279 | 6163.48] loss=0.78 avg=1.07
[13280 | 6164.40] loss=0.59 avg=1.06
[13281 | 6165.33] loss=1.31 avg=1.07
[13282 | 6166.25] loss=0.84 avg=1.06
[13283 | 6167.17] loss=1.03 avg=1.06
[13284 | 6168.09] loss=1.10 avg=1.06
[13285 | 6169.01] loss=1.28 avg=1.07
[13286 | 6169.93] loss=1.25 avg=1.07
[13287 | 6170.85] loss=1.13 avg=1.07
[13288 | 6171.78] loss=1.02 avg=1.07
[13289 | 6172.70] loss=0.75 avg=1.07
[13290 | 6173.63] loss=1.37 avg=1.07
[13291 | 6174.55] loss=1.06 avg=1.07
[13292 | 6175.47] loss=0.81 avg=1.07
[13293 | 6176.39] loss=0.98 avg=1.07
[13294 | 6177.31] loss=1.18 avg=1.07
[13295 | 6178.24] loss=1.21 avg=1.07
[13296 | 6179.16] loss=1.06 avg=1.07
[13297 | 6180.08] loss=1.15 avg=1.07
[13298 | 6181.00] loss=1.05 avg=1.07
[13299 | 6181.92] loss=1.29 avg=1.07
Generating samples...
======== SAMPLE 1 ========
gramg-font-lock-keywords)))
((syntax-propertize
`(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
,@[(math-parse-calcFunc-from-syntax) ":]")
(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
,@[(math-parse-calcFunc-from-syntax) ":]")
;;:math-expr-table:t
,@(math-parse-calcFunc-from-syntax)
(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
,@(math-parse-calcFunc-from-syntax) ":]")
;;:math-expr-table:t
,@(math-parse-calcFunc-from-syntax)
(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
":]")
;;:math-expr-table:t
,@(math-parse-calcFunc-from-syntax)
(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
":]")
(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
(:font ":bold" ,@(math-parse-calcFunc-from-syntax)
":]"))
(+ 1
(math-parse-calcFunc-from-syntax)
(math-parse-calcFunc-from-syntax)))
(math-read-input "#*From:" math-prec-output-1 nil)
;;:math-expr-table:t
;;(if (called-interactively-p 'interactive)
(math-expr-table
======== SAMPLE 2 ========
gramn-c-invisible-on-display))
;; FIXME: This function must be removed
;; from `c-deftest-c-fontify-symbols'.
(c-font-lock-type-face c-font-lock-type-face 'font-lock))
)
(c-cache-display-function 'c-cache-show-cache-name))
(defun c-cache-display-function (a)
"Return the display table `c-cache-display' for that table."
(if (eq (c-car-vector a) 'font-lock-case)
(c-cache-cache-name (c-getc-cache-name "c-cache-display"))
(if (< a 0)
(error "Cannot display an entire entry: %s" a)
(c-cache-display-function "c-cache-display" :data t)
(or c-cache-cache-cache-name c-cache-cache-c-cache-cache-name)
(error "Cannot display any entry: %s" a))))
(defun c-cache-set-file (c &optional file)
"Set the CURRENT FILENAME to FILE. This function has no effect if the current file
is not a file."
(let ((cache (c-getc-cache-name "cache"))
(c-name (car cache)))
(if (or file name)
(error "Cannot set: %s" name)
(c-cache-cache-name
(car (cdr cache)))
(let ((c (assoc c c-cache-cache-cached-alist))
(i 0)
(tmp-list (nthcdr (1- (length tmp-list)))
(tmp-list-no-properties 0)))
(setcdr (assoc tmp-list c) t)))
(if cache
(error "Cannot set: nil" 'c-cache-cache-no-properties)))
(or (eq (cdr c) c)
(error "Cannot set: 'c-cache-list-no-properties"))
(dolist (tmp-list tmp-list)
(setq tmp-list
(apply (cdr tmp-list) (concat tmp-list-alist)))))
(or (eq (cdr tmp-list) c)
(error "Cannot set: 'c-default-cache-list-no-properties"))
(dolist (tmp-list tmp-list)
(setq tmp-list (concat tmp-list-alist)))))
(defun c-cache-get-cache-name (name)
"Return the cache name for THIS NAME."
(concat "c:/" name)))
(defun c-cache-get-cache-name-all (name)
"Return number of caches in THIS NAME in a list.
This function cannot be called with a prefix argument."
(let ((cache-list (c-getc-cache-name "cache-list"))
cache-list-no-properties)
(dolist (name cache-list)
(if (nthcdr (1- (length name)) cache-list-no-properties)
(error "Cannot use %s" name (nth 1 cache-list)))
(goto-char beg)
(unless (eobp)
======== SAMPLE 3 ========
gramm-define-default-map
[^0-9]+... [A-Za-z0-9_]+ {3,}"
"\\|"
[^0-9]+...[0-9]\\{1,}"
"\\|"
(let ((map (make-sparse-keymap)))
(if (eobp)
(error "Invalid map: [A-Za-z0-9_]+"))
(define-key map [A-Za-z0-9-2] 'define)
(define-key map "\C-cC-c" 'define-maphash-map)
map)
;; If we are trying to parse a buffer, use this to put that buffer into the
;; definition.
(pcomplete-define-map (mapc 'define-map (make-sparse-keymap)))
`("\\{define-key \".define}"
("\\|" (define-define-key map [A-Za-z0-9_]+
'define-maphash-map)
["#define-[A-Za-z0-9-1] Xcode C#]"
(define-key map [A-Za-z0-9-2] 'define-maphash-map)
"\C-cC-c" "define-maphash-map"))
"Keymap for `pcomplete-define-define'.")
(defvar pcomplete-define-map) ;(make-sparse-keymap 'pcomplete-define-map)
(defun pcomplete-define-map (list)
"Return the `pcomplete-define' map.
It is also searched for by `pcomplete-set-default-map'."
(let ((map (pcomplete-define-map list)))
(pcomplete-define-map))
(define-key map "\M-[%s]"
(lambda (s)
(let ((map (make-sparse-keymap s)))
(define-default map)))
map))
(defun pcomplete-define-map (keylist &optional no-warn)
(let ((map (make-sparse-keymap keylist)))
(pcomplete-define-map (list keylist) t)))
(declare-function pcomplete-define-setup "pcomplete" ())
(defun pcomp-define-map (&optional let-alias)
(let ((map (make-sparse-keymap)))
(pcomplete-define-map (let ((var (or (aref pcomplete-define-map
(list "\\\"" 'font-lock-keywords)))
(set-keymap-parent let-alias 'font-lock-keywords)))))
(pcomplete-define-map (list var) "\\s-+")
(mapc #'define-key map "" nil t)))
(defun pcomplete-define-set-default-map ()
(let ((map (make-sparse-keymap)))
(pcomplete-define-map (make-sparse-keymap)))
;; set-default-after-kill-buffer is a hack for making sure pcomplete will check
;; for the name of the macro, and also to handle an "default" macro
;; that is defined. It is also useful for setting up the variables to
;; override the value of variable and macro values.
(if (null pcomplete-define-map)
======== SAMPLE 4 ========
gram.el)
(setq c-c-block-list t
(goto-char (or (eobp) 0))
(goto-char (point-max))))
(cl-defmethod b-table ((elem &optional column)
'paragraph)
"Return TABLE as a list-line for the current buffer.
Optional argument column is a number.
A table may contain two elements: a block of text and
a column. A table should have an empty string before the
number. Column must be one of 0, 1 or 2. The argument can also be an
element, which must be a list."
(cl-defmethod (b-table (nth 1 entry))
(nthcdr 2 entry))
(cl-defmethod (b-table (nth 3 entry))
(nth 1 entry))
(let ((table (append table column)))
(if column 0
(if b-list
(message "Table %d: " (or b-list
(nth 1 entry) " contains one line"))
(while (and b-list
(> row-count (list column) (length table)))
(setq table table)
(error "No more entries for %s than %d lines in B-list"))
(if b-list
(message "Table %d: " (or b-list
b-list
(nth 2 entry))
(setq table c c-list)
(setq c c-lst-table table c c-lst-table)
(error "Cannot find entry for %d of B-list" row-count number)))))
(cl-defmethod b-table (table)
"Return TABLE containing the line width, column and row values of TABLE."
(setq b-list
table)
(let ((column (if (member table column) table -1 column))
(row-count (if (member table row)
(- row-count
(- row-count
(- row-count (+ row-count 1)))))
;; Table of 3, 2, + or (a-a-n-w-e) blocks.
(r-size (if (member table col) (member table row))))
;; Table of 3, 2, + or (a-a-n-w-e) blocks.
;; (if row < col, then row will change column.)
;; Column of row.
[13300 | 6207.48] loss=1.18 avg=1.07
[13301 | 6208.39] loss=1.31 avg=1.07
[13302 | 6209.31] loss=1.38 avg=1.08
[13303 | 6210.22] loss=0.71 avg=1.07
[13304 | 6211.14] loss=0.97 avg=1.07
[13305 | 6212.06] loss=0.98 avg=1.07
[13306 | 6212.97] loss=0.99 avg=1.07
[13307 | 6213.89] loss=1.51 avg=1.07
[13308 | 6214.81] loss=0.68 avg=1.07
[13309 | 6215.73] loss=1.33 avg=1.07
[13310 | 6216.65] loss=1.14 avg=1.07
[13311 | 6217.56] loss=1.13 avg=1.07
[13312 | 6218.48] loss=0.99 avg=1.07
[13313 | 6219.40] loss=0.74 avg=1.07
[13314 | 6220.31] loss=1.27 avg=1.07
[13315 | 6221.23] loss=1.30 avg=1.07
[13316 | 6222.14] loss=0.75 avg=1.07
[13317 | 6223.06] loss=0.94 avg=1.07
[13318 | 6223.98] loss=1.41 avg=1.07
[13319 | 6224.89] loss=0.73 avg=1.07
[13320 | 6225.80] loss=0.82 avg=1.07
[13321 | 6226.72] loss=1.15 avg=1.07
[13322 | 6227.64] loss=0.78 avg=1.07
[13323 | 6228.56] loss=0.81 avg=1.06
[13324 | 6229.47] loss=1.29 avg=1.07
[13325 | 6230.39] loss=1.12 avg=1.07
[13326 | 6231.30] loss=1.04 avg=1.07
[13327 | 6232.22] loss=1.16 avg=1.07
[13328 | 6233.14] loss=1.07 avg=1.07
[13329 | 6234.05] loss=0.78 avg=1.06
[13330 | 6234.96] loss=1.21 avg=1.07
[13331 | 6235.88] loss=0.86 avg=1.06
[13332 | 6236.79] loss=1.11 avg=1.06
[13333 | 6237.71] loss=1.05 avg=1.06
[13334 | 6238.63] loss=1.05 avg=1.06
[13335 | 6239.54] loss=1.24 avg=1.07
[13336 | 6240.46] loss=0.95 avg=1.06
[13337 | 6241.37] loss=0.83 avg=1.06
[13338 | 6242.29] loss=1.24 avg=1.06
[13339 | 6243.20] loss=1.22 avg=1.06
[13340 | 6244.12] loss=1.14 avg=1.07
[13341 | 6245.03] loss=0.84 avg=1.06
[13342 | 6245.95] loss=0.94 avg=1.06
[13343 | 6246.86] loss=1.58 avg=1.07
[13344 | 6247.78] loss=1.01 avg=1.07
[13345 | 6248.69] loss=1.40 avg=1.07
[13346 | 6249.61] loss=0.96 avg=1.07
[13347 | 6250.52] loss=1.66 avg=1.07
[13348 | 6251.44] loss=0.76 avg=1.07
[13349 | 6252.36] loss=1.48 avg=1.08
[13350 | 6253.28] loss=0.91 avg=1.07
[13351 | 6254.19] loss=0.95 avg=1.07
[13352 | 6255.11] loss=1.47 avg=1.08
[13353 | 6256.02] loss=1.13 avg=1.08
[13354 | 6256.94] loss=1.20 avg=1.08
[13355 | 6257.85] loss=1.59 avg=1.08
[13356 | 6258.77] loss=1.37 avg=1.09
[13357 | 6259.69] loss=1.53 avg=1.09
[13358 | 6260.61] loss=1.15 avg=1.09
[13359 | 6261.52] loss=1.49 avg=1.10
[13360 | 6262.44] loss=1.09 avg=1.10
[13361 | 6263.36] loss=0.98 avg=1.09
[13362 | 6264.27] loss=1.18 avg=1.10
[13363 | 6265.19] loss=0.96 avg=1.09
[13364 | 6266.11] loss=0.93 avg=1.09
[13365 | 6267.03] loss=1.72 avg=1.10
[13366 | 6267.94] loss=1.60 avg=1.10
[13367 | 6268.86] loss=1.03 avg=1.10
[13368 | 6269.78] loss=1.55 avg=1.11
[13369 | 6270.70] loss=1.23 avg=1.11
[13370 | 6271.61] loss=0.80 avg=1.11
[13371 | 6272.53] loss=0.94 avg=1.10
[13372 | 6273.45] loss=1.10 avg=1.10
[13373 | 6274.37] loss=0.92 avg=1.10
[13374 | 6275.29] loss=1.33 avg=1.10
[13375 | 6276.21] loss=0.60 avg=1.10
[13376 | 6277.13] loss=0.82 avg=1.10
[13377 | 6278.05] loss=0.65 avg=1.09
[13378 | 6278.97] loss=1.07 avg=1.09
[13379 | 6279.89] loss=0.88 avg=1.09
[13380 | 6280.81] loss=0.89 avg=1.09
[13381 | 6281.72] loss=2.04 avg=1.10
[13382 | 6282.64] loss=1.15 avg=1.10
[13383 | 6283.57] loss=1.06 avg=1.10
[13384 | 6284.48] loss=1.32 avg=1.10
[13385 | 6285.41] loss=1.19 avg=1.10
[13386 | 6286.33] loss=0.56 avg=1.09
[13387 | 6287.25] loss=1.33 avg=1.10
[13388 | 6288.17] loss=1.04 avg=1.10
[13389 | 6289.08] loss=1.58 avg=1.10
[13390 | 6290.00] loss=0.78 avg=1.10
[13391 | 6290.92] loss=0.71 avg=1.09
[13392 | 6291.84] loss=1.06 avg=1.09
[13393 | 6292.76] loss=1.41 avg=1.10
[13394 | 6293.68] loss=1.04 avg=1.10
[13395 | 6294.59] loss=1.53 avg=1.10
[13396 | 6295.51] loss=0.76 avg=1.10
[13397 | 6296.43] loss=1.08 avg=1.10
[13398 | 6297.35] loss=1.00 avg=1.10
[13399 | 6298.27] loss=1.12 avg=1.10
Generating samples...
======== SAMPLE 1 ========
)
(when (or (null (car (cadr-alist))))
(funcall (cadr calc-trunc-p (cadr-alist) 'calcFunc-fancy))
(funcall (cadr calc-trunc-p
(cadr-alist) nil t)))))
(defun calc-trunc-function (arg)
(let (arg-list)
(while (or (not (setq arg (or (and (<= (car arg) 5) 0)) (car arg))
(< (car arg) 7) 20))
(setq arg (cons (cons (car arg) (cdr arg)) arg-list)))
(calc-remove-infos)
(calc-set-operand-offset)
(setq arg-list
(expand-abbrev map
(let ((arg-list (list args))))
(or map #'append))))))
(provide 'calc-generic)
;; Local Variables:
;; coding: utf-16-enc-char-code-string
;; End:
;;; calc.el ends here
<|endoftext|>;;; lisp.el --- C code analysis and outputting functions -*- lexical-binding: t; -*-
;; Copyright (C) 1985-1987, 1992, 1994-1996, 1997, 2001-2019 Free Software
;; Foundation, Inc.
;; Author:
;;
;; John Mackenzie <john-mackenzie at rmdeebs.org>
;; Keywords:
;; This file is part of GNU Emacs.
;;
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; See `calc-generic-compilation-defs'. Use this from
;; calc-standard.
;; * Locate the main function on the left-hand side of a file for
;; `lisp'.
;; * Go to the directory for which lisp-defs is invoked and
;; * search for `lisp-defs-directory' in the current buffer and
;; * return it to calc-generic-compilation-defs for a listing
;; * of the files in the current directory.
;;
;; ********************************----------
(defvar bacile-file-header lisp-defs-directory (make-hash-table :safe ,t :initarg)
"Directory to load lisp defs as a buffer's file header.
This is a directory to build this library library.")
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;
;; ;###autoload
(easy-mmode-define-lisp-defs
"Define Lisp defs in the lisp shell if they have an old version of
;; lisp shell. Define a function after each defusing expression in
;; lisp. The function will accept two arguments, a value
;; describing the function being used (which must be a
;; non-lisp shell function call) and a variable
;; to define the function being used (which must be a
;; Lisp expression call). Define a function if one is passed
;; and defalias it using the same defpackage as defs.
;;
;; The defcustom function (i.e. `if-let*'
======== SAMPLE 2 ========
)
;; First check whether we're in the middle of a command
(if (string-match "[\\.\\\\]" x)
(setq x (concat "[\\.\n]*\\(.\\)" x "$")))
;; We now have a function that returns something which works
;; on Emacs, we want to find something that would work on other
;; systems. If, though, it works, then we could either
;; just let the function do it ourselves, and do that by hand, or use
;; a custom function, and give the function some specific input
;; commands.
(let ((action x))
(while (setq action (assq action x))
(let ((command (get-text-property x 'action (1- (mapcar #'symbol-function
'symbol-function))))
(when command
(set-text-properties
(cdr (assq command x))
(cdr (assq command x)))))))
(if action
(setq action (assq action x))))))
(defun command-symbol--symbol-function
(symbol-function-symbol symbol-file x)
"Return list of symbols in BUFFER which are known to be defined by command.
BUFFER is an input/output buffer."
(if (and (stringp symbol) (+ (get symbol 'symbol-function) (get x 'symbol-function))
(assq (1+ (symbol-function-symbol symbol))) ; We're not in a special buffer
x ; There's another one.
(let ((action
(assq (1+ x) (assq x))))
(symbol-function-symbol symbol-file))))))
;;;###autoload
(defun newline ()
"Mark the next non-ASCII character."
(interactive)
(when (re-search-forward "^\\(" nil t)
(prefix-numeric-value 0))
(newline))))
;;;###autoload
(defun newline ()
"Mark the next non-ASCII character as POSITIVE."
(interactive)
(when (re-search-forward "^\\= " nil t)
(prefix-numeric-value 0))
(newline)))
;;;###autoload
(defun newline ()
"Mark the preceding non-ASCII character as POSITIVE."
(interactive)
(when (re-search-forward "^\\(" nil t)
(prefix-numeric-value 0))
(newline))))
;;;###autoload
(defun newline ()
"Mark the next non-ASCII char as POSITIVE."
(interactive)
(when (re-search-forward "^\\(" nil t)
(prefix-numeric-value 0))
(newline)))
;;;###autoload
(defun newline ()
"Mark the preceding non-ASCII character as POSITIVE."
(interactive)
(when (re-search-forward "^\\(" nil t
======== SAMPLE 3 ========
)
(cond ((stringp (nth 3 (org-element-property :format
:type category
:style (org-list . "data") :value group) :type (org-element-list style)))
(t alist)))))
(defun org-element-property-format (type category group custom &optional group-flag)
"Format a new item using type TYPE in the elements of the given BODY.
If GROUP and GROUP-FLAG are non-nil, return the property name for TYPE in
the groups, in the groups (if any), and return the value.
This function can be called by either of the following forms:
(START : STATEMENT-ARGEMENT)
(END : STATEMENT-ARGEMENT)
(FUNC)
(FUNC-FUNC)
(FUNC-FLAG)
(REGEXP)
(FUNCTION-REGEXP)
(FUNCTION-FLAG)
(HANDLEN)
(FUNCTION-HANDLEN)
(FONTHANDLE)
(FONT-HANDLE)
(START : ARTICLE-DATA)
(END : ARTICLE-DATA)
(FONT-HANDLE)
(FUNCTION-FUNCTION)
(FUNCTION-FLAG)
(TEST-START : HEADERS)
(HEADERS)
(HARD-START)
(HARD-HEADER)
(FUNCTION-FUNCTION)
(FUNCTION-FLAG)
(FONT-STRING)
(HEADER)
(HEADER-HIDDEN-HANDLE)
(HEADER-SPECIFIC-HANDLE)
(HEADERS)
(HEADER-STATUS)
(HEADER-CATEGORY)
(HEADER-STATIC-HANDLE)
(HEADER-HIGHLIGHT)
(HIGHLIGHT-HEADER)
(START : LINK)
(START-MARK)
(START-STATUTE)
(TAGNAMENT)
(TAG-TYPE)
(START-STATUTE)
(START-STATUTE-HEADER)
(START-STATUTE-HIGHLIGHT)
(ARTICLE)
(ARTICLE-STATUS)
(STARTERS)
(TAG-TYPE-STATUS-HEADERS)
(TAG-UNDO-BY-TAGS)
(TAG-STATUS-STATUS-HEADERS)
(START-STATUTE)
(START-STATUTE-HEADER)
(START-STATUTE-HIGHLIGHT)
(START-STATUTE-STATIC-HANDLE)
(START-STATUTE-STATIC-HIGHLIGHT)
(START-STATUTE-STATIC-HIGHLIGHT-HEADER)
(START-STATUTE-STATIC-HIGHLIGHT-HEADER-STATUS)
(STATUS-STATUS)
(STATUS-STATUS-STATUS)
(STATUS-STATUS-STAT)
Here is the first level of this function, but I have found it very useful to add functionality to it.
(defvar org-element-format-formulas
'("\\(" \t")
;; If the FORM-LIST is empty, return nil .
(if (and (stringp (nth 4 org-element-format-function))
(> (nth 1 org-element-format-function) 0))
(< (nth 1 org-element-format-function) 0)))
#'concat
;; If the result of FORM-LIST is a string,
======== SAMPLE 4 ========
) (set (lambda (x) (string= (substring x 0 1)) (string= (substring x -1) 1)))))
;; The function 'buffer-pairs-contents' was made to work with the
;; `window-pixels' variable, rather than with (window-pixels t)
;; `window-number-pixels'. The value of (window-pixels t) can be
;; changed. The function 'window-pixels (function)) was
;; re-implemented to handle multiple display sizes. Since that
;; was not a part of the default, it makes sense to use the
;; `frame-positions' variable for making it more robust. On a
;; level of generalizability, the `frame-locate-bounds' setting is still
;; worth considering.
;;; Code:
(eval-when-compile (require 'cl-lib)
"Compile Emacs Lisp code using the new display-pixels mode."
(declare (debug (format "(font-lock-mode) %s") (font-spec '(:foreground "Black" :background "Dark green"))
(font-spec '(:foreground "Black" :background "Dark green")
(or t t))
(frame-positions '((:overline) t t))
(window-pixels '(:foreground "Dark green" :background "Dark green"))
(frame-positions '(:horizontal-only (:height 0 :right)
:underline)
:line-break-function
nil)
(display-pixels '(3)))))
(eval-when-compile
(require 'font-lock-keywords)
(let ((locate-bounds (font-spec '(:background:black :foreground :foreground "Dark green") :underline)
(window-pixels '((:horizontal-only (x :height))
:underline)
:line-break-function
:line-break-function
:line-break-function)))))
(when locate-bounds (set (make-local-variable 'buffer-file-coding-system)
(if (bufferp buffer)
buffer
(concat (
[13400 | 6323.93] loss=0.87 avg=1.09
[13401 | 6324.85] loss=0.82 avg=1.09
[13402 | 6325.76] loss=1.01 avg=1.09
[13403 | 6326.67] loss=0.97 avg=1.09
[13404 | 6327.58] loss=1.43 avg=1.09
[13405 | 6328.50] loss=1.36 avg=1.10
[13406 | 6329.41] loss=1.28 avg=1.10
[13407 | 6330.32] loss=1.12 avg=1.10
[13408 | 6331.24] loss=1.67 avg=1.10
[13409 | 6332.15] loss=1.37 avg=1.11
[13410 | 6333.07] loss=0.71 avg=1.10
[13411 | 6333.98] loss=1.62 avg=1.11
[13412 | 6334.89] loss=1.13 avg=1.11
[13413 | 6335.80] loss=1.42 avg=1.11
[13414 | 6336.71] loss=1.11 avg=1.11
[13415 | 6337.63] loss=0.73 avg=1.11
[13416 | 6338.54] loss=1.19 avg=1.11
[13417 | 6339.45] loss=0.93 avg=1.11
[13418 | 6340.37] loss=1.09 avg=1.11
[13419 | 6341.28] loss=1.33 avg=1.11
[13420 | 6342.20] loss=1.14 avg=1.11
[13421 | 6343.11] loss=1.24 avg=1.11
[13422 | 6344.03] loss=1.28 avg=1.11
[13423 | 6344.94] loss=0.79 avg=1.11
[13424 | 6345.86] loss=0.69 avg=1.10
[13425 | 6346.77] loss=1.11 avg=1.10
[13426 | 6347.69] loss=0.92 avg=1.10
[13427 | 6348.61] loss=1.14 avg=1.10
[13428 | 6349.53] loss=1.47 avg=1.11
[13429 | 6350.45] loss=0.92 avg=1.10
[13430 | 6351.37] loss=0.73 avg=1.10
[13431 | 6352.28] loss=0.83 avg=1.10
[13432 | 6353.20] loss=0.94 avg=1.10
[13433 | 6354.12] loss=1.10 avg=1.10
[13434 | 6355.04] loss=0.88 avg=1.09
[13435 | 6355.96] loss=0.72 avg=1.09
[13436 | 6356.87] loss=1.38 avg=1.09
[13437 | 6357.79] loss=0.92 avg=1.09
[13438 | 6358.71] loss=1.19 avg=1.09
[13439 | 6359.63] loss=1.36 avg=1.10
[13440 | 6360.55] loss=0.87 avg=1.09
[13441 | 6361.46] loss=1.66 avg=1.10
[13442 | 6362.38] loss=1.24 avg=1.10
[13443 | 6363.30] loss=0.98 avg=1.10
[13444 | 6364.22] loss=0.93 avg=1.10
[13445 | 6365.14] loss=0.62 avg=1.09
[13446 | 6366.06] loss=1.02 avg=1.09
[13447 | 6366.98] loss=0.82 avg=1.09
[13448 | 6367.90] loss=0.95 avg=1.09
[13449 | 6368.82] loss=0.91 avg=1.09
[13450 | 6369.75] loss=1.07 avg=1.09
[13451 | 6370.67] loss=0.68 avg=1.08
[13452 | 6371.59] loss=0.96 avg=1.08
[13453 | 6372.51] loss=1.08 avg=1.08
[13454 | 6373.43] loss=1.10 avg=1.08
[13455 | 6374.36] loss=1.44 avg=1.08
[13456 | 6375.28] loss=1.44 avg=1.09
[13457 | 6376.20] loss=0.70 avg=1.08
[13458 | 6377.12] loss=0.84 avg=1.08
[13459 | 6378.05] loss=0.96 avg=1.08
[13460 | 6378.97] loss=1.14 avg=1.08
[13461 | 6379.89] loss=1.15 avg=1.08
[13462 | 6380.82] loss=0.89 avg=1.08
[13463 | 6381.74] loss=1.65 avg=1.09
[13464 | 6382.66] loss=1.28 avg=1.09
[13465 | 6383.58] loss=1.10 avg=1.09
[13466 | 6384.50] loss=0.88 avg=1.09
[13467 | 6385.43] loss=1.60 avg=1.09
[13468 | 6386.34] loss=1.12 avg=1.09
[13469 | 6387.26] loss=0.90 avg=1.09
[13470 | 6388.19] loss=1.33 avg=1.09
[13471 | 6389.10] loss=0.86 avg=1.09
[13472 | 6390.03] loss=0.92 avg=1.09
[13473 | 6390.94] loss=1.18 avg=1.09
[13474 | 6391.86] loss=1.42 avg=1.09
[13475 | 6392.78] loss=1.11 avg=1.09
[13476 | 6393.70] loss=0.95 avg=1.09
[13477 | 6394.63] loss=1.01 avg=1.09
[13478 | 6395.55] loss=0.92 avg=1.09
[13479 | 6396.47] loss=0.99 avg=1.09
[13480 | 6397.39] loss=0.80 avg=1.08
[13481 | 6398.31] loss=0.85 avg=1.08
[13482 | 6399.23] loss=1.78 avg=1.09
[13483 | 6400.15] loss=0.73 avg=1.08
[13484 | 6401.07] loss=1.20 avg=1.09
[13485 | 6401.99] loss=0.85 avg=1.08
[13486 | 6402.91] loss=0.93 avg=1.08
[13487 | 6403.83] loss=0.96 avg=1.08
[13488 | 6404.75] loss=1.20 avg=1.08
[13489 | 6405.68] loss=0.90 avg=1.08
[13490 | 6406.60] loss=0.87 avg=1.08
[13491 | 6407.52] loss=0.59 avg=1.07
[13492 | 6408.44] loss=1.42 avg=1.08
[13493 | 6409.37] loss=1.57 avg=1.08
[13494 | 6410.28] loss=0.98 avg=1.08
[13495 | 6411.20] loss=1.13 avg=1.08
[13496 | 6412.12] loss=0.89 avg=1.08
[13497 | 6413.04] loss=1.19 avg=1.08
[13498 | 6413.96] loss=1.11 avg=1.08
[13499 | 6414.88] loss=1.46 avg=1.08
Generating samples...
======== SAMPLE 1 ========
ªm» "Е°¨ "
"Є°¯ì‚°í•ˆì–¨‘覨") (2389 . "세사蕰")
"膣³ì–‘覨 얱¨ö†¡à¹Œå‘èŸì– 덓 뾬覇酥햨½í€¶ ë°´ 윰 슨"
"픝사 얱์妴띴 쁄필 ì–´à¹Œå¦·à„‰í—ˆ ì€¹í• ëˆë´ 사물 싈와 줐둴 ìœê±°ë¦¤ë‘ìš ì‚¬ë¬¼")
("í¥ŒåŠ·å¦„ì§ˆì¼ì§… ì¼í• ëŠ¥ 세 첨솄첨 ì¡°ìš»íˆìžˆíƒ•í• í• í• í• í• ì–¼ë³ ì•„ë¦´í•„")
("짊에 캛리필리앂 ì‚ ì°” 소를숤") (2499 . "Ɋ“을 은묨 은문 줐니알밡양 줐니알밡양 아는 ì€ë¬¨ì•„ì— ê¸° 아는 ì‚ ì˜ë ¹ë¡ì§€ì–‘ ì¤ë ¹ë¡å‡”í„•å—‘å˜­ì„å¦—å†§æ—¼ 은에 ì€ë ¹ì–‘ 줐니앰밡양 줐니알밡양 ì•„í• í• í• í• ì–¼ë¬ ì§ˆì„í†Œ 얼에수길 소를싖")
(3540 . "섰 ì‚ í• ë‹£ 얲길 섰") (3203 . "
======== SAMPLE 2 ========
‹à³Šà¸¢à¹Œà¸€à¸°à¸¯à¸à¸°"
"สะย์สะหอง"
"สะเะสะเะแะสะแา"
"สะแา่ลอา"
"สะ่าทศ์"
"สะ๊า"
"สะ๋า"
"สะ๒กะ"
"สะ็ารั่"
"ส็าาาระนคาดษชะ"
"ส่าาทศงิฐกะส่าะาาณ"
"ส่าะาาำ"
"ส่าะาำสะส๲ะาาัิุà¡"
"ส่าะำสะะะ์"
"ส่าาำำคาะส๲ะะะ์"
"à¸§à¸à†…à¹Œ"
"วกà‡èˆˆà¸¹à¸«à¸¢à¹Œ"
"วกà‡Ã¼à¸‡à¸£à¸£à¹Œà¸à¸²à¸©à¸™à¸Šà¸±à¸‡à¸²à¸°à¸ªà¸°à¸žà¸±
======== SAMPLE 3 ========
¤»–")
(2032 . "ᕸ㌣¨ 칰딬 하")
(2035 . "앸 핖객 칰내 칰")
(2036 . "실 금 깛")
(2038 . "쯸 ꧈ 땄")
(20716 . "Ǘ‰ 뺈 붻폗핲 칰내 ì¹°")
(20717 . "한닶 마 녜 칰내 칰")
(20722 . "밿 마 녜 칰")
(20727 . "빛울 헂강 깛맕 칰")
(20386 . "실 몳")
(20736 . "바 죄 죄솝새 칰내 칰질질 칌윧엜 칰내 칰")
(20742 . "모 ëŠ„ë¨¨í• ì¹°")
(20393 . "ëˆ˜ë ¤ë›„ 칰내 ì¹°")
(20739 . "늖람를 늀갗 뷀내 칰")
(20631 . "실 확쓄 íš¨í• ì¹°ë‚´ 칰질 칰내 칰질질뇈질 칰내 ì¹°")
(20638 . "ì° ì„±í’ˆ ë§ˆí• ì¹°ë‚´ 칰내 칰내 칰환 칰내 ì¹°")
(20743 . "슍을 칰내 칰내 칰내 칰 칰내 칰 칰")
(20639 . "실리질 칰뜨우리촦 ì¹°ë¡œí• ì¹°")
(20640 . "배마 칰릴 ì¹° ì¹°ì§ ì¹° ì¹°ì§ˆë“¦í• ì¹°
======== SAMPLE 4 ========
¤­£éŒ£éŒ§.")
("hใu콜„¼ìƒ¬ê±°")
("hใu콀€ìƒ¬é§é”™" "釀途邘邚")
("hใu콂ȵ˜ì–¸")
("hใu콂ȵ™ì—¸ìƒ¹, 엸얫올릴밀집집줈실게")
("h๻ì¶(니 지샥릴리 지니지먹왼 지니 지먹왼 지돍ɏì–¸ ì§€é§ˆë¦Œì–´ë¥¼í• í• ì§€í• ì§€ë‡¤ìˆ¸ ì§€ìŠ¸í• ì§€í• ì§€ë§ˆë¦Œ 지멍리랑 ì§€í• í• ì§€æ§ªì–¸ 지먹지항항 지항 지항 지를딨­ì°¨")
("hใuì½‰ì— ìƒª 얨얼얰곱나늊 첔슬 야 첔햾섉름 첔갑실화룈")
("hใu콈슓싐 ìš¸ì–©ë¥¨ë ˆí•„ì—© 언를모연갌짖 옄륩묩물 ì—³ì§Œí‚ ì˜…ë¬–´í–¸ë´ 좜릧아문 지 ì—¸ë‹”ëŒí¥¼ 울엸")
("hใu콊직첲킴엸니리의룝ì´ì§í¯ 읜기 처읬말 섓 챰엸덩 ì–¸ë¥¼ë¬±ëˆ˜ëˆ—í• ìˆ½ì´ë¥„ ì†œê°•ëž‘ì–í• ì¬°ë©°íŒ”
[13500 | 6440.49] loss=1.41 avg=1.09
[13501 | 6441.41] loss=1.08 avg=1.09
[13502 | 6442.32] loss=1.20 avg=1.09
[13503 | 6443.23] loss=1.04 avg=1.09
[13504 | 6444.15] loss=1.08 avg=1.09
[13505 | 6445.06] loss=1.76 avg=1.10
[13506 | 6445.97] loss=0.88 avg=1.09
[13507 | 6446.88] loss=1.38 avg=1.10
[13508 | 6447.80] loss=1.19 avg=1.10
[13509 | 6448.71] loss=1.04 avg=1.10
[13510 | 6449.62] loss=0.93 avg=1.09
[13511 | 6450.54] loss=1.23 avg=1.10
[13512 | 6451.45] loss=0.87 avg=1.09
[13513 | 6452.36] loss=0.73 avg=1.09
[13514 | 6453.27] loss=0.93 avg=1.09
[13515 | 6454.18] loss=0.74 avg=1.08
[13516 | 6455.10] loss=0.74 avg=1.08
[13517 | 6456.00] loss=1.07 avg=1.08
[13518 | 6456.92] loss=1.08 avg=1.08
[13519 | 6457.83] loss=1.20 avg=1.08
[13520 | 6458.75] loss=1.06 avg=1.08
[13521 | 6459.66] loss=1.24 avg=1.08
[13522 | 6460.58] loss=0.86 avg=1.08
[13523 | 6461.49] loss=1.13 avg=1.08
[13524 | 6462.41] loss=1.19 avg=1.08
[13525 | 6463.32] loss=0.68 avg=1.08
[13526 | 6464.24] loss=1.56 avg=1.08
[13527 | 6465.15] loss=1.29 avg=1.09
[13528 | 6466.07] loss=1.00 avg=1.09
[13529 | 6466.99] loss=1.08 avg=1.09
[13530 | 6467.91] loss=1.61 avg=1.09
[13531 | 6468.83] loss=1.40 avg=1.09
[13532 | 6469.74] loss=1.18 avg=1.09
[13533 | 6470.66] loss=0.83 avg=1.09
[13534 | 6471.58] loss=1.00 avg=1.09
[13535 | 6472.50] loss=0.86 avg=1.09
[13536 | 6473.42] loss=1.45 avg=1.09
[13537 | 6474.34] loss=1.32 avg=1.09
[13538 | 6475.26] loss=1.51 avg=1.10
[13539 | 6476.18] loss=1.20 avg=1.10
[13540 | 6477.10] loss=1.05 avg=1.10
[13541 | 6478.02] loss=1.02 avg=1.10
[13542 | 6478.95] loss=1.38 avg=1.10
[13543 | 6479.87] loss=1.73 avg=1.11
[13544 | 6480.79] loss=1.06 avg=1.11
[13545 | 6481.71] loss=0.86 avg=1.10
[13546 | 6482.63] loss=1.33 avg=1.11
[13547 | 6483.55] loss=0.92 avg=1.10
[13548 | 6484.47] loss=0.43 avg=1.10
[13549 | 6485.39] loss=0.92 avg=1.10
[13550 | 6486.31] loss=0.81 avg=1.09
[13551 | 6487.24] loss=0.55 avg=1.09
[13552 | 6488.16] loss=1.39 avg=1.09
[13553 | 6489.09] loss=1.00 avg=1.09
[13554 | 6490.01] loss=1.36 avg=1.09
[13555 | 6490.93] loss=1.46 avg=1.10
[13556 | 6491.85] loss=1.12 avg=1.10
[13557 | 6492.77] loss=1.04 avg=1.10
[13558 | 6493.69] loss=0.94 avg=1.09
[13559 | 6494.62] loss=1.26 avg=1.10
[13560 | 6495.54] loss=1.06 avg=1.10
[13561 | 6496.46] loss=1.04 avg=1.10
[13562 | 6497.38] loss=1.31 avg=1.10
[13563 | 6498.31] loss=0.72 avg=1.09
[13564 | 6499.24] loss=1.00 avg=1.09
[13565 | 6500.16] loss=1.14 avg=1.09
[13566 | 6501.08] loss=0.46 avg=1.09
[13567 | 6502.00] loss=1.14 avg=1.09
[13568 | 6502.92] loss=0.96 avg=1.09
[13569 | 6503.84] loss=1.22 avg=1.09
[13570 | 6504.77] loss=0.73 avg=1.08
[13571 | 6505.69] loss=0.74 avg=1.08
[13572 | 6506.61] loss=0.89 avg=1.08
[13573 | 6507.53] loss=0.67 avg=1.07
[13574 | 6508.45] loss=0.99 avg=1.07
[13575 | 6509.37] loss=0.75 avg=1.07
[13576 | 6510.30] loss=0.89 avg=1.07
[13577 | 6511.21] loss=0.67 avg=1.06
[13578 | 6512.13] loss=0.82 avg=1.06
[13579 | 6513.05] loss=1.15 avg=1.06
[13580 | 6513.97] loss=0.89 avg=1.06
[13581 | 6514.88] loss=1.32 avg=1.06
[13582 | 6515.80] loss=0.93 avg=1.06
[13583 | 6516.73] loss=0.94 avg=1.06
[13584 | 6517.65] loss=1.65 avg=1.07
[13585 | 6518.57] loss=1.45 avg=1.07
[13586 | 6519.49] loss=0.88 avg=1.07
[13587 | 6520.42] loss=1.40 avg=1.07
[13588 | 6521.33] loss=0.92 avg=1.07
[13589 | 6522.25] loss=1.42 avg=1.07
[13590 | 6523.17] loss=0.86 avg=1.07
[13591 | 6524.09] loss=1.04 avg=1.07
[13592 | 6525.01] loss=0.99 avg=1.07
[13593 | 6525.94] loss=0.79 avg=1.07
[13594 | 6526.86] loss=1.15 avg=1.07
[13595 | 6527.78] loss=0.91 avg=1.07
[13596 | 6528.70] loss=0.90 avg=1.07
[13597 | 6529.62] loss=1.09 avg=1.07
[13598 | 6530.54] loss=1.72 avg=1.07
[13599 | 6531.46] loss=0.72 avg=1.07
Generating samples...
======== SAMPLE 1 ========
forms to be run."
(interactive)
(let (fn-bindings)
(mapcan-apply #'map-fun
(lambda (arg)
(setq arg nil
;; A simple command to specify the binding value. Note that if we
;; use this value, then the user will be queried
;; directly.
(or (and (member arg #'apply)
(not (and #'lambda-bindings
(<= arg 4)))
(eq (assoc (cdr arg)
;; The symbol `apply' is used as a generic binding
;; parameter.
(assoc (cdr arg)
(cdr arg)))))
(when fn-bindings
(and (not #'apply)
(not (member fn-bindings (cdr fn-bindings)))))
(let ((cdr (assoc-default fn-bindings (cdr fn-bindings))))
(setq fn-bindings (cons fn-bindings cdr)))
(push (cons fn-bindings cdr)
(kill-buffer-kill-hook (cdr fn-bindings))))))))
(call-interactively #'mapcar-define-local #'mapcar-mapcar)
(should (or (eq ?\ ] (symbolp (cdr (assq 'mapcar mapcar)))
mapc-mapcar)
(mapcar-define-local #'mapcar-mapcar)
mapc-mapcar)))
(ert-deftest mapcar-mapcar-define-local ()
(mapcar-define-local "foo" "bar" "foo")
(mapcar-define-local "foo_foo" "bar_bar_" "foo")
(mapcar-define-local "bar" "bar_foo_foo_bar_" "bar_bar_foo_bar")
(mapcar-define-local "bar_bar_foo_bar_" "bar"))
(ert-deftest mapcar-mapcar-define-local-internal ()
(mapcar-define-local "foo" "bar")
(mapcar-define-local "foo_foo" "bar_bar_bar_" "bar_bar_foo_bar")
(mapcar
======== SAMPLE 2 ========
forms at point.
Use \\[universal-argument] `universal-argument' to give `org-link-command' an
exclamation-point prefix."
(save-excursion
(goto-char (if org-link-command 'link-at 'link-at)
com-link-command (list (point) (forward-line)))
(and org-link-command
(looking-at org-link-command))
(org-link-command org-link-command)
(org-add-info 'end (point)))
(org-mode-line-update)
(let (org-file-name)
;; This should be a string rather than a file name.
(while (and (string-match
(concat "^\\(.*\\)?\\("
(regexp-opt 'org-path-name)
(regexp-opt 'org-link-command))
(file-name-nondirectory (regexp-opt 'org-root-directory))))
(setq file-name-directory (file-name-directory
org-file-name)))
(setq org-file-name
(substring file-name-directory file-name-directory)
org-file-name))));;;----------------------------------------------------------------;
;;;###autoload
(defun org-lineup ()
"Parse or return a Lineup string."
(org-forward-line -1)
(org-forward-line 1)
(save-excursion
(setq org-lineup-after-insert-function (cons org-lineup-after-insert))))
;;;###autoload
(define-derived-mode org-lineup-mode special-mode "All Lineups"
"Major mode for editing Lineup string."
(declare (indent 2))
(let* ((lineup (org-list-get-lineup)))
(if lineup (org-insert ",") (org-lineup (org-list-get-lines))))
(if (re-search-forward org-lineup-backward-regexp nil t t) (save-excursion
(end-of-line) (goto-char (match-end 1))
(re-search-forward org-lineup-forward-regexp nil t t)
(re-search-forward org-lineup-backward-regexp nil t
(let ((lineup (match-string 1)))))))))
;;;###autoload
(defun org-lineup-begin-line ()
"Insert line of this string at point."
(beginning-of-line)
(org-indent-to-region (point-min))
(skip-chars-forward " \t")
(skip-chars-forward " \t")
;; If lineup doesn't already have this, move to the next line.
(beginning-of-line)
(skip-chars-forward " \t")
(skip-chars-forward "\n")
(skip-chars-backward " \t")
;; Insert this with point at the beginning
======== SAMPLE 3 ========
forms of a group of symbols; for example, `c-n ', which is the symbol of a function, the symbol of a function is the symbol of a function.
When any symbol is a subexpression of a symbol on the left side of a group,
that symbol is a substitute of the subexpression on the right side.
For an expression:
(setq e (nreverse e))
(eq e 'C' \"\". ; the left side of an expression with `c'
(setq e (cons '(n 1) e)))
(setq e (cdr e)))
(when (and (eq (car e) 's-0)
(eq (car e) -0)
;; For a `b' operator. If the symbol is a BOL, then just add the
;; singleton to the left of the symbol's parent
;; function if the parent is a subexpression. And add
;; the last part of the subexpression to the left of it
;; if it contains a double.
(eq major-mode 'symbol-table)
t)
(setq e (nreverse e)))
(when (null e)
(or (vectorp e) (member e `(lambda ...))
(progn (setq e (cdr e)))
(setq e (point-max))))
(forward-char 1))
(defun c-x-or-c-maybe-eql (subexpression &optional nonempty)
"Return non-nil if a C syntax expression matching this SUBPROPERTY is valid."
(gsubexpression '(1 2 3 4))
(let* ((subsubexpression
(cons (symbol-name (abbreviate-file-name subexpression)) (abbreviate-file-name subexpression)))
(propertize subexpression nonempty subsubexpression)
(+ (- (point-max) 14) (- (point-max) 2))))
(defun c-x-maybe-eval-eql (subexpression)
"Return non-nil if a C syntax expression matching THIS SUBPROPERTY is valid."
;; If the subexpression can't be called with a prefix at point, it'll be called
;; directly from BODY, so in that case we'll assume that if a subexpression matches
;; SUBPROPERTY directly, the subexpression will do the right thing for that
;; prefix. The return value is always nil.
(cond
((eq (car-safe (zerop (cdr subexpression))) t)
;; A subexpression is a symbol whose parents are C's and whose parent
;; is the value of SUBPROPERTY of a symbol. If BODY is in range, the
;; result is the symbol of that subexpression.
t)
((consp b)
(car b))
(t
;; Find subexpression's parent and return true, otherwise not enough.
(if (> subsubexpression 0)
(setq subsubexpression (1- subsubexpression))))
((eq (car-safe (cdr subexpression)))
(c-clear-syntax-table))
(setq b (cdr b)))
((eq (car-safe (cdr subexpression)) 'C)
(c-delete-syntax-table)
(car (cdr b))))
(
======== SAMPLE 4 ========
forms
(append
(lambda ()
(cond
((progn
(goto-char (car-safe (car-safe (cdr-safe (cdr-altp)))))))
t)
((match-end 3)
(insert "\n"))
((equal "yay")
(insert "yay"))
((eq "yay") t))
(t
(forward-line)))
((not match-end)
(concat ": "
(point-max) "; ")))
(t
(forward-line))))))
(defun rng-forward-comment (string) (if (equal string "*")
""
"*")
"Forward the current line to the current text.
STRING is a list of strings, each of which should
be one of them as a string; in this case, the \"*\"
string is the string to insert before or after."
(save-excursion
(save-restriction
(let ((buf (read-from-string string)))
(erase-buffer) nil)
(goto-char (point-min)))))
(defun rng-back-comment (string)
"Move the current line to the current text.
STRING is a list of strings. When the second arg
non-nil, use "\" as the character name."
(save-excursion
(move-to-buffer-other-frame
(save-excursion
(goto-char (point-max))
(let ((str (buffer-substring string (point)))
(buf (read-buffer (current-buffer)))
(inhibit-modifications t)
(bufargs (read-from-minibuffer string))
(string (buffer-substring string t t)))
(message "Beginning \"\" comment...done")))
(message "Beginning \"\" comment...")
;; Skip a comment.
(let ((buf (read-from-minibuffer string)))
(goto-char (point-min)))))
(defun rng-current-comment (string)
"Move the current line to the current text in the current buffer.
STRING is a list of strings, each of which should be a comment,
starting with a space. When the second arg "\" is non-nil, use \"\"
equally as character name."
(save-excursion
(goto-char (point-min))
(goto-char (point-min)))))
(defun rng-parse-comment ()
"<"
"<"
"<"
"\n"
"\n"
(let ((
[13600 | 6557.06] loss=0.80 avg=1.07
[13601 | 6557.98] loss=1.00 avg=1.07
[13602 | 6558.90] loss=0.98 avg=1.06
[13603 | 6559.81] loss=0.99 avg=1.06
[13604 | 6560.73] loss=0.89 avg=1.06
[13605 | 6561.64] loss=1.24 avg=1.06
[13606 | 6562.56] loss=1.44 avg=1.07
[13607 | 6563.47] loss=1.28 avg=1.07
[13608 | 6564.39] loss=1.63 avg=1.08
[13609 | 6565.30] loss=0.89 avg=1.07
[13610 | 6566.21] loss=0.62 avg=1.07
[13611 | 6567.12] loss=0.93 avg=1.07
[13612 | 6568.03] loss=0.88 avg=1.07
[13613 | 6568.95] loss=1.00 avg=1.07
[13614 | 6569.86] loss=1.10 avg=1.07
[13615 | 6570.77] loss=1.45 avg=1.07
[13616 | 6571.69] loss=1.57 avg=1.07
[13617 | 6572.60] loss=0.95 avg=1.07
[13618 | 6573.52] loss=0.85 avg=1.07
[13619 | 6574.43] loss=0.78 avg=1.07
[13620 | 6575.34] loss=0.66 avg=1.06
[13621 | 6576.25] loss=1.04 avg=1.06
[13622 | 6577.17] loss=1.18 avg=1.06
[13623 | 6578.09] loss=0.85 avg=1.06
[13624 | 6579.01] loss=0.97 avg=1.06
[13625 | 6579.93] loss=1.03 avg=1.06
[13626 | 6580.85] loss=1.21 avg=1.06
[13627 | 6581.76] loss=1.36 avg=1.07
[13628 | 6582.68] loss=0.82 avg=1.06
[13629 | 6583.60] loss=1.22 avg=1.07
[13630 | 6584.51] loss=0.75 avg=1.06
[13631 | 6585.43] loss=0.80 avg=1.06
[13632 | 6586.34] loss=0.78 avg=1.06
[13633 | 6587.26] loss=0.78 avg=1.05
[13634 | 6588.19] loss=0.96 avg=1.05
[13635 | 6589.11] loss=1.12 avg=1.05
[13636 | 6590.03] loss=0.98 avg=1.05
[13637 | 6590.95] loss=1.14 avg=1.05
[13638 | 6591.87] loss=0.65 avg=1.05
[13639 | 6592.79] loss=1.03 avg=1.05
[13640 | 6593.70] loss=0.55 avg=1.04
[13641 | 6594.62] loss=1.16 avg=1.05
[13642 | 6595.54] loss=1.01 avg=1.05
[13643 | 6596.46] loss=0.85 avg=1.04
[13644 | 6597.38] loss=1.10 avg=1.04
[13645 | 6598.30] loss=1.05 avg=1.04
[13646 | 6599.22] loss=1.23 avg=1.05
[13647 | 6600.14] loss=0.65 avg=1.04
[13648 | 6601.06] loss=1.23 avg=1.04
[13649 | 6601.99] loss=1.02 avg=1.04
[13650 | 6602.91] loss=1.39 avg=1.05
[13651 | 6603.83] loss=0.89 avg=1.05
[13652 | 6604.76] loss=0.97 avg=1.04
[13653 | 6605.68] loss=1.19 avg=1.05
[13654 | 6606.60] loss=0.81 avg=1.04
[13655 | 6607.52] loss=1.19 avg=1.05
[13656 | 6608.44] loss=1.14 avg=1.05
[13657 | 6609.36] loss=0.68 avg=1.04
[13658 | 6610.28] loss=1.19 avg=1.04
[13659 | 6611.20] loss=0.56 avg=1.04
[13660 | 6612.12] loss=1.01 avg=1.04
[13661 | 6613.04] loss=0.99 avg=1.04
[13662 | 6613.96] loss=1.63 avg=1.04
[13663 | 6614.88] loss=1.15 avg=1.05
[13664 | 6615.80] loss=0.94 avg=1.04
[13665 | 6616.72] loss=0.95 avg=1.04
[13666 | 6617.64] loss=0.70 avg=1.04
[13667 | 6618.57] loss=0.88 avg=1.04
[13668 | 6619.49] loss=1.27 avg=1.04
[13669 | 6620.41] loss=1.61 avg=1.05
[13670 | 6621.33] loss=1.69 avg=1.05
[13671 | 6622.25] loss=1.22 avg=1.05
[13672 | 6623.18] loss=0.88 avg=1.05
[13673 | 6624.10] loss=0.91 avg=1.05
[13674 | 6625.02] loss=0.87 avg=1.05
[13675 | 6625.94] loss=0.93 avg=1.05
[13676 | 6626.86] loss=0.94 avg=1.05
[13677 | 6627.78] loss=0.48 avg=1.04
[13678 | 6628.70] loss=1.42 avg=1.05
[13679 | 6629.61] loss=1.23 avg=1.05
[13680 | 6630.53] loss=1.00 avg=1.05
[13681 | 6631.45] loss=0.93 avg=1.05
[13682 | 6632.37] loss=1.27 avg=1.05
[13683 | 6633.29] loss=0.97 avg=1.05
[13684 | 6634.21] loss=0.87 avg=1.05
[13685 | 6635.13] loss=1.15 avg=1.05
[13686 | 6636.05] loss=1.02 avg=1.05
[13687 | 6636.97] loss=1.35 avg=1.05
[13688 | 6637.89] loss=0.84 avg=1.05
[13689 | 6638.81] loss=0.88 avg=1.05
[13690 | 6639.73] loss=0.70 avg=1.04
[13691 | 6640.65] loss=0.78 avg=1.04
[13692 | 6641.57] loss=1.31 avg=1.04
[13693 | 6642.48] loss=1.22 avg=1.04
[13694 | 6643.40] loss=0.70 avg=1.04
[13695 | 6644.32] loss=1.02 avg=1.04
[13696 | 6645.24] loss=0.62 avg=1.04
[13697 | 6646.16] loss=0.99 avg=1.04
[13698 | 6647.07] loss=0.72 avg=1.03
[13699 | 6648.00] loss=1.00 avg=1.03
Generating samples...
======== SAMPLE 1 ========
;; In the following example, we set the buffer to the value of the
;; default-directory in the minibuffer. This may or may not give
;; an error. If non-nil, the minibuffer is the default in
;; Emacs mode. This behavior is expected in many
;; applications, so the buffer has to be changed.
(when (and (buffer-local-value
(expand-file-name minibuffer t)
(file-name-directory minibuffer))
(expand-file-name (buffer-file-name minibuffer) t)
;; The minibuffer has been set to the default-directory when
;; we have exited that mode, so we don't get a
;; error. In this case, the following line says:
;; If Emacs only calls `set-mode-hook', this file has
;; been killed, but not changed. So we set a different
;; file, which doesn't have an explicit minibuffer.
(set-mode-hook-next-hook))))
;; Exit the minibuffer.
(while (not (eolp))
(let ((reporter-id (match-string 0)))
;; Kill the minibuffer: we need to do this so that the `set-mode-hook'
;; hook doesn't get modified when we exit Emacs!
(setq minibuffer-flag-flag
(if (null reporter-id)
(set-marker reporter-id nil))
(let ((start (point))
(inhibit-quit t))
(setq reporter-id t)
(unwind-protect
(progn (goto-char start)
(push (forward-char 15) reporter-id)
reporter-id nil)
(kill-local-variable reporter-id)
(setq reporter-id reporter-id-alist))
(unwind-protect
(progn (goto-char (point-min))
(push (or (forward-char 1)
(progn (back-to-indentation)
(skip-chars-forward " \t0-9")
======== SAMPLE 2 ========
(dired-set-auto)))
(unwind-protect
(let ((val (/ (* (setq eudc-type-level 1) 3) nil)
(eudc-display-error t)))
(dired-reset
(unless val
(dired-goto val))
(when (and (eq (car-safe eudc-user-mode-map) 'use)
(stringp eudc-user-mode-map))
(setq val (list eudc-user-mode-map))
(unless (not val) eudc-mode
(setq val 'emacs)
(setq eudc-default-map nil)))
(setq eudc-default-init-map nil))
(dired-set-defaults-map)
(setq eudc-default-mode-map (list eudc-default-map))))
val))))
(defun dired-dictionary-name-default (&optional eudc-user-mode-map)
"Read character default name from the minibuffer.
This is normally used to create a temporary buffer and record the
default name. If it is nil, it defaults to `dired-default-default'.
This function assumes that the user should have the minibuffer set up."
(interactive
(list (read-file-name "Default name" (file-name-nondirectory eudc-user-mode-map))))
(dired-set-defaults-map defaults)
(let ((minibuffer-buffer (current-buffer))
(current-buffer))
;; This function is needed for the minibuffer but not all people
;; want to be saved anyway.
(dired-dictionary-name-default
(mapconcat
(expand-file-name
(narrow-to-region (minibuffer-find-file-name eudc-user-mode-map)
start-minibuffer-name))
(mapconcat
(expand-file-name
(narrow-to-region (minibuffer-find-file-name eudc-user-mode-map)
start-minibuffer-name))
(mapconcat
(expand-file-name
(narrow-to-region (minibuffer-find-file-name eudc-user-mode-map)
start-minibuffer-name))
(mapconcat
(expand-file-name
(minibuffer-find-file-name eudc-user-mode-map))
(mapconcat
(expand-file-name
(minibuffer-find-file-name eudc-user-mode-map)
(minibuffer-find-file-name
(minibuffer-find-file-name (current-buffer)
======== SAMPLE 3 ========
(car (nth 2 (nth 2 the-new-list)))))
;; The same as above (make-list ,1) is used to evaluate
;; the rest of this line.
(if (bolp)
(progn
(while (re-search-forward "\\.$[0-9A-F]+\\(!\\\\\\)*" nil 'move)
(delete-region (match-beginning 0) (1- (match-end 0)))
(setq cml-insert-sub-paragraph s)
(setq cml-insert-sub-paragraph (cursor-minibuffer-flag t))
(setq cml-insert-sub-paragraph (nth 2 cml-insert-sub-paragraph))
(goto-char (match-beginning 0))
(when (re-search-forward "^" nil 'move)
(replace-match nil))))))
;;; Hooking up
(defalias 'gcc-insert-region 'gcc-insert-defun)
;;;; Cleanup
(defun cml-insert-state (state)
"Like `cc-insert-region' but insert all the state information."
(interactive "d")
(cml-beginning-of-sub-paragraph
(prog1
(looking-at cml-sub-paragraph) (setq state 1)
(error "No CCL-E input syntax"))))
(defun cml-insert-state-line (state &optional _ignore _key)
"Like `cc-insert-state' but insert the state LINE."
(interactive "e")
(message "Enter command to be executed:")
(re-search-forward ":?$" nil t))
(defun cml-insert-defun ()
"Insert the state at point.
Deferred state changes after `cc-insert-region' is run.
With optional argument EXIT-MODE-COOKIES, see the variable `cc-insert-state'."
(interactive)
(goto-char cml-state)
(let ((cml-state (car cml-state)))
(goto-char cml-defun))
(cancel-function cml-insert-defun)
(unless (bolp)
(message "Cannot insert state: %s" (cadr cml-state))
(error "Cannot insert at end of buffer"))
(let ((state-state (cdr cml-state))
(state-code (nth 1 state-state))
(state-region (nth 2 state-state))
(state-start nil))
(while (re-search-backward "^\\`\\([a-zA-Z0-9_]+\\).*\\|\\(?:" (regexp-quote state-code) t)
(if (or (fboundp 'c-lspace) (looking-at cml-region-regexp))
(cancel-hookup t)
(cancel-hookup)))
(cond ((string-match cml-insert-state-regexp state-code) t)
((or c-lspace (match-string 1 state-code))
(goto-char (match-beginning 0))
(while (re-search-forward "\\(.*\\)\\([a-zA-Z0-9_]+\\
======== SAMPLE 4 ========
(not (< (point-max) (progn (>= (point) last-entry) 0)))))
(error "Unknown text for category: %s" category))))))
(defvar nndoc-incoming-prompt-regexps (if (re-search-forward "[ \t]" nil t)
""
?]
"Strictly case-insensitive list of regexps to make it easier to identify specific classes of messages.")
(defsubst nndoc-incoming-prompt (prompt beg end)
"Return a plist used by Nndoc to prompt users.
BEG, END do not count as a list, but it is used to look up a new message after it.
This predicate is needed for the `nndoc-incoming-messages' function to
do it right."
(let ((prompt (concat prompt " ")) beg end)
;; The function just called by `nndoc-input-hook' should return a plist
;; that might be used in a future call to `nndoc-input-hook'; see
;; the hook function of `nndoc-input-file-alist'.
(cond
((null prompt) (message-with-line-format
(concat (file-name-directory prompt)
" " beg end) nndoc-input-error-str beg end))
;; We must do it for new messages.
;; We cannot do it for older ones - it is only a small step
(if (>= beg (point-max))
(progn
(setq message-with-line-format prompt)
(let (char-to-string)
(when (string-match "\n" prompt)
(list char-to-string)))
(nndoc-input-hook 'message-with-line-format beg end)))))
(while (not (eobp))
(if (eobp)
(user-error "No mail header at %s" prompt beg end))
(if (not beg) (message "Bad error to send to %s" prompt beg end))
(setq nndoc-error-str beg end (if nndoc-incoming-prompt-regexps
(match-string 1 prompt)
(mapconcat 'identity nndoc-incoming-prompt-regexps
(substring beg beg t t beg)))
(user-error "No error to pass to %s" prompt beg)))))
(setq nndoc-error-str beg end
nndoc-error-str nil nil beg))
(defvar nndoc-prompt-regexps
(if (re-search-forward "\\(#\\+\\(@\\)\\([0-9]\\)*\\)" nil t)
"\\(current-buffer \\(?[0-9]\\)\\)\\("
(match-string 1 t))
(let ((prompt
[13700 | 6673.57] loss=1.10 avg=1.03
[13701 | 6674.49] loss=1.18 avg=1.03
[13702 | 6675.40] loss=0.78 avg=1.03
[13703 | 6676.32] loss=0.86 avg=1.03
[13704 | 6677.23] loss=1.03 avg=1.03
[13705 | 6678.15] loss=1.39 avg=1.03
[13706 | 6679.06] loss=0.99 avg=1.03
[13707 | 6679.97] loss=1.35 avg=1.04
[13708 | 6680.89] loss=1.16 avg=1.04
[13709 | 6681.80] loss=0.97 avg=1.04
[13710 | 6682.72] loss=0.59 avg=1.03
[13711 | 6683.64] loss=1.50 avg=1.04
[13712 | 6684.55] loss=1.15 avg=1.04
[13713 | 6685.47] loss=0.95 avg=1.04
[13714 | 6686.38] loss=1.51 avg=1.04
[13715 | 6687.30] loss=1.91 avg=1.05
[13716 | 6688.21] loss=1.28 avg=1.05
[13717 | 6689.12] loss=0.67 avg=1.05
[13718 | 6690.04] loss=0.83 avg=1.05
[13719 | 6690.96] loss=0.88 avg=1.05
[13720 | 6691.87] loss=1.28 avg=1.05
[13721 | 6692.78] loss=0.73 avg=1.04
[13722 | 6693.70] loss=1.43 avg=1.05
[13723 | 6694.61] loss=1.26 avg=1.05
[13724 | 6695.53] loss=1.02 avg=1.05
[13725 | 6696.44] loss=0.47 avg=1.04
[13726 | 6697.35] loss=1.17 avg=1.05
[13727 | 6698.26] loss=1.30 avg=1.05
[13728 | 6699.18] loss=0.76 avg=1.05
[13729 | 6700.10] loss=0.83 avg=1.04
[13730 | 6701.01] loss=0.78 avg=1.04
[13731 | 6701.93] loss=0.72 avg=1.04
[13732 | 6702.84] loss=1.19 avg=1.04
[13733 | 6703.75] loss=0.69 avg=1.04
[13734 | 6704.67] loss=0.84 avg=1.03
[13735 | 6705.59] loss=0.97 avg=1.03
[13736 | 6706.51] loss=1.21 avg=1.03
[13737 | 6707.42] loss=0.99 avg=1.03
[13738 | 6708.34] loss=0.89 avg=1.03
[13739 | 6709.26] loss=1.19 avg=1.03
[13740 | 6710.17] loss=1.72 avg=1.04
[13741 | 6711.09] loss=1.10 avg=1.04
[13742 | 6712.00] loss=0.70 avg=1.04
[13743 | 6712.92] loss=1.27 avg=1.04
[13744 | 6713.84] loss=1.14 avg=1.04
[13745 | 6714.76] loss=1.35 avg=1.04
[13746 | 6715.68] loss=1.75 avg=1.05
[13747 | 6716.60] loss=1.22 avg=1.05
[13748 | 6717.51] loss=1.03 avg=1.05
[13749 | 6718.43] loss=1.42 avg=1.06
[13750 | 6719.35] loss=0.99 avg=1.06
[13751 | 6720.27] loss=1.15 avg=1.06
[13752 | 6721.19] loss=1.18 avg=1.06
[13753 | 6722.10] loss=0.85 avg=1.06
[13754 | 6723.02] loss=1.03 avg=1.06
[13755 | 6723.94] loss=0.98 avg=1.06
[13756 | 6724.86] loss=0.93 avg=1.05
[13757 | 6725.78] loss=1.05 avg=1.05
[13758 | 6726.70] loss=1.14 avg=1.05
[13759 | 6727.62] loss=1.35 avg=1.06
[13760 | 6728.54] loss=1.12 avg=1.06
[13761 | 6729.46] loss=0.80 avg=1.06
[13762 | 6730.38] loss=0.53 avg=1.05
[13763 | 6731.30] loss=0.68 avg=1.05
[13764 | 6732.22] loss=1.29 avg=1.05
[13765 | 6733.14] loss=0.72 avg=1.05
[13766 | 6734.06] loss=0.81 avg=1.04
[13767 | 6734.98] loss=1.13 avg=1.04
[13768 | 6735.90] loss=0.99 avg=1.04
[13769 | 6736.82] loss=0.73 avg=1.04
[13770 | 6737.75] loss=0.99 avg=1.04
[13771 | 6738.67] loss=1.03 avg=1.04
[13772 | 6739.59] loss=1.02 avg=1.04
[13773 | 6740.51] loss=0.65 avg=1.04
[13774 | 6741.43] loss=1.12 avg=1.04
[13775 | 6742.35] loss=1.10 avg=1.04
[13776 | 6743.28] loss=1.03 avg=1.04
[13777 | 6744.20] loss=1.61 avg=1.04
[13778 | 6745.12] loss=0.98 avg=1.04
[13779 | 6746.04] loss=1.18 avg=1.04
[13780 | 6746.96] loss=0.92 avg=1.04
[13781 | 6747.88] loss=1.04 avg=1.04
[13782 | 6748.80] loss=0.93 avg=1.04
[13783 | 6749.72] loss=0.73 avg=1.04
[13784 | 6750.64] loss=1.15 avg=1.04
[13785 | 6751.56] loss=1.08 avg=1.04
[13786 | 6752.48] loss=1.02 avg=1.04
[13787 | 6753.40] loss=0.79 avg=1.04
[13788 | 6754.32] loss=1.11 avg=1.04
[13789 | 6755.24] loss=0.80 avg=1.04
[13790 | 6756.17] loss=1.03 avg=1.04
[13791 | 6757.09] loss=0.97 avg=1.03
[13792 | 6758.01] loss=0.90 avg=1.03
[13793 | 6758.93] loss=0.96 avg=1.03
[13794 | 6759.85] loss=1.08 avg=1.03
[13795 | 6760.78] loss=0.96 avg=1.03
[13796 | 6761.70] loss=1.20 avg=1.03
[13797 | 6762.62] loss=1.70 avg=1.04
[13798 | 6763.54] loss=0.94 avg=1.04
[13799 | 6764.47] loss=0.75 avg=1.04
Generating samples...
======== SAMPLE 1 ========
dr=1" "")
"Helvetica black" "")
"Grave of Ghol" "")
"Gundam chalet" "")
"Gulf Teflon" "")
"Gothic font" "")
"Indian font" "")
"Indian sans serif" "")
"Ira" "")
"Jill-Mannian" "")
"Jill-Mannian" "")
"Kannada" "")
"Kannada" "")
"Lavish font" "")
"Lavish font" "")
"Lebanon color" "")
"Louisian font" "")
"Louisian sans serif" "")
"L'Alphabets" "")
"Latin plain" "")
"Latin plain" "")
"Latin plain color" "")
"Latin plain font" "")
"Latin font" "")
"Latin plain face" "")
"Latin plain face" "")
"Latin plain face font" "")
"Latin plain face face color" "")
"Latin plain face face color" "")
"Latin plain font" "")
"Latin plain face
")
"Latin tau" "")
"Latin tau" "")
"Latin tau" "")
"Li" "")
"Laurel" "")
"Latin dulcim" "")
"Lambda" "")
"Lebanon-type font" "")
"Lebanon-type font" "")
"Lebanon-type font face" "")
"Lebanon-type font face color" "")
"Lebanon-type font face face font color" "")
"Laurel font" "")
"Lafayette plain" "")
"Lafayette plain" "")
"Lambertan-type font" "")
"Lambertan-type font" "")
"Lafayette-type font" "")
"Lafayette blank" "")
"Lavish" "")
"Lang" "")
"Lao" "")
"Lao" "")
"Lao-type font" "")
"Lao-type font" "")
"Lao-type font face" "")
"Lao-type font face color" "")
"Lao-type font face face font color" "")
"Lao-type font face face color" "")
"Lao-type font face face font color" "")
"Lao-type font face face face" font color")
"Lao-type font face face font color")
"Lao-type font face face font color" "")
"Lao-type font face face face color" "")
"Lao-type font face face face face color" "")
"Lao-type font face face face face color" "")
"Lao-type font face face face face color" "")
"Lao-type font face face face face face color" "-1"
"Lao-type font face face face face face color" "-0"
"Lao-type font face face face face face color" "-1"
"Lao-Type font face face face face face color" "-0"
"Lao-Type font face face face face face color" "-1"
"Lao-Type font face face face face face face color" "-2"
"Lao-Type font face face face face face face color" "-3"
"Lao-Type font face face face face face face color" "")
"Lao-Type font face face face face face face color" "")
"Lao-Type font face face face face face face color" "-1"
"Lao-Type font face face face face face face color" "-2"
"Lao-Type font face face face face face face color" "")
"Lao-Type font face face face face face face color" "")
"Lao-Type font face face face face face color" "")
"Lao-Type font face face face face face face color
======== SAMPLE 2 ========
dr]
(defvar cua-bob-print-indentation "B"
"Indentation used to highlight the BibTeX buffer.")
;; This function does nothing when all is quiet except for stuff
;; that might go wrong.
;; The variables `cua-bob-indentat' and `cua-bob-mode' determine
;; what we should indent after.
(defvar cua-bob-indentat "B"
"Indentation used to highlight the BibTeX buffer.")
(defvar cua-bob-indentat-min-column-1
"Minimum number of columns to indent at column 1.")
(defvar cua-bob-indentat-min-column-2
"Minimum number of columns to indent at column 2.")
(defvar cua-bob-indentat-min-column-3
"Minimum number of columns to indent at column 3.")
(defvar cua-bob-indentat-min-column-4
"Minimum number of columns to indent at column 4.")
(defvar cua-bob-indentat-min-column-5
"Minimum number of columns to indent at column 5.")
(defvar cua-bob-indentat-min-column-6
"Minimum number of columns to indent at column 6.")
(defvar cua-bob-indentat-min-column-7
"Minimum number of columns to indent at column 7.")
(defvar cua-bob-indentat-min-column-8
"Minimum column to indent at column 8.")
(defvar cua-bob-indentat-min-column-9
"Minimum column to indent at column 9.")
(defvar cua-bob-indentat-min-column-10
"Minimum column to indent at column 10.")
;; Now this code should be removed.
;;;###autoload
(defcustom cua-bob-mode 1
"Indentation of BibTeX file.
The first value is the indentation level,
the second is the indentation percentage of end of line
and the third is the indentation depth of the buffer. The default value is
to the right."
:group 'cua
:group 'cua-bob
:type 'boolean)
(defvar cua-bp-endofline-1
"Indentation of the BibTeX file if end of line of buffer."
:group 'cua-bp)
(defcustom cua-branch-endofline-1
(if (markerp cua-bp-endofline-1)
'("")
(forward-char 1)
(backward-char 1)
(forward-sentence 2)
(forward-column 2)
(backward-char -1)
(if (and (marker-char cua-bp-endofline-1)
(= (marker-char cua-bp-endofline-1)
(char-after (point)))
(= (marker-char cua-bp-endofline-1)
(char-after (point)))
(= (char-after (point)) (char-after (point)))
(= (marker-char cua-bp-endofline-1)
(char-after (marker-char cua-bp-endofline-1)))
(= (point) (marker-char cua-bp-endofline-1)))
(= cua-bp-endofline-1 cua-bp-endofline-1))
"Line starting bibtex file before `endofline-1'."
:group 'cua-bp
:type 'integer)
(defvar cua-bp-endofline-2
"Time column after `endofline-2
======== SAMPLE 3 ========
drab "" ?Ł)
"Alive at this place.
Move to beginning and end of the code block."
:type '(repeat (choice (const :tag "begin of code block" nil)
(integer :tag "integer")
(const :tag "end of code block" nil))))
;;;###autoload
(defmacro pcase-mode (&rest body)
"Define a mode for printing a string or string.
A function bound to the body of a macro call must return the buffer
with which the print was performed. Calling this with a prefix function
requires no argument.
A function bound to the body of a macro or a macro-expansion
function must also create a new buffer, if any, to hold
the printable string or string. A function that uses this function may
print the string or the string of the printing and the string of the
expansion. To create a new buffer, it may be necessary to initialize
any existing one, and then do the same for the string or string.
A function that does not use a prefix function must do `print' with a
substitution argument; if this condition is non-nil, a function that
uses `print' does not print the string, nor can it print a
substitution, if it wants.
The prefix argument is a string that can be used to indicate how much
string to print. It is used whether the function was called from the global
or the global-variant of the current buffer or from a buffer
that contains this string. When this is both the global variable and an
variable, either the global or the global-variant has a lower
number of arguments than that of the current buffer."
;; A default for `file-name-nondirectory' is to have to add a
;; prefix or a prefix-argument just to insert the string itself.
(let ((file-name-nondirectory
(and (stringp file-name-nondirectory)
(if (and file-name-file-number file-name-file-number)
(let* ((buffer-name-nondirectory buffer-name-nondirectory))
(save-excursion
;; Do not print this string.
(while (and buffer-name-nondirectory
(not (memq file-name-name-directory file-name-nongratulations))))
(cond
((not file-name-nondirectory)
;; We're not printing any string, just like
;; if
;; `filename' (which is called with a prefix arg).
(file-name-concat file-name-nondirectory filename)))
((not file-name-nondirectory)
;; (stringp file-name-nondirectory)
======== SAMPLE 4 ========
dr 'todo)
;; FIXME: I could do "done" in `todo-mode' instead of "done-at-point".
(autoload 'todo-edit-hook "todo-edit" "\
Visit any of the buttons in a buffer at point.
The cursor is moved to the end of the buffer and the function
`todo-edit-hook' is called.
A mouse hook is run after entering the buffer.
If a function is called it returns the buffer containing the
function. A special character is called, called the value.
Each hook function should return a string."
(interactive)
(let* ((beg1 (point)))
(save-excursion
(dolist (todo (or (buffer-undo-list)
(list 'kill (or (buffer-modified-p (current-buffer))
(buffer-modified-p (current-buffer))))
(mapconcat (lambda (e)
(function (or (null (car e))
(function-if (listp e)
(list 'lambda
(function-if (listp e)
(list 'lambda
(list 'lambda
(function-if
(list 'lambda
(function-if
(list 'lambda
[13800 | 6790.05] loss=1.23 avg=1.04
[13801 | 6790.97] loss=0.88 avg=1.04
[13802 | 6791.88] loss=1.26 avg=1.04
[13803 | 6792.80] loss=1.28 avg=1.04
[13804 | 6793.72] loss=0.93 avg=1.04
[13805 | 6794.63] loss=0.82 avg=1.04
[13806 | 6795.55] loss=1.12 avg=1.04
[13807 | 6796.46] loss=1.53 avg=1.04
[13808 | 6797.38] loss=1.08 avg=1.04
[13809 | 6798.29] loss=0.70 avg=1.04
[13810 | 6799.20] loss=1.19 avg=1.04
[13811 | 6800.11] loss=1.32 avg=1.05
[13812 | 6801.02] loss=1.03 avg=1.05
[13813 | 6801.94] loss=1.01 avg=1.04
[13814 | 6802.85] loss=1.59 avg=1.05
[13815 | 6803.77] loss=1.24 avg=1.05
[13816 | 6804.68] loss=0.70 avg=1.05
[13817 | 6805.59] loss=1.07 avg=1.05
[13818 | 6806.51] loss=1.33 avg=1.05
[13819 | 6807.42] loss=0.74 avg=1.05
[13820 | 6808.33] loss=1.11 avg=1.05
[13821 | 6809.25] loss=1.10 avg=1.05
[13822 | 6810.16] loss=0.48 avg=1.04
[13823 | 6811.08] loss=1.24 avg=1.05
[13824 | 6811.99] loss=1.13 avg=1.05
[13825 | 6812.91] loss=0.83 avg=1.04
[13826 | 6813.82] loss=1.11 avg=1.05
[13827 | 6814.74] loss=0.75 avg=1.04
[13828 | 6815.65] loss=1.13 avg=1.04
[13829 | 6816.57] loss=0.88 avg=1.04
[13830 | 6817.48] loss=0.77 avg=1.04
[13831 | 6818.40] loss=0.64 avg=1.03
[13832 | 6819.32] loss=1.16 avg=1.04
[13833 | 6820.24] loss=0.68 avg=1.03
[13834 | 6821.15] loss=0.94 avg=1.03
[13835 | 6822.07] loss=0.72 avg=1.03
[13836 | 6822.99] loss=1.24 avg=1.03
[13837 | 6823.91] loss=0.92 avg=1.03
[13838 | 6824.83] loss=0.97 avg=1.03
[13839 | 6825.75] loss=0.93 avg=1.03
[13840 | 6826.67] loss=0.71 avg=1.02
[13841 | 6827.59] loss=1.27 avg=1.03
[13842 | 6828.51] loss=0.97 avg=1.03
[13843 | 6829.42] loss=0.77 avg=1.02
[13844 | 6830.35] loss=0.92 avg=1.02
[13845 | 6831.27] loss=1.02 avg=1.02
[13846 | 6832.19] loss=1.37 avg=1.03
[13847 | 6833.11] loss=0.72 avg=1.02
[13848 | 6834.04] loss=0.79 avg=1.02
[13849 | 6834.95] loss=1.10 avg=1.02
[13850 | 6835.88] loss=0.79 avg=1.02
[13851 | 6836.80] loss=0.67 avg=1.02
[13852 | 6837.72] loss=1.43 avg=1.02
[13853 | 6838.64] loss=1.31 avg=1.02
[13854 | 6839.57] loss=0.97 avg=1.02
[13855 | 6840.49] loss=1.27 avg=1.03
[13856 | 6841.42] loss=1.11 avg=1.03
[13857 | 6842.34] loss=0.97 avg=1.03
[13858 | 6843.26] loss=1.12 avg=1.03
[13859 | 6844.18] loss=1.12 avg=1.03
[13860 | 6845.11] loss=0.88 avg=1.03
[13861 | 6846.04] loss=0.97 avg=1.03
[13862 | 6846.96] loss=0.84 avg=1.02
[13863 | 6847.89] loss=1.53 avg=1.03
[13864 | 6848.81] loss=1.36 avg=1.03
[13865 | 6849.73] loss=0.92 avg=1.03
[13866 | 6850.66] loss=2.03 avg=1.04
[13867 | 6851.58] loss=0.96 avg=1.04
[13868 | 6852.50] loss=1.23 avg=1.04
[13869 | 6853.43] loss=1.38 avg=1.04
[13870 | 6854.35] loss=1.10 avg=1.05
[13871 | 6855.28] loss=1.62 avg=1.05
[13872 | 6856.20] loss=0.78 avg=1.05
[13873 | 6857.11] loss=1.00 avg=1.05
[13874 | 6858.04] loss=1.06 avg=1.05
[13875 | 6858.96] loss=1.06 avg=1.05
[13876 | 6859.88] loss=1.07 avg=1.05
[13877 | 6860.81] loss=0.73 avg=1.05
[13878 | 6861.72] loss=1.16 avg=1.05
[13879 | 6862.64] loss=1.07 avg=1.05
[13880 | 6863.56] loss=1.16 avg=1.05
[13881 | 6864.48] loss=0.71 avg=1.04
[13882 | 6865.40] loss=0.96 avg=1.04
[13883 | 6866.32] loss=0.96 avg=1.04
[13884 | 6867.24] loss=1.15 avg=1.04
[13885 | 6868.17] loss=1.32 avg=1.05
[13886 | 6869.08] loss=1.11 avg=1.05
[13887 | 6870.00] loss=1.11 avg=1.05
[13888 | 6870.92] loss=0.94 avg=1.05
[13889 | 6871.84] loss=1.15 avg=1.05
[13890 | 6872.76] loss=1.24 avg=1.05
[13891 | 6873.68] loss=1.04 avg=1.05
[13892 | 6874.60] loss=1.29 avg=1.05
[13893 | 6875.52] loss=1.05 avg=1.05
[13894 | 6876.44] loss=1.40 avg=1.06
[13895 | 6877.36] loss=1.09 avg=1.06
[13896 | 6878.28] loss=0.97 avg=1.05
[13897 | 6879.20] loss=1.02 avg=1.05
[13898 | 6880.12] loss=0.91 avg=1.05
[13899 | 6881.03] loss=0.89 avg=1.05
Generating samples...
======== SAMPLE 1 ========
should 'emacs-version-p
(should '(eval-if-debug
nil (eval-file-process "emacs-version" t))
(should nil)))
))
(save-excursion
(should
(memq 'emacs-mode-line-mode emacs-mode-line))
(emacs-current-major-mode-line))
(save-restriction
(narrow-to-region (car (nth 1 emacs-mode-line))
(nth 1 emacs-mode-line))))
(should
(eval-if-debug (should-not
(eval-when-compile
'(eval-compile
(eval-when-compile
'(eval-compile
'(eval-compile
'(eval-compile
'(eval-compile
'(eval-compile
'(eval-compile
nil))))))
(eval-when-compile nil))
nil)))
(should
'emacs-version-p
'(eval-if-debug
'((eval-when-compile (eval-file-process "emacs-version" t))
(eval-file-process "emacs-version" t))
(eval-file-process "emacs-version" t)))
(eval-file-process "emacs-version" t t))
(eval-message nil))))
(provide 'emacs-babel)
;;; emacs-babel.el ends here
<|endoftext---->
======== SAMPLE 2 ========
should be
(save-excursion
(goto-char (match-beginning 0))
(while (re-search-forward "^\\S-?"
(point) t)
(re-search-backward
(concat
"\\S-?"
(re-search-backward
(if (eq c-mode 4) "\\S-?")
(re-search-backward c-mode-identification
(point) t)
nil t)))
(when (re-search-forward
"\\S-?" (match-beginning 5) t)
(insert "\\S-?"))))
(forward-line)))))
(defun c-check-file-contextual-p ()
"Check whether a current buffer has a file-handle for a file."
(and
(and (string= "\\B." "^\\(" (buffer-file-name))
(symbolp (if (eq (car-safe c-get-caching-contextual-p)
(aref c-get-caching-contextual-p 5))
"")
"")
(stringp (aref c-get-cached-file-handle 5))
(symbolp (buffer-name)))
(and (regexp-quote (car-safe c-get-cached-file-handle)))
(and (match-beginning 6)
(progn (forward-line) (re-search-forward "^\\S-" (point) t))
nil)
(buffer-disable-undo nil)))
(eval-bound-and-display "C-C C-C")
(c-with-init-buffer
(c-point-at-point)))
(if (eq c-mode 4)
(let ((c-mode 4) c-mode-specific-p))
(save-excursion
(goto-char (or (match-beginning 6)
(point-min)))
(setq c-mode-specific-p t)
(cond
((and (<= c-next-c-point-point c-previous-point)
(c-find-file-custodial-path cs-file-custodial-path pos t))
(c-set-marker c-current-file (buffer-tree-toplevel)))
(let* ((tmp-file (eq c-
======== SAMPLE 3 ========
should be the value of `interactive-list', if any
(interactive-list boolean). A boolean is equal to 1 or 1 + 2. If you change the value of the
variable `interactive-list' to nil, that change is not reflected.
The value of INTERACTIVE-LIST is the value to use if non-nil
`interactive-list' is non-nil). You also set the variable
interactive-list to t if the number of seconds since last time the
interactive command has been executed, else always return nil.")
(define-minor-mode interactive-list t
"Toggle interactive search mode on non-interactive displays.
Normally `interactive-list' is enabled. This minor mode is meant to be
disabled by setting `interactive-list' and enabling `interactive-list' in
direct mode interactively, if INTERACTIVE-LIST is the value of
`interactive-list' then all displays will display the interactive
list (not the list mode mode) if the display is not interrupted, if
non-nil and if INTERACTIVE-LIST is non-nil, or nil if the
display is interactive, and if INTERACTIVE-LIST is non-nil the first
display will start up the interactive search.
Interactive search modes will be set by editing the variables
`interactive-list', `interactive-list-mode' or `interactive-list-mode'.
You can change those variables directly using the variable
`interactive-list-mode'."
(interactive-list t)
(interactive-list t)
(interactive-list nil (save-excursion
(interactive-list-change-list :interactive)
(goto-char (point-max)))))
(defconst interactive-list--pre-d-saved-hook nil
"Function to hook up to save the interactive-list buffer with a saved
intermediate value in the file or sub-file.
This hook is called for commands to save the interactive-list
buffer as is.
A value of `interactive-list-pre-saved-hook' means do not save the
intermediate value."
(interactive-list t)
(interactive-list t)
(interactive-list t)
(interactive-list nil (save-excursion
(interactive-list-change-list :interactive)))
(interactive-list :pre-d-saved-hook nil interactive-list-save-current-file-buffer-hook))
(defconst interactive-list--pre-d-saved-buffer-hook nil
"Function to hook up to save the interactive-list buffer with a saved
intermediate value in the file or sub-file.
This hook is called for commands to save the interactive-list
buffer as is.
A value of `interactive-list-pre-d-saved-hook' means do not save
the interactive value of the buffer as is.
A value of `interactive-list-pre-d-saved-hook' means do not save
the interactive value of the buffer as is."
(interactive-list t)
(interactive-list t)
(interactive-list nil (save-excursion
(interactive-list-change-list :interactive)))
(interactive-list t (save-excursion
(interactive-list-change-list :interactive)))
;; FIXME!!! Use this here in case you are lazy and want to save a file!
(interactive-list t))
(defun interactive-list--save-current-file-buffer ()
"Save the current buffer in a file or sub-file at the prompt.
It is a global variable, called when the current buffer
is modified by others.
If you use `eval-protect' on a Lisp code, insert an
interactive prompt so as to make it work with interactive
list commands by calling the same command on a different line
as defined in `interactive-list-save-buffer-line'. You
======== SAMPLE 4 ========
should do this even if you want to edit it."
(declare (obsolete term-of-month "24.1"))
(easy-menu-define term-of-month-menu term-of-week "1)"
\\='((1 "Wisentz") (2 "Eunice") (3 "Slovenia") (4 "Finland")
("Slovenia" 4 ;; 3 1 2 3 4 5 6 7 8 9) ;; 2 1 2 3 4 5 6 7 8 9)
("Finland" ;; 2 1 2 3 4 5 6 7 8 9)
("Slovenia" ; 1 1 2 3 4 5 6 7
("Finland" 5 ( ;; 2 1 2 3 4 5 6 7
;; 7 8 9 9 ;; ;; 5 " 4 0 6 7 8 9) )
("Finland" ;; 1 1 2 3 4 5 6 7
("Finland" ;; 1 1 2 3 4 5 6 7
("Finland" 7 1 ( ;; 2 1 2 3 4 5 6 7
;; 7 8 9 9 9) )
("Finland" ;; 1 1 2 3 4 5 6 7
("Finland" ;; 2 1 2 3 4 5 6 7
("Finland" ;; 4 1 2 3 4 5 6 7
("Finland" ;; 5 2 1 2 3 4 5 6 7
("Finnland") (6 "Finland") (8 "Finland"))
("Finland" ;; 1 1 2 3 4 5 6 7
("Finland" ;; 2 1 2 3 4 5 6 7
("Finland" ;; 5 2 1 2 3 4 5 6 7
("Finland" ;; 6 1 1 2 3 4 5 6 7
("Finland" ;; 7 2 1 3 4 5 6 7)))
("Finland" ;; 3 1 2 3 4 5 6 7
;; ;; (1)
("Finland" ;; 2 3 1 4 5 6 7
("Finland" ;; 5 2 1 2 3 4 5 6 7
("Finland" ;; 6 1 1 2 3 4 5 6 7
("Finland" ;; 7 2 1 2 3 4 5 6 7)
("Finland" ;; 8 3 1 2 4 5 6 7
("Finland" ;; 9 7 7 7 7 7 8)
("Finland" ;; 10 7 7 7 8 8 9)
("Finland" ;; 11 7 7 8 8 9)
("Finland" (or (aref (semantic-tag-tag tag-
[13900 | 6906.56] loss=1.02 avg=1.05
[13901 | 6907.48] loss=1.03 avg=1.05
[13902 | 6908.39] loss=1.59 avg=1.06
[13903 | 6909.31] loss=1.49 avg=1.06
[13904 | 6910.23] loss=1.38 avg=1.06
[13905 | 6911.14] loss=0.69 avg=1.06
[13906 | 6912.06] loss=1.43 avg=1.06
[13907 | 6912.98] loss=1.30 avg=1.07
[13908 | 6913.89] loss=1.23 avg=1.07
[13909 | 6914.80] loss=0.61 avg=1.06
[13910 | 6915.72] loss=0.93 avg=1.06
[13911 | 6916.63] loss=1.30 avg=1.06
[13912 | 6917.55] loss=0.94 avg=1.06
[13913 | 6918.46] loss=1.19 avg=1.06
[13914 | 6919.37] loss=0.65 avg=1.06
[13915 | 6920.29] loss=0.98 avg=1.06
[13916 | 6921.20] loss=0.89 avg=1.06
[13917 | 6922.11] loss=0.97 avg=1.06
[13918 | 6923.03] loss=1.24 avg=1.06
[13919 | 6923.94] loss=1.61 avg=1.06
[13920 | 6924.86] loss=0.96 avg=1.06
[13921 | 6925.77] loss=1.38 avg=1.07
[13922 | 6926.69] loss=0.85 avg=1.06
[13923 | 6927.61] loss=0.98 avg=1.06
[13924 | 6928.53] loss=0.97 avg=1.06
[13925 | 6929.44] loss=0.76 avg=1.06
[13926 | 6930.36] loss=1.17 avg=1.06
[13927 | 6931.27] loss=1.04 avg=1.06
[13928 | 6932.19] loss=1.01 avg=1.06
[13929 | 6933.10] loss=1.14 avg=1.06
[13930 | 6934.01] loss=0.86 avg=1.06
[13931 | 6934.93] loss=0.87 avg=1.06
[13932 | 6935.84] loss=0.56 avg=1.05
[13933 | 6936.75] loss=1.09 avg=1.05
[13934 | 6937.67] loss=1.49 avg=1.06
[13935 | 6938.59] loss=1.51 avg=1.06
[13936 | 6939.51] loss=0.95 avg=1.06
[13937 | 6940.43] loss=1.29 avg=1.06
[13938 | 6941.35] loss=1.01 avg=1.06
[13939 | 6942.27] loss=0.81 avg=1.06
[13940 | 6943.18] loss=1.32 avg=1.06
[13941 | 6944.10] loss=1.33 avg=1.06
[13942 | 6945.02] loss=0.62 avg=1.06
[13943 | 6945.93] loss=0.44 avg=1.05
[13944 | 6946.85] loss=1.41 avg=1.06
[13945 | 6947.77] loss=1.21 avg=1.06
[13946 | 6948.68] loss=1.65 avg=1.07
[13947 | 6949.61] loss=0.89 avg=1.06
[13948 | 6950.52] loss=0.95 avg=1.06
[13949 | 6951.44] loss=0.88 avg=1.06
[13950 | 6952.36] loss=0.60 avg=1.06
[13951 | 6953.28] loss=1.21 avg=1.06
[13952 | 6954.19] loss=0.48 avg=1.05
[13953 | 6955.12] loss=0.86 avg=1.05
[13954 | 6956.04] loss=1.39 avg=1.05
[13955 | 6956.96] loss=0.94 avg=1.05
[13956 | 6957.87] loss=0.84 avg=1.05
[13957 | 6958.80] loss=1.47 avg=1.05
[13958 | 6959.71] loss=0.95 avg=1.05
[13959 | 6960.63] loss=0.96 avg=1.05
[13960 | 6961.54] loss=0.44 avg=1.05
[13961 | 6962.47] loss=1.37 avg=1.05
[13962 | 6963.39] loss=1.25 avg=1.05
[13963 | 6964.31] loss=0.68 avg=1.05
[13964 | 6965.23] loss=0.84 avg=1.05
[13965 | 6966.15] loss=1.62 avg=1.05
[13966 | 6967.07] loss=1.06 avg=1.05
[13967 | 6967.98] loss=0.90 avg=1.05
[13968 | 6968.90] loss=1.02 avg=1.05
[13969 | 6969.82] loss=1.15 avg=1.05
[13970 | 6970.74] loss=1.15 avg=1.05
[13971 | 6971.66] loss=1.16 avg=1.05
[13972 | 6972.58] loss=1.07 avg=1.05
[13973 | 6973.50] loss=1.01 avg=1.05
[13974 | 6974.43] loss=1.02 avg=1.05
[13975 | 6975.35] loss=0.88 avg=1.05
[13976 | 6976.27] loss=0.79 avg=1.05
[13977 | 6977.19] loss=1.45 avg=1.05
[13978 | 6978.11] loss=0.67 avg=1.05
[13979 | 6979.03] loss=0.95 avg=1.05
[13980 | 6979.95] loss=1.23 avg=1.05
[13981 | 6980.87] loss=0.71 avg=1.05
[13982 | 6981.79] loss=1.61 avg=1.05
[13983 | 6982.72] loss=0.85 avg=1.05
[13984 | 6983.64] loss=1.06 avg=1.05
[13985 | 6984.56] loss=1.30 avg=1.05
[13986 | 6985.48] loss=1.16 avg=1.05
[13987 | 6986.39] loss=1.81 avg=1.06
[13988 | 6987.31] loss=1.08 avg=1.06
[13989 | 6988.23] loss=1.07 avg=1.06
[13990 | 6989.15] loss=1.07 avg=1.06
[13991 | 6990.07] loss=1.07 avg=1.06
[13992 | 6990.99] loss=0.77 avg=1.06
[13993 | 6991.91] loss=1.15 avg=1.06
[13994 | 6992.83] loss=1.37 avg=1.06
[13995 | 6993.76] loss=0.97 avg=1.06
[13996 | 6994.68] loss=0.99 avg=1.06
[13997 | 6995.60] loss=0.99 avg=1.06
[13998 | 6996.52] loss=0.73 avg=1.06
[13999 | 6997.44] loss=0.76 avg=1.05
Saving checkpoint/run1/model-14000
W0730 23:01:09.316439 139779186857856 deprecation.py:323] From /usr/local/lib/python3.6/dist-packages/tensorflow/python/training/saver.py:960: remove_checkpoint (from tensorflow.python.training.checkpoint_management) is deprecated and will be removed in a future version.
Instructions for updating:
Use standard file APIs to delete files with this prefix.
Generating samples...
======== SAMPLE 1 ========
(concat "" (format "%s\\%s." (string-to-number file)))
(format "%s" (vector (symbol-name name file)))))
`(:visited--file-info ,file ,info)
(setq info nil))
(setq info buffer-read-only))))
(provide 'semantic/test)
;;; semantic/test.el ends here
<|endoftext|>;;; semantic/test.el --- Tests for Semantic. -*- lexical-binding: t -*-
;; Copyright (C) 2006-2019 Free Software Foundation, Inc.
;; Author: Eric Schulte
;; Keywords: vc
;; Human-Keywords: convenience support
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Semantic support for a wide variety of semantic-coding systems.
;;
;; Use `semantic-tests' with option ARG1. Use `semantic-tests-test-function-arg',
;; then return ARG1. Test for functions that accept any of the following strings with their
;; value:
;;
;; "--name=" ["name (nil t)
;; name (nil t)
;; "--text=" ["name (nil t))
;;
;; "--file=" ["name (nil t)
;; name (nil t)
;; "--type=" ["name (nil t)
;; name (nil t))
;;
;; For more than one semantic library, the following functions:
;;
;; - find-file-and-unload-hook
;; - find-find-regexp-hook
;; - find/replace-match-match-regexps
;;; Code:
;;
(require 'semantic)
(require 'lisp)
(eval-when-compile
(require 'semantic/test))
(defgroup semantic-test nil
"Test that semantic tests are evaluated on the same buffer."
:version "26.1"
:group 'test)
(defun semantic-test::find-match-regexp (regexp &optional source file type)
"Find the regexp in REGEXP using the command \"/find\".
Replace REGEXP with the file name of the matching regexp. Return the
result of searching in case the value is a non-nil value. If it is nil,
then return the result to find the match, otherwise return the result."
;; This must be a function so that the `semantic-test' can do any kind of
;; `find' command.
(cons regexp source
(semantic-test -listregexpregexpregexp
:test #'semantic-find-search-regexp)
re
(cond
(regexp
(and (string-match (concat "\\`/" file) "\\\\")
(file-path (file-relative-name file))
(string-match (concat (concat "\\`/" file) "\\'"))))))
re
re)
(funcall regexp re (if source
======== SAMPLE 2 ========
(set t
(mapcar (function (lambda (x) (car x))
(lambda (y) nil)))
(cons p (mapcar key-function (mapcar #'car (cdr key-functions))
(nth 3 (car key-functions)))))
(setq key-functions
(while key-functions
(delete key-functions) nil)
(setq p (nth 1 key-functions)))))
(nconc p key-functions))))
(defun key-fun ()
"Return a non-empty function for the key of the current Emacs key.
The key in the current Emacs key is called with the value of
option `key-type'."
(not (setq key-type 'or)))
(defun newline ()
"Return either a new line, as opposed to the preceding one, in the current string.
Argument NEWLINE is either a string or a string.
Use to replace existing string value, instead.
With prefix argument non-nil, the value will be interpreted as the current
line value.
The function should not be called more than once.
Return t when non-nil, if there was a previous value of KEY-TYPE before.
Argument NEWLINE specifies if KEY-TYPE should be interpreted as the current line
value."
(let ((elem key-type) key-data)
(if (null elem)
(progn
(set-char-exclusive-p (car (cadr (car key-data)))
key-data)
(setq newline (cddr (cadr key-data)))
(setq newline nil))
elem))
(if (null newline)
newline)))
(defun word-fun (word)
"Return non-nil if word has a specified name within a word.
A word must have a sequence of words.
The word is used to return the value of KEY-NAME."
(if word
(apply word-fun word)))
(defun string-fun (string)
"Return the function to call to return string of STRING.
STRING has a function which takes a string and returns
the value returned.
The function `string-fun' takes argument STRING and returns.
You may also pass it a function which accepts `string-fun'"
;; NOTE: These functions accept multiple arguments, i.e.
;; use `string-fun' instead.
(let ((case-fold-search t))
(string-to-list (buffer-substring string (if (null key-type) (car key-data))))
(if (stringp key-data)
(if (< key-data 0) nil
key
(cond ((stringp (car (cadr key-data)))))
((stringp (cadr (car key-data))))
((symbolp (car (cadr key-data))))
((stringp (cadr (car key-data))))
((char-table-p
======== SAMPLE 3 ========
;; If there is no current entry, use a single entry. (save-excursion
(goto-char (point-min))
(search-forward-regexp "^A-" nil t))
(set-match-data nil t t))
;; Do any cleanup from the current entry.
(goto-char (point-min))
;; If no file exists, clear the current buffer.
(search-backward "\n\n")
;; Move back over current buffer.
(goto-char (point-min))
(if (re-search-forward "[^:\\([A-Za-z0-]+\\)\\([\s-^']?\\)]?" nil t)
(progn
(forward-line))
(backward-char))
(if (save-excursion
(goto-char (point-min))
(search-forward "\n\n")
(goto-char (point-min))
(search-forward "\n\n")
(let ((case-fold-search
(symbol-function file-name)))
;; Skip file extensions.
(cond ((eq file-name (symbol-function file-name)) nil)
;; (default-value file-name)
(setq file-extension file-name))))
;; If nothing is found then do nothing.
(if filename
(progn (error "No file name specified: %s" filename)
(setq filename nil)))
(setq filename (substring filename 0 1)))
(and (equal file-name nil)
(error "No file name specified: %s" filename)
(setq filename nil))))
;; Clear out buffer.
(setq buffer-undo-list nil
initial-buffer nil buf
======== SAMPLE 4 ========
(list (symbol-name form) form))))
(and (eq major-mode 'cperl2-mode)
(or (= (semantic-tag-class tag) 'syntax-table)
(cperl2-concat (semantic-tag-class tag)
(string-to-syntax "") (semantic-tag-class tag)))
(< (semantic-tag-class cperl2-format-tag-type-in-tag
(semantic-tag-class tag))
(string-to-syntax " ")))
(cperl2-concat "<") ;; This must be removed as we would lose the semantic-tag-context
;; context.
'(("syntax-table" (semantic-tag-class tag)))
(cperl2-concat "<!")))
;; We may already have a semantic-tag!
cperl2-with-newline-hook
(semantic-tag-unset-property tag 'semantic-tag-context
(semantic-tag-class tag)))
;; Do the thing
(unless (eq semantic-tag-context 'comma font-lock-warning-face)
(goto-char (semantic-tag-class tag))
(error "No tag context"))
;; FIXME: Remove semantic-tag-context/revert?
(setq semantic-tag-context (cperl2-tag-context tag))
;; Find the tags
(if semantic-tag-context (semantic-tag-with-context semantic-tag-context))
;; Save the semantic tag-context
(save-window-excursion
(if semantic-tag-context
(save-window-excursion
(semantic-tag-maybe-change-context semantic-tag-context nil nil nil)
(semantic-tag-maybe-set-tag semantic-tag-context nil nil nil)))
((or (equal type '(t nil))
;; If we cannot find the tag, we must do it as
;; no more than once: if we find the new tag
;; then the other tags (or we were looking for all but
;; the tag but one) must be used instead of the tags.
(semantic-tag-set-tag-contents semantic-tag-context tags)
(semantic-tag-clear (semantic-tag-value tag)))))
;; Now that we are the tag's context,
;; then we must do the semantic-tag-change-context
;; (C-c C-x C-i)
(t
;; We are actually looking for all tags: if we
;; find all tag contexts, we must do the proper thing.
;; If the tag's context cannot be found, and we are not
;; looking for all tag contexts, then
[14000 | 7027.86] loss=0.95 avg=1.05
[14001 | 7028.78] loss=1.82 avg=1.06
[14002 | 7029.70] loss=0.96 avg=1.06
[14003 | 7030.62] loss=1.16 avg=1.06
[14004 | 7031.54] loss=1.12 avg=1.06
[14005 | 7032.45] loss=1.59 avg=1.07
[14006 | 7033.37] loss=1.51 avg=1.07
[14007 | 7034.30] loss=0.89 avg=1.07
[14008 | 7035.21] loss=1.28 avg=1.07
[14009 | 7036.13] loss=0.73 avg=1.07
[14010 | 7037.05] loss=1.02 avg=1.07
[14011 | 7037.97] loss=1.29 avg=1.07
[14012 | 7038.89] loss=0.98 avg=1.07
[14013 | 7039.81] loss=1.23 avg=1.07
[14014 | 7040.73] loss=1.00 avg=1.07
[14015 | 7041.64] loss=0.81 avg=1.07
[14016 | 7042.56] loss=0.88 avg=1.06
[14017 | 7043.48] loss=0.64 avg=1.06
[14018 | 7044.40] loss=0.80 avg=1.06
[14019 | 7045.32] loss=0.93 avg=1.06
[14020 | 7046.24] loss=0.99 avg=1.06
[14021 | 7047.16] loss=0.41 avg=1.05
[14022 | 7048.07] loss=0.96 avg=1.05
[14023 | 7048.99] loss=1.45 avg=1.05
[14024 | 7049.91] loss=0.93 avg=1.05
[14025 | 7050.83] loss=0.86 avg=1.05
[14026 | 7051.74] loss=0.97 avg=1.05
[14027 | 7052.66] loss=0.99 avg=1.05
[14028 | 7053.57] loss=1.16 avg=1.05
[14029 | 7054.48] loss=1.16 avg=1.05
[14030 | 7055.39] loss=1.29 avg=1.05
[14031 | 7056.31] loss=1.41 avg=1.06
[14032 | 7057.23] loss=1.04 avg=1.06
[14033 | 7058.14] loss=1.66 avg=1.06
[14034 | 7059.05] loss=0.82 avg=1.06
[14035 | 7059.97] loss=1.19 avg=1.06
[14036 | 7060.88] loss=0.78 avg=1.06
[14037 | 7061.80] loss=0.96 avg=1.06
[14038 | 7062.71] loss=0.74 avg=1.05
[14039 | 7063.62] loss=1.24 avg=1.06
[14040 | 7064.54] loss=1.45 avg=1.06
[14041 | 7065.45] loss=0.75 avg=1.06
[14042 | 7066.37] loss=1.33 avg=1.06
[14043 | 7067.28] loss=0.93 avg=1.06
[14044 | 7068.20] loss=1.72 avg=1.06
[14045 | 7069.11] loss=1.09 avg=1.06
[14046 | 7070.03] loss=1.14 avg=1.07
[14047 | 7070.94] loss=0.55 avg=1.06
[14048 | 7071.86] loss=0.89 avg=1.06
[14049 | 7072.78] loss=0.93 avg=1.06
[14050 | 7073.69] loss=0.90 avg=1.06
[14051 | 7074.61] loss=0.85 avg=1.05
[14052 | 7075.53] loss=0.94 avg=1.05
[14053 | 7076.45] loss=0.81 avg=1.05
[14054 | 7077.37] loss=0.98 avg=1.05
[14055 | 7078.28] loss=0.80 avg=1.05
[14056 | 7079.20] loss=1.58 avg=1.05
[14057 | 7080.12] loss=1.62 avg=1.06
[14058 | 7081.04] loss=1.33 avg=1.06
[14059 | 7081.95] loss=0.75 avg=1.06
[14060 | 7082.87] loss=0.73 avg=1.05
[14061 | 7083.79] loss=0.75 avg=1.05
[14062 | 7084.71] loss=1.29 avg=1.05
[14063 | 7085.63] loss=1.00 avg=1.05
[14064 | 7086.55] loss=1.12 avg=1.05
[14065 | 7087.46] loss=1.34 avg=1.06
[14066 | 7088.38] loss=0.80 avg=1.05
[14067 | 7089.30] loss=1.32 avg=1.06
[14068 | 7090.22] loss=1.18 avg=1.06
[14069 | 7091.14] loss=0.72 avg=1.05
[14070 | 7092.06] loss=1.02 avg=1.05
[14071 | 7092.99] loss=1.02 avg=1.05
[14072 | 7093.90] loss=1.07 avg=1.05
[14073 | 7094.82] loss=1.20 avg=1.06
[14074 | 7095.74] loss=0.95 avg=1.05
[14075 | 7096.66] loss=0.43 avg=1.05
[14076 | 7097.58] loss=0.77 avg=1.05
[14077 | 7098.50] loss=0.71 avg=1.04
[14078 | 7099.42] loss=0.85 avg=1.04
[14079 | 7100.34] loss=0.80 avg=1.04
[14080 | 7101.26] loss=1.17 avg=1.04
[14081 | 7102.18] loss=1.02 avg=1.04
[14082 | 7103.10] loss=1.06 avg=1.04
[14083 | 7104.02] loss=1.60 avg=1.04
[14084 | 7104.94] loss=1.14 avg=1.05
[14085 | 7105.86] loss=0.96 avg=1.05
[14086 | 7106.78] loss=1.05 avg=1.05
[14087 | 7107.71] loss=1.39 avg=1.05
[14088 | 7108.63] loss=1.70 avg=1.06
[14089 | 7109.55] loss=0.96 avg=1.05
[14090 | 7110.48] loss=0.89 avg=1.05
[14091 | 7111.40] loss=1.45 avg=1.06
[14092 | 7112.32] loss=1.22 avg=1.06
[14093 | 7113.24] loss=0.97 avg=1.06
[14094 | 7114.17] loss=1.03 avg=1.06
[14095 | 7115.09] loss=1.30 avg=1.06
[14096 | 7116.01] loss=0.74 avg=1.06
[14097 | 7116.93] loss=0.95 avg=1.05
[14098 | 7117.86] loss=0.86 avg=1.05
[14099 | 7118.78] loss=0.94 avg=1.05
Generating samples...
======== SAMPLE 1 ========
(should (or (string-match "\n" (syntax-ppss))
"[ \t\n\r^\\]*{\\)?}"
"|")))))
(cl-defmethod edebug-tests-validate ((eol-id a b) a b)
"Test a function in `edebugtest-tests-functions' for the first element in b.
Return all occurrences in a list which is the first element in
b. It returns non-nil if not, returns all elements or nil if none."
(let ((case-fold-search t))
(if (or edebug-tests--functions (funcall (edebug-tests--function-id a b)
edebugtest-tests-functions))
(progn
(setq edebug-tests-functions (cons (edebug-tests--functions a b)
(edebug-tests--function-id a b)))))
(if edebug-tests--functions (edebug-tests--functions b))
(prog1
((and edebug-tests--functions (edebug-tests--functions b))
(push edebug-tests--functions edebug-tests-functions))
(edebug-tests--functions)
;; Check return value to avoid false positives
(edebug-tests--functions)
;; Check first-passed
(edebug-tests--functions (edebug-tests--functions f)))))
(cl-defmethod edebug-tests--test-function ((function edebug-tests--functions) a b)
"Test the function for a function in a list of b.
Function returns all occurrences in a list which is the first to
elements in the list. Otherwise it returns the index at which
the function starts."
(let ((index (edebug-tests--table-class index)))
(edebug-tests--check-begin (edebug-tests--check-end 'edebug-tests--function-id function) index)
(should (edebug-tests--function-id function))))
(cl-defmethod edebug-tests-validate ((function edebug-tests--functions) a b)
"Test the function for a function in a list of b.
Function returns all occurrences in a list which is the first to
elements in the list.
Function's return value is the index at which the function hits
it. Return nil if in any case not in a list. In
any case return function, which does not return a list."
(let ((table (edebug-tests--table-class function)))
(edebug-tests--check-begin (edebug-tests--check-end 'edebug-tests--function-id function) table)
(edebug-tests--check-end (edebug-tests--check-end 'edebug-tests--function-id function) index)
(should (edebug-tests--function-id function))))
(cl-defmethod edebug-tests-validate ((function edebug-tests--functions) a b)
"Test the function for a function in a list of b.
Function returns all occurrences in a list which is the first elements in
the list.
======== SAMPLE 2 ========
;; Use the new key.
(if (and (eq d-mode 'emacs-lisp)
(eq lisp-indent-function 'start-key-2))
(push (if (eq 'start-key-2 lisp-indent-function)
(list (list
(intern
(format "%S"
(if start-key-2
(list "" begin-key-2)
nil
nil begin-key-2))
(if start-key-2
(list ":"
(list "" return-key)
nil
(list ":"))))
"")
nil "")))
(push '(?\C-a ?\C-v) list)
)
(if (eq (char-before) ?\() "s"))
(if (eq (char-before) ?\() "")
(progn (push '(?\s ?\n))))
(if (and (nth 2 d-map) (nth 1 d-map))
(cons list (if (nth 2 d-map) d-map)))))
(defun d-indent-key-1 (key)
"Return key's indentation by key-set."
(let* ((map (make-sparse-keymap))
(key (make-sparse-keymap)))
(if map (setq map (concat map "\n" key)))
(vector key))
(when (consp map)
(push '((?\C-c ?\C-v) map))
(when (assq key map)
(setq key (make-vector 1 (mapcar map)))
(dotimes (length map)
;; Insert all the arguments, and return a list.
(while (setq map (assq key map))
(delete-region (1+ (length map))))
(cons (map-sublist map key)))))
(def
======== SAMPLE 3 ========
(progn
(dun-beginning-of-input)
(dun-end-of-input)))
((bolp) (point))
((eq bol 'end) ;beginning-of-line, not at end
(end-eq bol 'end)
(car (funcall calc-truncate-point (nth 2 (dolist (x (nth 1 x)) 'end))
(cdr (nth 2 x)))))
(setq calc-truncate-point (point))
(dolist (x nil)
(if (and (= x (nth 2 x)))
(funcall calc-truncate-point (point)))
(progn
(goto-char (nth 0 x))
(if (= (nth 2 x) 1))
(setq end
(cdr (funcall calc-truncate-point (nth 3 x))
(cdr (nth 1 x))))))
(cadr (funcall calc-truncate-point (nth 0 x))
(nth 1 x))))))
((eq bol 'end) -1)
(t
(forward-line 1))
((eq bol 'end-end) -1)
(t
(forward-line 1))
(t
(skip-syntax-backward " \t")
(setq bol (point))
(beginning-of-line)))))
(
======== SAMPLE 4 ========
(or (eq (car entry) '())
(memq (nth 1 entry)
'(?+ (and (equal ?q ?=) (symbol-name
?= nil
'symbol-list))
(nth 0 entry)))))
(if (and (eq (car-safe entry) '())
(memq (nth 1 entry) '(?- 0)))
;; Get the correct value.
(let ((old (nth 1 entry)) '*)))))))))
(define-inline spp-symbol-alist-alist (spp
;; A special list of symbols ; with a value on first
;; non-nil argument.
(symbol-name entry))
nil
nil
(list :start (symbol-name entry))
""
entry)))
((eq (car entry) '("\\`?"))
(let ((sym (member (car entry) (cdr (assq entry (symbol-name entry))))
(symbol (cdr entry))
(symbol-name (car entry))
(symbol-name (propertize symbol (cdr (assq entry (symbol-name entry))))
(symbol-name entry))
(cond ((eq symbol-name sym)
(setq entry (symbol-name sym))
(setq entry (assq sym entry))))
[14100 | 7144.38] loss=0.69 avg=1.05
[14101 | 7145.30] loss=1.16 avg=1.05
[14102 | 7146.21] loss=1.34 avg=1.05
[14103 | 7147.12] loss=1.28 avg=1.05
[14104 | 7148.03] loss=0.72 avg=1.05
[14105 | 7148.95] loss=0.80 avg=1.05
[14106 | 7149.86] loss=1.24 avg=1.05
[14107 | 7150.77] loss=1.01 avg=1.05
[14108 | 7151.68] loss=0.83 avg=1.05
[14109 | 7152.60] loss=0.97 avg=1.05
[14110 | 7153.51] loss=1.01 avg=1.05
[14111 | 7154.43] loss=1.06 avg=1.05
[14112 | 7155.34] loss=0.94 avg=1.05
[14113 | 7156.26] loss=0.96 avg=1.04
[14114 | 7157.17] loss=0.57 avg=1.04
[14115 | 7158.09] loss=0.86 avg=1.04
[14116 | 7159.00] loss=1.25 avg=1.04
[14117 | 7159.91] loss=0.96 avg=1.04
[14118 | 7160.83] loss=1.35 avg=1.04
[14119 | 7161.74] loss=1.27 avg=1.04
[14120 | 7162.66] loss=1.06 avg=1.05
[14121 | 7163.57] loss=1.04 avg=1.04
[14122 | 7164.48] loss=1.37 avg=1.05
[14123 | 7165.40] loss=0.88 avg=1.05
[14124 | 7166.31] loss=0.96 avg=1.05
[14125 | 7167.23] loss=0.76 avg=1.04
[14126 | 7168.15] loss=1.21 avg=1.04
[14127 | 7169.07] loss=0.93 avg=1.04
[14128 | 7169.99] loss=1.56 avg=1.05
[14129 | 7170.90] loss=0.95 avg=1.05
[14130 | 7171.82] loss=0.48 avg=1.04
[14131 | 7172.74] loss=1.48 avg=1.05
[14132 | 7173.65] loss=1.10 avg=1.05
[14133 | 7174.57] loss=0.54 avg=1.04
[14134 | 7175.48] loss=0.79 avg=1.04
[14135 | 7176.40] loss=1.09 avg=1.04
[14136 | 7177.32] loss=1.64 avg=1.05
[14137 | 7178.24] loss=1.41 avg=1.05
[14138 | 7179.15] loss=1.20 avg=1.05
[14139 | 7180.08] loss=0.86 avg=1.05
[14140 | 7180.99] loss=1.00 avg=1.05
[14141 | 7181.91] loss=1.01 avg=1.05
[14142 | 7182.82] loss=1.09 avg=1.05
[14143 | 7183.74] loss=0.90 avg=1.05
[14144 | 7184.66] loss=1.36 avg=1.05
[14145 | 7185.58] loss=1.16 avg=1.05
[14146 | 7186.49] loss=1.38 avg=1.05
[14147 | 7187.41] loss=1.16 avg=1.06
[14148 | 7188.33] loss=1.46 avg=1.06
[14149 | 7189.25] loss=1.07 avg=1.06
[14150 | 7190.17] loss=0.79 avg=1.06
[14151 | 7191.09] loss=0.71 avg=1.05
[14152 | 7192.01] loss=1.21 avg=1.06
[14153 | 7192.93] loss=1.19 avg=1.06
[14154 | 7193.84] loss=0.76 avg=1.05
[14155 | 7194.76] loss=1.10 avg=1.05
[14156 | 7195.68] loss=0.85 avg=1.05
[14157 | 7196.60] loss=0.96 avg=1.05
[14158 | 7197.52] loss=1.38 avg=1.05
[14159 | 7198.44] loss=1.17 avg=1.06
[14160 | 7199.36] loss=0.98 avg=1.05
[14161 | 7200.28] loss=1.32 avg=1.06
[14162 | 7201.20] loss=1.02 avg=1.06
[14163 | 7202.12] loss=1.06 avg=1.06
[14164 | 7203.04] loss=1.09 avg=1.06
[14165 | 7203.95] loss=1.20 avg=1.06
[14166 | 7204.87] loss=1.01 avg=1.06
[14167 | 7205.79] loss=0.96 avg=1.06
[14168 | 7206.71] loss=0.87 avg=1.06
[14169 | 7207.62] loss=0.81 avg=1.05
[14170 | 7208.55] loss=1.10 avg=1.05
[14171 | 7209.46] loss=1.13 avg=1.05
[14172 | 7210.38] loss=1.19 avg=1.06
[14173 | 7211.30] loss=0.93 avg=1.05
[14174 | 7212.22] loss=1.30 avg=1.06
[14175 | 7213.14] loss=0.89 avg=1.06
[14176 | 7214.06] loss=0.89 avg=1.05
[14177 | 7214.98] loss=1.54 avg=1.06
[14178 | 7215.90] loss=1.22 avg=1.06
[14179 | 7216.81] loss=0.82 avg=1.06
[14180 | 7217.74] loss=0.86 avg=1.06
[14181 | 7218.66] loss=1.05 avg=1.06
[14182 | 7219.58] loss=1.09 avg=1.06
[14183 | 7220.51] loss=1.01 avg=1.06
[14184 | 7221.43] loss=0.86 avg=1.05
[14185 | 7222.35] loss=1.55 avg=1.06
[14186 | 7223.26] loss=1.11 avg=1.06
[14187 | 7224.18] loss=1.41 avg=1.06
[14188 | 7225.10] loss=1.21 avg=1.06
[14189 | 7226.02] loss=1.43 avg=1.07
[14190 | 7226.94] loss=1.15 avg=1.07
[14191 | 7227.86] loss=1.31 avg=1.07
[14192 | 7228.78] loss=0.90 avg=1.07
[14193 | 7229.70] loss=1.21 avg=1.07
[14194 | 7230.62] loss=1.27 avg=1.07
[14195 | 7231.54] loss=1.25 avg=1.07
[14196 | 7232.46] loss=1.68 avg=1.08
[14197 | 7233.38] loss=0.87 avg=1.08
[14198 | 7234.30] loss=1.88 avg=1.09
[14199 | 7235.22] loss=0.86 avg=1.08
Generating samples...
======== SAMPLE 1 ========
(and (listp c) (< (car c) (cadr c)))))
(setq hl (reverse hl))
(setq hl hl hl 'cadr hl)
(setq hl (reverse hl)
hl hl (if (> p1 (- p1 hl)) p1 p1)
hl 'cadr hl))))
(easy-menu-define ctl-get-menu-categories nil 'menu
"Menu to display ctl categories in ctl mode.")
(easy-menu-define ctl-get-menu-files nil
'menu
"Texts found in ctl buffers."
"A list of lists of files (default is m.n) for which the mode-line
`c-mode-map' might accept a \"browse\" entry.
Each list has the format (FILENAME . PILGRAM)
where FILENAME is a file name for which ctl should be able to look.
C-mode selects a C/C++ file named PATH."
:options '(("PILGAM" (setq dir-dir-list p1 dir-dir-list))))
(easy-menu-define ctl-get-menu-files nil 'menu
"Menu to display Ctl files (default: \"browse\")."
:type :menu-tag menu-tag
:options '(("PILGAM" (setq dir-dir-list p1 dir-dir-list)
(setq dir-dir-list (sort dir-dir-list
(format
"Browse for C/C++ (files.n" dir-dir-list)))))
("C/C++ for c/c/t" (append dir-dir-list dir-dir-list)))
;; If you want C/C++ files with "browse-dir-list" set to nil, set a
;; `browse-load-path' dir. Do that, too (this is an Emacs Lisp function).
;; Make sure `browse-load-path' is non-nil since it won't be set by
;; C.
(browse-load-path "browse-dir" dir t)
(unless (car ctl-files) (setq ctl-files (car ctl-files)))
(setq ctl-files (cdr ctl-files))
(setq ctl-files (delq ctl-files ctl-files))
(setq ctl-dir-list ctl-dir-list))
(if (fboundp 'browse-load-path)
(setq ctl-load-path (list 'browse-load-path ctl-load-path)))
(setq ctl-load-path
(and dir-dir-list (setq dir-dir-list dir-dir-list)))
(setq ctl-load-path nil)))
;; If "b" gets a path, use it (Bug#3976).
(not (setq ctl-dir-list ctl-dir-list))
(not (eq (get-text-property
(get-text-property
(get-text-property
======== SAMPLE 2 ========
(setq dir (file-attribute-extension gnus-directory-p))
(setq dirname (concat dirname dirname))
(gnus-summary-dired-insert-string-directory dir name
(list
(concat
(substring dirname 4)
(if (stringp dirname) dirname
(substring dirname 1)
dirname))))
(setq dirname (concat dirname dirname))))
(gnus-report-remove-directory dirname t))))))))
(deffoo gnus-summary-make-directory-visited-p (file &rest directories)
(let ((buffer (expand-file-name (or directory dir))))
(when (and (file-exists-p buffer)
(file-readable-p buffer)
(or buffer-file-name (directory-file-name buffer))))
(dolist (buffer (process-buffer process))
(let ((user (gnus-buffer-user buffer))
(dir (with-current-buffer (process-buffer process)
(file-exists-p (or (directory-file-name buffer)
(directory-file-name buffer)))
(expand-file-name buffer user))))
(dirname (setq dirname (expand-file-name (file-name-directory buffer))
(cdr (directory-file-name buffer)))
(when (file-exists-p dirname)
(insert-file-contents-literally
gnus-directory-p
======== SAMPLE 3 ========
(setq e (assoc "elements"
(cadr (funcall idlwave-file-finder
(cadr e)))
(mapconcat (lambda (pair _e)
(intern pair)
" ")
(intern (modes-list-string e))))))
'((< 20) ; (number of hits)
(number-to-string elem)))))
; (if (eq e 0) ; `default', (cadr e) e
; e)
; `default-value'
; `default-target-name'
; `default-target'
; `default-position'
; `default-position'
; `default-position-index'.
; (length e e)
; `default-position-index'
; `default-positions'.
======== SAMPLE 4 ========
(push x nil)
(push (car (x-pos (x-neg x))))))
((cdr (assoc x yar))))))
(if (setq x 0)
(setq x 0))
(while (setq y 0
(cond
(yar
;; Add YARN to x-neg
(setq yar zar))
((and (<= (setq y 1) 0) (<= (setq yar zar) 0))
((= (setq y 1) 0)
(setq yar zar))
((> (setq y 0) (- yar zar))
(setq zar (+ zar zar))
(goto-char (1- (point-max)))
(insert (or yar (car (pop zar))) (current-indentation)))
t)
(setq yar (1+ yar))
(setq z (current-indentation))
(insert " "
(if (memq x yar) "\000B\001E")
(error "This is not valid code for code "))
(setq y (- yar))
(let ((len (length (car zar)))
(end (- end yar)))
(while (<= len x)
(insert "\nL"))
(put-text-property start end (point-max) '(point))
(insert (substring (car (setq yar (1+ yar))
(1+ (car zar))))
y)))))
(setq start (point))
(insert (if (> yar 1) " ") " ""))
(unless end
(setq z (% zar zar))))
(setq yar nil)
(setq zar nil)
(push 'x '(push v y yar) 'yar))
(defun x-pos (x y)
(condition-case (x y)
(x-pos (x-pos x yy)))
(error
(condition-case error
(progn
(if (fboundp 'x-pos)
(pop x-pos)
(error "No %s data to use for assignment or z %s for y %s"
x)
(error "Cannot use
[14200 | 7260.90] loss=1.00 avg=1.08
[14201 | 7261.81] loss=0.93 avg=1.08
[14202 | 7262.73] loss=0.86 avg=1.08
[14203 | 7263.64] loss=0.93 avg=1.08
[14204 | 7264.55] loss=0.73 avg=1.07
[14205 | 7265.46] loss=0.96 avg=1.07
[14206 | 7266.38] loss=1.10 avg=1.07
[14207 | 7267.29] loss=1.15 avg=1.07
[14208 | 7268.20] loss=0.93 avg=1.07
[14209 | 7269.12] loss=1.01 avg=1.07
[14210 | 7270.03] loss=0.88 avg=1.07
[14211 | 7270.95] loss=1.32 avg=1.07
[14212 | 7271.86] loss=1.10 avg=1.07
[14213 | 7272.77] loss=1.32 avg=1.08
[14214 | 7273.69] loss=1.11 avg=1.08
[14215 | 7274.60] loss=1.01 avg=1.08
[14216 | 7275.51] loss=1.08 avg=1.08
[14217 | 7276.43] loss=0.97 avg=1.07
[14218 | 7277.34] loss=1.14 avg=1.07
[14219 | 7278.26] loss=1.06 avg=1.07
[14220 | 7279.17] loss=1.04 avg=1.07
[14221 | 7280.08] loss=0.90 avg=1.07
[14222 | 7280.99] loss=0.58 avg=1.07
[14223 | 7281.91] loss=1.18 avg=1.07
[14224 | 7282.83] loss=0.89 avg=1.07
[14225 | 7283.75] loss=0.97 avg=1.07
[14226 | 7284.66] loss=0.90 avg=1.06
[14227 | 7285.58] loss=0.77 avg=1.06
[14228 | 7286.50] loss=0.76 avg=1.06
[14229 | 7287.42] loss=1.14 avg=1.06
[14230 | 7288.33] loss=1.26 avg=1.06
[14231 | 7289.25] loss=1.32 avg=1.06
[14232 | 7290.18] loss=1.17 avg=1.06
[14233 | 7291.09] loss=1.65 avg=1.07
[14234 | 7292.01] loss=1.33 avg=1.07
[14235 | 7292.93] loss=0.89 avg=1.07
[14236 | 7293.85] loss=1.41 avg=1.07
[14237 | 7294.77] loss=0.90 avg=1.07
[14238 | 7295.69] loss=0.59 avg=1.07
[14239 | 7296.62] loss=1.01 avg=1.07
[14240 | 7297.53] loss=0.92 avg=1.07
[14241 | 7298.45] loss=0.50 avg=1.06
[14242 | 7299.37] loss=1.11 avg=1.06
[14243 | 7300.29] loss=1.24 avg=1.06
[14244 | 7301.21] loss=0.81 avg=1.06
[14245 | 7302.14] loss=0.95 avg=1.06
[14246 | 7303.06] loss=1.11 avg=1.06
[14247 | 7303.98] loss=1.22 avg=1.06
[14248 | 7304.90] loss=0.91 avg=1.06
[14249 | 7305.82] loss=1.03 avg=1.06
[14250 | 7306.74] loss=1.55 avg=1.06
[14251 | 7307.67] loss=0.82 avg=1.06
[14252 | 7308.59] loss=0.78 avg=1.06
[14253 | 7309.51] loss=1.37 avg=1.06
[14254 | 7310.44] loss=0.89 avg=1.06
[14255 | 7311.36] loss=1.03 avg=1.06
[14256 | 7312.28] loss=1.24 avg=1.06
[14257 | 7313.21] loss=0.64 avg=1.06
[14258 | 7314.13] loss=1.78 avg=1.06
[14259 | 7315.05] loss=1.09 avg=1.06
[14260 | 7315.98] loss=1.83 avg=1.07
[14261 | 7316.90] loss=1.23 avg=1.07
[14262 | 7317.82] loss=0.77 avg=1.07
[14263 | 7318.75] loss=1.06 avg=1.07
[14264 | 7319.67] loss=1.18 avg=1.07
[14265 | 7320.59] loss=1.24 avg=1.07
[14266 | 7321.52] loss=1.24 avg=1.08
[14267 | 7322.44] loss=1.62 avg=1.08
[14268 | 7323.36] loss=1.07 avg=1.08
[14269 | 7324.29] loss=1.10 avg=1.08
[14270 | 7325.21] loss=0.76 avg=1.08
[14271 | 7326.13] loss=1.20 avg=1.08
[14272 | 7327.05] loss=0.91 avg=1.08
[14273 | 7327.97] loss=1.45 avg=1.08
[14274 | 7328.90] loss=1.02 avg=1.08
[14275 | 7329.82] loss=0.55 avg=1.07
[14276 | 7330.74] loss=0.75 avg=1.07
[14277 | 7331.67] loss=1.14 avg=1.07
[14278 | 7332.59] loss=1.51 avg=1.08
[14279 | 7333.51] loss=1.11 avg=1.08
[14280 | 7334.44] loss=0.78 avg=1.07
[14281 | 7335.36] loss=1.04 avg=1.07
[14282 | 7336.28] loss=1.08 avg=1.07
[14283 | 7337.20] loss=1.31 avg=1.08
[14284 | 7338.13] loss=1.40 avg=1.08
[14285 | 7339.05] loss=0.55 avg=1.07
[14286 | 7339.97] loss=1.24 avg=1.08
[14287 | 7340.90] loss=1.22 avg=1.08
[14288 | 7341.82] loss=1.37 avg=1.08
[14289 | 7342.74] loss=1.25 avg=1.08
[14290 | 7343.66] loss=0.81 avg=1.08
[14291 | 7344.58] loss=1.00 avg=1.08
[14292 | 7345.50] loss=0.90 avg=1.08
[14293 | 7346.43] loss=1.21 avg=1.08
[14294 | 7347.35] loss=0.96 avg=1.08
[14295 | 7348.27] loss=1.39 avg=1.08
[14296 | 7349.19] loss=1.11 avg=1.08
[14297 | 7350.11] loss=1.29 avg=1.08
[14298 | 7351.03] loss=0.81 avg=1.08
[14299 | 7351.95] loss=0.91 avg=1.08
Generating samples...
======== SAMPLE 1 ========
."
:version "22.1"
:package-version '(calendar-date-gregorian
(calendar-interval (1- time)))
:group 'cal
:version "23.3")
(defcustom calendar-gregorian-to-hex
"^-*-"
"The hex encoded date."
:group 'calendar
:type '(choice (const :tag "None^" nil))
:version "23.3")
(defcustom calendar-year-format-string "0x12c5000000005b4"
"String for using the calendar date as the year string."
:group 'calendar
:type 'string)
(defcustom calendar-cursor-ring-p
"***-*-"
"The cursor ring string for the date.
It can also be nil."
:group 'calendar
:type '(choice (const :tag "None^" nil))
:version "24.3")
;; This is a special case for the Emacs calendar
(defcustom calendar-cycle-date-p
(list '("~/~"
("~//~"
(1 3 5 8)
(1 4 10 12 14)
(2 6 15 17))
(3 7 18 19)
(4 9 20)
(* 10 41
(* 11 55 62])
(12 61 64)
(* (* (+ 12 41)
(11 - (= 11 55))
(12 - (+ 41) 53)))
(13 1))
(14 3)
(* 14 57))
(15 53)))
(defcustom calendar-unread-or-unread-date-p
"**-*-*-"
"The value of `calendar-unread-date-p' when nil.
This is used to prevent calendars from being killed.
See the variable `calendar-unread-date-p'.
When this is nil, only calendar related events will be visible.
When this is not nil, the date that the user types is used as
the current date. See `calendar-unread-date-p'.
This function accepts 4 arguments: the text in the date,
the date the user typed the date in, the time,
and a string.
If `calendar-read-date-spec' is non-nil, the user might use `calendar-read-date-spec'
which is set to `(format-time-string (nth 2 args))))'.
If nil or `calendar-unread-date-spec' is non-nil, the
user might call `calendar-read-date-spec'.
If `calendar-read-date-spec' is nil or `calendar-unread-date-spec'
is non-nil, the user types `calendar-read'.
If `calendar-read-date-spec' is t, the calendar is never killed.
Otherwise, if the date, time, and string are both `changed',
one of them is t.
The argument to `calendar-read-date-spec', if any, is used
as follows:
(defvar calendar-read-date-spec
(or (listp (symbol-name (car (cdr (cdr (cdr date)))))
`(or (listp (caar (c
======== SAMPLE 2 ========
."
:group 'socks
:version "26.1")
(defcustom socks-customize-hook nil
"If non-nil, an alist for `socks-load-hook'."
:type 'hook
:group 'socks)
;; When doing customization, we want to give the
;; custom-insert-hook the form of (NAME FUTURE). That is to
;; be inserted by the Socks initialization routine.
;;
(defcustom socks-initialization-generic-function
'("SOCK_LOAD" "socks--load")
"Generic function for SOCK initialization."
:type 'function
:group 'socks)
(defcustom socks-initialize-functions t
"Non-nil means to initialize the Socks initialization routine.
That is to use initialize-new-hook, or add-to-socks-functions
function, so as to avoid using initialize-other-hooks.
The return value is the current result, and `socks--load'
should be used to initialize the new entry in a file."
:type '(choice (const :tag "None" nil)
(choice (list (const :tag "None" nil)
(const :tag "None" t 0)
(const :tag "None" nil))
(repeat :format "%s. %s:%d"
(list :tag "Start" end-tag)
(integer :tag "Second")))
:version "26.1"
:group 'socks)
(defgroup socks nil
"Options for the socks initialization routine."
:tag "Socks initialization routine"
:group 'tools)
(defcustom socks-initialize-functions-hook nil
"If non-nil, an alist for `socks-initialize-hook'."
:version "26.1")
(defcustom socks-initialize-functions-hook-after-load nil
"If non-nil, an alist for `socks-initialize-hook-after-load'."
:version "26.1"
:group 'tools
:group 'socks)
(defcustom socks-initialize-function-functions nil
"If non-nil, a list of functions that must be called after load.
All of these functions must be called after initialization. The
initialize function's name must be in `socks-initialize-hook'. The
initialize function must be called at the time that this routine is called.")
(defcustom socks-initialize-functions-in-file "/etc/socks"
"List of functions that need to be called in the file to initialize.
The functions `socks-init', `socks-load-hook', `socks-initialize',
`socks-init-hook' and `socks-initialize-hook-after-load' are
defined in the file `socks'"
:group 'socks
:version "26.1"
:group 'socks)
(defcustom socks-initialize-hook nil
"If non-nil, an alist for `socks-initialize-hook-after-load'."
:version "26.1")
(defcustom socks-initialize-hook-after-load nil
"If non-nil, a list of functions that must be called after initialization.
All of these functions must be called during initialization. A
non-nil value of this variable means that, in the first
place, init a new entry in a file, but in the last place in
our files, initialize the Socks initialization routine, otherwise we
return nil.
However, if `socks-initialize-hook' is a function, we don't do
======== SAMPLE 3 ========
."
(unless (or (and (stringp (car temp-alist)) (setcar temp-alist (cdr temp-alist))
(not (getenv "STARTUP_NAME"))
(member-spec-p (car temp-alist) (setcar temp-alist (cdr temp-alist)))
(member-spec-set (car temp-alist) (equal (car temp-alist) spec)))
(delete-match (cdr temp-alist))
(list '("STARTUP_NAME" temp-alist))))
;;;;
;;;; Default to `startup-environment'. It is used by `startup-environment-setup' and
;;;; others and by `startup-environment-setup-setup'." (universal-argument nil)
;;;;
;;;;
;;;;
;;;; Some variables may apply outside the `startup-environment' environment.
;;;; They are ignored and ignored by startup-environment.
;;;;
;;;;
;;;;
;;;; Define this variable to your own customizations, so you can do what you want.
;;;;
;;;;
;;;; Some variables may apply outside the `startup-environment' environment.
;;;;
;;;;
;;;;
;;;; Some variables may apply outside the `startup-environment' environment.
;;;;
;;;;
;;;;
;;;; Some variables may apply outside the `startup-environment'." (universal-argument nil)
;;;;
;;;;
;;;; This variable is used outside `startup-environment'. It is ignored and
;;;; ignored by startup-environment.
;;;;
;;;;
;;;; Some variables may apply outside the `startup-environment'. They are ignored and ignored by
;;;; startup-environment and other variables that
;;;; define them; so you can modify the
;;;; variables themselves.
;;;;
;;;; Other variables may apply outside the `startup-environment'. They are ignored and
;;;; ignored by startup-environment.
;;;;
;;;;
;;;; Some variables may apply outside the `startup-environment'. They are ignored
;;;; by startup-environment and other variables that define them; so
;;;; you can modify the variables themselves.
;;;;
;;;;
;;;;
;;;; Some variables may apply outside the `startup-environment'. They are ignored
;;;; by startup-environment and other variables that define them; so
;;;; you can modify them:
;;;;
;;;;
;;;;
;;;; Some variables may apply outside the `startup-environment'. They may be ignored
;;;; by startup-environment. You can disable this automatically in
;;;; the init file.
;;;;
;;;;
;;;; A `startup-environment' variable's value is considered to be an
;;;; value.
;;;;
;;;;
;;;; Some variables may also apply outside the `startup-environment'. This
;;;; is not a specific example; it is a practice that can be done.
;;;;
;;;; Variables which do not specify a particular value are put in
;;;; init file and initialized for startup-environment. This
;;;; means that their value will be set correctly in default-init-
value.
;;;;
;;;; The `startup-environment' variable's value is considered to be an environment's
;;;; value and initialization is not implemented in that environment.
;;;;
;;;;
;;;; `startup-environment' variable's value is evaluated before `init'.
;;;;
;;;;
;;;; Variables which define a `environment' in startup-environment do not
;;;; define it in start-env.
;;
;; Variables which define a nil value for `startup-environment', but do not, are considered.
;; So you might need to set `startup-environment-eval-time' in
;; `startup-environment'.
;;
;; Other variables which define a `environment' in startup-environment do not
;;;; define it in startup-environment.
;;
;; Variables which define a nil value for `startup-environment', but do define it in startup
;; environment, are put in `startup-environment-eval-time'.
;;
;; Variable `startup-environment-eval-time' is used to set the startup-environment initialization
;; time.
;;
;; Variable `startup-environment-initialize-time' is used to make it available to
;; startup-environment before startup-environment.
;;
;; Variable `startup-environment-initialize-time' is used to make the startup initialization
;; time.
;;
;; `startup-environment-auto-load' command will initialize `init' in startup-environment
;; file.
;;
;;;;
;;;;
======== SAMPLE 4 ========
."
:type '(radio (repeat (cons name string))
(repeat (list name name string (reverse
(cons (cons 'name (string-to-number name)))
default-file default-directory))
'symbol))
:version "24.4" ;; (Maintainer: emacs-devel@gnu.org)
(defcustom tty-make-error-warning
'("TODO %S")
:type '(choice (sexp)
(sexp)
(sexp :tag "make-error-warning")
(sexp)
(default () (read-string "TODO")))
"Value of `tty-make-error-warning' for Make errors.
See the file `emacs-test-makefile-defaults-file' for a list of files."
:type '(alist :keymap
:tag "Make errors"
default-error))))
;;;###autoload
(defun tty-make-error-warning ()
"Make non-makefile `tty-error-warning' error-warning.
Use this to prompt you for an error file if you use `tty-error-warning'.
Use `tty-make-error-warning' for automatic prompt.
See the tty-make-error-list which contains the list of file names
with which to specify an indication of `tty-error-warning' file
options."
(let* ((makefile (make-default-directory tty-error-warning))
(file-name-no-properties tty-error-warning-file)
(file-name-as-directory makefile)
(makefile-name makefile)
(file-newer-than (file-newer-than tty-error-warning file))
(tempfile (file-truename tempfile))
result)
(when (file-directory-p makefile) (ignore-errors (find-file-noselect file)))
;; Check if we have an error in the original makefile
(if (not (or (file-exists-p tempfile)
(file-writable-p tempfile))
;; We have an error in one, maybe two.
(or (file-directory-p (expand-file-name tempfile) 'TTY-error-warning
(error-to-string tempfile)))
(error "No makefile %S" (file-name-nondirectory tempfile))))
;; Look at file name of `TTY-error-warning' if it is not already a
;; makefile. Return the value of this variable so we can find it in
;; any future makefile.
(setq makefile (make-make-error)))
;;;###autoload
(defun tty-makeup-makefile-error (filename &optional default-filename makefile)
"Return the value of `tty-makeup-makefile-error' for the make file."
(or (and (file-exists-p file)
(file-writable
[14300 | 7377.59] loss=0.59 avg=1.07
[14301 | 7378.50] loss=0.79 avg=1.07
[14302 | 7379.42] loss=0.88 avg=1.07
[14303 | 7380.33] loss=1.44 avg=1.07
[14304 | 7381.25] loss=1.04 avg=1.07
[14305 | 7382.16] loss=1.13 avg=1.07
[14306 | 7383.08] loss=0.77 avg=1.07
[14307 | 7384.00] loss=0.97 avg=1.07
[14308 | 7384.91] loss=0.49 avg=1.06
[14309 | 7385.83] loss=0.83 avg=1.06
[14310 | 7386.74] loss=0.99 avg=1.06
[14311 | 7387.65] loss=1.08 avg=1.06
[14312 | 7388.57] loss=1.05 avg=1.06
[14313 | 7389.49] loss=1.24 avg=1.06
[14314 | 7390.40] loss=0.98 avg=1.06
[14315 | 7391.31] loss=1.03 avg=1.06
[14316 | 7392.23] loss=1.04 avg=1.06
[14317 | 7393.15] loss=0.76 avg=1.06
[14318 | 7394.06] loss=0.96 avg=1.06
[14319 | 7394.98] loss=1.08 avg=1.06
[14320 | 7395.89] loss=1.52 avg=1.06
[14321 | 7396.80] loss=0.89 avg=1.06
[14322 | 7397.72] loss=1.42 avg=1.06
[14323 | 7398.63] loss=1.10 avg=1.06
[14324 | 7399.56] loss=1.38 avg=1.07
[14325 | 7400.47] loss=1.10 avg=1.07
[14326 | 7401.38] loss=1.26 avg=1.07
[14327 | 7402.30] loss=0.85 avg=1.07
[14328 | 7403.21] loss=0.57 avg=1.06
[14329 | 7404.13] loss=1.41 avg=1.06
[14330 | 7405.05] loss=0.94 avg=1.06
[14331 | 7405.96] loss=1.12 avg=1.06
[14332 | 7406.88] loss=1.11 avg=1.06
[14333 | 7407.80] loss=0.78 avg=1.06
[14334 | 7408.71] loss=0.69 avg=1.06
[14335 | 7409.63] loss=0.80 avg=1.06
[14336 | 7410.54] loss=1.28 avg=1.06
[14337 | 7411.46] loss=0.82 avg=1.06
[14338 | 7412.38] loss=1.14 avg=1.06
[14339 | 7413.30] loss=0.62 avg=1.05
[14340 | 7414.22] loss=0.80 avg=1.05
[14341 | 7415.13] loss=1.13 avg=1.05
[14342 | 7416.05] loss=1.13 avg=1.05
[14343 | 7416.97] loss=0.32 avg=1.04
[14344 | 7417.89] loss=1.23 avg=1.05
[14345 | 7418.81] loss=0.99 avg=1.05
[14346 | 7419.73] loss=1.37 avg=1.05
[14347 | 7420.64] loss=1.16 avg=1.05
[14348 | 7421.56] loss=0.73 avg=1.05
[14349 | 7422.48] loss=1.66 avg=1.05
[14350 | 7423.40] loss=1.56 avg=1.06
[14351 | 7424.32] loss=1.15 avg=1.06
[14352 | 7425.24] loss=1.01 avg=1.06
[14353 | 7426.16] loss=1.09 avg=1.06
[14354 | 7427.08] loss=1.73 avg=1.06
[14355 | 7428.00] loss=0.99 avg=1.06
[14356 | 7428.92] loss=1.35 avg=1.07
[14357 | 7429.84] loss=1.03 avg=1.07
[14358 | 7430.76] loss=0.90 avg=1.06
[14359 | 7431.68] loss=1.17 avg=1.07
[14360 | 7432.60] loss=1.17 avg=1.07
[14361 | 7433.52] loss=0.41 avg=1.06
[14362 | 7434.44] loss=1.49 avg=1.06
[14363 | 7435.36] loss=0.87 avg=1.06
[14364 | 7436.29] loss=2.00 avg=1.07
[14365 | 7437.21] loss=1.25 avg=1.07
[14366 | 7438.13] loss=1.43 avg=1.08
[14367 | 7439.05] loss=0.75 avg=1.07
[14368 | 7439.97] loss=1.15 avg=1.07
[14369 | 7440.89] loss=1.03 avg=1.07
[14370 | 7441.81] loss=0.74 avg=1.07
[14371 | 7442.72] loss=0.66 avg=1.07
[14372 | 7443.64] loss=0.95 avg=1.07
[14373 | 7444.56] loss=1.04 avg=1.07
[14374 | 7445.48] loss=1.21 avg=1.07
[14375 | 7446.40] loss=1.13 avg=1.07
[14376 | 7447.32] loss=1.08 avg=1.07
[14377 | 7448.24] loss=1.37 avg=1.07
[14378 | 7449.17] loss=0.99 avg=1.07
[14379 | 7450.09] loss=0.94 avg=1.07
[14380 | 7451.01] loss=1.14 avg=1.07
[14381 | 7451.93] loss=1.19 avg=1.07
[14382 | 7452.85] loss=1.11 avg=1.07
[14383 | 7453.77] loss=1.52 avg=1.08
[14384 | 7454.69] loss=1.63 avg=1.08
[14385 | 7455.61] loss=0.79 avg=1.08
[14386 | 7456.53] loss=0.50 avg=1.07
[14387 | 7457.45] loss=1.10 avg=1.07
[14388 | 7458.37] loss=0.69 avg=1.07
[14389 | 7459.29] loss=1.61 avg=1.07
[14390 | 7460.22] loss=1.18 avg=1.08
[14391 | 7461.14] loss=1.11 avg=1.08
[14392 | 7462.06] loss=1.13 avg=1.08
[14393 | 7462.98] loss=1.12 avg=1.08
[14394 | 7463.90] loss=1.28 avg=1.08
[14395 | 7464.83] loss=0.89 avg=1.08
[14396 | 7465.75] loss=0.78 avg=1.07
[14397 | 7466.67] loss=1.23 avg=1.08
[14398 | 7467.59] loss=0.54 avg=1.07
[14399 | 7468.52] loss=0.66 avg=1.07
Generating samples...
======== SAMPLE 1 ========
"s")
(if (and mhmin (not (gnus-user-hash-equal
(= gnus-mhmin-prefix
(gnus-hash-address mhmin)))
(gnus-mhmin-prefix mhmin))
(when (eq gnus-mhmin-prefix '("^#" ".*")))
(setq mhmin (gnus-mhm-make-index mhmin)))
(setq mhmin (gnus-mhm-make-index mhmin)))
(setq mhmin (gnus-mhm-make-index mhmin)))
(setq rd (point-marker))
(gnus-add-new-prefix mhmin rd mhmin))
(setq gnus-mh-prefix-in-head (if rd gnus-mh-prefix-in-head t)))
rd)
(gnus-mh-add-entry mhmin nil nil 'prefix)))
(defun gnus-mh-update-prefix (&optional noincrement)
"Update the prefix index of gnus-mode."
(interactive "P")
(with-current-buffer (gnus-buffer-modified-p)
(gnus-add-entry mhmin nil 'prefix)
(gnus-add-entry mhmin '(:name :hash :path-ref :file-name :filename)))
(message
"Updating prefix index in #mh-mode buffers."))
(defun gnus-mh-add-prefix (&optional noincrement)
"Update the prefix index of gnus-mode."
(interactive "P")
(with-current-buffer (gnus-buffer-modified-p)
(gnus-add-entry mhmin '(:name :hash :path-ref :file-name :filename)))
(gnus-add-entry mhmin '(:file-name :address :host :port :address :key :path-ref
:hash :file-name))
(message
"Updating prefix index in #mh-mode buffers."))
(defun gnus-mh-add-entry (regexp value)
"Update the prefix index of the current buffer."
(interactive "*")
(gnus-mh-add-entry (regexp regexp)
value)))
;;;###autoload
(defun gnus-mh-mh-add-entry (regexp value)
"Update the prefix index of the current buffer."
(interactive "*")
(gnus-mh-add-entry
(symbol-name regexp '("#mh" . 0 . 0))
value))
;;;###autoload
(defun gnus-mh-add-entry (regexp value)
"Update the index of the current buffer."
(interactive "*")
(gnus-mh-add-entry (regexp regexp)
value)))
;;; The "mhmin" command. -c
(declare-function gnus-mh-find-mhmin "
======== SAMPLE 2 ========
"v" v)
(and "l" (match-end 1) "l" l)))))
(cancel-buffer)
(setq buffer-read-only nil)
(vhdl-set-mark-active-map buffer buffer)
(vhdl-display-map))
;;; Customization and documentation
;;;### (autoloads "semantic/mh" "semantic/mh.el"
;;; autoloads "semantic/mhr" "semantic/mh.el"
;;; autoloads "semantic/mh-initiate"
;;; autoloads "semantic/mh-unbind"
;;; autoloads "semantic/mh-previous-link"
;;; autoloads "semantic/mh-previous-link-cache"
;;; autoloads "semantic/mh-previous-link-cache-cache"
;;; autoloads "semantic/mh.el"
;;; autoloads "semantic/mh.el.el"
;;; autoloads "semantic/mh-previous-link" (replace-regexp-in-string "-" "_")
;;; autoloads "semantic/mh-previous-link-cache" (replace-regexp-in-string "-" "_")
;;; autoloads "semantic/mh-previous-link-cache-cache-cache" (replace-regexp-in-string "-" "_")
;;; autoloads "semantic/mh.el.el"
;;; autoloads "semantic/mh.el"
;;; autoloads "semantic/mh.el.el"
;;; autoloads "semantic/mh.el.el"
;;; autoloads "semantic/mh.el.el"
;;; autoloads "semantic/mh.el.el.el"
;;; autoloads "semantic/mh-prefix-cache"
;;; autoloads "semantic/mh-prefix-cache-cache".el
;;; autoloads
;;;(put 'mh-prefix-cache 'semantic-highlight-mode 'font-lock-mode -3)
;;; "*Mh prefix cache!*"
;;; autoloads
;;; "*Mh prefix cache!*"
;;; autoloads (remove 'semantic-mh 'font-lock-mode -7)
;;; autoloads "*, prefix"
;;; autoloads (remove 'semantic-mh 'semantic-highlight))
;;; (insert " prefix cache.")
;;; (semantic/mh-cache-delete-cache "Mh prefix cache")
;;; (insert "cache name.cache")
;;; (insert " *From.* " (file-exists-p "Mh")
;;; (expand-file-name "mh" (file-name-directory "mh"))
;;; (replace-regexp-in-string "\\('.*\\)" (replace-regexp-in-string "\\('.*\\)")))
;;; (cond (file-exists-p nil mh-prefix-cache)
;;; ((null mh-prefix-cache) nil)
;;; ((null mh-previous-link-cache) nil)
;;; ((> 0) (eval-when-compile '("-c" nil
;;; 'semantic-file-extension
;;; 'file-name-extension)))
;;; (t nil)) ;; not an error!
;;; (delete-file "mh.emacs" file
======== SAMPLE 3 ========
";;
;; It is assumed that this string is a prefix token in which case it
;; means \"foo\" instead of \"bar\"
(defmacro foo (expr)
(let ((a (semantic-tag-name a)))
`(foo
(lambda (prop)
(if (and (semantic-tag-pprop ange-type-context)
(not (= (semantic-comp-context prop) ange-type-context))
var
(zerop (length prop)))
a)))
`(a `(lambda () (semantic-tag-name
(semantic-tag-parameter ange-type-context
env)))))))
(defun semantic-syntax-string-p (token)
(let ((value (semantic-syntax-region (point-min) (point-max)))
(token 'syntax)))
(defun semantic-syntax-string-p (token val)
(let ((value 'syntax))
(and val
(and (not (y-or-n-p "Syntax: "))
(semantic-syntax-expression val))
(and (eobp) (not (y-or-n-p "Syntax: ")))
;; Check if val is not token.
(when (eq (semantic-tag-key semantic-syntax-token-name) 'syntax)
(semantic-syntax-symbol val))))
token)))
(defun semantic-syntax-parser (token val)
"Parse a syntax syntax token from VAL."
(cond ((not (eq (semantic-tag-key token) 'syntax))
val)
((eq (semantic-tag-key token) 'syntax-expression))
;; Parse syntax.
(t
;; This is called before parser has finished parsing.
(let* ((value (semantic-syntax-token-value token))
(syntax (semantic-syntax-expression val)))
(while syntax
(apply (semantic-syntax-parser syntax val) 'parse)
(semantic-syntax-parser token)
)))
value))
(defun semantic-syntax-parser-for-parser ()
"Parse syntax-parser from the parser of VAL."
;; We could do this in `semantic-lex-parser'.
(let ((parser (semantic-lex-parse-context parser))
(parser-name (semantic-lex-parser-for-parser
(semantic-lex-parse-region-start parse)
(semantic-lex-parse-region-end parse)))
(parser-parse-keyword-type val val)
(parser-parse-indentation)))
parser-parse-keyword-type val
======== SAMPLE 4 ========
"v" t)))
("v" nil))
)
"Vectors with a VEF-compatible backend to use.
If this variable can't be bound, use \"nv\" (which defaults to nil),
which defaults to an empty string. This uses ``emacs-version-format'.")
(autoload 'org-mode-updaterize-hook "org" "\
Create a `org-mode-updaterize-hook' in `org-mode-list'.
\(fn &optional ARG)" t nil)
(autoload org-mode-list-p "org" "\
Return a list of buffers from which to find out about files.
The file list takes two elements: the file name and the source
filename. The file name is either the file name part or the filename part
of the file. When this variable is the last element in the list,
the file name is added first. When the variable is an
empty string, it is assumed that it contains a `&' or `*' character;
when it says (`=' is just `+' or `^' or `+' or `\\' or `\\&'), it
uses the same format as `&' for `*'. (The result is the file name and
the `&' for `*'. Each `&' has the same form as the `&' for
`org-mode-updaterize-hook' for the filename.)
\(fn &optional ARG)" t nil)
(autoload 'org-mode-list-to-buffer "org" "\
Parse output from a file in `org-mode-list'.
With the mode-list argument ARG, search for the file
in the current buffer. The result is a string of numbers for
regexp matching the file names of the two directories.
`+' to print the number of the file in the file name
and `*' to the filename in the file name; this can be the default when that.
`%' to print the number of the file or the filename in a file name
`%' to print the number of the file in the filename.
\(fn)" t nil)
(autoload 'org-mode-list-to-buffer-coding-system "org" "\
Parse output from a file in `org-mode-list.
With the mode-list argument ARG, search for the file
in the current buffer. Then search for the buffer in
the file name buffer. The result is a list of characters like the file
`:name' `:number' as found in the `org-mode-list command." t nil)
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org" '("org")))
;;;###autoload
(defun org-map (files)
"Return a mapping file from FILES to an org-mode buffer.
This function may also use a list of directory names to find the files
in that dir."
(save-excursion
(goto-char (point-min))
(let((dir (org-parent-directory "/")))
(if (string= dir "")
(error "Can't find directory for %S in a filtrate" dir)))
(org-map-parent-file-path dir)))
(funcall (mapcar org-mode buffers) files)
(org-merge-buffer-local-variables)
;; Compute all buffer positions in all buffers -- no conflict. See `org-map-buffer-unselected-lines'
;; for a detailed description of buffer positions in buffers.
;;
;; For directory/directory files, we need to be careful not to leave buffer
;; buffer buffer position unchanged. Otherwise, all files in that directory
;; buffer will be copied to the \"%s\" part of the buffer.
;; However, if we have not copied a file and its contents are not visible in
;; `org-mode', then some buffer positions will be changed to match
;; a file in the \"%s\" part of the buffer. So, let's assume the line
;; before point always lines up with the mark.
;;
;; We can add newline or "|" to these buffer positions.
[14400 | 7494.13] loss=0.87 avg=1.06
[14401 | 7495.05] loss=0.88 avg=1.06
[14402 | 7495.96] loss=0.69 avg=1.06
[14403 | 7496.88] loss=0.69 avg=1.05
[14404 | 7497.79] loss=1.10 avg=1.06
[14405 | 7498.70] loss=1.02 avg=1.05
[14406 | 7499.62] loss=0.79 avg=1.05
[14407 | 7500.53] loss=0.91 avg=1.05
[14408 | 7501.44] loss=0.84 avg=1.05
[14409 | 7502.35] loss=1.42 avg=1.05
[14410 | 7503.27] loss=1.29 avg=1.05
[14411 | 7504.18] loss=0.68 avg=1.05
[14412 | 7505.09] loss=1.01 avg=1.05
[14413 | 7506.01] loss=0.90 avg=1.05
[14414 | 7506.92] loss=1.12 avg=1.05
[14415 | 7507.83] loss=0.80 avg=1.05
[14416 | 7508.74] loss=1.39 avg=1.05
[14417 | 7509.65] loss=0.79 avg=1.05
[14418 | 7510.57] loss=1.23 avg=1.05
[14419 | 7511.48] loss=1.27 avg=1.05
[14420 | 7512.40] loss=1.29 avg=1.05
[14421 | 7513.31] loss=1.10 avg=1.05
[14422 | 7514.22] loss=1.54 avg=1.06
[14423 | 7515.13] loss=0.88 avg=1.06
[14424 | 7516.04] loss=1.14 avg=1.06
[14425 | 7516.95] loss=0.62 avg=1.05
[14426 | 7517.87] loss=0.67 avg=1.05
[14427 | 7518.78] loss=0.75 avg=1.05
[14428 | 7519.69] loss=0.85 avg=1.05
[14429 | 7520.60] loss=0.90 avg=1.04
[14430 | 7521.52] loss=1.31 avg=1.05
[14431 | 7522.44] loss=1.23 avg=1.05
[14432 | 7523.35] loss=0.77 avg=1.05
[14433 | 7524.27] loss=0.89 avg=1.04
[14434 | 7525.19] loss=1.10 avg=1.05
[14435 | 7526.12] loss=1.33 avg=1.05
[14436 | 7527.03] loss=1.24 avg=1.05
[14437 | 7527.95] loss=1.03 avg=1.05
[14438 | 7528.87] loss=0.86 avg=1.05
[14439 | 7529.78] loss=0.51 avg=1.04
[14440 | 7530.70] loss=1.25 avg=1.04
[14441 | 7531.62] loss=0.85 avg=1.04
[14442 | 7532.54] loss=1.81 avg=1.05
[14443 | 7533.46] loss=0.58 avg=1.05
[14444 | 7534.38] loss=1.21 avg=1.05
[14445 | 7535.30] loss=1.14 avg=1.05
[14446 | 7536.22] loss=0.88 avg=1.05
[14447 | 7537.14] loss=0.63 avg=1.04
[14448 | 7538.07] loss=1.15 avg=1.04
[14449 | 7538.99] loss=0.78 avg=1.04
[14450 | 7539.91] loss=0.36 avg=1.03
[14451 | 7540.82] loss=1.57 avg=1.04
[14452 | 7541.74] loss=0.65 avg=1.04
[14453 | 7542.67] loss=1.37 avg=1.04
[14454 | 7543.59] loss=0.91 avg=1.04
[14455 | 7544.51] loss=0.59 avg=1.03
[14456 | 7545.43] loss=0.79 avg=1.03
[14457 | 7546.36] loss=0.79 avg=1.03
[14458 | 7547.28] loss=0.85 avg=1.03
[14459 | 7548.20] loss=1.09 avg=1.03
[14460 | 7549.12] loss=1.02 avg=1.03
[14461 | 7550.05] loss=1.11 avg=1.03
[14462 | 7550.97] loss=1.34 avg=1.03
[14463 | 7551.89] loss=1.25 avg=1.03
[14464 | 7552.82] loss=1.25 avg=1.04
[14465 | 7553.74] loss=0.85 avg=1.03
[14466 | 7554.67] loss=0.89 avg=1.03
[14467 | 7555.59] loss=0.96 avg=1.03
[14468 | 7556.51] loss=0.82 avg=1.03
[14469 | 7557.44] loss=1.11 avg=1.03
[14470 | 7558.36] loss=0.96 avg=1.03
[14471 | 7559.28] loss=1.17 avg=1.03
[14472 | 7560.20] loss=0.84 avg=1.03
[14473 | 7561.12] loss=0.96 avg=1.03
[14474 | 7562.05] loss=1.06 avg=1.03
[14475 | 7562.97] loss=0.79 avg=1.03
[14476 | 7563.89] loss=1.17 avg=1.03
[14477 | 7564.81] loss=1.04 avg=1.03
[14478 | 7565.73] loss=0.95 avg=1.03
[14479 | 7566.65] loss=1.14 avg=1.03
[14480 | 7567.57] loss=1.00 avg=1.03
[14481 | 7568.49] loss=0.83 avg=1.03
[14482 | 7569.41] loss=0.79 avg=1.02
[14483 | 7570.33] loss=0.97 avg=1.02
[14484 | 7571.25] loss=0.87 avg=1.02
[14485 | 7572.17] loss=1.22 avg=1.02
[14486 | 7573.09] loss=0.97 avg=1.02
[14487 | 7574.01] loss=1.27 avg=1.03
[14488 | 7574.93] loss=1.35 avg=1.03
[14489 | 7575.85] loss=1.05 avg=1.03
[14490 | 7576.77] loss=0.68 avg=1.03
[14491 | 7577.68] loss=1.43 avg=1.03
[14492 | 7578.61] loss=1.03 avg=1.03
[14493 | 7579.52] loss=0.96 avg=1.03
[14494 | 7580.44] loss=1.28 avg=1.03
[14495 | 7581.36] loss=1.68 avg=1.04
[14496 | 7582.28] loss=1.30 avg=1.04
[14497 | 7583.20] loss=1.16 avg=1.04
[14498 | 7584.12] loss=0.67 avg=1.04
[14499 | 7585.04] loss=0.45 avg=1.03
Generating samples...
======== SAMPLE 1 ========
-name (car
(car
(if (member key (caar other-name))
(cdr other-name)))
;; `def' with `defvar' and `defvarkey'
;; for declarations. Use their
; `variadic' arguments.
;; (if (consp variables) ...
;; (let ((decls t)
(decl-get var 'decls-decls)
(cdr (assoc (cons 'variable
(if
(assoc var '(:parent-object))
'variable-name)))
(assoc 'decls)))))
(or var-name var-variant var-name))
((or var-key var-varkey (car variables)))
(or (car variable-key) '("var", "key(")
(car variable-key)))
(and (eq var-name var-varkey)
(let ((key
(cl-remove-if-not
======== SAMPLE 2 ========
-match "\\'"))
(if pw-regexp-match
(message "Match found in \\([^>]+\\)pw\\'"))
(setq end (point-marker)))
(setq pw-regexp-match
(if (or (and (looking-at "\\^.+\\(?:\\[[{:]?\\(\\]\\):\\)*" "\\|\\\\?\\|\\s-\\)?\\([\\([^\0-\]\\|:]?\\):\\)")
pw-regexp-match
match)
(match-string 0 2))))))
(pws-error "Error searching for matches in \\%s, see message"
(format "Error searching for matches in \\%s" pws-error))
(pws-error (pws-command "\\'" 1))
(pws-command (line-number-at-pos))
(when (match-beginning 1)
(pws-command
(format "/%d" pws-error)
(point-max)
(save-restriction
(narrow-to-region (point-min) (line-end-position))
(goto-char (point-max))
(while (< (point) (point-max))
(goto-char (point-max))
(forward-char 1)))
;; Add last two matches if we've hit "/"
(when pws-end-end "")
(forward-line -1)))
(pws-error "Searching %s: " pws-error t)))
nil t)))
(not pws-command)
(defun ws-error-search-forward ()
"Search forward for \"error\" in \"ws\" buffer."
(interactive)
(error "No error detected")
(catch 'found
(setq pws-error nil)
(setq end (point-marker))
(while (and end
(setq pws-end-end (point-marker)))
(if pws-command
(setq end (1- pws-error)))
(while (and pws-begin-end
======== SAMPLE 3 ========
-if-not-computing
(point-at-eol))
(or (forward-repetition point-at-eol)
(eq (char-before (+ (point-at-eol) (point-min)) ?.))))
(or (forward-char)
(let ((char-after (1- (point)))))
(goto-char (point-max))
(forward-char)
(put-text-property (point-at-bol)
'before-computter end-if-not-computing)
'post-computter)))))
(backward-symbol-change)))
(or (forward-composition start-point)
(error "This is a forward-sexp.")))
(defun last-completion-char ()
(let ((pre-completion-char t)
(line start-point)
(mark (forward-char 0)))
(cond
((save-excursion
;; Do a 'end-of-file function at the end of this buffer, to keep the
;; buffer from repeating its previous completion.
(let ((pos (buffer-size))
bp)
(save-excursion
(while (re-search-forward
nil
(setq bp (char-after))))
(and (re-search-forward pos (point-at-bol))))
(forward-line 1))) ; to keep the buffer from repeating a previous
;; completion, but keep the region we're in, even if no further
;; completion is required.
(save-restriction
(and (re-search-forward "^[ \t]*#\\(begin\\)\\b+" nil t)
(replace-regexp-in-string
"\\(@(\\sw+\\)\\|$\\)*\\(\\`[^;\n]*\\)\\'"))))))))
(defun end-of-file (&optional arg)
"Go to the beginning of the file at the current line or nil, respectively.
This does not change the value of `end-of-file', the optional
argument must be a character in a character set. This function is for
the use of Emacs
======== SAMPLE 4 ========
-button-text-start-button-start-button]
("Save"
["Run"
["Run"
"-->"
["Save"
"--> t"
"---"
"---."
;; No, it's not just a mouse-1, it does everything.
["Save"
'no-modification
:help-echo "Restart to save text..."
:value-set-data [text, t]
:value-set-data type
:value-set-data data
:value-set-data (key-get type)
:value-set-data type data value
:value-set-data (repeat key-bindings)
))
["Check"
["Check"
:help-echo "Check text for next button..."
:value-set-data [text]
:value-set-data type data)
["Check"
:key-bindings (:check (:input (if (or (not in-show-button-text-text-begin-line)
(<= (min (current-line) 1)
(if t
(save-excursion
(skip-chars-forward " \t")))])
;; Not a button or no text
;; but as we're entering a text or a button,
;; this could end a button-text-text text line.
;; We could leave the button and enter a new text, because it's
;; already in text or a button.
(insert (get-text-property (point-at-bol) 'button)
(current-column))))))
("Test"
["Test"
:help-echo "Use button as test text...}"
:value-set-data [text
[14500 | 7610.67] loss=1.25 avg=1.03
[14501 | 7611.59] loss=0.93 avg=1.03
[14502 | 7612.51] loss=1.40 avg=1.04
[14503 | 7613.43] loss=0.50 avg=1.03
[14504 | 7614.35] loss=0.81 avg=1.03
[14505 | 7615.27] loss=1.39 avg=1.03
[14506 | 7616.18] loss=1.21 avg=1.03
[14507 | 7617.10] loss=1.15 avg=1.04
[14508 | 7618.02] loss=1.00 avg=1.04
[14509 | 7618.93] loss=0.69 avg=1.03
[14510 | 7619.85] loss=1.07 avg=1.03
[14511 | 7620.76] loss=1.17 avg=1.03
[14512 | 7621.67] loss=1.74 avg=1.04
[14513 | 7622.59] loss=0.89 avg=1.04
[14514 | 7623.50] loss=0.92 avg=1.04
[14515 | 7624.41] loss=0.91 avg=1.04
[14516 | 7625.33] loss=0.93 avg=1.04
[14517 | 7626.24] loss=0.91 avg=1.03
[14518 | 7627.15] loss=1.20 avg=1.04
[14519 | 7628.06] loss=0.91 avg=1.03
[14520 | 7628.98] loss=0.30 avg=1.03
[14521 | 7629.89] loss=0.91 avg=1.03
[14522 | 7630.80] loss=0.74 avg=1.02
[14523 | 7631.72] loss=1.47 avg=1.03
[14524 | 7632.64] loss=0.97 avg=1.03
[14525 | 7633.55] loss=1.05 avg=1.03
[14526 | 7634.47] loss=1.14 avg=1.03
[14527 | 7635.39] loss=0.88 avg=1.03
[14528 | 7636.30] loss=1.58 avg=1.03
[14529 | 7637.22] loss=1.15 avg=1.03
[14530 | 7638.13] loss=0.74 avg=1.03
[14531 | 7639.05] loss=1.12 avg=1.03
[14532 | 7639.96] loss=1.29 avg=1.03
[14533 | 7640.88] loss=1.12 avg=1.03
[14534 | 7641.79] loss=0.90 avg=1.03
[14535 | 7642.71] loss=1.20 avg=1.04
[14536 | 7643.63] loss=0.91 avg=1.03
[14537 | 7644.55] loss=0.93 avg=1.03
[14538 | 7645.46] loss=1.22 avg=1.03
[14539 | 7646.38] loss=1.04 avg=1.03
[14540 | 7647.30] loss=1.04 avg=1.03
[14541 | 7648.22] loss=1.06 avg=1.04
[14542 | 7649.14] loss=0.93 avg=1.03
[14543 | 7650.05] loss=0.63 avg=1.03
[14544 | 7650.97] loss=1.52 avg=1.03
[14545 | 7651.89] loss=1.54 avg=1.04
[14546 | 7652.81] loss=1.05 avg=1.04
[14547 | 7653.73] loss=1.03 avg=1.04
[14548 | 7654.65] loss=0.98 avg=1.04
[14549 | 7655.57] loss=1.05 avg=1.04
[14550 | 7656.49] loss=1.03 avg=1.04
[14551 | 7657.41] loss=0.79 avg=1.04
[14552 | 7658.32] loss=0.84 avg=1.03
[14553 | 7659.25] loss=1.26 avg=1.04
[14554 | 7660.17] loss=1.43 avg=1.04
[14555 | 7661.09] loss=0.77 avg=1.04
[14556 | 7662.01] loss=1.24 avg=1.04
[14557 | 7662.93] loss=1.06 avg=1.04
[14558 | 7663.86] loss=1.06 avg=1.04
[14559 | 7664.78] loss=0.91 avg=1.04
[14560 | 7665.70] loss=1.30 avg=1.04
[14561 | 7666.61] loss=0.95 avg=1.04
[14562 | 7667.53] loss=1.02 avg=1.04
[14563 | 7668.46] loss=0.99 avg=1.04
[14564 | 7669.38] loss=0.89 avg=1.04
[14565 | 7670.30] loss=0.80 avg=1.04
[14566 | 7671.23] loss=0.92 avg=1.04
[14567 | 7672.15] loss=2.34 avg=1.05
[14568 | 7673.06] loss=1.20 avg=1.05
[14569 | 7673.98] loss=1.13 avg=1.05
[14570 | 7674.90] loss=0.87 avg=1.05
[14571 | 7675.82] loss=1.34 avg=1.05
[14572 | 7676.75] loss=1.00 avg=1.05
[14573 | 7677.67] loss=0.85 avg=1.05
[14574 | 7678.59] loss=1.03 avg=1.05
[14575 | 7679.51] loss=1.03 avg=1.05
[14576 | 7680.43] loss=1.43 avg=1.05
[14577 | 7681.35] loss=1.15 avg=1.05
[14578 | 7682.28] loss=0.90 avg=1.05
[14579 | 7683.20] loss=0.90 avg=1.05
[14580 | 7684.12] loss=1.36 avg=1.05
[14581 | 7685.04] loss=0.71 avg=1.05
[14582 | 7685.96] loss=1.31 avg=1.05
[14583 | 7686.88] loss=1.02 avg=1.05
[14584 | 7687.81] loss=0.90 avg=1.05
[14585 | 7688.73] loss=1.14 avg=1.05
[14586 | 7689.65] loss=1.05 avg=1.05
[14587 | 7690.57] loss=0.98 avg=1.05
[14588 | 7691.49] loss=1.08 avg=1.05
[14589 | 7692.42] loss=0.64 avg=1.05
[14590 | 7693.34] loss=1.21 avg=1.05
[14591 | 7694.26] loss=1.47 avg=1.05
[14592 | 7695.18] loss=1.13 avg=1.05
[14593 | 7696.10] loss=1.47 avg=1.06
[14594 | 7697.02] loss=0.79 avg=1.06
[14595 | 7697.94] loss=1.12 avg=1.06
[14596 | 7698.86] loss=1.07 avg=1.06
[14597 | 7699.78] loss=1.11 avg=1.06
[14598 | 7700.71] loss=1.03 avg=1.06
[14599 | 7701.63] loss=1.03 avg=1.06
Generating samples...
======== SAMPLE 1 ========
"\\("
"\\)")
("/(" (cdr (assoc name nls-file-path)))
((cdr (assoc nls-file-path nls-directory-path))
((cdr (assoc (assoc directory-name
(cdr nls-file-path))))
(:filename nls-file-path)))))
"Options for ls files of mode-line, directory or local name.
If NOFILE is true, the file being visited normally will be
tracked separately. It always uses the local file system's default filename
or directory. When non-nil, no one can change this.
Note that the following command must be run twice for this value to work."
(if (and (fboundp 'ls-mode-line)
(fset (process-get proc 'ls-mode-line)
"ls-mode-line"))
(and (process-get proc 'ls-mode-line)
(list (car (rassoc (assoc 'regexp n ls-file-options-by-casing))))
(or (assq 'regexp (assoc (assoc 'regexp n) ls-mode-line-options))))
(let ((prefix (list "-l" "") nls-command-prefix)
(prefix nil))
(list (concat
(format "%3$" (if (assq "*" prefix "-l") "-l"))
"$" (if (assq "" prefix "-l") "-l")
"-d" "") (if (assq "*" prefix "-l") "-d")
;; Add a non-nil prefix option for this variable
(cons "prefix-" (mapcar
(lambda (x) (= (car x) (cdr x)))
(if (assoc "" prefix "-r" "?")) "-r"))
"-r" "") (mapconcat (lambda (x) (symbol-name (car x)) "-r" " "-a")))
(nth 2 prefix))
(setq nls-command-prefix (car prefix))
(list prefix (cond
(if (and (consp (car nls-command-prefix))
(consp (cdr nls-command-prefix))
(consp (cdr nls-command-prefix))
(list '("--- "
(list (car (list (cdr prefix))))
"--- ")))
(nth 2 suffix))
(if (and (>= prefix 0) (consp (car prefix))
(> (car (nth 2 prefix)) prefix))
"--- "
(nth 2 suffix))
======== SAMPLE 2 ========
"„º¡, 휚, 흨")
(21179 . "쁴") (20067 . "핿") (20942 . "섈픾 넙")
(20918 . "긼 뵙" (18073 . "사娳字字, êµ¼ ì‹ å­—")
(33996 . "묢엗") (35018 . "벐뽓 친") (30986 . "揌樔´ 빔안双泼 빔")
(20697 . "해위 샐일 낼의릴 돌걄릴미의 샐의 샐실일 샐사샐 샐일 길일 同字字, ê°¼ì¹ ìƒì˜ 샐일 ìƒì¹ óŒë¯¹ 샐을 샐을 샐을 ìƒìžŒí• ìƒì„ 샐았댴 ë¹í• ìƒì•˜ë³€ëŠ”ë‘‘ 셝어 낼구 ê°ë‚ ì†µëž˜ 뀜 ìŒ‘í• ìƒìŠ¤ 톿 샐ḣ일 샐삄 샐쁴 í•ì° ë¦¤ì°œë‚˜ëŽ¬ 샐사사 샐­
ì†€ë†Œí• ìƒì—ìƒ 샌삼 샐사 샌사 나도 샌사 샌사 샌사 맄질밌 샌마밀 돌 샌사 대 샜 실짬 사홴류 생파 생팢들 샙")
======== SAMPLE 3 ========
"format(arg) nil nil nil)"
"<table class=\"tr\" width=\"1\"><tr><td col=\"us\" text=\"")
(\"width=\"3\"\" id=\"top/bottom\" align=\"center\">\"
<td align=\"center\">\"
\"width=\"3\">height=\"1\"><div id=\"bottom\">\"
<td col=\"us\">\"
\"width:\" (?= (?0 . "")) "">\n</td></table><br/>\n"
"<table class=\"tr\" width=\"1\"><td align=\"right\">\"
<td col=\"us\">\"
\"height:\" (?0 . t) "<p><h4 col=\"1\">\"</h4>\n"
;; When used in Org mode; it adds the name of the
;; region to the tag's description.
(`(,class ,info-label))
(`(,class ,info-label))
(`(,class ,info-label))
(`(,class ,info-label))
(`(,class ,info-label))))
;; Set the `:label' property.
semantic-edit-tag-property))
;; The `:tag-name'
(when (save-current-buffer
(setq semantic-edit-tag-name
(cons `(:title . "\\". "Tag Name" ""))
tag-name)
(setq semantic-edit-tag-name (buffer-name))
(semantic-edit-tag-name))
semantic-edit-tag-value)))
(defun semantic-edit-tag-value (tag)
"The value of TAG with semantic-edit-tag-name.
TAG can be used inside Org mode."
(let ((tag (if (semantic-tag-p tag)
(semantic-tag-string tag)))
(value (semantic-tag-value tag)))
;; Set the `:tag-name' property. Note that the value of the
;; tag-name must be a string.
(semantic-edit-tag-string tag)
(condition-case nil
(let ((string (semantic-tag-property tag 'string)))
(if (stringp string)
(setq semantic-edit-tag-name (string string))
(semantic-edit-tag-name (semantic-tag-string tag)))
(error
(when (semantic-tag-is-active tag) (error "Tag %s not present" tag))
(unless (symbolp tag) (error "\nUnknown tag with current buffer"))
(let ((res (semantic-tag-rename tag res)))
;; Set the `:tag-name' property to `:tagname', if applicable.
======== SAMPLE 4 ========
"This program is intended to be run on your system, without any customization. It will provide
a means of setting up your GNU Emacs to make it customizable. You might get
the option to try out the variable and make it available for
the distribution of the GNU Emacs, if you are not already a member of
this list. If you do not have an existing GNU Emacs, this program
may be useful (e.g., with a minor mode) to make your
program available. If you really want someone to make your program easier
to use, this is the program you should try out.")
(defvar-local sessmine-interactive nil
"This special function can be used to inhibit the editing of Emacs Lisp.
If this option is used, Emacs will inhibit editing of Lisp by
setting this variable to t. The function will thus inhibit all Emacs Lisp
interactive commands.")
(defvar-local sessmine-mode-map nil
"The menu containing modes.
See the variable `sessmine-mode-map' for a directory or file name of
where to find the mode.")
(defvar sessmine-syntax-buffer-name nil
"This must be absolute before a substitution buffer name.
The buffer name must not contain a special character syntax which
will make it harder to customize a value of sessmine-syntax
and hence customize different buffer names.")
(add-hook 'after-hook 'sessmine-add-to-init-hook)
(defvar sessmine-menu-buffer-name nil
"The default name of the buffer of the buffer specified by `sessmine-mode'.
The buffer must be specified in a menu before `sessmine-show-buffer-name-alist'
returned.")
(defun sessmine-add-to-init-hook ()
"If non-nil, add a new buffer to the menu that contains the buffer
specified by nil which might be the name Sessmine mode already
supports.
It's a good idea to make the list in the minibuffer.
Here is the value of:
- `sessmine-mode' \"sessmine\")
When called after editing a buffer, it is used to add to this menu
the buffer specified by `sessmine-mode' and add some other buffer
name specified by nil, such as \"kill-em' \" to add,
this should be a buffer named \"\" with the current name,
that is a buffer, not a string, so it is not modified by any
inferior buffer, if any other buffer with the name \"kill\" appears in
that buffer.
As with buffer names, this variable is set to t when
`sessmine-add-to-init-hook' is called from the minibuffer.
If you are using Emacs or Lisp, you might want to customize this behavior
before you use Emacs by using the normal customization
command. See `lisp-mode' for the documentation of what this
variable does.")
;;;###autoload
(defcustom sessmine-mode "sessmine"
"The Emacs version of `sessmine'.
Sessmine mode adds mode lines to the minibuffer that are only
accessible by typing \"s\\|s\\|s:\"
These mode lines are inserted as text when the buffer name
of \"sessmine\" (without the quotes) is typed with that buffer.
This variable may be set to `sessmine\".
\(fn)" nil
"This variable might be set to \"sessmine\" or \"s\\|s\\|s:\" if it is specified.
It is also possible to get a minibuffer or a sub-menu which has these
variables; this variable should be set in `sessmine' or \"s\\|s:\" and
if it is used, \"Sessmine\".
\(fn TARGET &optional ARG)" nil
"The default directory name of the buffer to be added to the menu.
This variable is used within `sessmine\".
The buffer name must not contain a special character syntax which will make it difficult
to customize a value of sessmine-syntax and hence customize different buffer names.
This could be used to customize a variable which is intended to be inserted into
a menu after loading the minibuffer, such as \"sessmine\", \"s\" and
\"s:\" which are the name of an Sessmine mode to be inserted.
The buffer
[14600 | 7727.24] loss=1.20 avg=1.06
[14601 | 7728.16] loss=0.90 avg=1.06
[14602 | 7729.08] loss=0.73 avg=1.05
[14603 | 7730.00] loss=2.06 avg=1.06
[14604 | 7730.91] loss=1.23 avg=1.06
[14605 | 7731.82] loss=1.39 avg=1.07
[14606 | 7732.74] loss=1.36 avg=1.07
[14607 | 7733.65] loss=1.06 avg=1.07
[14608 | 7734.57] loss=0.57 avg=1.07
[14609 | 7735.48] loss=0.95 avg=1.06
[14610 | 7736.39] loss=0.91 avg=1.06
[14611 | 7737.31] loss=1.25 avg=1.06
[14612 | 7738.22] loss=2.09 avg=1.08
[14613 | 7739.13] loss=1.26 avg=1.08
[14614 | 7740.05] loss=0.83 avg=1.07
[14615 | 7740.96] loss=1.12 avg=1.07
[14616 | 7741.87] loss=1.55 avg=1.08
[14617 | 7742.79] loss=0.98 avg=1.08
[14618 | 7743.70] loss=0.95 avg=1.08
[14619 | 7744.61] loss=0.75 avg=1.07
[14620 | 7745.52] loss=1.02 avg=1.07
[14621 | 7746.43] loss=0.81 avg=1.07
[14622 | 7747.34] loss=1.15 avg=1.07
[14623 | 7748.26] loss=0.91 avg=1.07
[14624 | 7749.17] loss=1.06 avg=1.07
@felipelalli
Copy link

lol

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment