From f10533854f4c7bb54247a11981191bf37b70cb36 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 11 Jul 2016 20:10:02 +0200 Subject: [PATCH] Fix some quoting problems in doc strings Most of these are minor issues involving, e.g., quoting `like this' instead of 'like this'. A few involve escaping ` and ' with a preceding \= when the characters should not be turned into curved single quotes. --- packages/ack/pcmpl-ack.el | 2 +- packages/ada-mode/ada-build.el | 14 +-- packages/ada-mode/ada-fix-error.el | 6 +- packages/ada-mode/ada-gnat-compile.el | 2 +- packages/ada-mode/ada-gnat-xref.el | 4 +- packages/ada-mode/ada-indent-user-options.el | 18 +-- packages/ada-mode/ada-mode.el | 20 ++-- packages/ada-mode/gnat-core.el | 2 +- packages/ada-mode/gpr-query.el | 4 +- packages/ahungry-theme/ahungry-theme.el | 2 +- packages/async/async.el | 10 +- packages/aumix-mode/aumix-mode.el | 2 +- packages/auto-overlays/auto-overlay-common.el | 4 +- packages/auto-overlays/auto-overlays.el | 18 +-- packages/avy/avy.el | 12 +- packages/bug-hunter/bug-hunter.el | 6 +- packages/company/company-elisp.el | 2 +- packages/company/company-yasnippet.el | 10 +- packages/company/company.el | 2 +- packages/context-coloring/context-coloring.el | 2 +- packages/csv-mode/csv-mode.el | 8 +- packages/cycle-quotes/cycle-quotes.el | 4 +- packages/dbus-codegen/dbus-codegen.el | 4 +- packages/debbugs/debbugs-gnu.el | 4 +- packages/debbugs/debbugs.el | 28 ++--- packages/dict-tree/dict-tree.el | 48 ++++---- packages/diff-hl/diff-hl-amend.el | 2 +- packages/djvu/djvu.el | 4 +- packages/ediprolog/ediprolog.el | 4 +- packages/el-search/el-search.el | 7 +- packages/electric-spacing/electric-spacing.el | 6 +- packages/enwc/enwc.el | 6 +- .../f90-interface-browser.el | 4 +- packages/f90-interface-browser/f90-tests.el | 10 +- packages/ggtags/ggtags.el | 2 +- packages/gnome-c-style/gnome-c-snippet.el | 20 ++-- packages/gnorb/gnorb-bbdb.el | 10 +- packages/gnorb/gnorb-registry.el | 8 +- packages/gnorb/gnorb-utils.el | 4 +- packages/gnugo/gnugo.el | 4 +- packages/hydra/hydra-test.el | 22 ++-- packages/ioccur/ioccur.el | 18 +-- packages/iterators/iterators.el | 2 +- packages/ivy/counsel.el | 2 +- packages/ivy/ivy.el | 10 +- packages/javaimp/javaimp.el | 6 +- packages/js2-mode/js2-imenu-extras.el | 2 +- packages/js2-mode/js2-mode.el | 103 ++++++++--------- packages/js2-mode/js2-old-indent.el | 2 +- packages/landmark/landmark.el | 2 +- packages/load-relative/load-relative.el | 4 +- packages/loc-changes/loc-changes.el | 2 +- packages/minimap/minimap.el | 8 +- packages/multishell/multishell-list.el | 8 +- packages/multishell/multishell.el | 24 ++-- packages/muse/muse-backlink.el | 6 +- packages/muse/muse-colors.el | 2 +- packages/muse/muse-html.el | 4 +- packages/muse/muse-http.el | 2 +- packages/muse/muse-ipc.el | 2 +- packages/muse/muse-mode.el | 4 +- packages/muse/muse-publish.el | 22 ++-- packages/muse/muse-regexps.el | 4 +- packages/muse/muse.el | 8 +- packages/nameless/nameless.el | 4 +- packages/notes-mode/notes-index-mode.el | 12 +- packages/notes-mode/notes-mode.el | 60 +++++----- packages/notes-mode/notes-url.el | 20 ++-- packages/notes-mode/notes-variables.el | 2 +- packages/oauth2/oauth2.el | 4 +- .../other-frame-window/other-frame-window.el | 8 +- packages/poker/poker.el | 12 +- packages/rich-minority/rich-minority.el | 4 +- packages/scroll-restore/scroll-restore.el | 6 +- packages/shen-mode/inf-shen.el | 4 +- packages/sml-mode/sml-mode.el | 14 +-- packages/sotlisp/sotlisp.el | 26 ++--- packages/spinner/spinner.el | 4 +- packages/stream/stream.el | 2 +- packages/svg-clock/svg-clock.el | 6 +- packages/timerfunctions/timerfunctions.el | 10 +- packages/tiny/tiny-test.el | 2 +- packages/tiny/tiny.el | 6 +- packages/tramp-theme/tramp-theme.el | 2 +- packages/transcribe/transcribe.el | 106 +++++++++--------- packages/trie/trie.el | 10 +- packages/url-http-ntlm/url-http-ntlm.el | 2 +- packages/wcheck-mode/wcheck-mode.el | 14 +-- packages/web-server/web-server.el | 6 +- packages/websocket/websocket.el | 8 +- packages/wisi/wisi-compile.el | 14 +-- packages/wisi/wisi-parse.el | 14 +-- packages/wisi/wisi.el | 4 +- packages/yasnippet/yasnippet.el | 24 ++-- packages/ztree/ztree-diff-model.el | 14 +-- packages/ztree/ztree-diff.el | 10 +- packages/ztree/ztree-dir.el | 14 +-- packages/ztree/ztree-util.el | 4 +- packages/ztree/ztree-view.el | 16 +-- 99 files changed, 532 insertions(+), 534 deletions(-) diff --git a/packages/ack/pcmpl-ack.el b/packages/ack/pcmpl-ack.el index 315eb0493..26ddb6e39 100644 --- a/packages/ack/pcmpl-ack.el +++ b/packages/ack/pcmpl-ack.el @@ -112,7 +112,7 @@ ;;;###autoload (defun pcomplete/ack () "Completion for the `ack' command. -Start an argument with '-' to complete short options and '--' for +Start an argument with `-' to complete short options and `--' for long options." ;; No space after = (while t diff --git a/packages/ada-mode/ada-build.el b/packages/ada-mode/ada-build.el index 05534546b..158773a4b 100644 --- a/packages/ada-mode/ada-build.el +++ b/packages/ada-mode/ada-build.el @@ -60,14 +60,14 @@ (defcustom ada-build-check-cmd (concat "${cross_prefix}gnatmake -u -c -gnatc ${gnatmake_opt} ${full_current} -cargs -I${src_dir} ${comp_opt}") "Default command to syntax check a single file. -Overridden by project variable 'check_cmd'." +Overridden by project variable `check_cmd'." :type 'string) (defcustom ada-build-make-cmd (concat "${cross_prefix}gnatmake -P${gpr_file} -o ${main} ${main} ${gnatmake_opt} " "-cargs -I${src_dir} ${comp_opt} -bargs ${bind_opt} -largs ${link_opt}") "Default command to compile the application. -Overridden by project variable 'make_cmd'." +Overridden by project variable `make_cmd'." :type 'string) ;; FIXME: make this more intelligent to work on Windows cmd shell? @@ -75,7 +75,7 @@ Overridden by project variable 'make_cmd'." ;; runtime. (defcustom ada-build-run-cmd "./${main}" "Default command to run the application, in a spawned shell. -Overridden by project variable 'run_cmd'." +Overridden by project variable `run_cmd'." :type 'string) ;;;; code @@ -85,11 +85,11 @@ Overridden by project variable 'run_cmd'." ${var} is a project variable or environment variable, $var an environment variable. -A prefix may be specified with the format '-${var}'; then +A prefix may be specified with the format `-${var}'; then the value is expanded with the prefix prepended. If the value is a list, the prefix is prepended to each list element. For -example, if src_dir contains 'dir_1 dir_2', '-I${src_dir}' -expands to '-Idir_1 -Idir_2'. +example, if src_dir contains `dir_1 dir_2', `-I${src_dir}' +expands to `-Idir_1 -Idir_2'. As a special case, ${full_current} is replaced by the current buffer file name including the directory and extension." @@ -153,7 +153,7 @@ buffer file name including the directory and extension." (defun ada-build-find-select-prj-file () "Search for a project file in the current directory, parse and select it. The file must have the same basename as the project variable -'main' or the current buffer if 'main' is nil, and extension from +`main' or the current buffer if `main' is nil, and extension from `ada-prj-file-extensions'. Returns non-nil if a file is selected, nil otherwise." (let* ((base-file-name (file-name-base diff --git a/packages/ada-mode/ada-fix-error.el b/packages/ada-mode/ada-fix-error.el index 6ec0fd787..130bb3ee3 100644 --- a/packages/ada-mode/ada-fix-error.el +++ b/packages/ada-mode/ada-fix-error.el @@ -31,7 +31,7 @@ (require 'compile) (defcustom ada-fix-sort-context-clause t - "*If non-nil, sort context clause when inserting 'with'" + "*If non-nil, sort context clause when inserting `with'" :type 'boolean :group 'ada) @@ -155,7 +155,7 @@ extend a with_clause to include CHILD-NAME . " ))) (defun ada-fix-add-use-type (type) - "Insert 'use type' clause for TYPE at start of declarative part for current construct." + "Insert `use type' clause for TYPE at start of declarative part for current construct." (ada-goto-declarative-region-start); leaves point after 'is' (newline) (insert "use type " type ";") @@ -164,7 +164,7 @@ extend a with_clause to include CHILD-NAME . " (indent-according-to-mode)) (defun ada-fix-add-use (package) - "Insert 'use' clause for PACKAGE at start of declarative part for current construct." + "Insert `use' clause for PACKAGE at start of declarative part for current construct." (ada-goto-declarative-region-start); leaves point after 'is' (newline) (insert "use " package ";") diff --git a/packages/ada-mode/ada-gnat-compile.el b/packages/ada-mode/ada-gnat-compile.el index ee4b12a2e..c0d2156d7 100644 --- a/packages/ada-mode/ada-gnat-compile.el +++ b/packages/ada-mode/ada-gnat-compile.el @@ -616,7 +616,7 @@ Prompt user if more than one." ) (defun ada-gnat-compile () - "Set Ada mode global vars to use 'gnat' for compiling." + "Set Ada mode global vars to use `gnat' for compiling." (add-to-list 'ada-prj-file-ext-extra "gpr") (add-to-list 'ada-prj-parser-alist '("gpr" . gnat-parse-gpr)) (add-to-list 'ada-select-prj-compiler '(gnat . ada-gnat-compile-select-prj)) diff --git a/packages/ada-mode/ada-gnat-xref.el b/packages/ada-mode/ada-gnat-xref.el index 53553b396..4d49aa74a 100644 --- a/packages/ada-mode/ada-gnat-xref.el +++ b/packages/ada-mode/ada-gnat-xref.el @@ -44,7 +44,7 @@ (defconst ada-gnat-file-line-col-regexp "\\(.*\\):\\([0-9]+\\):\\([0-9]+\\)") (defun ada-gnat-xref-other (identifier file line col) - "For `ada-xref-other-function', using 'gnat find', which is Ada-specific." + "For `ada-xref-other-function', using `gnat find', which is Ada-specific." (when (eq ?\" (aref identifier 0)) ;; gnat find wants the quotes on operators, but the column is after the first quote. @@ -93,7 +93,7 @@ result)) (defun ada-gnat-xref-parents (identifier file line col) - "For `ada-xref-parents-function', using 'gnat find', which is Ada-specific." + "For `ada-xref-parents-function', using `gnat find', which is Ada-specific." (let* ((arg (format "%s:%s:%d:%d" identifier file line col)) (switches (list diff --git a/packages/ada-mode/ada-indent-user-options.el b/packages/ada-mode/ada-indent-user-options.el index 1be01cd67..267ac41e5 100644 --- a/packages/ada-mode/ada-indent-user-options.el +++ b/packages/ada-mode/ada-indent-user-options.el @@ -110,7 +110,7 @@ Example : (make-variable-buffer-local 'ada-indent-label) (defcustom ada-indent-record-rel-type 3 - "Indentation for 'record' relative to 'type' or 'use'. + "Indentation for `record' relative to `type' or `use'. An example is: type A is @@ -120,9 +120,9 @@ An example is: (make-variable-buffer-local 'ada-indent-record-rel-type) (defcustom ada-indent-renames 2 - "Indentation for 'renames' relative to the matching subprogram keyword. + "Indentation for `renames' relative to the matching subprogram keyword. -For 'renames' of non-subprograms the indentation is +For `renames' of non-subprograms the indentation is `ada-indent-broken' relative to the line containing the matching keyword. @@ -149,15 +149,15 @@ Examples: (make-variable-buffer-local 'ada-indent-renames) (defcustom ada-indent-return 0 - "Indentation for 'return' relative to the matching 'function' keyword. + "Indentation for `return' relative to the matching `function' keyword. If the function has parameters, then if `ada-indent-return' is zero or less the indentation is abs `ada-indent-return' relative to the open parenthesis; if `ada-indent-return' is one or more, -indentation is relative to line containing 'function'. +indentation is relative to line containing `function'. If the function has no parameters, `ada-indent-broken' is used -relative to line containing 'function'. +relative to line containing `function'. An example is: function A (B : Integer) @@ -178,7 +178,7 @@ An example is: (message "WARNING: setting `ada-indent-use' to obsolete `ada-use-indent'") ada-use-indent) ada-indent-broken) - "Indentation for the lines in a 'use' statement. + "Indentation for the lines in a `use' statement. An example is: use Ada.Text_IO, @@ -199,7 +199,7 @@ An example is: (message "WARNING: setting `ada-indent-when' to obsolete `ada-when-indent'") ada-when-indent) 3) - "Indentation for 'when' relative to 'exception', 'case', 'or' in select. + "Indentation for `when' relative to `exception', `case', `or' in select. An example is: case A is @@ -220,7 +220,7 @@ An example is: (message "WARNING: setting `ada-indent-with' to obsolete `ada-with-indent'") ada-with-indent) ada-indent-broken) - "Indentation for the lines in a 'with' context clause. + "Indentation for the lines in a `with' context clause. An example is: with Ada.Text_IO, diff --git a/packages/ada-mode/ada-mode.el b/packages/ada-mode/ada-mode.el index 8fb112a49..b8d2aff5b 100644 --- a/packages/ada-mode/ada-mode.el +++ b/packages/ada-mode/ada-mode.el @@ -201,7 +201,7 @@ identifiers are Mixed_Case." (defcustom ada-case-exception-file nil "Default list of special casing exceptions dictionaries for identifiers. -Override with 'casing' project variable. +Override with `casing' project variable. New exceptions may be added interactively via `ada-case-create-exception'. If an exception is defined in multiple files, the first occurence is used. @@ -597,7 +597,7 @@ Placeholders are defined by the skeleton backend." "See the variable `align-region-separate' for more information.") (defun ada-align () - "If region is active, apply 'align'. If not, attempt to align + "If region is active, apply `align'. If not, attempt to align current construct." (interactive) (if (use-region-p) @@ -661,7 +661,7 @@ Function is called with one optional argument; syntax-ppss result.") "Function to scan a region, return a list of subprogram parameter declarations (in inverse declaration order). Function is called with two args BEGIN END (the region). Each parameter declaration is represented by a list -'((identifier ...) aliased-p in-p out-p not-null-p access-p constant-p protected-p type default)." +((identifier ...) aliased-p in-p out-p not-null-p access-p constant-p protected-p type default)." ;; Summary of Ada syntax for a parameter specification: ;; ... : [aliased] {[in] | out | in out | [null_exclusion] access [constant | protected]} ... ) @@ -1169,7 +1169,7 @@ Uses `ada-case-identifier', with exceptions defined in (defun ada-case-adjust-keyword () "Adjust the case of the previous word as a keyword. -'word' here is allowed to be underscore-separated (GPR external_as_list)." +`word' here is allowed to be underscore-separated (GPR external_as_list)." (save-excursion (let ((end (point-marker)) (start (progn (skip-syntax-backward "w_") (point)))) @@ -2233,8 +2233,8 @@ Function is called with four arguments: - filename containing the identifier (full path) - line number containing the identifier - column of the start of the identifier -Returns a list '(file line column) giving the corresponding location. -'file' may be absolute, or on `compilation-search-path'. If point is +Returns a list (FILE LINE COLUMN) giving the corresponding location. +FILE may be absolute, or on `compilation-search-path'. If point is at the specification, the corresponding location is the body, and vice versa.") @@ -2348,8 +2348,8 @@ Called with four arguments: - filename containing the identifier - line number containing the identifier - column of the start of the identifier -Returns a list '(file line column) giving the corresponding location. -'file' may be absolute, or on `compilation-search-path'.") +Returns a list (FILE LINE COLUMN) giving the corresponding location. +FILE may be absolute, or on `compilation-search-path'.") (defun ada-show-overridden (other-window) "Show the overridden declaration of identifier at point." @@ -2486,7 +2486,7 @@ is currently in. Called with no parameters.") ;; Supplied by indentation engine "Function called with no parameters; it should move forward to the next keyword in the statement following the one point is -in (ie from 'if' to 'then'). If not in a keyword, move forward to +in (ie from `if' to `then'). If not in a keyword, move forward to the next keyword in the current statement. If at the last keyword, move forward to the first keyword in the next statement or next keyword in the containing statement.") @@ -2520,7 +2520,7 @@ if on open parenthesis move to matching closing parenthesis." ;; Supplied by indentation engine "Function called with no parameters; it should move to the previous keyword in the statement following the one point is in (ie from -'then' to 'if'). If at the first keyword, move to the previous +`then' to `if'). If at the first keyword, move to the previous keyword in the previous statement or containing statement.") (defun ada-prev-statement-keyword () diff --git a/packages/ada-mode/gnat-core.el b/packages/ada-mode/gnat-core.el index f8d4f317c..ea4163e07 100644 --- a/packages/ada-mode/gnat-core.el +++ b/packages/ada-mode/gnat-core.el @@ -109,7 +109,7 @@ See also `gnat-parse-emacs-final'." (defun gnat-get-paths-1 (src-dirs prj-dirs) "Append list of source and project dirs in current gpr project to SRC-DIRS, PRJ-DIRS. -Uses 'gnat list'. Returns new (SRC-DIRS PRJ-DIRS)." +Uses `gnat list'. Returns new (SRC-DIRS PRJ-DIRS)." (with-current-buffer (gnat-run-buffer) ;; gnat list -v -P can return status 0 or 4; always lists compiler dirs ;; diff --git a/packages/ada-mode/gpr-query.el b/packages/ada-mode/gpr-query.el index ccb980ece..c22a077c3 100644 --- a/packages/ada-mode/gpr-query.el +++ b/packages/ada-mode/gpr-query.el @@ -195,7 +195,7 @@ Return buffer that holds output." (defun gpr-query-get-src-dirs (src-dirs) "Append list of source dirs in current gpr project to SRC-DIRS. -Uses 'gpr_query'. Returns new list." +Uses `gpr_query'. Returns new list." (with-current-buffer (gpr-query--session-buffer (gpr-query-cached-session)) (gpr-query-session-send "source_dirs" t) @@ -210,7 +210,7 @@ Uses 'gpr_query'. Returns new list." (defun gpr-query-get-prj-dirs (prj-dirs) "Append list of project dirs in current gpr project to PRJ-DIRS. -Uses 'gpr_query'. Returns new list." +Uses `gpr_query'. Returns new list." (with-current-buffer (gpr-query--session-buffer (gpr-query-cached-session)) (gpr-query-session-send "project_path" t) diff --git a/packages/ahungry-theme/ahungry-theme.el b/packages/ahungry-theme/ahungry-theme.el index f382de697..3b35f59fb 100644 --- a/packages/ahungry-theme/ahungry-theme.el +++ b/packages/ahungry-theme/ahungry-theme.el @@ -87,7 +87,7 @@ Leave this alone to retain defaults. Default value: - '(:family \"Terminus\" :foundry \"xos4\" + (:family \"Terminus\" :foundry \"xos4\" :slant normal :weight normal :height 100 :width normal)") diff --git a/packages/async/async.el b/packages/async/async.el index 3798c950f..6619fffee 100644 --- a/packages/async/async.el +++ b/packages/async/async.el @@ -54,14 +54,14 @@ matching EXCLUDE-REGEXP (if present). It is intended to be used as follows: (async-start - `(lambda () - (require 'smtpmail) + \\=`(lambda () + (require \\='smtpmail) (with-temp-buffer (insert ,(buffer-substring-no-properties (point-min) (point-max))) ;; Pass in the variable environment for smtpmail - ,(async-inject-variables \"\\`\\(smtpmail\\|\\(user-\\)?mail\\)-\") + ,(async-inject-variables \"\\\\=`\\(smtpmail\\|\\(user-\\)?mail\\)-\") (smtpmail-send-it))) - 'ignore)" + \\='ignore)" `(setq ,@(let (bindings) (mapatoms @@ -264,7 +264,7 @@ will leave *emacs* process buffers hanging around): (async-start (lambda () (delete-file \"a remote file on a slow link\" nil)) - 'ignore) + \\='ignore) Note: Even when FINISH-FUNC is present, a future is still returned except that it yields no value (since the value is diff --git a/packages/aumix-mode/aumix-mode.el b/packages/aumix-mode/aumix-mode.el index 8507fb7ce..6f97746e9 100644 --- a/packages/aumix-mode/aumix-mode.el +++ b/packages/aumix-mode/aumix-mode.el @@ -89,7 +89,7 @@ Only a few aumix options do anything for interactive use. \"-d\" can set a mixer device file (default /dev/mixer), for example - (setq aumix-mode-switches '(\"-d\" \"/dev/mixer2\"))" + (setq aumix-mode-switches \\='(\"-d\" \"/dev/mixer2\"))" :type '(repeat string) :group 'aumix-mode) diff --git a/packages/auto-overlays/auto-overlay-common.el b/packages/auto-overlays/auto-overlay-common.el index 994b20d86..e1c539a1f 100644 --- a/packages/auto-overlays/auto-overlay-common.el +++ b/packages/auto-overlays/auto-overlay-common.el @@ -58,7 +58,7 @@ If INACTIVE is non-nil, both active and inactive overlays are returned (usually inactive ones are ignored). Note that this function returns any overlay. If you want to -restrict it to auto overlays, include '(identity auto-overlay) in +restrict it to auto overlays, include (identity auto-overlay) in PROP-TEST." (when (null point) (setq point (point))) @@ -112,7 +112,7 @@ are returned. If INACTIVE is non-nil, both active and inactive overlays are returned (usually inactive ones are ignored). Note that this function returns any overlay. If you want to -restrict it to auto overlays, include '(identity auto-overlay) in +restrict it to auto overlays, include (identity auto-overlay) in PROP-TEST." ;; make sure prop-test is a list of lists, even if there's only one, and diff --git a/packages/auto-overlays/auto-overlays.el b/packages/auto-overlays/auto-overlays.el index cfb704d14..6febdb443 100644 --- a/packages/auto-overlays/auto-overlays.el +++ b/packages/auto-overlays/auto-overlays.el @@ -343,7 +343,7 @@ Comparison is done with 'eq." (defun auto-o-position (item list) "Find the first occurrence of ITEM in LIST. Return the index of the matching item, or nil of not found. -Comparison is done with 'equal." +Comparison is done with `equal'." (let (el (i 0)) (catch 'found (while (setq el (nth i list)) @@ -406,7 +406,7 @@ DEFINITION should be a list of the form: (CLASS @optional :id DEFINITION-ID @rest REGEXP1 REGEXP2 ... ) CLASS is a symbol specifying the auto-overlay class. The standard -classes are 'word, 'line, 'self, 'flat and 'nested. The :id +classes are `word', `line', `self', `flat' and `nested'. The :id property is optional. It should be a symbol that can be used to uniquely identify DEFINITION (see `auto-overlay-unload-definition'). @@ -425,8 +425,8 @@ form (NAME . VALUE) where NAME is an overlay property name (a symbol) and VALUE is its value. The properties :edge and :id are optional. The :edge property -EDGE should be one of the symbols 'start or 'end. If it is not -specified, :edge is assumed to be 'start. The :id property is a +EDGE should be one of the symbols `start' or `end'. If it is not +specified, :edge is assumed to be `start'. The :id property is a symbol that can be used to uniquely identify REGEXP (see `auto-overlay-unload-regexp')." @@ -503,8 +503,8 @@ form (NAME . VALUE) where NAME is an overlay property name (a symbol) and VALUE is its value. The properties :edge and :id are optional. The :edge property -EDGE should be one of the symbols 'start or 'end. If it is not -specified, :edge is assumed to be 'start. The :id property is a +EDGE should be one of the symbols `start' or `end'. If it is not +specified, :edge is assumed to be `start'. The :id property is a symbol that can be used to uniquely identify REGEXP (see `auto-overlay-unload-regexp')." @@ -1431,13 +1431,13 @@ If START or END are numbers or markers, move that edge to the buffer location specified by the number or marker and make it unmatched. If START or END are non-nil but neither of the above, make that edge unmatched. If START or END are null, don't change -that edge. However, if END is null, and START is an 'end overlay, +that edge. However, if END is null, and START is an `end' overlay, match end of OVERLAY rather than start. If NO-PARSE is non-nil, block re-parsing due to exclusive overlay changes. If NO-PROPS is non-nil, block updating of overlay's properties. If PROTECT-MATCH is non-nil, don't modify any match -overlays associated with OVERLAY (i.e. don't modify their 'parent +overlays associated with OVERLAY (i.e. don't modify their `parent' properties)." (let ((old-start (overlay-start overlay)) @@ -1593,7 +1593,7 @@ properties)." "Delete OVERLAY from buffer. If PROTECT-MATCH is non-nil, don't modify any match overlays -associated with OVERLAY (i.e. leave their 'parent properties +associated with OVERLAY (i.e. leave their `parent' properties alone). If NO-PARSE is non-nil, block re-parsing due to exclusive overlay changes." diff --git a/packages/avy/avy.el b/packages/avy/avy.el index 45f212085..593dbb0ea 100644 --- a/packages/avy/avy.el +++ b/packages/avy/avy.el @@ -150,10 +150,10 @@ pressed during the dispatch, ACTION is set to replace the default :type 'boolean) (defcustom avy-word-punc-regexp "[!-/:-@[-`{-~]" - "Regexp of punctuation chars that count as word starts for `avy-goto-word-1. + "Regexp of punctuation chars that count as word starts for `avy-goto-word-1'. When nil, punctuation chars will not be matched. -\"[!-/:-@[-`{-~]\" will match all printable punctuation chars." +\"[!-/:-@[-\\=`{-~]\" will match all printable punctuation chars." :type 'regexp) (defcustom avy-ignored-modes '(image-mode doc-view-mode pdf-view-mode) @@ -559,14 +559,14 @@ Use OVERLAY-FN to visualize the decision overlay." (avy--remove-leading-chars)) (defun avy--next-visible-point () - "Return the next closest point without 'invisible property." + "Return the next closest point without `invisible' property." (let ((s (point))) (while (and (not (= (point-max) (setq s (next-overlay-change s)))) (get-char-property s 'invisible))) s)) (defun avy--next-invisible-point () - "Return the next closest point with 'invisible property." + "Return the next closest point with `invisible' property." (let ((s (point))) (while (and (not (= (point-max) (setq s (next-overlay-change s)))) (not (get-char-property s 'invisible)))) @@ -1212,8 +1212,8 @@ The window scope is determined by `avy-all-windows' or (defun avy--read-candidates () "Read as many chars as possible and return their occurences. At least one char must be read, and then repeatedly one next char -may be read if it is entered before `avy-timeout-seconds'. `DEL' -deletes the last char entered, and `RET' exits with the currently +may be read if it is entered before `avy-timeout-seconds'. DEL +deletes the last char entered, and RET exits with the currently read string immediately instead of waiting for another char for `avy-timeout-seconds'. The format of the result is the same as that of `avy--regex-candidates'. diff --git a/packages/bug-hunter/bug-hunter.el b/packages/bug-hunter/bug-hunter.el index 99f753aef..30c2c8e45 100644 --- a/packages/bug-hunter/bug-hunter.el +++ b/packages/bug-hunter/bug-hunter.el @@ -310,7 +310,7 @@ ARGS are passed before \"-l FILE\"." "Execute FORMS in the background and test ASSERTION. See `bug-hunter' for a description on the ASSERTION. -If ASSERTION is 'interactive, the form is run through +If ASSERTION is `interactive', the form is run through `bug-hunter--run-form-interactively'. Otherwise, a slightly modified version of the form combined with ASSERTION is run through `bug-hunter--run-form'." @@ -468,8 +468,8 @@ Wraps them in a progn if necessary to always return a single form. The user may decide to not provide input, in which case -'interactive is returned. Note, this is different from the user -typing `RET' at an empty prompt, in which case nil is returned." +`interactive' is returned. Note, this is different from the user +typing RET at an empty prompt, in which case nil is returned." (pcase (read-char-choice (if (display-graphic-p) bug-hunter--hunt-type-prompt (replace-regexp-in-string "To bisect interactively,.*\n" "" diff --git a/packages/company/company-elisp.el b/packages/company/company-elisp.el index 3db0d8b83..40354d579 100644 --- a/packages/company/company-elisp.el +++ b/packages/company/company-elisp.el @@ -36,7 +36,7 @@ (defcustom company-elisp-detect-function-context t "If enabled, offer Lisp functions only in appropriate contexts. -Functions are offered for completion only after ' and \(." +Functions are offered for completion only after \\=' and \(." :type '(choice (const :tag "Off" nil) (const :tag "On" t))) diff --git a/packages/company/company-yasnippet.el b/packages/company/company-yasnippet.el index e5fded4d1..5c880174e 100644 --- a/packages/company/company-yasnippet.el +++ b/packages/company/company-yasnippet.el @@ -108,18 +108,18 @@ shadow backends that come after it. Recommended usages: * In a buffer-local value of `company-backends', grouped with a backend or several that provide actual text completions. - (add-hook 'js-mode-hook + (add-hook \\='js-mode-hook (lambda () - (set (make-local-variable 'company-backends) - '((company-dabbrev-code company-yasnippet))))) + (set (make-local-variable \\='company-backends) + \\='((company-dabbrev-code company-yasnippet))))) * After keyword `:with', grouped with other backends. - (push '(company-semantic :with company-yasnippet) company-backends) + (push \\='(company-semantic :with company-yasnippet) company-backends) * Not in `company-backends', just bound to a key. - (global-set-key (kbd \"C-c y\") 'company-yasnippet) + (global-set-key (kbd \"C-c y\") \\='company-yasnippet) " (interactive (list 'interactive)) (cl-case command diff --git a/packages/company/company.el b/packages/company/company.el index 713a94fd1..a2908af16 100644 --- a/packages/company/company.el +++ b/packages/company/company.el @@ -2281,7 +2281,7 @@ It defaults to 0. CALLBACK is a function called with the selected result if the user successfully completes the input. -Example: \(company-begin-with '\(\"foo\" \"foobar\" \"foobarbaz\"\)\)" +Example: \(company-begin-with \\='\(\"foo\" \"foobar\" \"foobarbaz\"\)\)" (let ((begin-marker (copy-marker (point) t))) (company-begin-backend (lambda (command &optional arg &rest ignored) diff --git a/packages/context-coloring/context-coloring.el b/packages/context-coloring/context-coloring.el index fd7a81661..06830fd79 100644 --- a/packages/context-coloring/context-coloring.el +++ b/packages/context-coloring/context-coloring.el @@ -279,7 +279,7 @@ KEYWORDS-P is non-nil, also color keywords from MIN to MAX." "Scope level at which to start coloring. If top-level variables and functions do not become global, but -are scoped to a file (as in Node.js), set this to `1'." +are scoped to a file (as in Node.js), set this to 1." :type 'integer :safe #'integerp :group 'context-coloring) diff --git a/packages/csv-mode/csv-mode.el b/packages/csv-mode/csv-mode.el index 8aa4ad9d4..5a789951c 100644 --- a/packages/csv-mode/csv-mode.el +++ b/packages/csv-mode/csv-mode.el @@ -161,7 +161,7 @@ All must be different from the field quote characters, `csv-field-quotes'." (defcustom csv-field-quotes '("\"") "Field quotes: a list of *single-character* strings. -For example: (\"\\\"\"), the default, or (\"\\\"\" \"'\" \"`\"). +For example: (\"\\\"\"), the default, or (\"\\\"\" \"\\='\" \"\\=`\"). A field can be delimited by a pair of any of these characters. All must be different from the field separators, `csv-separators'." :type '(repeat string) @@ -219,7 +219,7 @@ Changing this variable does not affect any existing CSV mode buffer." (set-default 'csv-comment-start value))) (defcustom csv-align-style 'left - "Aligned field style: one of 'left, 'centre, 'right or 'auto. + "Aligned field style: one of `left', `centre', `right' or `auto'. Alignment style used by `csv-align-fields'. Auto-alignment means left align text and right align numbers." :type '(choice (const left) (const centre) @@ -447,8 +447,8 @@ Assumes point is at beginning of line." (defun csv-interactive-args (&optional type) "Get arg or field(s) and region interactively, offering sensible defaults. Signal an error if the buffer is read-only. -If TYPE is noarg then return a list `(beg end)'. -Otherwise, return a list `(arg beg end)', where arg is: +If TYPE is noarg then return a list (beg end). +Otherwise, return a list (arg beg end), where arg is: the raw prefix argument by default\; a single field index if TYPE is single\; a list of field indices or index ranges if TYPE is multiple. diff --git a/packages/cycle-quotes/cycle-quotes.el b/packages/cycle-quotes/cycle-quotes.el index faac0cb75..53de8ac18 100644 --- a/packages/cycle-quotes/cycle-quotes.el +++ b/packages/cycle-quotes/cycle-quotes.el @@ -73,8 +73,8 @@ to be recomputed.") (defun cycle-quotes--fix-escapes (beg end escape-char unescape-char) "Fix character escapes between BEG and END. -Instances of ESCAPE-CHAR will be escaped by `\', while instances -where UNESCAPE-CHAR are escaped by `\' will have their escape +Instances of ESCAPE-CHAR will be escaped by `\\', while instances +where UNESCAPE-CHAR are escaped by `\\' will have their escape character removed." (let ((escape-string (string escape-char)) (unescape-string (string unescape-char))) diff --git a/packages/dbus-codegen/dbus-codegen.el b/packages/dbus-codegen/dbus-codegen.el index 5f60dd1b9..049d37973 100644 --- a/packages/dbus-codegen/dbus-codegen.el +++ b/packages/dbus-codegen/dbus-codegen.el @@ -626,7 +626,7 @@ XML is either a string which defines the interface of the D-Bus proxy, or a Lisp form which returns a string. The format of the string must comply with the standard D-Bus introspection data format as described in: -`http://dbus.freedesktop.org/doc/dbus-specification.html#introspection-format>'. +`http://dbus.freedesktop.org/doc/dbus-specification.html#introspection-format'. INTERFACE is a name of interface which is represented by this proxy. @@ -828,7 +828,7 @@ XML is either a string which defines the interface of the D-Bus skeleton, or a Lisp form which returns a string. The format of the string must comply with the standard D-Bus introspection data format as described in: -`http://dbus.freedesktop.org/doc/dbus-specification.html#introspection-format>'. +`http://dbus.freedesktop.org/doc/dbus-specification.html#introspection-format'. INTERFACE is a name of interface which is represented by this skeleton. diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el index 3df11176a..55841fdf0 100644 --- a/packages/debbugs/debbugs-gnu.el +++ b/packages/debbugs/debbugs-gnu.el @@ -261,8 +261,8 @@ suppressed bugs is toggled by `debbugs-gnu-toggle-suppress'." (defcustom debbugs-gnu-mail-backend 'gnus "*The email backend to use for reading bug report email exchange. -If this is 'gnus, the default, use Gnus. -If this is 'rmail, use Rmail instead." +If this is `gnus', the default, use Gnus. +If this is `rmail', use Rmail instead." :group 'debbugs-gnu :type '(choice (const :tag "Use Gnus" 'gnus) (const :tag "Use Rmail" 'rmail)) diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el index d4503915c..c3d230732 100644 --- a/packages/debbugs/debbugs.el +++ b/packages/debbugs/debbugs.el @@ -108,7 +108,7 @@ This corresponds to the Debbugs server to be accessed, either (defcustom debbugs-cache-expiry (* 60 60) "How many seconds debbugs query results are cached. -`t' or 0 disables caching, `nil' disables expiring." +t or 0 disables caching, nil disables expiring." :group 'debbugs :type '(choice (const :tag "Always" t) (const :tag "Never" nil) @@ -303,7 +303,7 @@ Every returned entry is an association list with the following attributes: `done': The email address of the worker who has closed the bug (if done). - `archived': `t' if the bug is archived, `nil' otherwise. + `archived': t if the bug is archived, nil otherwise. `unarchived': The date the bug has been unarchived, if ever. @@ -529,7 +529,7 @@ Every message is an association list with the following attributes: `body': The message body. - `attachments' A list of possible attachments, or `nil'. Not + `attachments' A list of possible attachments, or nil. Not implemented yet server side." (car (soap-invoke debbugs-wsdl debbugs-port "get_bug_log" bug-number))) @@ -632,9 +632,9 @@ same attributes as in the conditions. Additional attributes are Examples: \(debbugs-search-est - '\(:phrase \"armstrong AND debbugs\" :skip 10 :max 2) - '\(:severity \"normal\" :operator \"STRINC\") - '\(:date :order \"NUMA\")) + \\='\(:phrase \"armstrong AND debbugs\" :skip 10 :max 2) + \\='\(:severity \"normal\" :operator \"STRINC\") + \\='\(:date :order \"NUMA\")) => \(\(\(msg_num . 21) \(date . 1229208302) @@ -650,9 +650,9 @@ Examples: ;; Show all messages from me between 2011-08-01 and 2011-08-31. \(debbugs-search-est - '\(:max 20) - '\(:@author \"me\" :operator \"ISTRINC\") - `\(:date + \\='\(:max 20) + \\='\(:@author \"me\" :operator \"ISTRINC\") + \\=`\(:date ,\(floor \(float-time \(encode-time 0 0 0 1 8 2011))) ,\(floor \(float-time \(encode-time 0 0 0 31 8 2011))) :operator \"NUMBT\"))" @@ -824,7 +824,7 @@ BUG-OR-MESSAGE must be list element returned by either Example: Return the originator of last submitted bug. \(debbugs-get-attribute - \(car \(apply #'debbugs-get-status \(debbugs-newest-bugs 1))) 'originator)" + \(car \(apply #\\='debbugs-get-status \(debbugs-newest-bugs 1))) \\='originator)" (cdr (assoc attribute bug-or-message))) (defun debbugs-get-message-numbers (messages) @@ -841,11 +841,11 @@ the header lines of the message, the second element is the body of the message. Further elements of the list, if any, are attachments of the message. -If there is no message with MESSAGE-NUMBER, the function returns `nil'. +If there is no message with MESSAGE-NUMBER, the function returns nil. Example: Return the first message of last submitted bug. -\(let \(\(messages \(apply #'debbugs-get-bug-log \(debbugs-newest-bugs 1)))) +\(let \(\(messages \(apply #\\='debbugs-get-bug-log \(debbugs-newest-bugs 1)))) \(debbugs-get-message messages \(car \(debbugs-get-message-numbers messages))))" (while (and messages @@ -872,8 +872,8 @@ following symbols: either symbol depends on actual Debbugs server configuration. For gnu.org, use the former; for debian.org - the latter. -FILENAME, if non-`nil', is the name of file to store mbox. If -FILENAME is `nil', the downloaded mbox is inserted into the +FILENAME, if non-nil, is the name of file to store mbox. If +FILENAME is nil, the downloaded mbox is inserted into the current buffer." (let (url (mt "") bn) (unless (setq url (plist-get diff --git a/packages/dict-tree/dict-tree.el b/packages/dict-tree/dict-tree.el index 2ba3bdbf0..a21fcc48f 100644 --- a/packages/dict-tree/dict-tree.el +++ b/packages/dict-tree/dict-tree.el @@ -537,20 +537,20 @@ defaults to \"lexical\" comparison of the keys, ignoring the data \(which is not very useful, since an unranked `dictree-complete' query already does this much more efficiently\). -CACHE-POLICY should be a symbol ('time, 'length, or 'both), which -determines which query operations are cached. The 'time setting +CACHE-POLICY should be a symbol (`time', `length', or `both'), which +determines which query operations are cached. The `time' setting caches queries that take longer (in seconds) than the -corresponding CACHE-THRESHOLD value. The 'length setting caches +corresponding CACHE-THRESHOLD value. The `length' setting caches lookups of key sequences that are longer than LOOKUP-CACHE-THRESHOLD value (since those are likely to be the slower ones), and caches completions of prefixes that are shorter than the corresponding CACHE-THRESHOLD (since those are likely to -be the slower ones in that case). The setting 'both requires both +be the slower ones in that case). The setting `both' requires both conditions to be satisfied simultaneously. In this case, CACHE-THRESHOLD must be a plist with properties :time and :length specifying the corresponding cache thresholds. -CACHE-UPDATE-POLICY should be a symbol ('synchronize or 'delete), +CACHE-UPDATE-POLICY should be a symbol (`synchronize' or `delete'), which determines how the caches are updated when data is inserted or deleted. The former updates tainted cache entries, which makes queries faster but insertion and deletion slower, whereas the @@ -1615,13 +1615,13 @@ set. (See also `dictree-member-p' for testing existence alone.)" for side-effects only. FUNCTION will be passed two arguments: a key of type -TYPE ('string, 'vector, or 'list, defaulting to 'vector) from the +TYPE (`string', `vector', or `list', defaulting to `vector') from the dictionary, and the data associated with that key. The dictionary entries will be traversed in \"lexical\" order, i.e. the order defined by the dictionary's comparison function (cf. `dictree-create'). -If TYPE is 'string, it must be possible to apply the function +If TYPE is `string', it must be possible to apply the function `string' to the elements of sequences stored in DICT. FUNCTION is applied in ascending order, or descending order if @@ -1676,9 +1676,9 @@ and combine the results using COMBINATOR. FUNCTION should take two arguments: a key sequence from the dictionary and its associated data. -Optional argument TYPE (one of the symbols vector, lisp or -string; defaults to vector) sets the type of sequence passed to -FUNCTION. If TYPE is 'string, it must be possible to apply the +Optional argument TYPE (one of the symbols `vector', `lisp' or +`string'; defaults to `vector') sets the type of sequence passed to +FUNCTION. If TYPE is `string', it must be possible to apply the function `string' to the individual elements of key sequences stored in DICT. @@ -1725,9 +1725,9 @@ and make a list of the results. FUNCTION should take two arguments: a key sequence from the dictionary and its associated data. -Optional argument TYPE (one of the symbols vector, lisp or -string; defaults to vector) sets the type of sequence passed to -FUNCTION. If TYPE is 'string, it must be possible to apply the +Optional argument TYPE (one of the symbols `vector', `lisp' or +`string'; defaults to `vector') sets the type of sequence passed to +FUNCTION. If TYPE is `string', it must be possible to apply the function `string' to the individual elements of key sequences stored in DICT. @@ -1740,7 +1740,7 @@ Note that if you don't care about the order in which FUNCTION is applied, just that the resulting list is in the correct order, then - (trie-mapf function 'cons trie type (not reverse)) + (trie-mapf function \\='cons trie type (not reverse)) is more efficient. @@ -2268,7 +2268,7 @@ results, and doesn't count towards MAXNUM. RESULTFUN defines a function used to process results before adding them to the final result list. If specified, it should -accept two arguments: a key and its associated data. It's return +accept two arguments: a key and its associated data. Its return value is what gets added to the final result list, instead of the default key-data cons cell." ;; run completion query @@ -2403,7 +2403,7 @@ default key-data cons cell." ;; Persistent storage (defun dictree-save (dict &optional compilation) - "Save dictionary DICT to it's associated file. + "Save dictionary DICT to its associated file. Use `dictree-write' to save to a different file. Optional argument COMPILATION determines whether to save the @@ -2450,9 +2450,9 @@ preference to the uncomplied version, as it loads faster. However, only the uncompiled version is portable between different Emacs versions. -If optional argument COMPILATION is the symbol 'compiled, only +If optional argument COMPILATION is the symbol `compiled', only the compiled version will be created, whereas if it is the symbol -'uncompiled, only the uncompiled version will be created. +`uncompiled', only the uncompiled version will be created. Interactively, DICT and FILENAME are read from the mini-buffer, and OVERWRITE is the prefix argument." @@ -3169,15 +3169,15 @@ appended to the end of it. Otherwise, a new buffer will be created. If BUFFER is omitted, the current buffer is used. TYPE determines the type of sequence to use to represent the -keys, and should be one of 'string, 'vector or 'list. The default -is 'vector. +keys, and should be one of `string', `vector' or `list'. The default +is `vector'. Note that if the data does not have a read syntax, the dumped data can not be used to recreate the dictionary using `dictree-populate-from-file'. Interactively, DICT and BUFFER are read from the mini-buffer, -TYPE is always 'string." +TYPE is always `string'." (interactive (list (read-dict "Dictionary: ") (read-buffer "Buffer to dump to (defaults to current): " @@ -3240,15 +3240,15 @@ as that used by `dictree-populate-from-file'. Prompts to overwrite FILENAME if it already exists, unless OVERWRITE is non-nil. TYPE determines the type of sequence to use to represent the -keys, and should be one of 'string, 'vector or 'list. The default -is 'vector. +keys, and should be one of `string', `vector' or `list'. The default +is `vector'. Note that if the data does not have a read syntax and no , the dumped data can not be used to recreate the dictionary using `dictree-populate-from-file'. Interactively, DICT and FILE are read from the mini-buffer, -OVERWRITE is the prefix argument, and TYPE is always 'string." +OVERWRITE is the prefix argument, and TYPE is always `string'." (interactive (list (read-dict "Dictionary: ") (read-file-name "File to dump to: " nil ""))) (when (and (called-interactively-p 'any) (symbolp dict)) diff --git a/packages/diff-hl/diff-hl-amend.el b/packages/diff-hl/diff-hl-amend.el index defb3f45e..e39656dd5 100644 --- a/packages/diff-hl/diff-hl-amend.el +++ b/packages/diff-hl/diff-hl-amend.el @@ -31,7 +31,7 @@ (define-minor-mode diff-hl-amend-mode "Show changes against the second-last revision in `diff-hl-mode'. Most useful with backends that support rewriting local commits, -and most importantly, 'amending' the most recent one. +and most importantly, \"amending\" the most recent one. Currently only supports Git, Mercurial and Bazaar." :lighter " Amend" (if diff-hl-amend-mode diff --git a/packages/djvu/djvu.el b/packages/djvu/djvu.el index a5816ef98..eb1c4fab2 100644 --- a/packages/djvu/djvu.el +++ b/packages/djvu/djvu.el @@ -155,8 +155,8 @@ This is a list with four elements (READ TEXT ANNOT OUTLINE).") (defvar djvu-resolve-url nil "Flag for resolving internal URLs. -If 'long replace short page numbers by long FileIDs. -If 'short replace long FileIDs by short page numbers. +If `long' replace short page numbers by long FileIDs. +If `short' replace long FileIDs by short page numbers. If nil do nothing.") (defvar djvu-image-size 1024 diff --git a/packages/ediprolog/ediprolog.el b/packages/ediprolog/ediprolog.el index 681805278..448a15790 100644 --- a/packages/ediprolog/ediprolog.el +++ b/packages/ediprolog/ediprolog.el @@ -101,7 +101,7 @@ (defcustom ediprolog-program-switches nil "List of switches passed to the Prolog process. Example: -'(\"-G128M\" \"-O\")" +(\"-G128M\" \"-O\")" :group 'ediprolog :type '(repeat string)) @@ -246,7 +246,7 @@ default Prolog prompt.") (erase-buffer) (insert str) (goto-char (point-min)) - ;; remove normal consult status lines, which start with "%" + ;; remove normal consult status lines, which start with "%" (while (re-search-forward "^[\t ]*%.*\n" nil t) (delete-region (match-beginning 0) (match-end 0)))) (setq str (buffer-string))) diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index 0c5543b2d..d79af7f26 100644 --- a/packages/el-search/el-search.el +++ b/packages/el-search/el-search.el @@ -245,12 +245,9 @@ :group 'lisp) (defcustom el-search-this-expression-identifier 'exp - "Identifier referring to the current expression in pattern input. + "Identifier ID referring to the current expression in pattern input. When entering a PATTERN in an interactive \"el-search\" command, -the pattern actually used will be - - `(and ,el-search-this-expression-identifier ,pattern) - +the pattern actually used will be (and ID PATTERN). The default value is `exp'." :type 'symbol) diff --git a/packages/electric-spacing/electric-spacing.el b/packages/electric-spacing/electric-spacing.el index 8ae509a58..14e8ce057 100644 --- a/packages/electric-spacing/electric-spacing.el +++ b/packages/electric-spacing/electric-spacing.el @@ -42,7 +42,7 @@ ;;; electric-spacing minor mode (defcustom electric-spacing-double-space-docs t - "Enable double spacing of . in document lines - e,g, type '.' => get '. '." + "Enable double spacing of . in document lines - e.g., type `.' => get `. '." :type 'boolean :group 'electricity) @@ -86,8 +86,8 @@ positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. This is a local minor mode. When enabled, typing an operator automatically -inserts surrounding spaces. e.g., `=' becomes ` = ',`+=' becomes ` += '. This -is very handy for many programming languages." +inserts surrounding spaces. e.g., `=' becomes ` = ', `+=' becomes ` += '. +This is very handy for many programming languages." :global nil :group 'electricity :lighter " _+_") diff --git a/packages/enwc/enwc.el b/packages/enwc/enwc.el index ab48a193b..29752ca2a 100644 --- a/packages/enwc/enwc.el +++ b/packages/enwc/enwc.el @@ -37,7 +37,7 @@ ;; ;; (require 'enwc-setup) ;; (enwc-setup) -;; +;; ;; to your .emacs file. (require 'dbus) @@ -283,7 +283,7 @@ from a previous scan." (defun enwc-get-current-nw-id () "Gets the id of the current network id, -or `nil' if there isn't one." +or nil if there isn't one." (funcall enwc-get-current-nw-id-func enwc-using-wired)) (defun enwc-check-connecting-p () @@ -641,7 +641,7 @@ the ENWC buffer if necessary, and scans and displays the networks." (goto-char 0) (forward-line)) (enwc-scan-internal))) - + (defun enwc-find-network (essid &optional networks) "Checks through NETWORKS for the network with essid ESSID, and returns the network identifier. Uses `enwc-last-scan' if diff --git a/packages/f90-interface-browser/f90-interface-browser.el b/packages/f90-interface-browser/f90-interface-browser.el index 8113a8bc5..1b69061c2 100644 --- a/packages/f90-interface-browser/f90-interface-browser.el +++ b/packages/f90-interface-browser/f90-interface-browser.el @@ -243,7 +243,7 @@ If NAME is like type(TYPENAME) return TYPENAME, otherwise just NAME." Recurse over all (non-hidden) directories below DIR and parse interfaces found within them using `f90-parse-interfaces-in-dir', -a directory is considered hidden if it's name doesn't start with +a directory is considered hidden if its name doesn't start with an alphanumeric character." (interactive "DParse files in tree: ") (let (dirs @@ -664,7 +664,7 @@ see `f90-insert-fluidity-refcount'." (defun f90-insert-fluidity-refcount (file fname) "Insert a Fluidity reference count template for FILE. -If FNAME matches \\\\`Reference_count_.*\\\\.F90 then this file +If FNAME matches \\\\=`Reference_count_\\([^\\.]+\\)\\.F90 then this file needs a reference count interface, so insert one." (when (string-match "\\`Reference_count_\\([^\\.]+\\)\\.F90" fname) (insert-file-contents-literally diff --git a/packages/f90-interface-browser/f90-tests.el b/packages/f90-interface-browser/f90-tests.el index 74c0dee62..5f221a653 100644 --- a/packages/f90-interface-browser/f90-tests.el +++ b/packages/f90-interface-browser/f90-tests.el @@ -28,7 +28,7 @@ (defvar *test-running-tests* nil) (defmacro deftest (name parameters &rest body) "Define a test function. Within a test function we can call - other test functions or use 'check' to run individual test + other test functions or use `check' to run individual test cases." `(prog1 ',name (setf (gethash ',name *test-tests*) @@ -37,7 +37,7 @@ ,@body))))) (defmacro test-check (&rest forms) - "Run each expression in 'forms' as a test case." + "Run each expression in FORMS as a test case." `(test-combine-results ,@(cl-loop for (expr res) in forms collect `(test-report-result (equal (condition-case _ @@ -47,14 +47,14 @@ ',expr ',res)))) (defmacro test-combine-results (&rest forms) - "Combine the results (as booleans) of evaluating 'forms' in order." + "Combine the results (as booleans) of evaluating FORMS in order." (let ((result (make-symbol "result"))) `(let ((,result t)) ,@(cl-loop for f in forms collect `(unless ,f (setf ,result nil))) ,result))) (defun test-report-result (result res req) - "Report the results of a single test case. Called by 'check'." + "Report the results of a single test case. Called by `check'." (if result (insert (format "%s ... %S: %S\n" (propertize "pass" @@ -112,7 +112,7 @@ ((f90-split-arglist "foo, dimension(1, size(a, b))") ("foo" "dimension(1, size(a, b))")) ((f90-parse-names-list "a=1, B=>null()") ("a" "b")))) - + (deftest all () (test-combine-results (test-run-test 'type-modifiers) diff --git a/packages/ggtags/ggtags.el b/packages/ggtags/ggtags.el index 08fb4c8d6..aefe3afdf 100644 --- a/packages/ggtags/ggtags.el +++ b/packages/ggtags/ggtags.el @@ -334,7 +334,7 @@ Nil means using the value of `completing-read-function'." (defcustom ggtags-highlight-tag 0.25 "If non-nil time in seconds before highlighting tag at point. -Set to `nil' to disable tag highlighting." +Set to nil to disable tag highlighting." :set (lambda (sym value) (when (fboundp 'ggtags-setup-highlight-tag-at-point) (ggtags-setup-highlight-tag-at-point value)) diff --git a/packages/gnome-c-style/gnome-c-snippet.el b/packages/gnome-c-style/gnome-c-snippet.el index 95c5f6df3..469ccf67f 100644 --- a/packages/gnome-c-style/gnome-c-snippet.el +++ b/packages/gnome-c-style/gnome-c-snippet.el @@ -436,7 +436,7 @@ G_DEFINE_" (if abstract "ABSTRACT_" "") "TYPE" (if code "WITH_CODE" "") " (" (gn t)) (defun gnome-c-snippet-insert-constructor (package class) - "Insert 'constructor' vfunc of GObjectClass for PACKAGE and CLASS." + "Insert `constructor' vfunc of GObjectClass for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (let (arglist-start body-start) (insert "\ @@ -463,7 +463,7 @@ GObjectConstructParam *construct_properties)\n") (indent-region body-start (point)))) (defun gnome-c-snippet-insert-set_property (package class) - "Insert 'set_property' vfunc of GObjectClass for PACKAGE and CLASS." + "Insert `set_property' vfunc of GObjectClass for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (let (arglist-start body-start) (insert "\ @@ -496,7 +496,7 @@ GParamSpec *pspec)\n") (indent-region body-start (point)))) (defun gnome-c-snippet-insert-get_property (package class) - "Insert 'get_property' vfunc of GObjectClass for PACKAGE and CLASS." + "Insert `get_property' vfunc of GObjectClass for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (let (arglist-start body-start) (insert "\ @@ -529,7 +529,7 @@ GParamSpec *pspec)\n") (indent-region body-start (point)))) (defun gnome-c-snippet-insert-dispose (package class) - "Insert 'dispose' vfunc of GObjectClass for PACKAGE and CLASS." + "Insert `dispose' vfunc of GObjectClass for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (let (body-start) (insert "\ @@ -546,7 +546,7 @@ static void (indent-region body-start (point)))) (defun gnome-c-snippet-insert-finalize (package class) - "Insert 'finalize' vfunc of GObjectClass for PACKAGE and CLASS." + "Insert `finalize' vfunc of GObjectClass for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (let (body-start) (insert "\ @@ -563,7 +563,7 @@ static void (indent-region body-start (point)))) (defun gnome-c-snippet-insert-dispatch_properties_changed (package class) - "Insert 'dispatch_properties_changed vfunc of GObjectClass for + "Insert `dispatch_properties_changed' vfunc of GObjectClass for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (let (arglist-start body-start) @@ -591,7 +591,7 @@ GParamSpec **pspecs)\n") (indent-region body-start (point)))) (defun gnome-c-snippet-insert-notify (package class) - "Insert 'notify' vfunc of GObjectClass for PACKAGE and CLASS." + "Insert `notify' vfunc of GObjectClass for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (let (arglist-start body-start) (insert "\ @@ -616,7 +616,7 @@ GParamSpec *pspec)\n") (indent-region body-start (point)))) (defun gnome-c-snippet-insert-constructed (package class) - "Insert 'constructed' vfunc of GObjectClass for PACKAGE and CLASS." + "Insert `constructed' vfunc of GObjectClass for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (let (body-start) (insert "\ @@ -633,7 +633,7 @@ static void (indent-region body-start (point)))) (defun gnome-c-snippet-insert-class-init (package class) - "Insert '_class_init' function for PACKAGE and CLASS." + "Insert `_class_init' function for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (insert "\ static void @@ -643,7 +643,7 @@ static void ")) (defun gnome-c-snippet-insert-init (package class) - "Insert '_init' function for PACKAGE and CLASS." + "Insert `_init' function for PACKAGE and CLASS." (interactive (gnome-c-snippet--read-package-and-class nil)) (insert "\ static void diff --git a/packages/gnorb/gnorb-bbdb.el b/packages/gnorb/gnorb-bbdb.el index 306ea0152..6603a5ed8 100644 --- a/packages/gnorb/gnorb-bbdb.el +++ b/packages/gnorb/gnorb-bbdb.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2014 Free Software Foundation, Inc. ;; Author: Eric Abrahamsen -;; Keywords: +;; Keywords: ;; 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 @@ -20,7 +20,7 @@ ;;; Commentary: -;; +;; ;;; Code: @@ -66,7 +66,7 @@ Setting it to the symbol seen will collect the messages most recently opened and viewed. The symbol received means gnorb will collect the most recent messages by Date header. -In other words, if this variable is set to 'received, and a +In other words, if this variable is set to `received', and a record's messages field is already full of recently-received messages, opening a five-year-old message (for instance) from this record will not push a link to the message into the field." @@ -89,9 +89,9 @@ mentioned in the docstring of `format-time-string', which see." (defcustom gnorb-bbdb-message-link-format-one "%:count" "How a single message is formatted in the list of recent messages. This format string is used in single-line display -- note that by -default, no user-created xfields are displayed in the 'one-line +default, no user-created xfields are displayed in the `one-line' layout found in `bbdb-layout-alist'. If you want this field to -appear there, put its name in the \"order\" list of the 'one-line +appear there, put its name in the \"order\" list of the `one-line' layout. Available information for each message includes the subject, the diff --git a/packages/gnorb/gnorb-registry.el b/packages/gnorb/gnorb-registry.el index 92205653c..565e54eee 100644 --- a/packages/gnorb/gnorb-registry.el +++ b/packages/gnorb/gnorb-registry.el @@ -80,7 +80,7 @@ sent. Save the relevant Org ids in the 'gnorb-ids key." (defun gnorb-registry-capture () "When capturing from a Gnus message, add our new Org heading id -to the message's registry entry, under the 'gnorb-ids key." +to the message's registry entry, under the `gnorb-ids' key." (when (and (with-current-buffer (org-capture-get :original-buffer) (memq major-mode '(gnus-summary-mode gnus-article-mode))) @@ -139,7 +139,7 @@ even for headings that appear to no longer exist." (defun gnorb-delete-association (msg-id org-id) "Disassociate a message and a headline. -This removes an Org heading's ORG-ID from the 'gnorb-ids key of +This removes an Org heading's ORG-ID from the `gnorb-ids' key of the MSG-ID." (let ((org-ids (gnus-registry-get-id-key msg-id 'gnorb-ids))) (when (member org-id org-ids) @@ -194,12 +194,12 @@ archived headings as well." deleted-count))) (defun gnorb-registry-org-id-search (id) - "Find all messages that have the org ID in their 'gnorb-ids + "Find all messages that have the org ID in their `gnorb-ids' key." (registry-search gnus-registry-db :member `((gnorb-ids ,id)))) (defun gnorb-registry-tracked-messages () - "Return all message-ids that have non-empty 'gnorb-ids keys." + "Return all message-ids that have non-empty `gnorb-ids' keys." (registry-search gnus-registry-db :regex `((gnorb-ids ".+")))) (defun gnorb-registry-tracked-headings () diff --git a/packages/gnorb/gnorb-utils.el b/packages/gnorb/gnorb-utils.el index 4d473f17f..dcf289886 100644 --- a/packages/gnorb/gnorb-utils.el +++ b/packages/gnorb/gnorb-utils.el @@ -359,8 +359,8 @@ If the KW argument is true, add the TODO keyword into the path." (defun gnorb-scan-links (bound &rest types) "Scan from point to BOUND looking for links of type in TYPES. -TYPES is a list of symbols, possible values include 'bbdb, 'mail, -and 'gnus." +TYPES is a list of symbols, possible values include `bbdb', `mail', +and `gnus'." ;; this function could be refactored somewhat -- lots of code ;; repetition. It also should be a little faster for when we're ;; scanning for gnus links only, that's a little slow. We should diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el index c25cee3eb..097f859ec 100644 --- a/packages/gnugo/gnugo.el +++ b/packages/gnugo/gnugo.el @@ -301,7 +301,7 @@ you may never really understand to any degree of personal satisfaction\". :diamond -- the part of the subprocess name after \"gnugo\", may be \"\" :game-over -- nil until game over at which time its value is set to - the alist `((live GROUP ...) (dead GROUP ...))' + the alist ((live GROUP ...) (dead GROUP ...)) :sgf-collection -- after a `loadsgf' command, entire parse tree of file, a simple list of one or more gametrees, updated in @@ -826,7 +826,7 @@ when you are sure the command cannot fail." Optional arg RSEL controls side effects and return value. If nil, display the history in the echo area as \"(N moves)\" followed by the space-separated list of moves. When called -interactively with a prefix arg (i.e., RSEL is `(4)'), display +interactively with a prefix arg (i.e., RSEL is (4)), display similarly, but suffix with the mover (either \":B\" or \":W\"). RSEL may also be a symbol that selects what to return: car -- the most-recent move diff --git a/packages/hydra/hydra-test.el b/packages/hydra/hydra-test.el index a40a0caea..a988a25e7 100644 --- a/packages/hydra/hydra-test.el +++ b/packages/hydra/hydra-test.el @@ -336,7 +336,7 @@ The body can be accessed via `hydra-error/body'." \"t\": `toggle-truncate-lines', \"f\": `auto-fill-mode', \"a\": `abbrev-mode', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-toggle/body'. @@ -358,7 +358,7 @@ Call the head: `toggle-truncate-lines'." \"t\": `toggle-truncate-lines', \"f\": `auto-fill-mode', \"a\": `abbrev-mode', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-toggle/body'. @@ -379,7 +379,7 @@ Call the head: `auto-fill-mode'." \"t\": `toggle-truncate-lines', \"f\": `auto-fill-mode', \"a\": `abbrev-mode', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-toggle/body'. @@ -400,11 +400,11 @@ Call the head: `abbrev-mode'." \"t\": `toggle-truncate-lines', \"f\": `auto-fill-mode', \"a\": `abbrev-mode', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-toggle/body'. -Call the head: `nil'." +Call the head: nil." (interactive) (hydra-default-pre) (hydra-keyboard-quit) @@ -416,7 +416,7 @@ Call the head: `nil'." \"t\": `toggle-truncate-lines', \"f\": `auto-fill-mode', \"a\": `abbrev-mode', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-toggle/body'." (interactive) @@ -510,7 +510,7 @@ The body can be accessed via `hydra-toggle/body'." \"j\": `next-line', \"k\": `previous-line', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-vi/body'. @@ -547,7 +547,7 @@ Call the head: `next-line'." \"j\": `next-line', \"k\": `previous-line', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-vi/body'. @@ -584,11 +584,11 @@ Call the head: `previous-line'." \"j\": `next-line', \"k\": `previous-line', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-vi/body'. -Call the head: `nil'." +Call the head: nil." (interactive) (hydra-default-pre) (set-cursor-color "#e52b50") @@ -600,7 +600,7 @@ Call the head: `nil'." \"j\": `next-line', \"k\": `previous-line', -\"q\": `nil' +\"q\": nil The body can be accessed via `hydra-vi/body'." (interactive) diff --git a/packages/ioccur/ioccur.el b/packages/ioccur/ioccur.el index aa2b23dd4..e917e04d3 100644 --- a/packages/ioccur/ioccur.el +++ b/packages/ioccur/ioccur.el @@ -11,12 +11,12 @@ ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 3, or ;; (at your option) any later version. -;; +;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. -;; +;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, see . @@ -141,12 +141,12 @@ it slow down the start of ioccur at first time on large buffers." :type 'boolean) (defcustom ioccur-case-fold-search 'smart - "Add 'smart' option to `case-fold-search'. + "Add smart option to `case-fold-search'. When smart is enabled, Ignore case in the search strings if pattern contains no uppercase characters. Otherwise, with a nil or t value, the behavior is same as `case-fold-search'. -Default value is smart, other possible values are nil and t." +Default value is `smart', other possible values are nil and t." :group 'ioccur :type 'symbol) @@ -343,7 +343,7 @@ If ALL is non--nil highlight the whole string STR." (if all (add-text-properties (point) (point-at-eol) - '(face ioccur-match-face)) + '(face ioccur-match-face)) (while (and (funcall ioccur-search-function ioccur-pattern nil t) ;; Don't try to highlight line with a length <= 0. (> (- (match-end 0) (match-beginning 0)) 0)) @@ -758,7 +758,7 @@ START-POINT is the point where we start searching in buffer." cur-str (propertize "|" 'face 'ioccur-cursor)))) (substring str (1+ real-index))))))) - + ;; Start incremental loop. (while (let ((char (ioccur-read-char-or-event (concat prompt (set-cursor ioccur-pattern index))))) @@ -797,7 +797,7 @@ START-POINT is the point where we start searching in buffer." ((right ?\C-z) ; Persistent action. (ioccur-jump-without-quit) t) ((?\C- ) ; Persistent action save mark. - (ioccur-jump-without-quit t) t) + (ioccur-jump-without-quit t) t) ((left ?\C-j) ; Jump and kill search buffer. (setq ioccur-exit-and-quit-p t) nil) ((next ?\C-v) ; Scroll down. @@ -992,7 +992,7 @@ Special NOTE for terms: tab/S-tab are bound to history. C-d/u are for following in other buffer. Use C-t to Scroll up. - + When you quit incremental search with RET, see `ioccur-mode' for commands provided in the `ioccur-buffer'." (interactive "P") @@ -1108,7 +1108,7 @@ of matched line in `ioccur-current-buffer'." (make-overlay (point-at-bol) (1+ (point-at-eol))))) (overlay-put ioccur-match-overlay 'face 'ioccur-match-overlay-face)) - + (provide 'ioccur) ;;; ioccur.el ends here diff --git a/packages/iterators/iterators.el b/packages/iterators/iterators.el index d9cb96bb4..b10e671f3 100644 --- a/packages/iterators/iterators.el +++ b/packages/iterators/iterators.el @@ -206,7 +206,7 @@ elements s_1, s_2, ... of the iterator returned by as long as i_n exists. -Example: (iterator-scan #'* 1 (iterator-number-range 1)) +Example: (iterator-scan #\\='* 1 (iterator-number-range 1)) returns an iterator of the factorials." (let ((res init)) (iterator--cons diff --git a/packages/ivy/counsel.el b/packages/ivy/counsel.el index 2d612e3a6..50f5f1594 100644 --- a/packages/ivy/counsel.el +++ b/packages/ivy/counsel.el @@ -1209,7 +1209,7 @@ When INITIAL-INPUT is non-nil, use it in the minibuffer during completion." ;;** `counsel-locate' (defcustom counsel-locate-options nil - "Command line options for `locate`." + "Command line options for `locate'." :group 'ivy :type '(repeat string)) diff --git a/packages/ivy/ivy.el b/packages/ivy/ivy.el index 36fa7b347..7a49c24c7 100644 --- a/packages/ivy/ivy.el +++ b/packages/ivy/ivy.el @@ -201,7 +201,7 @@ are about to be displayed, not on the whole collection." Each static source is a function that takes no argument and returns a list of strings. -The '(original-source) determines the position of the original +The (original-source) determines the position of the original dynamic source. Extra dynamic sources aren't supported yet. @@ -212,8 +212,8 @@ Example: (cl-subseq recentf-list 0 20)) (ivy-set-sources - 'counsel-locate - '((small-recentf) + \\='counsel-locate + \\='((small-recentf) (original-source))) " (setq ivy--sources-list @@ -342,7 +342,7 @@ of `history-length'.") "Store the index of the current candidate.") (defvar ivy-exit nil - "Store 'done if the completion was successfully selected. + "Store `done' if the completion was successfully selected. Otherwise, store nil.") (defvar ivy--all-candidates nil @@ -1597,7 +1597,7 @@ The previous string is between `ivy-completion-beg' and `ivy-completion-end'." (move-marker (make-marker) (point)))))) (defun ivy-completion-common-length (str) - "Return the length of the first 'completions-common-part face in STR." + "Return the length of the first `completions-common-part' face in STR." (let ((pos 0) (len (length str))) (while (and (<= pos len) diff --git a/packages/javaimp/javaimp.el b/packages/javaimp/javaimp.el index c2798a73d..d1c68657d 100644 --- a/packages/javaimp/javaimp.el +++ b/packages/javaimp/javaimp.el @@ -85,8 +85,8 @@ "Specifies how to group classes and how to order resulting groups in the imports list. -Each element should be of the form `(CLASSNAME-REGEXP . ORDER)' -where `CLASSNAME-REGEXP' is a regexp matching the fully qualified +Each element should be of the form (CLASSNAME-REGEXP . ORDER) +where CLASSNAME-REGEXP is a regexp matching the fully qualified class name. Lowest-order groups are placed earlier. The order of classes which were not matched is defined by @@ -646,7 +646,7 @@ are assigned a default order defined by NEW-IMPORTS is a list of additional imports; each element should be of the form (CLASS . TYPE), where CLASS is a string and TYPE -is `'ordinary' or `'static'. Interactively, NEW-IMPORTS is nil." +is `ordinary' or `static'. Interactively, NEW-IMPORTS is nil." (interactive) (barf-if-buffer-read-only) (save-excursion diff --git a/packages/js2-mode/js2-imenu-extras.el b/packages/js2-mode/js2-imenu-extras.el index dfdedc8ee..81c6d0841 100644 --- a/packages/js2-mode/js2-imenu-extras.el +++ b/packages/js2-mode/js2-imenu-extras.el @@ -270,7 +270,7 @@ For example, for code {rules: {password: {required: function() {}}}} when NODE is the inner `js2-object-prop-mode', -it returns `(\"rules\" \"password\")'." +it returns (\"rules\" \"password\")." (let (rlt (n node)) (while (setq n (js2-imenu-parent-prop-node n)) (push (js2-prop-node-name (js2-object-prop-node-left n)) rlt)) diff --git a/packages/js2-mode/js2-mode.el b/packages/js2-mode/js2-mode.el index a2e58fafa..5ccfbccf1 100644 --- a/packages/js2-mode/js2-mode.el +++ b/packages/js2-mode/js2-mode.el @@ -267,7 +267,7 @@ If `js2-dynamic-idle-timer-adjust' is 0 or negative, (defcustom js2-concat-multiline-strings t "When non-nil, `js2-line-break' in mid-string will make it a -string concatenation. When `eol', the '+' will be inserted at the +string concatenation. When `eol', the `+' will be inserted at the end of the line, otherwise, at the beginning of the next line." :type '(choice (const t) (const eol) (const nil)) :group 'js2-mode) @@ -320,10 +320,10 @@ interferes with type inference (in systems that support it.)" :group 'js2-mode) (defcustom js2-strict-cond-assign-warning t - "Non-nil to warn about expressions like if (a = b). -This often should have been '==' instead of '='. If the warning + "Non-nil to warn about usage like `if (a = b)'. +This often should have been `==' instead of `='. If the warning is enabled, you can suppress it on a per-expression basis by -parenthesizing the expression, e.g. if ((a = b)) ..." +parenthesizing the expression, e.g., `if ((a = b)) ...'." :type 'boolean :group 'js2-mode) @@ -397,7 +397,7 @@ setting `allowMemberExprAsFunctionName'. The experimental syntax is: function ( [ arg-list ] ) { } -Where member-expr is a non-parenthesized 'member expression', which +Where member-expr is a non-parenthesized `member expression', which is anything at the grammar level of a new-expression or lower, meaning any expression that does not involve infix or unary operators. @@ -2747,7 +2747,7 @@ It contains a local-name node which is the name of the value in the current scope, and extern-name which is the name of the value in the imported or exported scope. By default these are the same, but if the name is aliased as in {foo as bar}, it would have an extern-name node -containing 'foo' and a local-name node containing 'bar'." +containing `foo' and a local-name node containing `bar'." local-name ; js2-name-node with the variable name in this scope extern-name) ; js2-name-node with the value name in the exporting module @@ -2765,8 +2765,8 @@ different, visit the extern-name." (js2-visit-ast extern-name v)))) (defun js2-print-extern-binding (n _i) - "Print a representation of a single extern binding. E.g. 'foo' or -'foo as bar'." + "Print a representation of a single extern binding. E.g. `foo' or +`foo as bar'." (let ((local-name (js2-export-binding-node-local-name n)) (extern-name (js2-export-binding-node-extern-name n))) (insert (js2-name-node-name extern-name)) @@ -2894,9 +2894,9 @@ local context." len name))) "AST node for a complete namespace import. -E.g. the '* as lib' expression in: +E.g. the `* as lib' expression in: -import * as lib from 'src/lib' +import * as lib from \\='src/lib\\=' It contains a single name node referring to the bound name." name) ; js2-name-node of the bound name. @@ -2916,7 +2916,7 @@ It contains a single name node referring to the bound name." module-id metadata-p))) "AST node for the from clause in an import or export statement. -E.g. from 'my/module'. It can refere to either an external module, or to the +E.g. from \\='my/module\\='. It can refere to either an external module, or to the modules metadata itself." module-id ; string containing the module specifier. metadata-p) ; true if this clause refers to the module's metadata @@ -3225,7 +3225,7 @@ NODE is a `js2-labels-node'. LABEL is an identifier." len label target))) "AST node for a break statement. The label field is a `js2-name-node', possibly nil, for the named label -if provided. E.g. in 'break foo', it represents 'foo'. The target field +if provided. E.g. in `break foo', it represents `foo'. The target field is the target of the break - a label node or enclosing loop/switch statement.") (put 'cl-struct-js2-break-node 'js2-visitor 'js2-visit-jump-node) @@ -4304,7 +4304,7 @@ no explicit target, which is valid in certain expression contexts such as company..employee.(@id < 100) -in this case, the @id is a `js2-xml-ref' that is part of an infix '<' +in this case, the @id is a `js2-xml-ref' that is part of an infix `<' expression whose parent is a `js2-xml-dot-query-node'." namespace at-pos @@ -4326,7 +4326,7 @@ expression whose parent is a `js2-xml-dot-query-node'." "AST node for an E4X XML [expr] property-ref expression. The JavaScript syntax is an optional @, an optional ns::, and a name. - [ '@' ] [ name '::' ] name + [ `@' ] [ name `::' ] name Examples include name, ns::name, ns::*, *::name, *::*, @attr, @ns::attr, @ns::*, @*::attr, @*::*, and @*. @@ -4365,7 +4365,7 @@ expression." "AST node for an E4X XML [expr] member-ref expression. Syntax: - [ '@' ] [ name '::' ] '[' expr ']' + [ `@' ] [ name `::' ] `[' expr `]' Examples include ns::[expr], @ns::[expr], @[expr], *::[expr] and @*::[expr]. @@ -4536,7 +4536,7 @@ For a simple name, the kids list has exactly one node, a `js2-name-node'." (pos js2-ts-cursor) len name value eq-pos quote-type))) - "AST node representing a foo='bar' XML attribute value. Not yet used." + "AST node representing a foo=\\='bar\\=' XML attribute value. Not yet used." name ; a `js2-xml-name-node' value ; a `js2-xml-name-node' eq-pos ; buffer position of "=" sign @@ -5474,7 +5474,7 @@ Returns logical OR of END_* flags" (defun js2-always-defined-boolean-p (node) "Check if NODE always evaluates to true or false in boolean context. -Returns 'ALWAYS_TRUE, 'ALWAYS_FALSE, or nil if it's neither always true +Returns `ALWAYS_TRUE', `ALWAYS_FALSE', or nil if it's neither always true nor always false." (let ((tt (js2-node-type node)) num) @@ -5529,7 +5529,7 @@ Signals an error if it's not a recognized token." (error "Invalid token: %s" code))))) (defsubst js2-tt-sym (tok) - "Return symbol for TOK given its code, e.g. 'js2-LP for code 86." + "Return symbol for TOK given its code, e.g. `js2-LP' for code 86." (intern (js2-tt-name tok))) (defconst js2-token-codes @@ -5544,7 +5544,7 @@ Signals an error if it's not a recognized token." "Hashtable mapping token type symbols to their bytecodes.") (defsubst js2-tt-code (sym) - "Return code for token symbol SYM, e.g. 86 for 'js2-LP." + "Return code for token symbol SYM, e.g. 86 for `js2-LP'." (or (gethash sym js2-token-codes) (error "Invalid token symbol: %s " sym))) ; signal code bug @@ -5598,7 +5598,7 @@ Also updates `js2-ts-hit-eof' and `js2-ts-line-start' as needed." (defun js2-read-unicode-escape () "Read a \\uNNNN sequence from the input. -Assumes the ?\ and ?u have already been read. +Assumes the ?\\ and ?u have already been read. Returns the unicode character, or nil if it wasn't a valid character. Doesn't change the values of any scanner variables." ;; I really wish I knew a better way to do this, but I can't @@ -5790,7 +5790,7 @@ The values are default faces to use for highlighting the keywords.") do (puthash (symbol-name k) 'js2-RESERVED table)) table) - "JavaScript reserved words by name, mapped to 'js2-RESERVED.") + "JavaScript reserved words by name, mapped to `js2-RESERVED'.") (defun js2-collect-string (buf) "Convert BUF, a list of chars, to a string. @@ -5801,7 +5801,7 @@ Reverses BUF before converting." (defun js2-string-to-keyword (s) "Return token for S, a string, if S is a keyword or reserved word. -Returns a symbol such as 'js2-BREAK, or nil if not keyword/reserved." +Returns a symbol such as `js2-BREAK', or nil if not keyword/reserved." (or (gethash s js2-keyword-names) (gethash s js2-reserved-word-names))) @@ -7427,7 +7427,7 @@ When passed arguments of wrong type, does nothing." (js2-record-object-literal node qname (js2-node-pos node))))))))) (defun js2-compute-nested-prop-get (node) - "If NODE is of form foo.bar, foo['bar'], or any nested combination, return + "If NODE is of form foo.bar, foo[\\='bar\\='], or any nested combination, return component nodes as a list. Otherwise return nil. Element-gets are treated as property-gets if the index expression is a string, or a positive integer." (let (left right head) @@ -7639,19 +7639,19 @@ Recurses through nodes, and for each one whose second element is a list, appends the list's flattened elements to the current element. Also changes the tails into conses. For instance, this pre-flattened trie -'(a ((b 20) + (a ((b 20) (c ((d 30) (e 40))))) becomes -'(a (b . 20) + (a (b . 20) (c (d . 30) (e . 40))) Note that the root of the trie has no key, just a list of chains. This is also true for the value of any key with multiple children, -e.g. key 'c' in the example above." +e.g. key `c' in the example above." (cond ((listp (car trie)) (mapcar #'js2-flatten-trie trie)) @@ -7933,11 +7933,11 @@ The returned AST root node is given some additional properties: so the value is not necessarily reliable. An optional callback CB can be specified to report parsing -progress. If `(functionp CB)' returns t, it will be called with +progress. If (functionp CB) returns t, it will be called with the current line number once before parsing begins, then again each time the lexer reaches a new line number. -CB can also be a list of the form `(symbol cb ...)' to specify +CB can also be a list of the form (symbol cb ...) to specify multiple callbacks with different criteria. Each symbol is a criterion keyword, and the following element is the callback to call @@ -8584,11 +8584,11 @@ Return value is a list (EXPR LP RP), with absolute paren positions." "Parse the bindings in an import statement. This can take many forms: -ImportedDefaultBinding -> 'foo' -NameSpaceImport -> '* as lib' -NamedImports -> '{foo as bar, bang}' -ImportedDefaultBinding , NameSpaceImport -> 'foo, * as lib' -ImportedDefaultBinding , NamedImports -> 'foo, {bar, baz as bif}' +ImportedDefaultBinding -> `foo' +NameSpaceImport -> `* as lib' +NamedImports -> `{foo as bar, bang}' +ImportedDefaultBinding , NameSpaceImport -> `foo, * as lib' +ImportedDefaultBinding , NamedImports -> `foo, {bar, baz as bif}' Try to match namespace imports and named imports first because nothing can come after them. If it is an imported default binding, then it could have named @@ -8647,7 +8647,7 @@ imports or a namespace import that follows it. clause)) (defun js2-parse-namespace-import () - "Parse a namespace import expression such as '* as bar'. + "Parse a namespace import expression such as `* as bar'. The current token must be js2-MUL." (let ((beg (js2-current-token-beg))) (if (js2-match-contextual-kwd "as") @@ -8666,7 +8666,8 @@ The current token must be js2-MUL." (defun js2-parse-from-clause () - "Parse the from clause in an import or export statement. E.g. from 'src/lib'" + "Parse the from clause in an import or export statement. +E.g., \"from \\='src/lib\\='\"." (if (js2-match-contextual-kwd "from") (let ((beg (js2-current-token-beg))) (cond @@ -8709,8 +8710,8 @@ js2-LC. Return a lisp list of js2-export-binding-node" (defun js2-maybe-parse-export-binding (&optional import-p) "Attempt to parse a binding expression found inside an import/export statement. -This can take the form of either as single js2-NAME token as in 'foo' or as in a -rebinding expression 'bar as foo'. If it matches, it will return an instance of +This can take the form of either as single js2-NAME token as in `foo' or as in a +rebinding expression `bar as foo'. If it matches, it will return an instance of js2-export-binding-node and consume all the tokens. If it does not match, it consumes no tokens." (let ((extern-name (when (js2-match-prop-name) (js2-current-token-string))) @@ -8869,7 +8870,7 @@ consumes no tokens." (defun js2-parse-export () "Parse an export statement. -The Last matched token must be js2-EXPORT. Currently, the 'default' and 'expr' +The Last matched token must be js2-EXPORT. Currently, the `default' and `expr' expressions should only be either hoistable expressions (function or generator) or assignment expressions, but there is no checking to enforce that and so it will parse without error a small subset of @@ -9493,10 +9494,10 @@ expression and return it wrapped in a `js2-expr-stmt-node'." (defun js2-parse-variables (decl-type pos) "Parse a comma-separated list of variable declarations. -Could be a 'var', 'const' or 'let' expression, possibly in a for-loop initializer. +Could be a `var', `const' or `let' expression, possibly in a for-loop initializer. DECL-TYPE is a token value: either VAR, CONST, or LET depending on context. -For 'var' or 'const', the keyword should be the token last scanned. +For `var' or `const', the keyword should be the token last scanned. POS is the position where the node should start. It's sometimes the var/const/let keyword, and other times the beginning of the first token @@ -10272,7 +10273,7 @@ This includes expressions of the forms: @* @*::attr @*::* @[expr] @*::[expr] @ns::[expr] -Called if we peeked an '@' token." +Called if we peeked an `@' token." (let ((tt (js2-get-prop-name-token)) (at-pos (js2-current-token-beg))) (cond @@ -10293,11 +10294,11 @@ Called if we peeked an '@' token." (defun js2-parse-property-name (at-pos s member-type-flags) "Check if :: follows name in which case it becomes qualified name. -AT-POS is a natural number if we just read an '@' token, else nil. -S is the name or string that was matched: an identifier, 'throw' or '*'. -MEMBER-TYPE-FLAGS is a bit set tracking whether we're a '.' or '..' child. +AT-POS is a natural number if we just read an `@' token, else nil. +S is the name or string that was matched: an identifier, `throw' or `*'. +MEMBER-TYPE-FLAGS is a bit set tracking whether we're a `.' or `..' child. -Returns a `js2-xml-ref-node' if it's an attribute access, a child of a '..' +Returns a `js2-xml-ref-node' if it's an attribute access, a child of a `..' operator, or the name is followed by ::. For a plain name, returns a `js2-name-node'. Returns a `js2-error-node' for malformed XML expressions." (let ((pos (or at-pos (js2-current-token-beg))) @@ -10552,7 +10553,7 @@ array-literals, array comprehensions and regular expressions." "Parse a legacy array comprehension (JavaScript 1.7). EXPR is the first expression after the opening left-bracket. POS is the beginning of the LB token preceding EXPR. -We should have just parsed the 'for' keyword before calling this function." +We should have just parsed the `for' keyword before calling this function." (let ((current-scope js2-current-scope) loops first filter result) (unwind-protect @@ -10589,7 +10590,7 @@ We should have just parsed the 'for' keyword before calling this function." (defun js2-parse-array-comp (pos) "Parse an ES6 array comprehension. POS is the beginning of the LB token. -We should have just parsed the 'for' keyword before calling this function." +We should have just parsed the `for' keyword before calling this function." (let ((pn (js2-parse-comprehension pos 'ARRAY))) (js2-must-match js2-RB "msg.no.bracket.arg" pos) pn)) @@ -10630,9 +10631,9 @@ We should have just parsed the 'for' keyword before calling this function." result)) (defun js2-parse-comp-loop (pn &optional only-of-p) - "Parse a 'for [each] (foo [in|of] bar)' expression in an Array comprehension. + "Parse a `for [each] (foo [in|of] bar)' expression in an Array comprehension. The current token should be the initial FOR. -If ONLY-OF-P is non-nil, only the 'for (foo of bar)' form is allowed." +If ONLY-OF-P is non-nil, only the `for (foo of bar)' form is allowed." (let ((pos (js2-comp-loop-node-pos pn)) tt iter obj foreach-p forof-p in-pos each-pos lp rp) (when (and (not only-of-p) (js2-match-token js2-NAME)) @@ -11591,7 +11592,7 @@ variables (`sgml-basic-offset' et al) locally, like so: (defun set-jsx-indentation () (setq-local sgml-basic-offset js2-basic-offset)) - (add-hook 'js2-jsx-mode-hook #'set-jsx-indentation)" + (add-hook \\='js2-jsx-mode-hook #\\='set-jsx-indentation)" (set (make-local-variable 'indent-line-function) #'js2-jsx-indent-line)) (defun js2-mode-exit () @@ -12637,7 +12638,7 @@ it marks the next defun after the ones already marked." (defun js2-search-object-for-prop (object prop-names) "Return node in OBJECT that matches PROP-NAMES or nil. PROP-NAMES is a list of values representing a path to a value in OBJECT. -i.e. ('name' 'value') = {name : { value: 3}}" +i.e. (\\='name\\=' \\='value\\=') = {name : { value: 3}}" (let (node (temp-object object) (temp t) ;temporay node diff --git a/packages/js2-mode/js2-old-indent.el b/packages/js2-mode/js2-old-indent.el index f336005e4..0b0ed3a5d 100644 --- a/packages/js2-mode/js2-old-indent.el +++ b/packages/js2-mode/js2-old-indent.el @@ -560,7 +560,7 @@ Currently, JSX indentation supports the following styles: React.render(
, - document.querySelector('.root') + document.querySelector(\\='.root\\=') );" (let ((current-pos (point)) (current-line (line-number-at-pos)) diff --git a/packages/landmark/landmark.el b/packages/landmark/landmark.el index 6230dbaaf..9b48901f2 100644 --- a/packages/landmark/landmark.el +++ b/packages/landmark/landmark.el @@ -864,7 +864,7 @@ If the game is finished, this command requests for another game." (move-to-column (+ landmark-x-offset (* landmark-square-width (1- x))))) (defun landmark-plot-square (square value) - "Draw 'X', 'O' or '.' on SQUARE depending on VALUE, leave point there." + "Draw `X', `O' or `.' on SQUARE depending on VALUE, leave point there." (or (= value 1) (landmark-goto-square square)) (let ((inhibit-read-only t)) diff --git a/packages/load-relative/load-relative.el b/packages/load-relative/load-relative.el index 2c9613568..0605f179a 100644 --- a/packages/load-relative/load-relative.el +++ b/packages/load-relative/load-relative.el @@ -291,11 +291,11 @@ strings, each string being the relative name of file you want to run." "Call `provide' with the feature's symbol name made from source-code's file basename sans extension. For example if you write (provide-me) inside file ~/lisp/foo.el, this is the same as -writing: (provide 'foo). +writing: (provide \\='foo). With a prefix, that prefix is prepended to the `provide' So in the previous example, if you write (provide-me \"bar-\") this is the -same as writing (provide 'bar-foo)." +same as writing (provide \\='bar-foo)." `(provide (intern (concat ,prefix (file-name-sans-extension (file-name-nondirectory (__FILE__))))))) diff --git a/packages/loc-changes/loc-changes.el b/packages/loc-changes/loc-changes.el index a269c0a46..b514b27ef 100644 --- a/packages/loc-changes/loc-changes.el +++ b/packages/loc-changes/loc-changes.el @@ -38,7 +38,7 @@ (make-variable-buffer-local 'loc-changes-alist) (defvar loc-changes-alist '() "A buffer-local association-list (alist) of line numbers and -their corresponding markers in the buffer. The 'key' is the line number; the value +their corresponding markers in the buffer. The key is the line number; the value the marker" ) diff --git a/packages/minimap/minimap.el b/packages/minimap/minimap.el index 4d580239c..231c04900 100644 --- a/packages/minimap/minimap.el +++ b/packages/minimap/minimap.el @@ -229,10 +229,10 @@ read text using those faces. By default, this should enlarge all function names in the minimap, given you have font locking enabled. This variable can have the following values: -'as-fallback (the default) -- The feature will only be activated +`as-fallback' (the default) -- The feature will only be activated if information from CEDET's semantic analyzer isn't available (see: `minimap-display-semantic-overlays'). -'always -- Always active. +`always' -- Always active. nil -- Inactive." :type '(choice (const :tag "Fallback if CEDET unavailable." 'as-fallback) (const :tag "Always active." 'always) @@ -254,14 +254,14 @@ Unlike text properties, overlays are not applied automatically to the minimap and must be explicitly synced. This variable specifies which overlay properties should be synced by `minimap-sync-overlays'. Most importantly, this variable should -include 'invisible', so that hidden text does not appear in the +include `invisible', so that hidden text does not appear in the minimap buffer." :type '(repeat symbol) :group 'minimap) (defcustom minimap-major-modes '(prog-mode) "Major modes for which a minimap should be created. -This can also be a parent mode like 'prog-mode. +This can also be a parent mode like `prog-mode'. If nil, a minimap must be explicitly created for each buffer." :type '(repeat symbol) :group 'minimap) diff --git a/packages/multishell/multishell-list.el b/packages/multishell/multishell-list.el index dc7529b6a..93004943a 100644 --- a/packages/multishell/multishell-list.el +++ b/packages/multishell/multishell-list.el @@ -231,9 +231,9 @@ Provide for concluding minibuffer interaction if we're in completing mode." Initial sort is from most to least recently used: -- First active shells, flagged with '+' a plus sign -- Then, inactive shells, flagged with '.' a period -- Then historical shells that currently have no buffer, flagged with 'x' an ex +- First active shells, flagged with `+' a plus sign +- Then, inactive shells, flagged with `.' a period +- Then historical shells that currently have no buffer, flagged with `x' an ex \\{multishell-list-mode-map\}" (setq tabulated-list-format @@ -271,7 +271,7 @@ For duplicates, we prefer the ones that have paths." "Edit your current and historic list of shell buffers. If optional COMPLETING is nil, we present the full -`multishell-history' list in a popped buffer named '*Shells*'. +`multishell-history' list in a popped buffer named `*Shells*'. In the buffer, hit ? or h for a list of commands. diff --git a/packages/multishell/multishell.el b/packages/multishell/multishell.el index 51bad08d6..54d04367b 100644 --- a/packages/multishell/multishell.el +++ b/packages/multishell/multishell.el @@ -179,8 +179,8 @@ with allout-mode." (defcustom multishell-command-key "\M- " "The key to use if `multishell-activate-command-key' is true. -You can instead manually bind `multishell-pop-to-shell` using emacs -lisp, eg: (global-set-key \"\\M- \" 'multishell-pop-to-shell)." +You can instead manually bind `multishell-pop-to-shell' using emacs +lisp, eg: (global-set-key \"\\M- \" \\='multishell-pop-to-shell)." :type 'key-sequence) (defvar multishell--responsible-for-command-key nil @@ -210,8 +210,8 @@ If optional UNBIND is true, globally unbind the key. (defcustom multishell-activate-command-key nil "Set this to impose the `multishell-command-key' binding. -You can instead manually bind `multishell-pop-to-shell` using emacs -lisp, eg: (global-set-key \"\\M- \" 'multishell-pop-to-shell)." +You can instead manually bind `multishell-pop-to-shell' using emacs +lisp, eg: (global-set-key \"\\M- \" \\='multishell-pop-to-shell)." :type 'boolean :set 'multishell-activate-command-key-setter) @@ -364,7 +364,7 @@ prefixing your \\[multishell-pop-to-shell] invocation with single or double - With a single universal argument, prompt for the buffer name to use (without the asterisks that shell mode will put around - the name), defaulting to 'shell'. + the name), defaulting to `shell'. Completion is available. @@ -389,21 +389,21 @@ prefixing your \\[multishell-pop-to-shell] invocation with single or double The shell buffer name you give to the prompt for a universal arg can include an appended path. That will be used for the startup directory. You can use tramp remote syntax to specify a remote -shell. If there is an element after a final '/', that's used for +shell. If there is an element after a final `/', that's used for the buffer name. Otherwise, the host, domain, or path is used. For example: -* '#root/sudo:root@localhost:/etc' for a buffer named \"*#root*\" with a +* `#root/sudo:root@localhost:/etc' for a buffer named \"*#root*\" with a root shell starting in /etc. -* '/ssh:example.net:' for a shell buffer in your homedir on example.net. +* `/ssh:example.net:' for a shell buffer in your homedir on example.net. The buffer will be named \"*example.net*\". -* '#ex/ssh:example.net|sudo:root@example.net:/var/log' for a root shell +* `#ex/ssh:example.net|sudo:root@example.net:/var/log' for a root shell starting in /var/log on example.net named \"*#ex*\". -* 'interior/ssh:gateway.corp.com|ssh:interior.corp.com:' to go +* `interior/ssh:gateway.corp.com|ssh:interior.corp.com:' to go via gateway.corp.com to your homedir on interior.corp.com. The buffer will be named \"*interior*\". You could append a sudo hop to the path, combining the previous example, and so on. @@ -480,7 +480,7 @@ customize the savehist group to activate savehist." ;; Situate: - (cond + (cond ((and (or curr-buff-proc from-buffer-is-shell) (not arg) @@ -652,7 +652,7 @@ Return what's provided, if anything, else nil." (defun multishell-resolve-target-name-and-path (shell-spec) "Given name/tramp-style address shell spec, resolve buffer name and directory. -The name is the part of the string up to the first '/' slash, if +The name is the part of the string up to the first `/' slash, if any. Missing pieces are filled in from remote path elements, if any, and multishell history. Given a tramp-style remote address and no name part, either the user@host is used for the buffer diff --git a/packages/muse/muse-backlink.el b/packages/muse/muse-backlink.el index d5b7ebdf8..76c0c9c18 100644 --- a/packages/muse/muse-backlink.el +++ b/packages/muse/muse-backlink.el @@ -83,10 +83,10 @@ that for the default value of SEPARATORS leading and trailing whitespace are effectively trimmed). If nil, all zero-length substrings are retained, which correctly parses CSV format, for example. -Note that the effect of `(split-string STRING)' is the same as -`(split-string STRING split-string-default-separators t)'). In the rare +Note that the effect of (split-string STRING) is the same as +(split-string STRING split-string-default-separators t). In the rare case that you wish to retain zero-length substrings when splitting on -whitespace, use `(split-string STRING split-string-default-separators)'. +whitespace, use (split-string STRING split-string-default-separators). Modifies the match data; use `save-match-data' if necessary." (let ((keep-nulls (not (if separators omit-nulls t))) diff --git a/packages/muse/muse-colors.el b/packages/muse/muse-colors.el index 132310df3..401ed9457 100644 --- a/packages/muse/muse-colors.el +++ b/packages/muse/muse-colors.el @@ -61,7 +61,7 @@ See `muse-colors-buffer' for more information." "Specify whether the heading faces should be auto-generated. The default is to scale them. -Choosing 'outline will copy the colors from the outline-mode +Choosing `outline' will copy the colors from the outline-mode headings. If you want to customize each of the headings individually, set diff --git a/packages/muse/muse-html.el b/packages/muse/muse-html.el index 2473025f0..bcdee5626 100644 --- a/packages/muse/muse-html.el +++ b/packages/muse/muse-html.el @@ -400,7 +400,7 @@ change this to \"application/xhtml+xml\"." 'detect "iso-8859-1") "The charset to append to the HTML tag. -If set to the symbol 'detect, use `muse-html-encoding-map' to try +If set to the symbol `detect', use `muse-html-encoding-map' to try and determine the HTML charset from emacs's coding. If set to a string, this string will be used to force a particular charset" :type '(choice string symbol) @@ -422,7 +422,7 @@ This will be used if no special characters are found." "Modes that we allow the tag to colorize. If t, permit the tag to colorize any mode. -If a list of mode names, such as '(\"html\" \"latex\"), and the +If a list of mode names, such as (\"html\" \"latex\"), and the lang argument to is not in the list, then use fundamental mode instead." :type '(choice (const :tag "Any" t) diff --git a/packages/muse/muse-http.el b/packages/muse/muse-http.el index 40bd1cb49..0c83c92df 100644 --- a/packages/muse/muse-http.el +++ b/packages/muse/muse-http.el @@ -42,7 +42,7 @@ :group 'press) (defcustom muse-http-maintainer (concat "webmaster@" (system-name)) - "The maintainer address to use for the HTTP 'From' field." + "The maintainer address to use for the HTTP `From' field." :type 'string :group 'muse-http) diff --git a/packages/muse/muse-ipc.el b/packages/muse/muse-ipc.el index 9ce8eb1bd..da8eb37d0 100644 --- a/packages/muse/muse-ipc.el +++ b/packages/muse/muse-ipc.el @@ -48,7 +48,7 @@ :type 'number) (defcustom muse-ipc-ignore-done nil - "If non-nil, ignore any 'done' messages that we get from clients." + "If non-nil, ignore any `done' messages that we get from clients." :group 'muse-ipc :type 'boolean) diff --git a/packages/muse/muse-mode.el b/packages/muse/muse-mode.el index 96598433d..eaac573d1 100644 --- a/packages/muse/muse-mode.el +++ b/packages/muse/muse-mode.el @@ -395,7 +395,7 @@ your current list type and indentation level." (defun muse-alter-list-item-indentation (operation) "Alter the indentation of the current list item. -Valid values of OPERATION are 'increase and 'decrease." +Valid values of OPERATION are `increase' and `decrease'." (let ((pstart (muse-get-paragraph-start)) (list-item (format muse-list-item-regexp (concat "[" muse-regexp-blank "]*"))) @@ -923,7 +923,7 @@ function, you might want to set this manually.") "\\|[" muse-regexp-blank "][0-9]+\\.[" muse-regexp-blank "]*\\)") "Regexp used to match the beginning of a list item. This is used by `muse-list-edit-minor-mode'. -The '%s' will be replaced with a whitespace regexp when publishing.") +The `%s' will be replaced with a whitespace regexp when publishing.") (defun muse-l-e-m-m-insert-list-item () "Insert a list item at the current point, taking into account diff --git a/packages/muse/muse-publish.el b/packages/muse/muse-publish.el index cbcd4158e..a5d5f08e3 100644 --- a/packages/muse/muse-publish.el +++ b/packages/muse/muse-publish.el @@ -1017,17 +1017,17 @@ If IGNORE-READ-ONLY is non-nil, ignore the read-only property. CONTEXT is used to figure out what kind of specials to escape. The following contexts exist in Muse. -'underline _underlined text_ -'literal =monospaced text= or region (monospaced, escaped) -'emphasis *emphasized text* -'email email@example.com -'url http://example.com -'url-desc [[...][description of an explicit link]] -'image [[image.png]] -'example region (monospaced, block context, escaped) -'verbatim region (escaped) -'footnote footnote text -'document normal text" +`underline' _underlined text_ +`literal' =monospaced text= or region (monospaced, escaped) +`emphasis' *emphasized text* +`email' email@example.com +`url' http://example.com +`url-desc' [[...][description of an explicit link]] +`image' [[image.png]] +`example' region (monospaced, block context, escaped) +`verbatim' region (escaped) +`footnote' footnote text +`document' normal text" (let ((specials (muse-style-element :specials nil t))) (cond ((functionp specials) (setq specials (funcall specials context))) diff --git a/packages/muse/muse-regexps.el b/packages/muse/muse-regexps.el index ad3ce3fbd..900b0cd0c 100644 --- a/packages/muse/muse-regexps.el +++ b/packages/muse/muse-regexps.el @@ -44,7 +44,7 @@ (defcustom muse-regexp-use-character-classes 'undecided "Indicate whether to use extended character classes like [:space:]. -If 'undecided, Muse will use them if your emacs is known to support them. +If `undecided', Muse will use them if your emacs is known to support them. Emacs 22 and Emacs 21.3.50 are known to support them. XEmacs does not support them. @@ -149,7 +149,7 @@ the time." "\\|[" muse-regexp-blank "]-[" muse-regexp-blank "]*" "\\|[" muse-regexp-blank "][0-9]+\\.[" muse-regexp-blank "]*\\)") "Regexp used to match the beginning of a list item. -The '%s' will be replaced with a whitespace regexp when publishing." +The `%s' will be replaced with a whitespace regexp when publishing." :type 'regexp :group 'muse-regexp) diff --git a/packages/muse/muse.el b/packages/muse/muse.el index 7982b4697..a6a617731 100644 --- a/packages/muse/muse.el +++ b/packages/muse/muse.el @@ -403,7 +403,7 @@ before the second." The rating is stripped out in the returned list. Default sorting is highest-first. -If TEST if specified, use it to sort the list. The default test is '>." +If TEST if specified, use it to sort the list. The default test is `>'." (unless test (setq test '>)) (mapcar (function cdr) (muse-sort-with-closure @@ -476,8 +476,8 @@ never modify the directory part of the path." (defun muse-list* (arg &rest rest) "Return a new list with specified args as elements, cons'd to last arg. -Thus, `(list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to -`(cons A (cons B (cons C D)))'." +Thus, (muse-list* A B C D) is equivalent to (nconc (list A B C) D)' or to +(cons A (cons B (cons C D)))." (cond ((not rest) arg) ((not (cdr rest)) (cons arg (car rest))) (t (let* ((n (length rest)) @@ -742,7 +742,7 @@ function." (defun muse-list-item-type (str) "Determine the type of list given STR. -Returns either 'ul, 'ol, 'dl-term, 'dl-entry, or nil." +Returns either `ul', `ol', `dl-term', `dl-entry', or nil." (save-match-data (cond ((or (string= str "") (< (length str) 2)) diff --git a/packages/nameless/nameless.el b/packages/nameless/nameless.el index 735b4d802..3f2175676 100644 --- a/packages/nameless/nameless.el +++ b/packages/nameless/nameless.el @@ -59,8 +59,8 @@ use commonly. To apply aliases specific to a file, set the Each element of this list should have the form (ALIAS . NAMESPACE), both strings. For example, if you set this variable to ((\"fl\" . \"font-lock\")) -then expressions like `(font-lock-add-keywords nil kwds)' will -displayed as `(fl/add-keywords nil kwds)' instead. +then expressions like (font-lock-add-keywords nil kwds) will be +displayed as (fl/add-keywords nil kwds) instead. Furthermore typing `fl' followed by `\\[nameless-insert-name]' will automatically insert `font-lock-'." diff --git a/packages/notes-mode/notes-index-mode.el b/packages/notes-mode/notes-index-mode.el index 5d959ecbb..16012d542 100644 --- a/packages/notes-mode/notes-index-mode.el +++ b/packages/notes-mode/notes-index-mode.el @@ -102,7 +102,7 @@ Tenses passive will be." (if (and notes-mode-complete-subjects (not notes-subject-table)) (setq notes-subject-table (make-vector (- (expt - 8 + 8 (length (format "%o" @@ -163,10 +163,10 @@ Returns the buffer position of a successful hit, or nil." (defun notes-index-goto-date (date &optional direction) "Goto the DATE in the current line of the index file, modified by DIRECTION. -If DIRECTION is 'this, go there. -If DIRECTION is 'next or 'prev, go to the corresponding entry. +If DIRECTION is `this', go there. +If DIRECTION is `next' or `prev', go to the corresponding entry. If the entry doesn't exist, then go to the nearest entry according -to DIRECTION (and the next one if DIRECTION is 'this)." +to DIRECTION (and the next one if DIRECTION is `this')." (cond ((eq direction 'prev) (notes-index-date-search @@ -190,7 +190,7 @@ to DIRECTION (and the next one if DIRECTION is 'this)." (defun notes-index-link (link &optional tag where) "* Follow a notes-index LINK. Optionally takes a subject TAG and -WHERE ('otherwindow or nil) to open the new file." +WHERE (`otherwindow' or nil) to open the new file." (interactive "sNotes-index link: ") (notes-w3-url (notes-file-to-url link tag) where t)) @@ -203,7 +203,7 @@ WHERE ('otherwindow or nil) to open the new file." (defun notes-index-follow-link (pt &optional where) "Follow a link at PT in notes-index-mode. The link is taken from the location PT, -and the new information is shown WHERE (either 'otherwindow or not)." +and the new information is shown WHERE (either `otherwindow' or nil)." (interactive "d") (save-excursion (let (start date tag) diff --git a/packages/notes-mode/notes-mode.el b/packages/notes-mode/notes-mode.el index f113bb645..2f7d76657 100644 --- a/packages/notes-mode/notes-mode.el +++ b/packages/notes-mode/notes-mode.el @@ -22,7 +22,7 @@ ;;; Commentary: -;; +;; ;;; Code: @@ -44,7 +44,7 @@ (defun notes-beginning-of-defun () - "Go to the beginning of a notes ``section''." + "Go to the beginning of a notes “section”." (interactive) (let ((old-point (point))) @@ -59,7 +59,7 @@ (re-search-backward notes-beginning-of-defun-regexp nil 'to-limit)))) (defun notes-end-of-defun () - "Go to the end of a notes ``section''." + "Go to the end of a notes “section”." (interactive) (let ((regexp notes-beginning-of-defun-regexp)) (if (looking-at regexp) @@ -120,7 +120,7 @@ we go to the last note based upon the index file." ;; undoing our work). (if (eq start-buffer (car end-buffer-and-point)) (goto-char (cdr end-buffer-and-point))))) - + (defun notes-follow-next-link () "Go to the next link for this topic." @@ -146,14 +146,14 @@ Currently this is just a hack." (if value (car (cdr value)) key))) - + (defun notes-complete-subject () "Complete the notes subject under point." (interactive) (let - ((subject (save-excursion - (beginning-of-line) + ((subject (save-excursion + (beginning-of-line) (notes-extract-subject t))) old-completion-ignore-case full-subject) @@ -174,7 +174,7 @@ Currently this is just a hack." (t ;; Do our own completion. (setq full-subject (try-completion subject notes-subject-table) subject (completing-read "Subject: " - notes-subject-table nil nil + notes-subject-table nil nil (if (stringp full-subject) full-subject subject))) @@ -196,7 +196,7 @@ Currently this code only handles brand new entries." (goto-char (point-min)) (if (re-search-forward (concat "^" (regexp-quote subject) ":.* \\([0-9]+\\)$") - (point-max) t) + (point-max) t) (save-window-excursion (cond ((and (notes-w3-url (notes-file-to-url (match-string 1) subject)) @@ -207,7 +207,7 @@ Currently this code only handles brand new entries." (delete-char 6) (insert this-url) (setq last-url (notes-current-url)) - (if (and (null pre-modified) + (if (and (null pre-modified) (>= notes-electric-prevnext 2)) (save-buffer)))))))) (if last-url @@ -225,7 +225,7 @@ Currently this code only handles brand new entries." (save-excursion (beginning-of-line) (and (not (eq cur-point (point))) ;; normal return if at b-o-ln - (notes-extract-subject t)))) + (notes-extract-subject t)))) (progn (notes-underline-line) (if notes-electric-prevnext (notes-fix-prevnext-this-entry))) @@ -251,19 +251,19 @@ If we're not in an entry, we leave you in the index file. If the current date doesn't exist, error in DIRECTION. Returns nil if on errors (no index; no date in DIRECTION), otherwise the point of the hit." - (interactive) + (interactive) (let ((start-buffer (current-buffer)) (subject (notes-extract-subject)) ; get subject if on it - (date (if (null (buffer-file-name)) nil + (date (if (null (buffer-file-name)) nil (file-name-nondirectory (buffer-file-name))))) ;; Try and get the subject, either forward... (if (not subject) - (save-excursion + (save-excursion (notes-beginning-of-defun) (setq subject (notes-extract-subject)))) ;; ...or backwards. (if (not subject) - (save-excursion + (save-excursion (notes-end-of-defun) (setq subject (notes-extract-subject)))) ;; Form and jump to the url for the index-entry. @@ -409,7 +409,7 @@ Use the mknew cache if possible." " '" ;; FIXME: Use shell-quote-argument. (buffer-file-name) "'") 't))))) - + ;;; ;;; encryption @@ -418,7 +418,7 @@ Use the mknew cache if possible." ;; or mailcrypt 3.4.x or >=3.5.x ;; -(defvar notes-encryption-library +(defvar notes-encryption-library 'mailcrypt ; (cond ; ((fboundp 'mc-encrypt-region) 'mailcrypt) @@ -546,10 +546,10 @@ Should have a leading 0x.") (forward-line 1))) (setq start (point)) ;; sanity check - (if (re-search-forward "^-----BEGIN PGP MESSAGE" - (progn - (save-excursion - (notes-end-of-defun) + (if (re-search-forward "^-----BEGIN PGP MESSAGE" + (progn + (save-excursion + (notes-end-of-defun) (point))) t) (error "Note is already encrypted.")) ;; find the end @@ -567,10 +567,10 @@ Should have a leading 0x.") (save-excursion (if (not (looking-at notes-beginning-of-defun-regexp)) (notes-beginning-of-defun)) - (if (null (re-search-forward "^-----BEGIN PGP" - (progn - (save-excursion - (notes-end-of-defun) + (if (null (re-search-forward "^-----BEGIN PGP" + (progn + (save-excursion + (notes-end-of-defun) (point))) t)) (error "Note is not encrypted.")) (beginning-of-line) @@ -667,17 +667,17 @@ Inside a notes buffer one can click on URLs and follow them to other notes files. See the file notes-variables.el for all customization options. -To change options, (require 'notes-variables) in your .emacs +To change options, (require \\='notes-variables) in your .emacs and then change things. Subjects in notes mode are lines beginning with an asterisk -and underlined with dashes. Subjects can be completed +and underlined with dashes. Subjects can be completed with \\[notes-complete-subject] and are automatically underlined. You may wish to add this code to your .emacs file: - (add-to-list 'auto-mode-alist - (cons \"/9[0-9][0-9][0-9][0-9][0-9].?\\\\'\" 'notes-mode)) - (define-key global-map [?\\C-c ?n] 'notes-index-todays-link) + (add-to-list \\='auto-mode-alist + (cons \"/9[0-9][0-9][0-9][0-9][0-9].?\\\\\\='\" \\='notes-mode)) + (define-key global-map [?\\C-c ?n] \\='notes-index-todays-link) to automatically enter notes mode. I have two suggestions for how to organize your notes files. diff --git a/packages/notes-mode/notes-url.el b/packages/notes-mode/notes-url.el index 407f64475..496f386d0 100644 --- a/packages/notes-mode/notes-url.el +++ b/packages/notes-mode/notes-url.el @@ -44,8 +44,8 @@ This record is useful for debugging.") (defun notes-w3-url (url &optional where best-effort) "Open a notes-url. Handle simple URLs here, or call notes-w3-alternate-url. Takes the URL as an argument. Optionally you specify -WHERE the information should appear (either 'otherwindow or not, -defaults to not). +WHERE the information should appear (either `otherwindow' or nil, +defaults to nil). BEST-EFFORT causes notes-w3-url allows the tag portion of the URL to not match. If there's no tag match, it looks for the nearest matching prefix. @@ -54,7 +54,7 @@ URLs optionally can begin with an URL: tag, which will be ignored. notes-w3-url handles only (or ) URLs. Other URLs it hands off to the routine in notes-w3-alternate-url for processing. If you use w3-mode, then - (setq notes-w3-alternate-url 'w3-follow-link) + (setq notes-w3-alternate-url \\='w3-follow-link) will have w3 handle tough URLs." (if (string-match "\\`[Uu][Rr][Ll]:" url) (setq url (substring url 4))) @@ -91,7 +91,7 @@ will have w3 handle tough URLs." t)))) (defun notes-w3-url-tag-backup (tag) - "Strip the last ``part'' off of TAG." + "Strip the last “part” off of TAG." (let ((result) (separators " /\t.:") (buf (get-buffer-create " *notes-w3-url-tag-backup"))) @@ -110,7 +110,7 @@ will have w3 handle tough URLs." "Find the TAG in the current buffer according to MODE. BEST-EFFORT is either t (do prefix matching), nil find the tag exactly, -or 'searching (used internally)." +or `searching' (used internally)." (cond ((not tag) nil) ((and (string= tag "") (eq best-effort 'searching)) nil) @@ -127,17 +127,17 @@ or 'searching (used internally)." (if (not best-effort) (error "Cannot find tag ``%s'' in %s." tag fname)) (notes-w3-url-tag (notes-w3-url-tag-backup tag) 'searching))))) - + (defun notes-w3-pass-through-alternate-url (url &optional where) "Pass a click event through to the old binding for notes-w3-url. Try this combination: - (add-hook 'notes-mode-load-hooks + (add-hook \\='notes-mode-load-hooks (function (lambda () (define-key notes-mode-map [mouse-2] - 'notes-w3-follow-link-mouse) + \\='notes-w3-follow-link-mouse) (setq notes-w3-alternate-url - 'notes-w3-my-alternate-url))))" + \\='notes-w3-my-alternate-url))))" (let ((event last-input-event)) (funcall (lookup-key (current-global-map) @@ -147,7 +147,7 @@ Try this combination: ;;;###autoload (defun notes-w3-follow-link (pt &optional where) "* Follow the URL at the point. -Takes a PT to look at and a WHERE to open the URL ('otherwindow or nil). +Takes a PT to look at and a WHERE to open the URL (`otherwindow' or nil). This code works hard to recognize URLs based on context information. URLs can be quoted by whitespace, beginning and end of lines, or the official < and >. diff --git a/packages/notes-mode/notes-variables.el b/packages/notes-mode/notes-variables.el index de141c5e7..7a209671b 100644 --- a/packages/notes-mode/notes-variables.el +++ b/packages/notes-mode/notes-variables.el @@ -101,7 +101,7 @@ Turning this off for large notes-index's can improve performance.") (defvar notes-bold-face 'notes-bold-face "* Face to use for notes-index-mode and notes-mode subjects. -The default face is copied from 'bold.") +The default face is copied from `bold'.") (defvar notes-font-lock-keywords '(("^\\* .*$" . notes-bold-face) diff --git a/packages/oauth2/oauth2.el b/packages/oauth2/oauth2.el index 073ce37dc..c8807f3d5 100644 --- a/packages/oauth2/oauth2.el +++ b/packages/oauth2/oauth2.el @@ -190,11 +190,11 @@ This allows to store the token in an unique way." (defvar oauth--token-data) (defun oauth2-authz-bearer-header (token) - "Return 'Authoriztions: Bearer' header with TOKEN." + "Return `Authoriztions: Bearer' header with TOKEN." (cons "Authorization" (format "Bearer %s" token))) (defun oauth2-extra-headers (extra-headers) - "Return EXTRA-HEADERS with 'Authorization: Bearer' added." + "Return EXTRA-HEADERS with `Authorization: Bearer' added." (cons (oauth2-authz-bearer-header (oauth2-token-access-token (car oauth--token-data))) extra-headers)) diff --git a/packages/other-frame-window/other-frame-window.el b/packages/other-frame-window/other-frame-window.el index 2427ce659..979d18f99 100755 --- a/packages/other-frame-window/other-frame-window.el +++ b/packages/other-frame-window/other-frame-window.el @@ -120,7 +120,7 @@ #'ofw--preserve-state)) (defun ofw-delete-from-overriding () - "Remove ourselves from 'display-buffer-overriding-action' action list, if present." + "Remove ourselves from `display-buffer-overriding-action' action list, if present." (let ((functions (car display-buffer-overriding-action)) (attrs (cdr display-buffer-overriding-action))) (setq functions (remq #'ofw-display-buffer-other-frame @@ -142,7 +142,7 @@ "Show BUFFER in another window in the current frame, creating new window if needed and allowed. If successful, return window; else return nil. -Intended for 'display-buffer-overriding-action'." +Intended for `display-buffer-overriding-action'." ;; Reset for next display-buffer call. Normally, this is taken care ;; of by ofw--reset-prefix, but we do it here in case the user does ;; two ofw prefixed commands consecutively. @@ -161,7 +161,7 @@ Intended for 'display-buffer-overriding-action'." (defun ofw-display-buffer-other-frame (buffer alist) "Show BUFFER in another frame, creating a new frame if needed. If successful, return window; else return nil. -Intended for 'display-buffer-overriding-action'." +Intended for `display-buffer-overriding-action'." ;; Reset for next display-buffer call. (ofw-delete-from-overriding) @@ -179,7 +179,7 @@ This allows `switch-to-buffer' to respect `ofw-other-window', (funcall orig-fun buffer norecord force-same-window))) (defun ofw--suspend-and-restore (orig-func &rest args) - "Call ORIG-FUNC without any ofw actions on 'display-buffer-overriding-action'." + "Call ORIG-FUNC without any ofw actions on `display-buffer-overriding-action'." (let ((display-buffer-overriding-action display-buffer-overriding-action)) (ofw-delete-from-overriding) (apply orig-func args))) diff --git a/packages/poker/poker.el b/packages/poker/poker.el index 55f22bea2..9de00d37e 100644 --- a/packages/poker/poker.el +++ b/packages/poker/poker.el @@ -1,4 +1,4 @@ -;;; poker.el --- Texas hold'em poker +;;; poker.el --- Texas hold 'em poker ;; Copyright (C) 2014 Free Software Foundation, Inc. @@ -22,7 +22,7 @@ ;;; Commentary: -;; poker.el provides texas hold'em poker gameplay for Emacs. +;; poker.el provides Texas hold 'em poker gameplay for Emacs. ;;; Requires: @@ -342,7 +342,7 @@ FCR-FN specifies a function to use when a fold-call-raise decision is required." (cons 'wagered 0) (cons 'pocket nil) (cons 'fcr-fn fcr-fn))) - + (defun poker-player-name (player) "Return the name of poker PLAYER." (cdr (assq 'name player))) @@ -589,7 +589,7 @@ FCR-FN specifies a function to use when a fold-call-raise decision is required." (poker-player-name (car winners)) (poker-distribute-winnings winners players)) winners)) - + ;; pre-flop, second round of bets, no raises allowed ((and (null board) (cl-remove-if (lambda (player) @@ -833,8 +833,8 @@ FCR-FN specifies a function to use when a fold-call-raise decision is required." ;;;###autoload (define-key menu-bar-games-menu - [poker] '(menu-item "Texas hold'em poker" poker - :help "Play texas hold'em poker")) + [poker] '(menu-item "Texas hold 'em poker" poker + :help "Play Texas hold 'em poker")) ;;; Tests: diff --git a/packages/rich-minority/rich-minority.el b/packages/rich-minority/rich-minority.el index 78a4166a8..71bb159d3 100644 --- a/packages/rich-minority/rich-minority.el +++ b/packages/rich-minority/rich-minority.el @@ -113,7 +113,7 @@ Has three possible values: minor-mode list. If you'd like to use a list of regexps, simply use something like the following: - (setq rm-blacklist (mapconcat 'identity list-of-regexps \"\\\\|\")) + (setq rm-blacklist (mapconcat \\='identity list-of-regexps \"\\\\|\")) Don't forget to start each string with a blank space, as most minor-mode lighters start with a space." @@ -140,7 +140,7 @@ minor-mode lighters start with a space." the minor-mode list. If you'd like to use a list of regexps, simply use something like the following: - (setq rm-whitelist (mapconcat 'identity list-of-regexps \"\\\\|\")) + (setq rm-whitelist (mapconcat \\='identity list-of-regexps \"\\\\|\")) Don't forget to start each string with a blank space, as most minor-mode lighters start with a space." diff --git a/packages/scroll-restore/scroll-restore.el b/packages/scroll-restore/scroll-restore.el index d1ca7e927..5c9920728 100644 --- a/packages/scroll-restore/scroll-restore.el +++ b/packages/scroll-restore/scroll-restore.el @@ -166,7 +166,7 @@ cursor and `scroll-restore-cursor-color' to change its color." (defcustom scroll-restore-cursor-type 'box "Type of cursor when original position is off-screen. Applied if and only if `scroll-restore-handle-cursor' is either -'type or t. +`type' or t. Be careful when another application uses that type. Otherwise, you might get unexpected results when Scroll Restore mode resets @@ -188,7 +188,7 @@ the value of scroll-restore-cursor-type." (defcustom scroll-restore-cursor-color "DarkCyan" "Background color of cursor when original position is off-screen. Applied if and only if `scroll-restore-handle-cursor' is either -'color or t. +`color' or t. Observe that when Emacs changes the color of the cursor, the change applies to all windows on the associated frame. @@ -238,7 +238,7 @@ drags." (defface scroll-restore-region '((t :inherit region)) - "Face for Scroll Restore region when `scroll-restore-handle-region' is + "Face for Scroll Restore region when `scroll-restore-handle-region' is non-nil.") ;; Note: We can't use `point-before-scroll' for our purposes because diff --git a/packages/shen-mode/inf-shen.el b/packages/shen-mode/inf-shen.el index bf554daae..53df95557 100644 --- a/packages/shen-mode/inf-shen.el +++ b/packages/shen-mode/inf-shen.el @@ -294,7 +294,7 @@ Prefix argument means switch to the Shen buffer afterwards." (interactive "r\nP") (let ((before-input (marker-position (process-mark (inferior-shen-proc)))) result) - + (run-hook-with-args 'shen-pre-eval-hook start end) (comint-send-region (inferior-shen-proc) start end) (comint-send-string (inferior-shen-proc) "\n") @@ -432,7 +432,7 @@ With argument, positions cursor at end of buffer." (defvar shen-prev-l/c-dir/file nil "Record last directory and file used in loading or compiling. -This holds a cons cell of the form `(DIRECTORY . FILE)' +This holds a cons cell of the form (DIRECTORY . FILE) describing the last `shen-load-file' or `shen-compile-file' command.") (defvar shen-source-modes '(shen-mode) diff --git a/packages/sml-mode/sml-mode.el b/packages/sml-mode/sml-mode.el index 85fcdcf2a..9e17e3fea 100644 --- a/packages/sml-mode/sml-mode.el +++ b/packages/sml-mode/sml-mode.el @@ -344,7 +344,7 @@ Regexp match data 0 points to the chars." (,(concat "\\_<\\(signature\\)\\s-+\\(" sml-id-re "\\)") (1 font-lock-keyword-face) (2 font-lock-interface-def-face)) - + (,sml-keywords-regexp . font-lock-keyword-face) ,@(sml-font-lock-symbols-keywords)) "Regexps matching standard SML keywords.") @@ -981,7 +981,7 @@ commands with the same file.") (defvar sml-use-command "use \"%s\"" "Template for loading a file into the inferior SML process. -Set to \"use \\\"%s\\\"\" for SML/NJ or Edinburgh ML; +Set to \"use \\\"%s\\\"\" for SML/NJ or Edinburgh ML; set to \"PolyML.use \\\"%s\\\"\" for Poly/ML, etc.") (defvar sml-cd-command "OS.FileSys.chDir \"%s\"" @@ -1114,7 +1114,7 @@ on which to run CMD using `remote-shell-program'. (current-buffer)))) (defun sml-send-function (&optional and-go) - "Send current paragraph to the inferior SML process. + "Send current paragraph to the inferior SML process. With a prefix argument AND-GO switch to the repl buffer as well." (interactive "P") (save-excursion @@ -1140,7 +1140,7 @@ With a prefix argument AND-GO switch to the repl buffer as well." ;; always obvious to spot it). ;; ;; Sample messages: - ;; + ;; ;; Data.sml:31.9-33.33 Error: right-hand-side of clause doesn't agree with function result type [tycon mismatch] ;; expression: Hstring ;; result type: Hstring * int @@ -1475,8 +1475,8 @@ Depending on the context insert the name of function, a \"=>\" etc." "Alist of code templates. You can extend this alist to your heart's content. For each additional template NAME in the list, declare a keyboard macro or function (or -interactive command) called 'sml-form-NAME'. -If 'sml-form-NAME' is a function it takes no arguments and should +interactive command) called `sml-form-NAME'. +If `sml-form-NAME' is a function it takes no arguments and should insert the template at point\; if this is a command it may accept any sensible interactive call arguments\; keyboard macros can't take arguments at all. @@ -1568,7 +1568,7 @@ If a prefix argument is given insert a NEWLINE and indent first, or just move to the proper indentation if the line is blank\; otherwise insert at point (which forces indentation to current column). -The default form to insert is 'whatever you inserted last time' +The default form to insert is whatever you inserted last time \(just hit return when prompted\)\; otherwise the command reads with completion from `sml-forms-alist'." (interactive diff --git a/packages/sotlisp/sotlisp.el b/packages/sotlisp/sotlisp.el index ee5f6f82a..2ceb38272 100644 --- a/packages/sotlisp/sotlisp.el +++ b/packages/sotlisp/sotlisp.el @@ -33,12 +33,12 @@ ;; ;; A large number of abbrevs which expand function ;; initials to their name. A few examples: -;; +;; ;; - wcb -> with-current-buffer ;; - i -> insert ;; - r -> require ' ;; - a -> and -;; +;; ;; However, these are defined in a way such that they ONLY expand in a ;; place where you would use a function, so hitting SPC after "(r" ;; expands to "(require '", but hitting SPC after "(delete-region r" @@ -52,32 +52,32 @@ ;; thought-flow" way of writing. The bindings are as follows, I ;; understand these don't fully adhere to conventions, and I'd ;; appreciate suggestions on better bindings. -;; +;; ;; - M-RET :: Break line, and insert "()" with point in the middle. ;; - C-RET :: Do `forward-up-list', then do M-RET. -;; +;; ;; Hitting RET followed by a `(' was one of the most common key sequences ;; for me while writing elisp, so giving it a quick-to-hit key was a ;; significant improvement. -;; +;; ;; - C-c f :: Find function under point. If it is not defined, create a ;; definition for it below the current function and leave point inside. ;; - C-c v :: Same, but for variable. -;; +;; ;; With these commands, you just write your code as you think of it. Once ;; you hit a "stop-point" of sorts in your tought flow, you hit `C-c f/v` ;; on any undefined functions/variables, write their definitions, and hit ;; `C-u C-SPC` to go back to the main function. -;; +;; ;;; Small Example ;; ;; With the above (assuming you use something like paredit or ;; electric-pair-mode), if you write: ;; ;; ( w t b M-RET i SPC text -;; +;; ;; You get -;; +;; ;; (with-temp-buffer (insert text)) ;;; Code: @@ -388,14 +388,14 @@ The space char is not included. Any \"$\" are also removed." (defun sotlisp-define-function-abbrev (name expansion) "Define a function abbrev expanding NAME to EXPANSION. This abbrev will only be expanded in places where a function name is -sensible. Roughly, this is right after a `(' or a `#''. +sensible. Roughly, this is right after a `(' or a `#\\=''. If EXPANSION is any string, it doesn't have to be the just the name of a function. In particular: - if it contains a `$', this char will not be inserted and point will be moved to its position after expansion. - if it contains a space, only a substring of it up to the -first space is inserted when expanding after a `#'' (this is done +first space is inserted when expanding after a `#\\='' (this is done by defining two different abbrevs). For instance, if one defines @@ -404,7 +404,7 @@ For instance, if one defines then triggering `expand-abbrev' after \"d\" expands in the following way: (d => (delete-char 1 - #'d => #'delete-char" + #\\='d => #\\='delete-char" (define-abbrev emacs-lisp-mode-abbrev-table name t #'sotlisp--expand-function ;; Don't override user abbrevs @@ -657,7 +657,7 @@ With a prefix argument, defines a `defvar' instead of a `defcustom'." (skip-chars-backward "\r\n[:blank:]") (setq p (point-marker)) (backward-up-list))) - ;; Re-comment everything before it. + ;; Re-comment everything before it. (ignore-errors (comment-region beg p)) ;; And everything after it. diff --git a/packages/spinner/spinner.el b/packages/spinner/spinner.el index a02184818..24e9cea43 100644 --- a/packages/spinner/spinner.el +++ b/packages/spinner/spinner.el @@ -158,7 +158,7 @@ below). If TYPE is nil, the frames of this spinner are given by the first element of `spinner-types'. If TYPE is a symbol, it specifies an element of `spinner-types'. -If TYPE is 'random, use a random element of `spinner-types'. +If TYPE is `random', use a random element of `spinner-types'. If TYPE is a list, it should be a list of symbols, and a random one is chosen as the spinner type. If TYPE is a vector, it should be a vector of strings and these @@ -275,7 +275,7 @@ stop the SPINNER's timer." If TYPE-OR-OBJECT is an object created with `make-spinner', simply activate it. This method is designed for minor modes, so they can use the spinner as part of their lighter by doing: - '(:eval (spinner-print THE-SPINNER)) + \\='(:eval (spinner-print THE-SPINNER)) To stop this spinner, call `spinner-stop' on it. If TYPE-OR-OBJECT is anything else, a buffer-local spinner is diff --git a/packages/stream/stream.el b/packages/stream/stream.el index 62eb3b6a5..8b71a1ba3 100644 --- a/packages/stream/stream.el +++ b/packages/stream/stream.el @@ -351,7 +351,7 @@ as long as s_n exists. Example: - (stream-scan #'* 1 (stream-range 1)) + (stream-scan #\\='* 1 (stream-range 1)) returns a stream of the factorials." (let ((res init)) diff --git a/packages/svg-clock/svg-clock.el b/packages/svg-clock/svg-clock.el index 360365113..bf0147cf6 100644 --- a/packages/svg-clock/svg-clock.el +++ b/packages/svg-clock/svg-clock.el @@ -73,9 +73,9 @@ (defun svg-clock--create-def-elements (foreground background) "Return a list of SVG elements using the colors FOREGROUND and BACKGROUND. -The elements are supposed to be added to an SVG object as 'defs'. -The SVG may then 'use': 'clock-face, 'second-hand, 'minute-hand -and 'hour-hand. The clock-face has a size of 1x1." +The elements are supposed to be added to an SVG object as `defs'. +The SVG may then `use': `clock-face', `second-hand', `minute-hand' +and `hour-hand'. The clock-face has a size of 1x1." (list (svg-clock-symbol 'tickshort (svg-clock-line .5 .02 .5 .04 `(stroke . ,foreground) diff --git a/packages/timerfunctions/timerfunctions.el b/packages/timerfunctions/timerfunctions.el index dc4bb9fb0..20dc1df61 100644 --- a/packages/timerfunctions/timerfunctions.el +++ b/packages/timerfunctions/timerfunctions.el @@ -55,7 +55,7 @@ provided a `tf-with-timeout-check'.") (defconst timerfunctions-introduction - "timerfunctions.el contains some 'enhanced' versions of a few timer.el + "timerfunctions.el contains some “enhanced” versions of a few timer.el functions. It is also used by vel.el, idledo.el etc. Suppose you want Emacs to run an action every REDOSECS for @@ -349,7 +349,7 @@ user as well. Arguments are INHIBITP, TAG and TIMEDOUTVAR." Provides ability to inhibit timeout during parts of the body. Note that most of the time, you may not need this functionality -at all unless you want to be very 'clean' about things---you +at all unless you want to be very “clean” about things---you could get by with the regular with-timeout and not using sit-for's in the body. Or with the regular with-timeout and using unwind-protect. @@ -374,7 +374,7 @@ be detected. Furthermore: During the execution of the body, we SHALL NOT time out when INHIBITP evals to non-nil. Thus, for example, you might initially setq a -variable my-var as nil, supply inhibitp as 'my-var, and then you may +variable my-var as nil, supply inhibitp as `my-var', and then you may setq my-var to t or nil within the body of tf-with-timeout to enable or disable timeout. The best use of this functionality is to setq inhibitp to t when during parts of loops where you do not want the @@ -390,7 +390,7 @@ Here's an example: (let ((myinhibit t)) - (tf-with-timeout 'myinhibit 'mytag 'mytimedoutvar + (tf-with-timeout \\='myinhibit \\='mytag \\='mytimedoutvar (2 2) (setq a nil) (setq b nil) @@ -419,7 +419,7 @@ But perhaps you do not want to include (sleep-for 0.02) because that wastes precious cpu time. Simple, don't include it, just after a long inhibited body, you can include a timeout check within the body instead of (sleep-for 0.02): - (tf-with-timeout-check 'mytag 'mytimedoutvar 'myinhibitp) + (tf-with-timeout-check \\='mytag \\='mytimedoutvar \\='myinhibitp) Moreover, if that is the main check you rely on, you it perhaps makes sense to increase the value of tf-with-timeout-repeat-sec, so that diff --git a/packages/tiny/tiny-test.el b/packages/tiny/tiny-test.el index 3d9ec54cd..4503aa644 100644 --- a/packages/tiny/tiny-test.el +++ b/packages/tiny/tiny-test.el @@ -25,7 +25,7 @@ (require 'tiny nil t) (defun with-text-value (txt fn &rest args) - "Return the result of (apply 'FN ARGS), in a temp buffer with TXT, + "Return the result of (apply FN ARGS), in a temp buffer with TXT, with point at the end of TXT." (with-temp-buffer (insert txt) diff --git a/packages/tiny/tiny.el b/packages/tiny/tiny.el index 90c89d5ab..5523e6089 100644 --- a/packages/tiny/tiny.el +++ b/packages/tiny/tiny.el @@ -262,10 +262,10 @@ m[START][SEPARATOR]END[EXPR]|[FORMAT] * END - integer (required) * EXPR - Lisp expression: function body with argument x (defaults to x) Parens are optional if it's unambiguous: - - `(* 2 (+ x 3))' <-> *2+x3 - - `(exp x)' <-> expx + - `(* 2 (+ x 3))' <-> *2+x3 + - `(exp x)' <-> expx A closing paren may be added to resolve ambiguity: - - `(* 2 (+ x 3) x) <-> *2+x3) + - `(* 2 (+ x 3) x)' <-> *2+x3) * FORMAT - string, `format'-style (defaults to \"%s\") | separator can be omitted if FORMAT starts with %. diff --git a/packages/tramp-theme/tramp-theme.el b/packages/tramp-theme/tramp-theme.el index a953c3e2e..2bf9e9b69 100644 --- a/packages/tramp-theme/tramp-theme.el +++ b/packages/tramp-theme/tramp-theme.el @@ -69,7 +69,7 @@ changes the background color to \"Green\" for frames connected to the remote host \"bar\", and it inverses the fringe face for frames using the remote user \"root\": - '((nil \"^root$\" (fringe (:inherit fringe :inverse-video t))) + ((nil \"^root$\" (fringe (:inherit fringe :inverse-video t))) (\"^foo$\" nil (default (:background \"Red\"))) (\"^bar$\" nil (default (:background \"Green\")))) diff --git a/packages/transcribe/transcribe.el b/packages/transcribe/transcribe.el index 983217bec..48497b4cc 100644 --- a/packages/transcribe/transcribe.el +++ b/packages/transcribe/transcribe.el @@ -22,8 +22,8 @@ ;; REQUIRES: ;; ----------------------------- -;; This module works without any requires, but in order to use the audio -;; functions, you need to install the Emacs package "emms", by Joe Drew, +;; This module works without any requires, but in order to use the audio +;; functions, you need to install the Emacs package "emms", by Joe Drew, ;; and the external program "mpg321", by Jorgen Schafer and Ulrik Jensen, ;; both under GPL licenses. ;; @@ -31,35 +31,35 @@ ;; ------------------------- ;; Transcribe is a tool to make audio transcriptions for discourse analysis ;; in the classroom. -;; It allows the transcriber to control the audio easily while typing, as well as -;; automate the insertion of xml tags, in case the transcription protocol +;; It allows the transcriber to control the audio easily while typing, as well as +;; automate the insertion of xml tags, in case the transcription protocol ;; include them. -;; The analysis functions will search for a specific structure -;; of episodes that can be automatically added with the macro NewEpisode. -;; The function expects the speech acts to be transcribed inside a turn xml +;; The analysis functions will search for a specific structure +;; of episodes that can be automatically added with the macro NewEpisode. +;; The function expects the speech acts to be transcribed inside a turn xml ;; tag with the identifier of the speaker with optional move attribute. -;; Each speech act is spected inside a or tag, depending -;; on the language used by the person. The attributes expected are the -;; number of clauses that form the utterance, the number of errors the +;; Each speech act is spected inside a or tag, depending +;; on the language used by the person. The attributes expected are the +;; number of clauses that form the utterance, the number of errors the ;; transcriber observes, and the function of the speech act. The parser will ;; work even if some attributes are missing. -;; -;; +;; +;; ;; AUDIO COMMANDS ;; ------------------------------ -;; C-x C-p ------> Play audio file. You will be prompted for the name +;; C-x C-p ------> Play audio file. You will be prompted for the name ;; of the file. The recommended format is mp2. ;; ---------> Pause or play audio. ;; C-x --> seek audio 10 seconds forward. ;; C-x --->seek audio 10 seconds backward. -;; ---------> seek interactively: positive seconds go forward and +;; ---------> seek interactively: positive seconds go forward and ;; negative seconds go backward ;; ;; XML TAGGING COMMANDS ;; -------------------------------------------------- -;; C-x C-n ------> Create new episode structure. This is useful in case your +;; C-x C-n ------> Create new episode structure. This is useful in case your ;; xml file structure requires it. -;; ---------> Interactively insert a function attribute in a speech act +;; ---------> Interactively insert a function attribute in a speech act ;; (l1 or l2) tag. ;; ---------> Interactively insert a move attribute in a turn (person) tag ;; ---------> Interactively insert an attribute (any kind) @@ -100,28 +100,28 @@ ;; (append transcribe-attribute-list transcribe-function-list transcribe-move-list) (defun transcribe-analyze-episode (episode person) - "This calls the external python package analyze_episodes2.py. The new + "This calls the external python package analyze_episodes2.py. The new function transcribe-analyze implements its role now." (interactive "sepisode: \nsperson:") - (shell-command (concat (expand-file-name "analyze_episodes2.py") + (shell-command (concat (expand-file-name "analyze_episodes2.py") " -e " episode " -p " person " -i " buffer-file-name ))) (defun transcribe-raw-to-buffer () "EXPERIMENTAL - Convert the xml tagged transcription to raw transcription, with the names and the persons and the utterances only. The raw transcription will be send to buffer called - 'Raw Output'" + `Raw Output'." (interactive) (let* ((xml (xml-parse-region (point-min) (point-max))) (results (car xml)) (episodes (xml-get-children results 'episode))) - + (dolist (episode episodes) (let* ((transcription (xml-get-children episode 'transcription))) - + (dolist (turn transcription) (dolist (intervention (xml-node-children turn)) (if (listp intervention) - (progn + (progn (with-current-buffer "Raw Output" (insert (format "%s\t" (line-number-at-pos))) (insert (format "%s:\t" (car intervention))) @@ -131,17 +131,17 @@ (insert (format "%s " (nth 2 utterance)))) (insert (format "%s" utterance)))))) - + (with-current-buffer "Raw Output" (insert (format "%s" (line-number-at-pos))) (insert (format "%s" intervention)))))))))) (defun transcribe-analyze (episodenumber personid) - "Extract from a given episode and person the number of asunits per + "Extract from a given episode and person the number of asunits per second produced, and the number of clauses per asunits, for L2 and L1. It writes two output files, one for L2 utterances and one for L1 utterances, so that they can be used with external programs. Output will - be inserted in 'Statistics Output' buffer" + be inserted in `Statistics Output' buffer." (interactive "sepisodenumber: \nspersonid:") (let* ((interventionsl2 '()) (interventionsl1 '()) @@ -166,18 +166,18 @@ (demand nil) ;; (clausesmessage nil) (number nil)) - + (dolist (episode episodes) (let*((numbernode (xml-get-children episode 'number)) (tasknode (xml-get-children episode 'task))) - + (setq number (nth 2 (car numbernode))) (when (equal episodenumber number) (let* ((durationnode (xml-get-children episode 'duration)) (transcription (xml-get-children episode 'transcription))) - + (setq duration (nth 2 (car durationnode))) - + (dolist (task tasknode) (let* ((rolenode (xml-get-children task 'role)) (contextnode (xml-get-children task 'context)) @@ -191,20 +191,20 @@ )) (dolist (turn transcription) - (let* ((interventionnode (xml-get-children turn + (let* ((interventionnode (xml-get-children turn (intern personid)))) - + (dolist (intervention interventionnode) (let* ((l2node (xml-get-children intervention 'l2)) (l1node (xml-get-children intervention 'l1))) - + (dolist (l2turn l2node) (let* ((l2 (nth 2 l2turn)) (attrs (nth 1 l2turn)) (clausesl2nodeinc (cdr (assq 'clauses attrs))) (errorsl2inc (cdr (assq 'errors attrs))) (function (cdr (assq 'function attrs)))) - + (when (string-equal function "initiating") (setq initiating (+ initiating 1))) (when (string-equal function "responding") @@ -216,25 +216,25 @@ (when (string-equal function "interpersonal") (setq interpersonal (+ interpersonal 1))) (when attrs - (setq clausesl2 (+ clausesl2 (string-to-number + (setq clausesl2 (+ clausesl2 (string-to-number clausesl2nodeinc))) (setq errorsl2 (+ errorsl2 (string-to-number errorsl2inc)))) - (when l2 + (when l2 ;; (add-to-list 'interventionsl2 l2) - (cl-pushnew l2 interventionsl2 :test #'equal) + (cl-pushnew l2 interventionsl2 :test #'equal) (setq asunitsl2 (1+ asunitsl2))))) (dolist (l1turn l1node) (let*((l1 (nth 2 l1turn)) (clausesl1node (nth 1 l1turn)) (clausesl1nodeinc (cdr (car clausesl1node)))) - + (when (not (equal clausesl1node nil)) - (setq clausesl1 (+ clausesl1 (string-to-number + (setq clausesl1 (+ clausesl1 (string-to-number clausesl1nodeinc)))) - (when l1 + (when l1 ;; (add-to-list 'interventionsl1 l1) - (cl-pushnew l1 interventionsl1 :test #'equal) + (cl-pushnew l1 interventionsl1 :test #'equal) (setq asunitsl1 (1+ asunitsl1))))))))))))) (reverse interventionsl2) ;; (write-region (format "%s" interventionsl2) nil (format "transcribe-output-%s-%s-l2.txt" episodenumber personid)) @@ -252,24 +252,24 @@ (controlperasunitl2 (/ control asunitsl2)) (expressiveperasunitl2 (/ expressive asunitsl2)) (interpersonalperasunitl2 (/ interpersonal asunitsl2))) - + ;; (princ clausesmessage) (princ (format "episode: %s, duration: %s, person: %s\n" episodenumber duration personid)) - (with-current-buffer "Statistics Output" + (with-current-buffer "Statistics Output" (insert (format "%s,%s,%s,0,0,%s,%s,%s,%s,%s,QUAN-L2,segmented,aux,level,subject,yearofclil,month\n" personid episodenumber duration role context demand asunitspersecondl2 asunitspersecondl1))) - (princ (format "L2(Asunits/second): %s, L2(clauses/Asunit): %s, L2(errors/Asunit):%s, L1(Asunits/second): %s\n" + (princ (format "L2(Asunits/second): %s, L2(clauses/Asunit): %s, L2(errors/Asunit):%s, L1(Asunits/second): %s\n" asunitspersecondl2 clausesperasunitl2 errorsperasunitl2 asunitspersecondl1)) (princ (format "Functions/unit: Initiating: %s, Responding: %s, Control: %s, Expressive: %s, Interpersonal: %s" initiatingperasunitl2 respondingperasunitl2 controlperasunitl2 expressiveperasunitl2 interpersonalperasunitl2))))) (defun transcribe-analyze-all () - "Analyze all file and output to 'Statistics Output' buffer. The buffer will + "Analyze all file and output to `Statistics Output' buffer. The buffer will lost all previous data. The data in the buffer can be saved to a file and be - passed to 'R' for statistical analysis." + passed to R for statistical analysis." (interactive) (let* ((xml (xml-parse-region (point-min) (point-max))) (results (car xml)) (episodes (xml-get-children results 'episode))) - + (with-current-buffer "Statistics Output" (erase-buffer) (insert "person,episode,duration,C-UNITS(L2),C-UNITS(L1),role,context,demand,QUAN-L2,QUAN-L1,QUAL-L2,segmented,aux,level,subjects,yearofCLIL,month\n")) @@ -280,8 +280,8 @@ (number (nth 2 (car numbernode))) (participantsstring (nth 2 (car participantsnode))) (participants (split-string participantsstring))) - - (dolist (participant participants) + + (dolist (participant participants) (transcribe-analyze number participant)))))) @@ -311,17 +311,17 @@ (defun transcribe-add-attribute (att val) "Adds a xml attribute at cursor with the name and value specified (autocompletion possible)" - (interactive (list(completing-read "attibute name:" transcribe-attribute-list)(read-string "value:"))) + (interactive (list(completing-read "attibute name:" transcribe-attribute-list)(read-string "value:"))) (insert (format "%s=\"%s\"" att val))) (defun transcribe-add-attribute-function (val) - "Adds the xml attribute 'function' at cursor with the name specified (autocompletion possible)" - (interactive (list(completing-read "function name:" transcribe-function-list))) + "Adds the xml attribute `function' at cursor with the name specified (autocompletion possible)" + (interactive (list(completing-read "function name:" transcribe-function-list))) (insert (format "function=\"%s\"" val))) (defun transcribe-add-attribute-move (val) - "Adds the xml attribute 'move' at cursor with the name specified (autocompletion possible" - (interactive (list(completing-read "move name:" transcribe-move-list))) + "Adds the xml attribute `move' at cursor with the name specified (autocompletion possible" + (interactive (list(completing-read "move name:" transcribe-move-list))) (insert (format "move=\"%s\"" val))) (defun transcribe-xml-tag-l1 () diff --git a/packages/trie/trie.el b/packages/trie/trie.el index d428fda52..71ef128ea 100644 --- a/packages/trie/trie.el +++ b/packages/trie/trie.el @@ -397,7 +397,7 @@ If START or END is negative, it counts from the end." (defun trie--position (item list) "Find the first occurrence of ITEM in LIST. Return the index of the matching item, or nil of not found. -Comparison is done with 'equal." +Comparison is done with `equal'." (let ((i 0)) (catch 'found (while (progn @@ -916,7 +916,7 @@ trie, and its associated data. Optional argument TYPE (one of the symbols vector, lisp or string; defaults to vector) sets the type of sequence passed to -FUNCTION. If TYPE is 'string, it must be possible to apply the +FUNCTION. If TYPE is `string', it must be possible to apply the function `string' to the individual elements of key sequences stored in TRIE. @@ -963,7 +963,7 @@ Note that if you don't care about the order in which FUNCTION is applied, just that the resulting list is in the correct order, then - (trie-mapf function 'cons trie type (not reverse)) + (trie-mapf function \\='cons trie type (not reverse)) is more efficient. @@ -1390,7 +1390,7 @@ included in the results, and does not count towards MAXNUM. RESULTFUN defines a function used to process results before adding them to the final result list. If specified, it should -accept two arguments: a key and its associated data. It's return +accept two arguments: a key and its associated data. Its return value is what gets added to the final result list, instead of the default key-data cons cell." @@ -1551,7 +1551,7 @@ results, and does not count towards MAXNUM. RESULTFUN defines a function used to process results before adding them to the final result list. If specified, it should -accept two arguments: a key and its associated data. It's return +accept two arguments: a key and its associated data. Its return value is what gets added to the final result list, instead of the default key-data cons cell." diff --git a/packages/url-http-ntlm/url-http-ntlm.el b/packages/url-http-ntlm/url-http-ntlm.el index 92cbb4b2c..58622ad48 100644 --- a/packages/url-http-ntlm/url-http-ntlm.el +++ b/packages/url-http-ntlm/url-http-ntlm.el @@ -152,7 +152,7 @@ PROMPT and ARGS come from `url-ntlm-auth''s caller, `url-get-authentication'. Their meaning depends on the current implementation - this function is well and truly coupled. -url-get-authentication' calls `url-ntlm-auth' once when checking +`url-get-authentication' calls `url-ntlm-auth' once when checking what authentication schemes are supported (PROMPT and ARGS are nil), and then twice for every stage of the handshake: the first time PROMPT is nil, the second, t; ARGS contains the server diff --git a/packages/wcheck-mode/wcheck-mode.el b/packages/wcheck-mode/wcheck-mode.el index ae7e91754..c97f09b87 100644 --- a/packages/wcheck-mode/wcheck-mode.el +++ b/packages/wcheck-mode/wcheck-mode.el @@ -360,12 +360,12 @@ regexp-end The default values for the regular expressions are - \\=\\<'* (regexp-start) + \\=\\<\\='* (regexp-start) \\w+? (regexp-body) - '*\\=\\> (regexp-end) + \\='*\\=\\> (regexp-end) Effectively they match a series of word characters defined in - the effective syntax table. Single quotes (') at the start + the effective syntax table. Single quotes (\\=') at the start and end of a word are excluded. This is probably a good thing when using `wcheck-mode' as a spelling checker. @@ -377,7 +377,7 @@ regexp-discard to define exceptions to the `regexp-body' match. The default value is - \\`'+\\' + \\\\=`\\='+\\\\=' which discards the body string if it consists only of single quotes. This was chosen as the default because the default @@ -623,10 +623,10 @@ Here's an example value for the variable: (connection . nil) (face . wcheck-default-face) (syntax . text-mode-syntax-table) - (regexp-start . \"\\\\=\\<'*\") + (regexp-start . \"\\\\=\\<\\='*\") (regexp-body . \"\\\\w+?\") - (regexp-end . \"'*\\\\=\\>\") - (regexp-discard . \"\\\\`'+\\\\'\") + (regexp-end . \"\\='*\\\\=\\>\") + (regexp-discard . \"\\\\\\=`\\='+\\\\\\='\") (case-fold . nil) (read-or-skip-faces ((emacs-lisp-mode c-mode) read diff --git a/packages/web-server/web-server.el b/packages/web-server/web-server.el index 41ff18d40..1c0630479 100644 --- a/packages/web-server/web-server.el +++ b/packages/web-server/web-server.el @@ -106,9 +106,9 @@ function MATCH and the `ws-response-header' convenience function. (ws-start - '(((lambda (_) t) . + \\='(((lambda (_) t) . (lambda (proc request) - (ws-response-header proc 200 '(\"Content-type\" . \"text/plain\")) + (ws-response-header proc 200 \\='(\"Content-type\" . \"text/plain\")) (process-send-string proc \"hello world\") t))) 8080) @@ -562,7 +562,7 @@ supplied any subsequent data written to PROC using `ws-send' will be encoded appropriately including sending the appropriate data upon the end of transmission for chunked transfer encoding. -For example with the header `(\"Content-Encoding\" . \"gzip\")', +For example with the header (\"Content-Encoding\" . \"gzip\"), any data subsequently written to PROC using `ws-send' will be compressed using the command specified in `ws-gzip-cmd'." ;; update process to reflect any Content or Transfer encodings diff --git a/packages/websocket/websocket.el b/packages/websocket/websocket.el index 910386522..8db83c2e6 100644 --- a/packages/websocket/websocket.el +++ b/packages/websocket/websocket.el @@ -62,8 +62,8 @@ the additional helper APIs are not visible to the caller. A websocket struct is created with `websocket-open'. -`ready-state' contains one of 'connecting, 'open, or -'closed, depending on the state of the websocket. +`ready-state' contains one of `connecting', `open', or +`closed', depending on the state of the websocket. The W3C API \"bufferedAmount\" call is not currently implemented, since there is no elisp API to get the buffered amount from the @@ -610,7 +610,7 @@ the car of which is a string naming the extension, and the cdr of which is the list of parameter strings to use for that extension. The parameter strings are of the form \"key=value\" or \"value\". EXTENSIONS can be NIL if none are in use. An example value would -be '(\"deflate-stream\" . (\"mux\" \"max-channels=4\")). +be (\"deflate-stream\" . (\"mux\" \"max-channels=4\")). Cookies that are set via `url-cookie-store' will be used during communication with the server, and cookies received from the @@ -640,7 +640,7 @@ or `on-close', and the error as the third argument. Do NOT rethrow the error, or else you may miss some websocket messages. You similarly must not generate any other errors in this method. If you want to debug errors, set -`websocket-callback-debug-on-error' to `t', but this also can be +`websocket-callback-debug-on-error' to t, but this also can be dangerous is the debugger is quit out of. If not specified, `websocket-default-error-handler' is used. diff --git a/packages/wisi/wisi-compile.el b/packages/wisi/wisi-compile.el index b70a1aea4..5c788e784 100644 --- a/packages/wisi/wisi-compile.el +++ b/packages/wisi/wisi-compile.el @@ -21,7 +21,7 @@ ;; ;;; Commentary: -;; +;; ;;;; History: first experimental version Jan 2013 ;; @@ -144,18 +144,18 @@ sides; nonterm is the left hand side. ACTIONS is an array indexed by parser state, of alists indexed by terminal tokens. The value of each item in the alists is one of: -'error +`error' -'accept +`accept' integer - shift; gives new state -'(nonterm . index) - reduce by nonterm production index. +(nonterm . index) - reduce by nonterm production index. -'(integer (nonterm . index)) - a shift/reduce conflict -'((nonterm . index) (nonterm . index)) - a reduce/reduce conflict +(integer (nonterm . index)) - a shift/reduce conflict +((nonterm . index) (nonterm . index)) - a reduce/reduce conflict -The first item in the alist must have the key 'default (not a +The first item in the alist must have the key `default' (not a terminal token); it is used when no other item matches the current token. diff --git a/packages/wisi/wisi-parse.el b/packages/wisi/wisi-parse.el index b9da937d2..a16a81d72 100644 --- a/packages/wisi/wisi-parse.el +++ b/packages/wisi/wisi-parse.el @@ -269,20 +269,20 @@ point at which that max was spawned.") (defun wisi-parsers-active (parser-states active-count) "Return the type of parser cycle to execute. PARSER-STATES[*].active is the last action a parser took. If it -was 'shift, that parser used the input token, and should not be +was `shift', that parser used the input token, and should not be executed again until another input token is available, after all parsers have shifted the current token or terminated. Returns one of: -'accept : all PARSER-STATES have active set to nil or 'accept - +`accept' : all PARSER-STATES have active set to nil or `accept' - done parsing -'shift : all PARSER-STATES have active set to nil, 'accept, or -'shift - get a new token, execute 'shift parsers. +`shift' : all PARSER-STATES have active set to nil, `accept', or +`shift' - get a new token, execute `shift' parsers. -'reduce : some PARSER-STATES have active set to 'reduce - no new -token, execute 'reduce parsers." +`reduce' : some PARSER-STATES have active set to `reduce' - no new +token, execute `reduce' parsers." (let ((result nil) (i 0) (shift-count 0) @@ -336,7 +336,7 @@ token, execute 'reduce parsers." (defun wisi-parse-elim-identical (parser-states active-parser-count) "Check for parsers in PARSER-STATES that have reached identical states eliminate one. Return new ACTIVE-PARSER-COUNT. Assumes all parsers have active -nil, 'shift, or 'accept." +nil, `shift', or `accept'." ;; parser-states passed by reference; active-parser-count by copy ;; see test/ada_mode-slices.adb for example (dotimes (parser-i (1- (length parser-states))) diff --git a/packages/wisi/wisi.el b/packages/wisi/wisi.el index 0b29b3e49..bb49f655e 100644 --- a/packages/wisi/wisi.el +++ b/packages/wisi/wisi.el @@ -197,7 +197,7 @@ (defvar-local wisi-string-quote-escape-doubled nil "Non-nil if a string delimiter is escaped by doubling it (as in Ada).") (defvar-local wisi-string-quote-escape nil - "Cons '(delim . character) where 'character' escapes quotes in strings delimited by 'delim'.") + "Cons (delim . character) where `character' escapes quotes in strings delimited by `delim'.") (defvar-local wisi-string-single-term nil) ;; string delimited by single quotes (defvar-local wisi-symbol-term nil) (defvar-local wisi-number-term nil) @@ -787,7 +787,7 @@ PAIRS is a vector of the form [TOKEN-NUMBER CLASS TOKEN-NUMBER CLASS ...] where TOKEN-NUMBER is the (1 indexed) token number in the production, CLASS is the wisi class of that token. Use in a grammar action as: - (wisi-statement-action [1 'statement-start 7 'statement-end])" + (wisi-statement-action [1 \\='statement-start 7 \\='statement-end])" (save-excursion (let ((first-item t) first-keyword-mark diff --git a/packages/yasnippet/yasnippet.el b/packages/yasnippet/yasnippet.el index c89398016..9c741a621 100644 --- a/packages/yasnippet/yasnippet.el +++ b/packages/yasnippet/yasnippet.el @@ -239,7 +239,7 @@ nil. - To signal that the user quit the prompting process, you can signal `quit' with - (signal 'quit \"user quit!\")." + (signal \\='quit \"user quit!\")." :type '(repeat function) :group 'yasnippet) @@ -327,7 +327,7 @@ menu and the modes set in `yas--extra-modes' are listed. - If set to `full', every submenu is listed -- If set to `nil', hide the menu. +- If set to nil, hide the menu. Any other non-nil value, every submenu is listed." :type '(choice (const :tag "Full" full) @@ -377,7 +377,7 @@ Leave this set at nil (the default) to be able to trigger an expansion simply by placing the cursor after a valid tab trigger, using whichever commands. -Optionally, set this to something like '(self-insert-command) if +Optionally, set this to something like (self-insert-command) if you to wish restrict expansion to only happen when the last letter of the snippet tab trigger was typed immediately before the trigger key itself." @@ -437,7 +437,7 @@ is tried, unless a function element returned the symbol `again', in which case it is called again from the previous position and may once more reposition point. -For example, if `yas-key-syntaxes'' value is '(\"w\" \"w_\"), +For example, if `yas-key-syntaxes' has the value (\"w\" \"w_\"), trigger keys composed exclusively of \"word\"-syntax characters are looked for first. Failing that, longer keys composed of \"word\" or \"symbol\" syntax are looked for. Therefore, @@ -504,7 +504,7 @@ snippet expansion is attempted: * Otherwise, the snippet is not considered. - * If it evaluates to the symbol 'always, all snippets are + * If it evaluates to the symbol `always', all snippets are considered for expansion, regardless of any conditions. * If it evaluates to t or some other non-nil value @@ -516,14 +516,14 @@ snippet expansion is attempted: Here's an example preventing snippets from being expanded from inside comments, in `python-mode' only, with the exception of -snippets returning the symbol 'force-in-comment in their +snippets returning the symbol `force-in-comment' in their conditions. - (add-hook 'python-mode-hook + (add-hook \\='python-mode-hook (lambda () (setq yas-buffer-local-condition - '(if (python-in-string/comment) - '(require-snippet-condition . force-in-comment) + \\='(if (python-in-string/comment) + \\='(require-snippet-condition . force-in-comment) t)))) The default value is similar, it filters out potential snippet @@ -553,7 +553,7 @@ snippet itself contains a condition that returns the symbol (defconst yas--backquote-lisp-expression-regexp "`\\([^`]*\\)`" - "A regexp to recognize a \"`lisp-expression`\" expression." ) + "A regexp to recognize a \"\\=`lisp-expression\\=`\" expression." ) (defconst yas--transform-mirror-regexp "${\\(?:\\([0-9]+\\):\\)?$\\([ \t\n]*([^}]*\\)" @@ -2063,7 +2063,7 @@ MENU is a list, its elements can be: SUBMENU has the same form as MENU. NAME is also added to the list of groups of the snippets defined thereafter. -OMIT-ITEMS is a list of snippet uuid's that will always be +OMIT-ITEMS is a list of snippet uuids that will always be omitted from MODE's menu, even if they're manually loaded." (let* ((table (yas--table-get-create mode)) (hash (yas--table-uuidhash table))) @@ -4019,7 +4019,7 @@ With optional string TEXT do it in string instead of the buffer." changed-text)) (defun yas--save-backquotes () - "Save all the \"`(lisp-expression)`\"-style expressions + "Save all the \"\\=`(lisp-expression)\\=`\"-style expressions with their evaluated value into `yas--backquote-markers-and-strings'." (while (re-search-forward yas--backquote-lisp-expression-regexp nil t) (let ((current-string (match-string-no-properties 1)) transformed) diff --git a/packages/ztree/ztree-diff-model.el b/packages/ztree/ztree-diff-model.el index b4ad75fde..a9c99aefa 100644 --- a/packages/ztree/ztree-diff-model.el +++ b/packages/ztree/ztree-diff-model.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2013-2016 Free Software Foundation, Inc. ;; ;; Author: Alexey Veretennikov -;; +;; ;; Created: 2013-11-11 ;; ;; Keywords: files tools @@ -196,7 +196,7 @@ left and right parts existing." (defun ztree-diff-model-subtree (parent path side diff) "Create a subtree with given PARENT for the given PATH. -Argument SIDE either 'left or 'right side. +Argument SIDE either `left' or `right' side. Argument DIFF different status to be assigned to all created nodes." (let ((files (ztree-directory-files path)) (result nil)) @@ -236,7 +236,7 @@ Argument DIFF different status to be assigned to all created nodes." (defun ztree-diff-model-update-diff (old new) "Get the diff status depending if OLD or NEW is not nil. -If the OLD is 'ignore, do not change anything" +If the OLD is `ignore', do not change anything" ;; if the old whole directory is ignored, ignore children's status (cond ((eql old 'ignore) 'ignore) ;; if the new status is ignored, use old @@ -259,14 +259,14 @@ setting status from the NODE, unless they have an ignore status" ;; otherwise only update status when the child status is not ignore (mapc (lambda (child) (when (or (eql status 'ignore) - (not + (not (or (eql status 'ignore) (eql (ztree-diff-node-different child) 'ignore)))) (setf (ztree-diff-node-different child) status) (ztree-diff-node-update-diff-from-parent child))) children))) - - + + (defun ztree-diff-model-find-in-files (list shortname is-dir) "Find in LIST of files the file with name SHORTNAME. @@ -387,7 +387,7 @@ with dot etc)." (setf ztree-diff-model-ignore-fun ignore-p)) (defun ztree-diff-model-set-progress-fun (progess-fun) - (setf ztree-diff-model-progress-fun progess-fun)) + (setf ztree-diff-model-progress-fun progess-fun)) (provide 'ztree-diff-model) diff --git a/packages/ztree/ztree-diff.el b/packages/ztree/ztree-diff.el index ed3d5f936..cfd0c967c 100644 --- a/packages/ztree/ztree-diff.el +++ b/packages/ztree/ztree-diff.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2013-2016 Free Software Foundation, Inc. ;; ;; Author: Alexey Veretennikov -;; +;; ;; Created: 2013-11-11 ;; ;; Keywords: files tools @@ -33,7 +33,7 @@ (defconst ztree-diff-hidden-files-regexp "^\\." "Hidden files regexp. -By default all filest starting with dot '.', including . and ..") +By default all filest starting with dot `.', including . and ..") (defface ztreep-diff-header-face '((((type tty pc) (class color)) :foreground "lightblue" :weight bold) @@ -478,7 +478,7 @@ unless it is a parent node." (eql diff 'diff)) ;; or it is ignored but we show ignored for now (and (eql diff 'ignore) - ztree-diff-show-filtered-files) + ztree-diff-show-filtered-files) ;; or they are same but we show same for now (and (eql diff 'same) ztree-diff-show-equal-files)))) @@ -499,7 +499,7 @@ unless it is a parent node." (defun ztree-diff-update-wait-message (&optional msg) - "Update the wait mesage with one more '.' progress indication." + "Update the wait mesage with one more `.' progress indication." (if msg (setq ztree-diff-wait-message msg) (when ztree-diff-wait-message @@ -547,7 +547,7 @@ Argument DIR2 right directory." (ztree-diff-update-wait-message (concat "Comparing " dir1 " and " dir2 " ...")) (ztree-diff-node-recreate model) (message "Done.") - + (ztree-refresh-buffer))) diff --git a/packages/ztree/ztree-dir.el b/packages/ztree/ztree-dir.el index d3d3b25f0..53617f905 100644 --- a/packages/ztree/ztree-dir.el +++ b/packages/ztree/ztree-dir.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2013-2016 Free Software Foundation, Inc. ;; ;; Author: Alexey Veretennikov -;; +;; ;; Created: 2013-11-11 ;; ;; Keywords: files tools @@ -28,7 +28,7 @@ ;;; Commentary: ;; ;; Add the following to your .emacs file: -;; +;; ;; (push (substitute-in-file-name "path-to-ztree-directory") load-path) ;; (require 'ztree-dir) ;; @@ -53,11 +53,11 @@ (defconst ztree-hidden-files-regexp "^\\." "Hidden files regexp. -By default all filest starting with dot '.', including . and ..") +By default all filest starting with dot `.', including . and ..") ;; ;; Configurable variables -;; +;; (defvar ztree-dir-move-focus nil "If set to true moves the focus to opened window when the @@ -118,8 +118,8 @@ One could add own filters in the following way: "Determines if the file with FILENAME should be visible." (let ((name (ztree-file-short-name filename))) (and (not (or (string= name ".") (string= name ".."))) - (or - ztree-dir-show-filtered-files + (or + ztree-dir-show-filtered-files (not (cl-find-if (lambda (rx) (string-match rx name)) ztree-dir-filter-list)))))) @@ -133,7 +133,7 @@ Otherwise, the ztree window is used to find the file." (find-file-other-window node)) (hard (save-selected-window (find-file-other-window node))) - (t + (t (find-file node))))) diff --git a/packages/ztree/ztree-util.el b/packages/ztree/ztree-util.el index ec4945781..9f458d6a1 100644 --- a/packages/ztree/ztree-util.el +++ b/packages/ztree/ztree-util.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2013-2016 Free Software Foundation, Inc. ;; ;; Author: Alexey Veretennikov -;; +;; ;; Created: 2013-11-11 ;; ;; Keywords: files tools @@ -44,7 +44,7 @@ Taken from http://www.emacswiki.org/emacs/ElispCookbook#toc39" (defun ztree-printable-string (string) - "Strip newline character from file names, like 'Icon\n. + "Strip newline character from file names, like `Icon\n'. Argument STRING string to process.'." (replace-regexp-in-string "\n" "" string)) diff --git a/packages/ztree/ztree-view.el b/packages/ztree/ztree-view.el index 3244ccc09..f1a9afd4c 100644 --- a/packages/ztree/ztree-view.el +++ b/packages/ztree/ztree-view.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2013-2016 Free Software Foundation, Inc. ;; ;; Author: Alexey Veretennikov -;; +;; ;; Created: 2013-11-11 ;; ;; Keywords: files tools @@ -73,7 +73,7 @@ If ith value is i - it is the root line") Used in order to not to use cl package and `lexical-let'") (defvar-local ztree-line-tree-properties nil - "Hash with key - line number, value - property ('left, 'right, 'both). + "Hash with key - line number, value - property (`left', `right', `both'). Used for 2-side trees, to determine if the node exists on left or right or both sides") @@ -95,8 +95,8 @@ For example if the node is a directory") "Function returning list of node contents.") (defvar-local ztree-node-side-fun nil - "Function returning position of the node: 'left, 'right or 'both. -If not defined(by default) - using single screen tree, otherwise + "Function returning position of the node: `left', `right' or `both'. +If not defined (by default) - using single screen tree, otherwise the buffer is split to 2 trees") (defvar-local ztree-node-face-fun nil @@ -321,7 +321,7 @@ Argument NODE node which contents will be returned." #'(lambda (f) (not (funcall ztree-node-is-expandable-fun f))) nodes) comp)))) - + (defun ztree-draw-char (c x y &optional face) "Draw char C at the position (1-based) (X Y). @@ -352,7 +352,7 @@ It is just vertical bar when unicode disabled" (if ztree-draw-unicode-lines #x251C ?\|)) (defun ztree-draw-vertical-line (y1 y2 x &optional face) - "Draw a vertical line of '|' characters from Y1 row to Y2 in X column. + "Draw a vertical line of `|' characters from Y1 row to Y2 in X column. Optional argument FACE face to draw line with." (let ((ver-line-char (ztree-vertical-line-char)) (count (abs (- y1 y2)))) @@ -367,7 +367,7 @@ Optional argument FACE face to draw line with." (ztree-draw-char ver-line-char x (+ y1 count) face))))) (defun ztree-draw-vertical-rounded-line (y1 y2 x &optional face) - "Draw a vertical line of '|' characters finishing with '`' character. + "Draw a vertical line of `|' characters finishing with `\\=`' character. Draws the line from Y1 row to Y2 in X column. Optional argument FACE facet to draw the line with." (let ((ver-line-char (ztree-vertical-line-char)) @@ -558,7 +558,7 @@ and [-] or [+] depending on if it is EXPANDED from the specified OFFSET. Optional argument FACE face to write text with." (let ((node-sign #'(lambda (exp) (let ((sign (concat "[" (if exp "-" "+") "]"))) - (insert (propertize sign + (insert (propertize sign 'font-lock-face ztreep-expand-sign-face))))) ;; face to use. if FACE is not null, use it, otherwise -- 2.39.2