Commit dada060d authored by Juanma Barranquero's avatar Juanma Barranquero

lisp/*.el: Fix typos.

* lisp/align.el (align-regexp): Remove superfluous backslash.

* lisp/ffap.el (ffap-ftp-default-user, ffap-url-regexp)
  (ffap-pass-wildcards-to-dired, dired-at-point-require-prefix)
  (ffap-rfc-path, ffap-ftp-sans-slash-regexp, ffap-menu-regexp):
  Fix docstring typos.
  (ffap-next): Use C-u in docstring.
  (ffap-machine-p, ffap-list-env, ffap-alist, ffap-alist)
  (ffap-string-at-point-mode-alist, ffap-menu, ffap-menu-ask):
  Remove superfluous backslashes.
  (ffap-string-at-point): Reflow docstring.

* lisp/server.el (server-host): Reflow docstring.
  (server-unload-function): Fix docstring typo.
  (server-eval-at): Remove superfluous backslash.

* lisp/skeleton.el (skeleton-insert): Remove superfluous backslash.
  (skeleton-insert): Doc fix.
  (skeleton-insert): Reflow docstring.

* lisp/term/tty-colors.el (tty-color-alist, tty-modify-color-alist)
  (tty-color-approximate, tty-color-by-index, tty-color-values)
  (tty-color-desc): Remove superfluous backslashes.
parent 1271626a
2014-03-21 Juanma Barranquero <lekktu@gmail.com>
* align.el (align-regexp): Remove superfluous backslash.
* ffap.el (ffap-ftp-default-user, ffap-url-regexp)
(ffap-pass-wildcards-to-dired, dired-at-point-require-prefix)
(ffap-rfc-path, ffap-ftp-sans-slash-regexp, ffap-menu-regexp):
Fix docstring typos.
(ffap-next): Use C-u in docstring.
(ffap-machine-p, ffap-list-env, ffap-alist, ffap-alist)
(ffap-string-at-point-mode-alist, ffap-menu, ffap-menu-ask):
Remove superfluous backslashes.
(ffap-string-at-point): Reflow docstring.
* server.el (server-host): Reflow docstring.
(server-unload-function): Fix docstring typo.
(server-eval-at): Remove superfluous backslash.
* skeleton.el (skeleton-insert): Remove superfluous backslash.
(skeleton-insert): Doc fix.
(skeleton-insert): Reflow docstring.
* term/tty-colors.el (tty-color-alist, tty-modify-color-alist)
(tty-color-approximate, tty-color-by-index, tty-color-values)
(tty-color-desc): Remove superfluous backslashes.
2014-03-20 Stefan Monnier <monnier@iro.umontreal.ca> 2014-03-20 Stefan Monnier <monnier@iro.umontreal.ca>
* electric.el (electric-newline-and-maybe-indent): New command. * electric.el (electric-newline-and-maybe-indent): New command.
......
...@@ -937,7 +937,7 @@ throughout the line. ...@@ -937,7 +937,7 @@ throughout the line.
See `align-rules-list' for more information about these options. See `align-rules-list' for more information about these options.
The non-interactive form of the previous example would look something like: The non-interactive form of the previous example would look something like:
\(align-regexp (point-min) (point-max) \"\\\\(\\\\s-*\\\\)(\") (align-regexp (point-min) (point-max) \"\\\\(\\\\s-*\\\\)(\")
This function is a nothing more than a small wrapper that helps you This function is a nothing more than a small wrapper that helps you
construct a rule to pass to `align-region', which does the real work." construct a rule to pass to `align-region', which does the real work."
......
...@@ -164,9 +164,9 @@ schemes (e.g. \"ftp\"); in that case, only convert those URLs." ...@@ -164,9 +164,9 @@ schemes (e.g. \"ftp\"); in that case, only convert those URLs."
:version "24.3") :version "24.3")
(defcustom ffap-ftp-default-user "anonymous" (defcustom ffap-ftp-default-user "anonymous"
"User name in ftp file names generated by `ffap-host-to-path'. "User name in FTP file names generated by `ffap-host-to-path'.
Note this name may be omitted if it equals the default Note this name may be omitted if it equals the default
\(either `efs-default-user' or `ange-ftp-default-user'\)." \(either `efs-default-user' or `ange-ftp-default-user')."
:type 'string :type 'string
:group 'ffap) :group 'ffap)
...@@ -185,7 +185,7 @@ Note this name may be omitted if it equals the default ...@@ -185,7 +185,7 @@ Note this name may be omitted if it equals the default
"\\|" "\\|"
"\\(ftp\\|https?\\|telnet\\|gopher\\|www\\|wais\\)://" ; needs host "\\(ftp\\|https?\\|telnet\\|gopher\\|www\\|wais\\)://" ; needs host
"\\)") "\\)")
"Regexp matching the beginning of a URI, for FFAP. "Regexp matching the beginning of a URI, for ffap.
If the value is nil, disable URL-matching features in ffap.") If the value is nil, disable URL-matching features in ffap.")
(defcustom ffap-foo-at-bar-prefix "mailto" (defcustom ffap-foo-at-bar-prefix "mailto"
...@@ -228,7 +228,7 @@ it passes it on to `dired'." ...@@ -228,7 +228,7 @@ it passes it on to `dired'."
:group 'ffap) :group 'ffap)
(defcustom ffap-pass-wildcards-to-dired nil (defcustom ffap-pass-wildcards-to-dired nil
"If non-nil, pass filenames matching `ffap-dired-wildcards' to dired." "If non-nil, pass filenames matching `ffap-dired-wildcards' to Dired."
:type 'boolean :type 'boolean
:group 'ffap) :group 'ffap)
...@@ -291,8 +291,8 @@ For a fancy alternative, get `ffap-url.el'." ...@@ -291,8 +291,8 @@ For a fancy alternative, get `ffap-url.el'."
(defcustom dired-at-point-require-prefix nil (defcustom dired-at-point-require-prefix nil
"If non-nil, reverse the prefix argument to `dired-at-point'. "If non-nil, reverse the prefix argument to `dired-at-point'.
This is nil so neophytes notice FFAP. Experts may prefer to This is nil so neophytes notice ffap. Experts may prefer to
disable FFAP most of the time." disable ffap most of the time."
:type 'boolean :type 'boolean
:group 'ffap :group 'ffap
:version "20.3") :version "20.3")
...@@ -343,7 +343,7 @@ Only considers strings that match `ffap-next-regexp'." ...@@ -343,7 +343,7 @@ Only considers strings that match `ffap-next-regexp'."
"Search buffer for next file or URL, and run ffap. "Search buffer for next file or URL, and run ffap.
Optional argument BACK says to search backwards. Optional argument BACK says to search backwards.
Optional argument WRAP says to try wrapping around if necessary. Optional argument WRAP says to try wrapping around if necessary.
Interactively: use a single prefix to search backwards, Interactively: use a single prefix \\[universal-argument] to search backwards,
double prefix to wrap forward, triple to wrap backwards. double prefix to wrap forward, triple to wrap backwards.
Actual search is done by the function `ffap-next-guess'." Actual search is done by the function `ffap-next-guess'."
(interactive (interactive
...@@ -413,7 +413,7 @@ See `mail-extr.el' for the known domains." ...@@ -413,7 +413,7 @@ See `mail-extr.el' for the known domains."
Depending on the domain (none, known, or unknown), follow the strategy Depending on the domain (none, known, or unknown), follow the strategy
named by the variable `ffap-machine-p-local', `ffap-machine-p-known', named by the variable `ffap-machine-p-local', `ffap-machine-p-known',
or `ffap-machine-p-unknown'. Pinging uses `open-network-stream'. or `ffap-machine-p-unknown'. Pinging uses `open-network-stream'.
Optional SERVICE specifies the port used \(default \"discard\"\). Optional SERVICE specifies the port used (default \"discard\").
Optional QUIET flag suppresses the \"Pinging...\" message. Optional QUIET flag suppresses the \"Pinging...\" message.
Optional STRATEGY overrides the three variables above. Optional STRATEGY overrides the three variables above.
Returned values: Returned values:
...@@ -642,7 +642,7 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"." ...@@ -642,7 +642,7 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"."
(defun ffap-list-env (env &optional empty) (defun ffap-list-env (env &optional empty)
"Return a list of strings parsed from environment variable ENV. "Return a list of strings parsed from environment variable ENV.
Optional EMPTY is the default list if \(getenv ENV\) is undefined, and Optional EMPTY is the default list if (getenv ENV) is undefined, and
also is substituted for the first empty-string component, if there is one. also is substituted for the first empty-string component, if there is one.
Uses `path-separator' to separate the path into substrings." Uses `path-separator' to separate the path into substrings."
;; We cannot use parse-colon-path (files.el), since it kills ;; We cannot use parse-colon-path (files.el), since it kills
...@@ -787,12 +787,12 @@ This uses `ffap-file-exists-string', which may try adding suffixes from ...@@ -787,12 +787,12 @@ This uses `ffap-file-exists-string', which may try adding suffixes from
. ffap-rfc) ; "100% RFC2100 compliant" . ffap-rfc) ; "100% RFC2100 compliant"
(dired-mode . ffap-dired) ; maybe in a subdirectory (dired-mode . ffap-dired) ; maybe in a subdirectory
) )
"Alist of \(KEY . FUNCTION\) pairs parsed by `ffap-file-at-point'. "Alist of (KEY . FUNCTION) pairs parsed by `ffap-file-at-point'.
If string NAME at point (maybe \"\") is not a file or URL, these pairs If string NAME at point (maybe \"\") is not a file or URL, these pairs
specify actions to try creating such a string. A pair matches if either specify actions to try creating such a string. A pair matches if either
KEY is a symbol, and it equals `major-mode', or KEY is a symbol, and it equals `major-mode', or
KEY is a string, it should match NAME as a regexp. KEY is a string, it should match NAME as a regexp.
On a match, \(FUNCTION NAME\) is called and should return a file, an On a match, (FUNCTION NAME) is called and should return a file, an
URL, or nil. If nil, search the alist for further matches.") URL, or nil. If nil, search the alist for further matches.")
(put 'ffap-alist 'risky-local-variable t) (put 'ffap-alist 'risky-local-variable t)
...@@ -980,7 +980,7 @@ If t, `ffap-tex-init' will initialize this when needed.") ...@@ -980,7 +980,7 @@ If t, `ffap-tex-init' will initialize this when needed.")
(defcustom ffap-rfc-path (defcustom ffap-rfc-path
(concat (ffap-host-to-filename "ftp.rfc-editor.org") "/in-notes/rfc%s.txt") (concat (ffap-host-to-filename "ftp.rfc-editor.org") "/in-notes/rfc%s.txt")
"A `format' string making a filename for RFC documents. "A `format' string making a filename for RFC documents.
This can be an ange-ftp or tramp remote filename to download, or This can be an ange-ftp or Tramp remote filename to download, or
a local filename if you have full set of RFCs locally. See also a local filename if you have full set of RFCs locally. See also
`ffap-rfc-directories'." `ffap-rfc-directories'."
:type 'string :type 'string
...@@ -1018,8 +1018,8 @@ If a given RFC isn't in these then `ffap-rfc-path' is offered." ...@@ -1018,8 +1018,8 @@ If a given RFC isn't in these then `ffap-rfc-path' is offered."
;; Mathematica paths: allow backquotes ;; Mathematica paths: allow backquotes
(math-mode ",-:$+<>@-Z_[:lower:]~`" "<" "@>;.,!?`:") (math-mode ",-:$+<>@-Z_[:lower:]~`" "<" "@>;.,!?`:")
) )
"Alist of \(MODE CHARS BEG END\), where MODE is a symbol, "Alist of (MODE CHARS BEG END), where MODE is a symbol,
possibly a major-mode name, or one of the symbol possibly a major-mode name, or one of the symbols
`file', `url', `machine', and `nocolon'. `file', `url', `machine', and `nocolon'.
Function `ffap-string-at-point' uses the data fields as follows: Function `ffap-string-at-point' uses the data fields as follows:
1. find a maximal string of CHARS around point, 1. find a maximal string of CHARS around point,
...@@ -1032,8 +1032,8 @@ Function `ffap-string-at-point' uses the data fields as follows: ...@@ -1032,8 +1032,8 @@ Function `ffap-string-at-point' uses the data fields as follows:
(defun ffap-string-at-point (&optional mode) (defun ffap-string-at-point (&optional mode)
"Return a string of characters from around point. "Return a string of characters from around point.
MODE (defaults to value of `major-mode') is a symbol used to look up string MODE (defaults to value of `major-mode') is a symbol used to look up
syntax parameters in `ffap-string-at-point-mode-alist'. string syntax parameters in `ffap-string-at-point-mode-alist'.
If MODE is not found, we use `file' instead of MODE. If MODE is not found, we use `file' instead of MODE.
If the region is active, return a string from the region. If the region is active, return a string from the region.
Sets the variable `ffap-string-at-point' and the variable Sets the variable `ffap-string-at-point' and the variable
...@@ -1143,7 +1143,7 @@ The two subexpressions are the KEY and VALUE.") ...@@ -1143,7 +1143,7 @@ The two subexpressions are the KEY and VALUE.")
;; Icky regexp avoids: default: 123: foo::bar cs:pub ;; Icky regexp avoids: default: 123: foo::bar cs:pub
;; It does match on: mic@cs: cs:/pub mathcs.emory.edu: (point at end) ;; It does match on: mic@cs: cs:/pub mathcs.emory.edu: (point at end)
"\\`\\([^:@]+@[^:@]+:\\|[^@.:]+\\.[^@:]+:\\|[^:]+:[~/]\\)\\([^:]\\|\\'\\)") "\\`\\([^:@]+@[^:@]+:\\|[^@.:]+\\.[^@:]+:\\|[^:]+:[~/]\\)\\([^:]\\|\\'\\)")
"Strings matching this are coerced to ftp file names by ffap. "Strings matching this are coerced to FTP file names by ffap.
That is, ffap just prepends \"/\". Set to nil to disable.") That is, ffap just prepends \"/\". Set to nil to disable.")
(defun ffap-file-at-point () (defun ffap-file-at-point ()
...@@ -1445,7 +1445,7 @@ and the functions `ffap-file-at-point' and `ffap-url-at-point'." ...@@ -1445,7 +1445,7 @@ and the functions `ffap-file-at-point' and `ffap-url-at-point'."
(defcustom ffap-menu-regexp nil (defcustom ffap-menu-regexp nil
"If non-nil, regexp overriding `ffap-next-regexp' in `ffap-menu'. "If non-nil, regexp overriding `ffap-next-regexp' in `ffap-menu'.
Make this more restrictive for faster menu building. Make this more restrictive for faster menu building.
For example, try \":/\" for URL (and some ftp) references." For example, try \":/\" for URL (and some FTP) references."
:type '(choice (const nil) regexp) :type '(choice (const nil) regexp)
:group 'ffap) :group 'ffap)
...@@ -1465,7 +1465,7 @@ These properties may be used to fontify the menu references.") ...@@ -1465,7 +1465,7 @@ These properties may be used to fontify the menu references.")
"Put up a menu of files and URLs mentioned in this buffer. "Put up a menu of files and URLs mentioned in this buffer.
Then set mark, jump to choice, and try to fetch it. The menu is Then set mark, jump to choice, and try to fetch it. The menu is
cached in `ffap-menu-alist', and rebuilt by `ffap-menu-rescan'. cached in `ffap-menu-alist', and rebuilt by `ffap-menu-rescan'.
The optional RESCAN argument \(a prefix, interactively\) forces The optional RESCAN argument (a prefix, interactively) forces
a rebuild. Searches with `ffap-menu-regexp'." a rebuild. Searches with `ffap-menu-regexp'."
(interactive "P") (interactive "P")
;; (require 'imenu) -- no longer used, but roughly emulated ;; (require 'imenu) -- no longer used, but roughly emulated
...@@ -1498,7 +1498,7 @@ a rebuild. Searches with `ffap-menu-regexp'." ...@@ -1498,7 +1498,7 @@ a rebuild. Searches with `ffap-menu-regexp'."
(defun ffap-menu-ask (title alist cont) (defun ffap-menu-ask (title alist cont)
"Prompt from a menu of choices, and then apply some action. "Prompt from a menu of choices, and then apply some action.
Arguments are TITLE, ALIST, and CONT \(a continuation function\). Arguments are TITLE, ALIST, and CONT (a continuation function).
This uses either a menu or the minibuffer depending on invocation. This uses either a menu or the minibuffer depending on invocation.
The TITLE string is used as either the prompt or menu title. The TITLE string is used as either the prompt or menu title.
Each ALIST entry looks like (STRING . DATA) and defines one choice. Each ALIST entry looks like (STRING . DATA) and defines one choice.
......
...@@ -104,10 +104,10 @@ ...@@ -104,10 +104,10 @@
"The name or IP address to use as host address of the server process. "The name or IP address to use as host address of the server process.
If set, the server accepts remote connections; otherwise it is local. If set, the server accepts remote connections; otherwise it is local.
DO NOT give this a non-nil value unless you know what you are DO NOT give this a non-nil value unless you know what you are doing!
doing! On unsecured networks, accepting remote connections is On unsecured networks, accepting remote connections is very dangerous,
very dangerous, because server-client communication (including because server-client communication (including session authentication)
session authentication) is not encrypted." is not encrypted."
:group 'server :group 'server
:type '(choice :type '(choice
(string :tag "Name or IP address") (string :tag "Name or IP address")
...@@ -1634,7 +1634,7 @@ only these files will be asked to be saved." ...@@ -1634,7 +1634,7 @@ only these files will be asked to be saved."
(define-key ctl-x-map "#" 'server-edit) (define-key ctl-x-map "#" 'server-edit)
(defun server-unload-function () (defun server-unload-function ()
"Unload the server library." "Unload the Server library."
(server-mode -1) (server-mode -1)
(substitute-key-definition 'server-edit nil ctl-x-map) (substitute-key-definition 'server-edit nil ctl-x-map)
(save-current-buffer (save-current-buffer
...@@ -1648,7 +1648,7 @@ only these files will be asked to be saved." ...@@ -1648,7 +1648,7 @@ only these files will be asked to be saved."
"Contact the Emacs server named SERVER and evaluate FORM there. "Contact the Emacs server named SERVER and evaluate FORM there.
Returns the result of the evaluation, or signals an error if it Returns the result of the evaluation, or signals an error if it
cannot contact the specified server. For example: cannot contact the specified server. For example:
\(server-eval-at \"server\" '(emacs-pid)) (server-eval-at \"server\" '(emacs-pid))
returns the process ID of the Emacs instance running \"server\"." returns the process ID of the Emacs instance running \"server\"."
(let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir)) (let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir))
(server-file (expand-file-name server server-dir)) (server-file (expand-file-name server server-dir))
......
...@@ -183,7 +183,7 @@ of `str' whereas the skeleton's interactor is then ignored." ...@@ -183,7 +183,7 @@ of `str' whereas the skeleton's interactor is then ignored."
With optional second argument REGIONS, wrap first interesting point With optional second argument REGIONS, wrap first interesting point
\(`_') in skeleton around next REGIONS words, if REGIONS is positive. \(`_') in skeleton around next REGIONS words, if REGIONS is positive.
If REGIONS is negative, wrap REGIONS preceding interregions into first If REGIONS is negative, wrap REGIONS preceding interregions into first
REGIONS interesting positions \(successive `_'s) in skeleton. REGIONS interesting positions (successive `_'s) in skeleton.
An interregion is the stretch of text between two contiguous marked An interregion is the stretch of text between two contiguous marked
points. If you marked A B C [] (where [] is the cursor) in points. If you marked A B C [] (where [] is the cursor) in
...@@ -208,21 +208,21 @@ If ELEMENT is a string or a character it gets inserted (see also ...@@ -208,21 +208,21 @@ If ELEMENT is a string or a character it gets inserted (see also
@ add position to `skeleton-positions' @ add position to `skeleton-positions'
& do next ELEMENT if previous moved point & do next ELEMENT if previous moved point
| do next ELEMENT if previous didn't move point | do next ELEMENT if previous didn't move point
-num delete num preceding characters (see `skeleton-untabify') -NUM delete NUM preceding characters (see `skeleton-untabify')
resume: skipped, continue here if quit is signaled resume: skipped, continue here if quit is signaled
nil skipped nil skipped
After termination, point will be positioned at the last occurrence of - After termination, point will be positioned at the last occurrence of -
or at the first occurrence of _ or at the end of the inserted text. or at the first occurrence of _ or at the end of the inserted text.
Further elements can be defined via `skeleton-further-elements'. ELEMENT may Further elements can be defined via `skeleton-further-elements'.
itself be a SKELETON with an INTERACTOR. The user is prompted repeatedly for ELEMENT may itself be a SKELETON with an INTERACTOR. The user is prompted
different inputs. The SKELETON is processed as often as the user enters a repeatedly for different inputs. The SKELETON is processed as often as
non-empty string. \\[keyboard-quit] terminates skeleton insertion, but the user enters a non-empty string. \\[keyboard-quit] terminates skeleton insertion, but
continues after `resume:' and positions at `_' if any. If INTERACTOR in such continues after `resume:' and positions at `_' if any. If INTERACTOR in
a subskeleton is a prompt-string which contains a \".. %s ..\" it is such a subskeleton is a prompt-string which contains a \".. %s ..\" it is
formatted with `skeleton-subprompt'. Such an INTERACTOR may also be a list of formatted with `skeleton-subprompt'. Such an INTERACTOR may also be a list
strings with the subskeleton being repeated once for each string. of strings with the subskeleton being repeated once for each string.
Quoted Lisp expressions are evaluated for their side-effects. Quoted Lisp expressions are evaluated for their side-effects.
Other Lisp expressions are evaluated and the value treated as above. Other Lisp expressions are evaluated and the value treated as above.
......
...@@ -771,7 +771,7 @@ ...@@ -771,7 +771,7 @@
"Return an alist of colors supported by FRAME's terminal. "Return an alist of colors supported by FRAME's terminal.
FRAME defaults to the selected frame. FRAME defaults to the selected frame.
Each element of the returned alist is of the form: Each element of the returned alist is of the form:
\(NAME INDEX R G B\) (NAME INDEX R G B)
where NAME is the name of the color, a string; where NAME is the name of the color, a string;
INDEX is the index of this color to be sent to the terminal driver INDEX is the index of this color to be sent to the terminal driver
when the color should be displayed; it is typically a small integer; when the color should be displayed; it is typically a small integer;
...@@ -785,10 +785,10 @@ color." ...@@ -785,10 +785,10 @@ color."
(defun tty-modify-color-alist (elt &optional frame) (defun tty-modify-color-alist (elt &optional frame)
"Put the association ELT into the alist of terminal colors for FRAME. "Put the association ELT into the alist of terminal colors for FRAME.
ELT should be of the form \(NAME INDEX R G B\) (see `tty-color-alist' ELT should be of the form (NAME INDEX R G B) (see `tty-color-alist'
for details). for details).
If the association for NAME already exists in the color alist, it is If the association for NAME already exists in the color alist, it is
modified to specify \(INDEX R G B\) as its cdr. Otherwise, ELT is modified to specify (INDEX R G B) as its cdr. Otherwise, ELT is
appended to the end of the color alist. appended to the end of the color alist.
If FRAME is unspecified or nil, it defaults to the selected frame. If FRAME is unspecified or nil, it defaults to the selected frame.
Value is the modified color alist for FRAME." Value is the modified color alist for FRAME."
...@@ -856,7 +856,7 @@ of gray, thus the name." ...@@ -856,7 +856,7 @@ of gray, thus the name."
(defun tty-color-approximate (rgb &optional frame) (defun tty-color-approximate (rgb &optional frame)
"Find the color in `tty-color-alist' that best approximates RGB. "Find the color in `tty-color-alist' that best approximates RGB.
Value is a list of the form \(NAME INDEX R G B\). Value is a list of the form (NAME INDEX R G B).
The argument RGB should be an rgb value, that is, a list of three The argument RGB should be an rgb value, that is, a list of three
integers in the 0..65535 range. integers in the 0..65535 range.
FRAME defaults to the selected frame." FRAME defaults to the selected frame."
...@@ -981,7 +981,7 @@ If FRAME is unspecified or nil, it defaults to the selected frame." ...@@ -981,7 +981,7 @@ If FRAME is unspecified or nil, it defaults to the selected frame."
"Given a numeric index of a tty color, return its description. "Given a numeric index of a tty color, return its description.
FRAME, if unspecified or nil, defaults to the selected frame. FRAME, if unspecified or nil, defaults to the selected frame.
Value is a list of the form \(NAME INDEX R G B\)." Value is a list of the form (NAME INDEX R G B)."
(and idx (and idx
(let ((colors (tty-color-alist frame)) (let ((colors (tty-color-alist frame))
desc found) desc found)
...@@ -997,14 +997,14 @@ Value is a list of the form \(NAME INDEX R G B\)." ...@@ -997,14 +997,14 @@ Value is a list of the form \(NAME INDEX R G B\)."
If COLOR is not directly supported by the display, return the RGB If COLOR is not directly supported by the display, return the RGB
values for a supported color that is its best approximation. values for a supported color that is its best approximation.
The value is a list of integer RGB values--\(RED GREEN BLUE\). The value is a list of integer RGB values--(RED GREEN BLUE).
These values range from 0 to 65535; white is (65535 65535 65535). These values range from 0 to 65535; white is (65535 65535 65535).
If FRAME is omitted or nil, use the selected frame." If FRAME is omitted or nil, use the selected frame."
(cddr (tty-color-desc color frame))) (cddr (tty-color-desc color frame)))
(defun tty-color-desc (color &optional frame) (defun tty-color-desc (color &optional frame)
"Return the description of the color COLOR for a character terminal. "Return the description of the color COLOR for a character terminal.
Value is a list of the form \(NAME INDEX R G B\). The returned NAME or Value is a list of the form (NAME INDEX R G B). The returned NAME or
RGB value may not be the same as the argument COLOR, because the latter RGB value may not be the same as the argument COLOR, because the latter
might need to be approximated if it is not supported directly." might need to be approximated if it is not supported directly."
(and (stringp color) (and (stringp color)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment