Commit b9c0e3e8 authored by Noam Postavsky's avatar Noam Postavsky
Browse files

* lisp/net/rcirc.el: Remove redundant :group usage

... and empty Todo comment section.
parent d101e877
...@@ -39,8 +39,6 @@ ...@@ -39,8 +39,6 @@
;; Open a new irc connection with: ;; Open a new irc connection with:
;; M-x irc RET ;; M-x irc RET
;;; Todo:
;;; Code: ;;; Code:
(require 'cl-lib) (require 'cl-lib)
...@@ -119,35 +117,29 @@ display purposes. If absent, the real server name will be displayed instead." ...@@ -119,35 +117,29 @@ display purposes. If absent, the real server name will be displayed instead."
(:channels (repeat string)) (:channels (repeat string))
(:encryption (choice (const tls) (:encryption (choice (const tls)
(const plain))) (const plain)))
(:server-alias string)))) (:server-alias string)))))
:group 'rcirc)
(defcustom rcirc-default-port 6667 (defcustom rcirc-default-port 6667
"The default port to connect to." "The default port to connect to."
:type 'integer :type 'integer)
:group 'rcirc)
(defcustom rcirc-default-nick (user-login-name) (defcustom rcirc-default-nick (user-login-name)
"Your nick." "Your nick."
:type 'string :type 'string)
:group 'rcirc)
(defcustom rcirc-default-user-name "user" (defcustom rcirc-default-user-name "user"
"Your user name sent to the server when connecting." "Your user name sent to the server when connecting."
:version "24.1" ; changed default :version "24.1" ; changed default
:type 'string :type 'string)
:group 'rcirc)
(defcustom rcirc-default-full-name "unknown" (defcustom rcirc-default-full-name "unknown"
"The full name sent to the server when connecting." "The full name sent to the server when connecting."
:version "24.1" ; changed default :version "24.1" ; changed default
:type 'string :type 'string)
:group 'rcirc)
(defcustom rcirc-fill-flag t (defcustom rcirc-fill-flag t
"Non-nil means line-wrap messages printed in channel buffers." "Non-nil means line-wrap messages printed in channel buffers."
:type 'boolean :type 'boolean)
:group 'rcirc)
(defcustom rcirc-fill-column nil (defcustom rcirc-fill-column nil
"Column beyond which automatic line-wrapping should happen. "Column beyond which automatic line-wrapping should happen.
...@@ -157,24 +149,21 @@ call it to compute the number of columns." ...@@ -157,24 +149,21 @@ call it to compute the number of columns."
:risky t ; can get funcalled :risky t ; can get funcalled
:type '(choice (const :tag "Value of `fill-column'" nil) :type '(choice (const :tag "Value of `fill-column'" nil)
(integer :tag "Number of columns") (integer :tag "Number of columns")
(function :tag "Function returning the number of columns")) (function :tag "Function returning the number of columns")))
:group 'rcirc)
(defcustom rcirc-fill-prefix nil (defcustom rcirc-fill-prefix nil
"Text to insert before filled lines. "Text to insert before filled lines.
If nil, calculate the prefix dynamically to line up text If nil, calculate the prefix dynamically to line up text
underneath each nick." underneath each nick."
:type '(choice (const :tag "Dynamic" nil) :type '(choice (const :tag "Dynamic" nil)
(string :tag "Prefix text")) (string :tag "Prefix text")))
:group 'rcirc)
(defcustom rcirc-url-max-length nil (defcustom rcirc-url-max-length nil
"Maximum number of characters in displayed URLs. "Maximum number of characters in displayed URLs.
If nil, no maximum is applied." If nil, no maximum is applied."
:version "27.1" :version "27.1"
:type '(choice (const :tag "No maximum" nil) :type '(choice (const :tag "No maximum" nil)
(integer :tag "Number of characters")) (integer :tag "Number of characters")))
:group 'rcirc)
(defvar rcirc-ignore-buffer-activity-flag nil (defvar rcirc-ignore-buffer-activity-flag nil
"If non-nil, ignore activity in this buffer.") "If non-nil, ignore activity in this buffer.")
...@@ -187,8 +176,7 @@ If nil, no maximum is applied." ...@@ -187,8 +176,7 @@ If nil, no maximum is applied."
(defcustom rcirc-omit-responses (defcustom rcirc-omit-responses
'("JOIN" "PART" "QUIT" "NICK") '("JOIN" "PART" "QUIT" "NICK")
"Responses which will be hidden when `rcirc-omit-mode' is enabled." "Responses which will be hidden when `rcirc-omit-mode' is enabled."
:type '(repeat string) :type '(repeat string))
:group 'rcirc)
(defvar rcirc-prompt-start-marker nil) (defvar rcirc-prompt-start-marker nil)
...@@ -211,32 +199,27 @@ Uninteresting lines are those whose responses are listed in ...@@ -211,32 +199,27 @@ Uninteresting lines are those whose responses are listed in
(defcustom rcirc-time-format "%H:%M " (defcustom rcirc-time-format "%H:%M "
"Describes how timestamps are printed. "Describes how timestamps are printed.
Used as the first arg to `format-time-string'." Used as the first arg to `format-time-string'."
:type 'string :type 'string)
:group 'rcirc)
(defcustom rcirc-input-ring-size 1024 (defcustom rcirc-input-ring-size 1024
"Size of input history ring." "Size of input history ring."
:type 'integer :type 'integer)
:group 'rcirc)
(defcustom rcirc-read-only-flag t (defcustom rcirc-read-only-flag t
"Non-nil means make text in IRC buffers read-only." "Non-nil means make text in IRC buffers read-only."
:type 'boolean :type 'boolean)
:group 'rcirc)
(defcustom rcirc-buffer-maximum-lines nil (defcustom rcirc-buffer-maximum-lines nil
"The maximum size in lines for rcirc buffers. "The maximum size in lines for rcirc buffers.
Channel buffers are truncated from the top to be no greater than this Channel buffers are truncated from the top to be no greater than this
number. If zero or nil, no truncating is done." number. If zero or nil, no truncating is done."
:type '(choice (const :tag "No truncation" nil) :type '(choice (const :tag "No truncation" nil)
(integer :tag "Number of lines")) (integer :tag "Number of lines")))
:group 'rcirc)
(defcustom rcirc-scroll-show-maximum-output t (defcustom rcirc-scroll-show-maximum-output t
"If non-nil, scroll buffer to keep the point at the bottom of "If non-nil, scroll buffer to keep the point at the bottom of
the window." the window."
:type 'boolean :type 'boolean)
:group 'rcirc)
(defcustom rcirc-authinfo nil (defcustom rcirc-authinfo nil
"List of authentication passwords. "List of authentication passwords.
...@@ -275,21 +258,18 @@ Examples: ...@@ -275,21 +258,18 @@ Examples:
(list :tag "QuakeNet" (list :tag "QuakeNet"
(const quakenet) (const quakenet)
(string :tag "Account") (string :tag "Account")
(string :tag "Password")))) (string :tag "Password")))))
:group 'rcirc)
(defcustom rcirc-auto-authenticate-flag t (defcustom rcirc-auto-authenticate-flag t
"Non-nil means automatically send authentication string to server. "Non-nil means automatically send authentication string to server.
See also `rcirc-authinfo'." See also `rcirc-authinfo'."
:type 'boolean :type 'boolean)
:group 'rcirc)
(defcustom rcirc-authenticate-before-join t (defcustom rcirc-authenticate-before-join t
"Non-nil means authenticate to services before joining channels. "Non-nil means authenticate to services before joining channels.
Currently only works with NickServ on some networks." Currently only works with NickServ on some networks."
:version "24.1" :version "24.1"
:type 'boolean :type 'boolean)
:group 'rcirc)
(defcustom rcirc-prompt "> " (defcustom rcirc-prompt "> "
"Prompt string to use in IRC buffers. "Prompt string to use in IRC buffers.
...@@ -303,19 +283,16 @@ Setting this alone will not affect the prompt; ...@@ -303,19 +283,16 @@ Setting this alone will not affect the prompt;
use either M-x customize or also call `rcirc-update-prompt'." use either M-x customize or also call `rcirc-update-prompt'."
:type 'string :type 'string
:set 'rcirc-set-changed :set 'rcirc-set-changed
:initialize 'custom-initialize-default :initialize 'custom-initialize-default)
:group 'rcirc)
(defcustom rcirc-keywords nil (defcustom rcirc-keywords nil
"List of keywords to highlight in message text." "List of keywords to highlight in message text."
:type '(repeat string) :type '(repeat string))
:group 'rcirc)
(defcustom rcirc-ignore-list () (defcustom rcirc-ignore-list ()
"List of ignored nicks. "List of ignored nicks.
Use /ignore to list them, use /ignore NICK to add or remove a nick." Use /ignore to list them, use /ignore NICK to add or remove a nick."
:type '(repeat string) :type '(repeat string))
:group 'rcirc)
(defvar rcirc-ignore-list-automatic () (defvar rcirc-ignore-list-automatic ()
"List of ignored nicks added to `rcirc-ignore-list' because of renaming. "List of ignored nicks added to `rcirc-ignore-list' because of renaming.
...@@ -326,42 +303,36 @@ parts.") ...@@ -326,42 +303,36 @@ parts.")
(defcustom rcirc-bright-nicks nil (defcustom rcirc-bright-nicks nil
"List of nicks to be emphasized. "List of nicks to be emphasized.
See `rcirc-bright-nick' face." See `rcirc-bright-nick' face."
:type '(repeat string) :type '(repeat string))
:group 'rcirc)
(defcustom rcirc-dim-nicks nil (defcustom rcirc-dim-nicks nil
"List of nicks to be deemphasized. "List of nicks to be deemphasized.
See `rcirc-dim-nick' face." See `rcirc-dim-nick' face."
:type '(repeat string) :type '(repeat string))
:group 'rcirc)
(define-obsolete-variable-alias 'rcirc-print-hooks (define-obsolete-variable-alias 'rcirc-print-hooks
'rcirc-print-functions "24.3") 'rcirc-print-functions "24.3")
(defcustom rcirc-print-functions nil (defcustom rcirc-print-functions nil
"Hook run after text is printed. "Hook run after text is printed.
Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT." Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT."
:type 'hook :type 'hook)
:group 'rcirc)
(defvar rcirc-authenticated-hook nil (defvar rcirc-authenticated-hook nil
"Hook run after successfully authenticated.") "Hook run after successfully authenticated.")
(defcustom rcirc-always-use-server-buffer-flag nil (defcustom rcirc-always-use-server-buffer-flag nil
"Non-nil means messages without a channel target will go to the server buffer." "Non-nil means messages without a channel target will go to the server buffer."
:type 'boolean :type 'boolean)
:group 'rcirc)
(defcustom rcirc-decode-coding-system 'utf-8 (defcustom rcirc-decode-coding-system 'utf-8
"Coding system used to decode incoming irc messages. "Coding system used to decode incoming irc messages.
Set to `undecided' if you want the encoding of the incoming Set to `undecided' if you want the encoding of the incoming
messages autodetected." messages autodetected."
:type 'coding-system :type 'coding-system)
:group 'rcirc)
(defcustom rcirc-encode-coding-system 'utf-8 (defcustom rcirc-encode-coding-system 'utf-8
"Coding system used to encode outgoing irc messages." "Coding system used to encode outgoing irc messages."
:type 'coding-system :type 'coding-system)
:group 'rcirc)
(defcustom rcirc-coding-system-alist nil (defcustom rcirc-coding-system-alist nil
"Alist to decide a coding system to use for a channel I/O operation. "Alist to decide a coding system to use for a channel I/O operation.
...@@ -380,13 +351,11 @@ and the cdr part is used for encoding." ...@@ -380,13 +351,11 @@ and the cdr part is used for encoding."
(string :tag "Server Regexp"))) (string :tag "Server Regexp")))
:value-type (choice coding-system :value-type (choice coding-system
(cons (coding-system :tag "Decode") (cons (coding-system :tag "Decode")
(coding-system :tag "Encode")))) (coding-system :tag "Encode")))))
:group 'rcirc)
(defcustom rcirc-multiline-major-mode 'fundamental-mode (defcustom rcirc-multiline-major-mode 'fundamental-mode
"Major-mode function to use in multiline edit buffers." "Major-mode function to use in multiline edit buffers."
:type 'function :type 'function)
:group 'rcirc)
(defcustom rcirc-nick-completion-format "%s: " (defcustom rcirc-nick-completion-format "%s: "
"Format string to use in nick completions. "Format string to use in nick completions.
...@@ -395,16 +364,14 @@ The format string is only used when completing at the beginning ...@@ -395,16 +364,14 @@ The format string is only used when completing at the beginning
of a line. The string is passed as the first argument to of a line. The string is passed as the first argument to
`format' with the nickname as the second argument." `format' with the nickname as the second argument."
:version "24.1" :version "24.1"
:type 'string :type 'string)
:group 'rcirc)
(defcustom rcirc-kill-channel-buffers nil (defcustom rcirc-kill-channel-buffers nil
"When non-nil, kill channel buffers when the server buffer is killed. "When non-nil, kill channel buffers when the server buffer is killed.
Only the channel buffers associated with the server in question Only the channel buffers associated with the server in question
will be killed." will be killed."
:version "24.3" :version "24.3"
:type 'boolean :type 'boolean)
:group 'rcirc)
(defvar rcirc-nick nil) (defvar rcirc-nick nil)
...@@ -708,8 +675,7 @@ Functions are called with PROCESS and SENTINEL arguments.") ...@@ -708,8 +675,7 @@ Functions are called with PROCESS and SENTINEL arguments.")
"The minimum interval in seconds between reconnect attempts. "The minimum interval in seconds between reconnect attempts.
When 0, do not auto-reconnect." When 0, do not auto-reconnect."
:version "25.1" :version "25.1"
:type 'integer :type 'integer)
:group 'rcirc)
(defvar rcirc-last-connect-time nil (defvar rcirc-last-connect-time nil
"The last time the buffer was connected.") "The last time the buffer was connected.")
...@@ -1176,14 +1142,12 @@ If ALL is non-nil, update prompts in all IRC buffers." ...@@ -1176,14 +1142,12 @@ If ALL is non-nil, update prompts in all IRC buffers."
(defcustom rcirc-log-directory "~/.emacs.d/rcirc-log" (defcustom rcirc-log-directory "~/.emacs.d/rcirc-log"
"Directory to keep IRC logfiles." "Directory to keep IRC logfiles."
:type 'directory :type 'directory)
:group 'rcirc)
(defcustom rcirc-log-flag nil (defcustom rcirc-log-flag nil
"Non-nil means log IRC activity to disk. "Non-nil means log IRC activity to disk.
Logfiles are kept in `rcirc-log-directory'." Logfiles are kept in `rcirc-log-directory'."
:type 'boolean :type 'boolean)
:group 'rcirc)
(defun rcirc-kill-buffer-hook () (defun rcirc-kill-buffer-hook ()
"Part the channel when killing an rcirc buffer. "Part the channel when killing an rcirc buffer.
...@@ -1372,7 +1336,6 @@ Create the buffer if it doesn't exist." ...@@ -1372,7 +1336,6 @@ Create the buffer if it doesn't exist."
:lighter " rcirc-mline" :lighter " rcirc-mline"
:keymap rcirc-multiline-minor-mode-map :keymap rcirc-multiline-minor-mode-map
:global nil :global nil
:group 'rcirc
(setq fill-column rcirc-max-message-length)) (setq fill-column rcirc-max-message-length))
(defun rcirc-multiline-minor-submit () (defun rcirc-multiline-minor-submit ()
...@@ -1434,8 +1397,7 @@ the of the following escape sequences replaced by the described values: ...@@ -1434,8 +1397,7 @@ the of the following escape sequences replaced by the described values:
%% A literal `%' character" %% A literal `%' character"
:type '(alist :key-type (choice (string :tag "Type") :type '(alist :key-type (choice (string :tag "Type")
(const :tag "Default" t)) (const :tag "Default" t))
:value-type string) :value-type string))
:group 'rcirc)
(defun rcirc-format-response-string (process sender response target text) (defun rcirc-format-response-string (process sender response target text)
"Return a nicely-formatted response string, incorporating TEXT "Return a nicely-formatted response string, incorporating TEXT
...@@ -1517,12 +1479,10 @@ is found by looking up RESPONSE in `rcirc-response-formats'." ...@@ -1517,12 +1479,10 @@ is found by looking up RESPONSE in `rcirc-response-formats'."
(defcustom rcirc-omit-threshold 100 (defcustom rcirc-omit-threshold 100
"Number of lines since last activity from a nick before `rcirc-omit-responses' are omitted." "Number of lines since last activity from a nick before `rcirc-omit-responses' are omitted."
:type 'integer :type 'integer)
:group 'rcirc)
(defcustom rcirc-log-process-buffers nil (defcustom rcirc-log-process-buffers nil
"Non-nil if rcirc process buffers should be logged to disk." "Non-nil if rcirc process buffers should be logged to disk."
:group 'rcirc
:type 'boolean :type 'boolean
:version "24.1") :version "24.1")
...@@ -1715,7 +1675,6 @@ is put into `rcirc-log-directory'. ...@@ -1715,7 +1675,6 @@ is put into `rcirc-log-directory'.
The filename is then cleaned using `convert-standard-filename' to The filename is then cleaned using `convert-standard-filename' to
guarantee valid filenames for the current OS." guarantee valid filenames for the current OS."
:group 'rcirc
:type 'function) :type 'function)
(defun rcirc-log (process sender response target text) (defun rcirc-log (process sender response target text)
...@@ -1883,7 +1842,6 @@ This function does not alter the INPUT string." ...@@ -1883,7 +1842,6 @@ This function does not alter the INPUT string."
:lighter "" :lighter ""
:keymap rcirc-track-minor-mode-map :keymap rcirc-track-minor-mode-map
:global t :global t
:group 'rcirc
(or global-mode-string (setq global-mode-string '(""))) (or global-mode-string (setq global-mode-string '("")))
;; toggle the mode-line channel indicator ;; toggle the mode-line channel indicator
(if rcirc-track-minor-mode (if rcirc-track-minor-mode
...@@ -2971,8 +2929,7 @@ Passwords are stored in `rcirc-authinfo' (which see)." ...@@ -2971,8 +2929,7 @@ Passwords are stored in `rcirc-authinfo' (which see)."
(((class color) (min-colors 16) (background dark)) :foreground "LightSkyBlue") (((class color) (min-colors 16) (background dark)) :foreground "LightSkyBlue")
(((class color) (min-colors 8)) :foreground "blue" :weight bold) (((class color) (min-colors 8)) :foreground "blue" :weight bold)
(t :inverse-video t :weight bold)) (t :inverse-video t :weight bold))
"Rcirc face for my messages." "Rcirc face for my messages.")
:group 'rcirc-faces)
(defface rcirc-other-nick ; font-lock-variable-name-face (defface rcirc-other-nick ; font-lock-variable-name-face
'((((class grayscale) (background light)) '((((class grayscale) (background light))
...@@ -2985,8 +2942,7 @@ Passwords are stored in `rcirc-authinfo' (which see)." ...@@ -2985,8 +2942,7 @@ Passwords are stored in `rcirc-authinfo' (which see)."
(((class color) (min-colors 16) (background dark)) :foreground "LightGoldenrod") (((class color) (min-colors 16) (background dark)) :foreground "LightGoldenrod")
(((class color) (min-colors 8)) :foreground "yellow" :weight light) (((class color) (min-colors 8)) :foreground "yellow" :weight light)
(t :weight bold :slant italic)) (t :weight bold :slant italic))
"Rcirc face for other users' messages." "Rcirc face for other users' messages.")
:group 'rcirc-faces)
(defface rcirc-bright-nick (defface rcirc-bright-nick
'((((class grayscale) (background light)) '((((class grayscale) (background light))
...@@ -2999,13 +2955,11 @@ Passwords are stored in `rcirc-authinfo' (which see)." ...@@ -2999,13 +2955,11 @@ Passwords are stored in `rcirc-authinfo' (which see)."
(((class color) (min-colors 16) (background dark)) :foreground "Aquamarine") (((class color) (min-colors 16) (background dark)) :foreground "Aquamarine")
(((class color) (min-colors 8)) :foreground "magenta") (((class color) (min-colors 8)) :foreground "magenta")
(t :weight bold :underline t)) (t :weight bold :underline t))
"Rcirc face for nicks matched by `rcirc-bright-nicks'." "Rcirc face for nicks matched by `rcirc-bright-nicks'.")
:group 'rcirc-faces)
(defface rcirc-dim-nick (defface rcirc-dim-nick
'((t :inherit default)) '((t :inherit default))
"Rcirc face for nicks in `rcirc-dim-nicks'." "Rcirc face for nicks in `rcirc-dim-nicks'.")
:group 'rcirc-faces)
(defface rcirc-server ; font-lock-comment-face (defface rcirc-server ; font-lock-comment-face
'((((class grayscale) (background light)) '((((class grayscale) (background light))
...@@ -3023,8 +2977,7 @@ Passwords are stored in `rcirc-authinfo' (which see)." ...@@ -3023,8 +2977,7 @@ Passwords are stored in `rcirc-authinfo' (which see)."
(((class color) (min-colors 8) (background light))) (((class color) (min-colors 8) (background light)))
(((class color) (min-colors 8) (background dark))) (((class color) (min-colors 8) (background dark)))
(t :weight bold :slant italic)) (t :weight bold :slant italic))
"Rcirc face for server messages." "Rcirc face for server messages.")
:group 'rcirc-faces)
(defface rcirc-server-prefix ; font-lock-comment-delimiter-face (defface rcirc-server-prefix ; font-lock-comment-delimiter-face
'((default :inherit rcirc-server) '((default :inherit rcirc-server)
...@@ -3034,13 +2987,11 @@ Passwords are stored in `rcirc-authinfo' (which see)." ...@@ -3034,13 +2987,11 @@ Passwords are stored in `rcirc-authinfo' (which see)."
:foreground "red") :foreground "red")
(((class color) (min-colors 8) (background dark)) (((class color) (min-colors 8) (background dark))
:foreground "red1")) :foreground "red1"))
"Rcirc face for server prefixes." "Rcirc face for server prefixes.")
:group 'rcirc-faces)
(defface rcirc-timestamp (defface rcirc-timestamp
'((t :inherit default)) '((t :inherit default))
"Rcirc face for timestamps." "Rcirc face for timestamps.")
:group 'rcirc-faces)
(defface rcirc-nick-in-message ; font-lock-keyword-face (defface rcirc-nick-in-message ; font-lock-keyword-face
'((((class grayscale) (background light)) :foreground "LightGray" :weight bold) '((((class grayscale) (background light)) :foreground "LightGray" :weight bold)
...@@ -3051,37 +3002,30 @@ Passwords are stored in `rcirc-authinfo' (which see)." ...@@ -3051,37 +3002,30 @@ Passwords are stored in `rcirc-authinfo' (which see)."
(((class color) (min-colors 16) (background dark)) :foreground "Cyan") (((class color) (min-colors 16) (background dark)) :foreground "Cyan")
(((class color) (min-colors 8)) :foreground "cyan" :weight bold) (((class color) (min-colors 8)) :foreground "cyan" :weight bold)
(t :weight bold)) (t :weight bold))
"Rcirc face for instances of your nick within messages." "Rcirc face for instances of your nick within messages.")
:group 'rcirc-faces)
(defface rcirc-nick-in-message-full-line '((t :weight bold)) (defface rcirc-nick-in-message-full-line '((t :weight bold))
"Rcirc face for emphasizing the entire message when your nick is mentioned." "Rcirc face for emphasizing the entire message when your nick is mentioned.")
:group 'rcirc-faces)
(defface rcirc-prompt ; comint-highlight-prompt (defface rcirc-prompt ; comint-highlight-prompt
'((((min-colors 88) (background dark)) :foreground "cyan1") '((((min-colors 88) (background dark)) :foreground "cyan1")
(((background dark)) :foreground "cyan") (((background dark)) :foreground "cyan")
(t :foreground "dark blue")) (t :foreground "dark blue"))
"Rcirc face for prompts." "Rcirc face for prompts.")
:group 'rcirc-faces)
(defface rcirc-track-nick (defface rcirc-track-nick
'((((type tty)) :inherit default) '((((type tty)) :inherit default)
(t :inverse-video t)) (t :inverse-video t))
"Rcirc face used in the mode-line when your nick is mentioned." "Rcirc face used in the mode-line when your nick is mentioned.")
:group 'rcirc-faces)
(defface rcirc-track-keyword '((t :weight bold)) (defface rcirc-track-keyword '((t :weight bold))
"Rcirc face used in the mode-line when keywords are mentioned." "Rcirc face used in the mode-line when keywords are mentioned.")
:group 'rcirc-faces)
(defface rcirc-url '((t :weight bold)) (defface rcirc-url '((t :weight bold))
"Rcirc face used to highlight urls." "Rcirc face used to highlight urls.")
:group 'rcirc-faces)
(defface rcirc-keyword '((t :inherit highlight)) (defface rcirc-keyword '((t :inherit highlight))
"Rcirc face used to highlight keywords." "Rcirc face used to highlight keywords.")
:group 'rcirc-faces)
;; When using M-x flyspell-mode, only check words after the prompt ;; When using M-x flyspell-mode, only check words after the prompt
......
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