Commit 0e10b6fc authored by Paul Eggert's avatar Paul Eggert
Browse files

Spelling fixes (Bug#10068)

* lisp/gnus/gnus-score.el (gnus-score-find-favorite-words):
Rename from gnus-score-find-favourite-words.
* lisp/hfy-cmap.el (hfy-fallback-color-map)
(hfy-rgb-txt-color-map, hfy-fallback-color-values):
* lisp/htmlfontify.el (hfy-color-vals, hfy-color):
Rename from names that used 'colour' instead of 'color'.
parent bd6c1976
...@@ -19471,8 +19471,8 @@ score file and edit it. ...@@ -19471,8 +19471,8 @@ score file and edit it.
   
@item V w @item V w
@kindex V w @r{(Summary)} @kindex V w @r{(Summary)}
@findex gnus-score-find-favourite-words @findex gnus-score-find-favorite-words
List words used in scoring (@code{gnus-score-find-favourite-words}). List words used in scoring (@code{gnus-score-find-favorite-words}).
   
@item V R @item V R
@kindex V R @r{(Summary)} @kindex V R @r{(Summary)}
...@@ -142,6 +142,16 @@ This can be controlled by the new `ecomplete-sort-predicate' variable. ...@@ -142,6 +142,16 @@ This can be controlled by the new `ecomplete-sort-predicate' variable.
*** The 'ecompleterc' file is now placed in ~/.emacs.d/ecompleterc by default *** The 'ecompleterc' file is now placed in ~/.emacs.d/ecompleterc by default
Of course it will still find it if you have it in ~/.ecompleterc Of course it will still find it if you have it in ~/.ecompleterc
** Gnus
*** The function 'gnus-score-find-favorite-words' has been renamed
from 'gnus-score-find-favourite-words'.
** Htmlfontify
*** The functions 'hfy-color', 'hfy-color-vals' and
'hfy-fallback-color-values' and the variables 'hfy-fallback-color-map'
and 'hfy-rgb-txt-color-map' have been renamed from names that used
'colour' instead of 'color'.
** Smtpmail ** Smtpmail
Authentication mechanisms can be added via external packages, by Authentication mechanisms can be added via external packages, by
defining new cl-defmethod of smtpmail-try-auth-method. defining new cl-defmethod of smtpmail-try-auth-method.
......
...@@ -514,7 +514,7 @@ of the last successful match.") ...@@ -514,7 +514,7 @@ of the last successful match.")
"f" gnus-score-edit-file "f" gnus-score-edit-file
"F" gnus-score-flush-cache "F" gnus-score-flush-cache
"t" gnus-score-find-trace "t" gnus-score-find-trace
"w" gnus-score-find-favourite-words) "w" gnus-score-find-favorite-words)
;; Summary score file commands ;; Summary score file commands
...@@ -2517,7 +2517,7 @@ the score file and its full name, including the directory.") ...@@ -2517,7 +2517,7 @@ the score file and its full name, including the directory.")
(set-buffer gnus-summary-buffer) (set-buffer gnus-summary-buffer)
(setq gnus-newsgroup-scored old-scored))) (setq gnus-newsgroup-scored old-scored)))
(defun gnus-score-find-favourite-words () (defun gnus-score-find-favorite-words ()
"List words used in scoring." "List words used in scoring."
(interactive) (interactive)
(let ((alists (gnus-score-load-files (gnus-all-score-files))) (let ((alists (gnus-score-load-files (gnus-all-score-files)))
...@@ -2553,6 +2553,9 @@ the score file and its full name, including the directory.") ...@@ -2553,6 +2553,9 @@ the score file and its full name, including the directory.")
(pop rules)) (pop rules))
(goto-char (point-min)) (goto-char (point-min))
(gnus-configure-windows 'score-words)))) (gnus-configure-windows 'score-words))))
(define-obsolete-function-alias
'gnus-score-find-favourite-words
'gnus-score-find-favorite-words "27.1")
(defun gnus-summary-rescore () (defun gnus-summary-rescore ()
"Redo the entire scoring process in the current summary." "Redo the entire scoring process in the current summary."
......
...@@ -2370,7 +2370,7 @@ increase the score of each group you read." ...@@ -2370,7 +2370,7 @@ increase the score of each group you read."
["Edit current score file" gnus-score-edit-current-scores t] ["Edit current score file" gnus-score-edit-current-scores t]
["Edit score file..." gnus-score-edit-file t] ["Edit score file..." gnus-score-edit-file t]
["Trace score" gnus-score-find-trace t] ["Trace score" gnus-score-find-trace t]
["Find words" gnus-score-find-favourite-words t] ["Find words" gnus-score-find-favorite-words t]
["Rescore buffer" gnus-summary-rescore t] ["Rescore buffer" gnus-summary-rescore t]
["Increase score..." gnus-summary-increase-score t] ["Increase score..." gnus-summary-increase-score t]
["Lower score..." gnus-summary-lower-score t])))) ["Lower score..." gnus-summary-lower-score t]))))
......
;;; hfy-cmap.el --- Fallback colour name -> rgb mapping for `htmlfontify' ;;; hfy-cmap.el --- Fallback color name -> rgb mapping for `htmlfontify'
;; Copyright (C) 2002-2003, 2009-2018 Free Software Foundation, Inc. ;; Copyright (C) 2002-2003, 2009-2018 Free Software Foundation, Inc.
;; Emacs Lisp Archive Entry ;; Emacs Lisp Archive Entry
;; Package: htmlfontify ;; Package: htmlfontify
;; Filename: hfy-cmap.el ;; Filename: hfy-cmap.el
;; Keywords: colour, rgb ;; Keywords: color, rgb
;; Author: Vivek Dasmohapatra <vivek@etla.org> ;; Author: Vivek Dasmohapatra <vivek@etla.org>
;; Maintainer: Vivek Dasmohapatra <vivek@etla.org> ;; Maintainer: Vivek Dasmohapatra <vivek@etla.org>
;; Created: 2002-01-20 ;; Created: 2002-01-20
;; Description: fallback code for colour name -> rgb mapping ;; Description: fallback code for color name -> rgb mapping
;; URL: http://rtfm.etla.org/emacs/htmlfontify/ ;; URL: http://rtfm.etla.org/emacs/htmlfontify/
;; Last-Updated: Sat 2003-02-15 03:49:32 +0000 ;; Last-Updated: Sat 2003-02-15 03:49:32 +0000
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
;;; Code: ;;; Code:
(defconst hfy-fallback-colour-map (defconst hfy-fallback-color-map
'(("snow" 65535 64250 64250) '(("snow" 65535 64250 64250)
("ghost white" 63736 63736 65535) ("ghost white" 63736 63736 65535)
("GhostWhite" 63736 63736 65535) ("GhostWhite" 63736 63736 65535)
...@@ -785,8 +785,14 @@ ...@@ -785,8 +785,14 @@
("DarkRed" 35723 0 0) ("DarkRed" 35723 0 0)
("light green" 37008 61166 37008) ("light green" 37008 61166 37008)
("LightGreen" 37008 61166 37008)) ) ("LightGreen" 37008 61166 37008)) )
(define-obsolete-variable-alias
'hfy-fallback-colour-map
'hfy-fallback-color-map "27.1")
(defvar hfy-rgb-txt-colour-map nil) (defvar hfy-rgb-txt-color-map nil)
(define-obsolete-variable-alias
'hfy-rgb-txt-colour-map
'hfy-rgb-txt-color-map "27.1")
(defvar hfy-rgb-load-path (defvar hfy-rgb-load-path
(list "/etc/X11" (list "/etc/X11"
...@@ -806,8 +812,8 @@ ...@@ -806,8 +812,8 @@
(defun htmlfontify-load-rgb-file (&optional file) (defun htmlfontify-load-rgb-file (&optional file)
"Load an X11 style rgb.txt FILE. "Load an X11 style rgb.txt FILE.
Search `hfy-rgb-load-path' if FILE is not specified. Search `hfy-rgb-load-path' if FILE is not specified.
Loads the variable `hfy-rgb-txt-colour-map', which is used by Loads the variable `hfy-rgb-txt-color-map', which is used by
`hfy-fallback-colour-values'." `hfy-fallback-color-values'."
(interactive (interactive
(list (list
(read-file-name "rgb.txt (equivalent) file: " "" nil t (hfy-rgb-file)))) (read-file-name "rgb.txt (equivalent) file: " "" nil t (hfy-rgb-file))))
...@@ -822,25 +828,28 @@ Loads the variable `hfy-rgb-txt-colour-map', which is used by ...@@ -822,25 +828,28 @@ Loads the variable `hfy-rgb-txt-colour-map', which is used by
(htmlfontify-unload-rgb-file) (htmlfontify-unload-rgb-file)
(while (/= end-of-rgb 1) (while (/= end-of-rgb 1)
(if (looking-at hfy-rgb-regex) (if (looking-at hfy-rgb-regex)
(setq hfy-rgb-txt-colour-map (setq hfy-rgb-txt-color-map
(cons (list (match-string 4) (cons (list (match-string 4)
(string-to-number (match-string 1)) (string-to-number (match-string 1))
(string-to-number (match-string 2)) (string-to-number (match-string 2))
(string-to-number (match-string 3))) (string-to-number (match-string 3)))
hfy-rgb-txt-colour-map)) ) hfy-rgb-txt-color-map)) )
(setq end-of-rgb (forward-line))) (setq end-of-rgb (forward-line)))
(kill-buffer rgb-buffer))))) (kill-buffer rgb-buffer)))))
(defun htmlfontify-unload-rgb-file () (defun htmlfontify-unload-rgb-file ()
"Unload the current color name -> rgb translation map." "Unload the current color name -> rgb translation map."
(interactive) (interactive)
(setq hfy-rgb-txt-colour-map nil)) (setq hfy-rgb-txt-color-map nil))
;;;###autoload ;;;###autoload
(defun hfy-fallback-colour-values (colour-string) (defun hfy-fallback-color-values (color-string)
"Use a fallback method for obtaining the rgb values for a color." "Use a fallback method for obtaining the rgb values for a color."
(cdr (assoc-string colour-string (or hfy-rgb-txt-colour-map (cdr (assoc-string color-string (or hfy-rgb-txt-color-map
hfy-fallback-colour-map))) ) hfy-fallback-color-map))) )
(define-obsolete-function-alias
'hfy-fallback-colour-values
'hfy-fallback-color-values "27.1")
(provide 'hfy-cmap) (provide 'hfy-cmap)
......
...@@ -584,22 +584,23 @@ therefore no longer care about) will be invalid at any time.\n ...@@ -584,22 +584,23 @@ therefore no longer care about) will be invalid at any time.\n
(if (memq elt set-b) (setq interq (cons elt interq)))) (if (memq elt set-b) (setq interq (cons elt interq))))
interq)) interq))
(defun hfy-colour-vals (colour) (defun hfy-color-vals (color)
"Where COLOUR is a color name or #XXXXXX style triplet, return a "Where COLOR is a color name or #XXXXXX style triplet, return a
list of three (16 bit) rgb values for said color.\n list of three (16 bit) rgb values for said color.\n
If a window system is unavailable, calls `hfy-fallback-colour-values'." If a window system is unavailable, calls `hfy-fallback-color-values'."
(if (string-match hfy-triplet-regex colour) (if (string-match hfy-triplet-regex color)
(mapcar (mapcar
(lambda (x) (* (string-to-number (match-string x colour) 16) 257)) (lambda (x) (* (string-to-number (match-string x color) 16) 257))
'(1 2 3)) '(1 2 3))
;;(message ">> %s" colour) ;;(message ">> %s" color)
(if window-system (if window-system
(if (fboundp 'color-values) (if (fboundp 'color-values)
(color-values colour) (color-values color)
;;(message "[%S]" window-system) ;;(message "[%S]" window-system)
(x-color-values colour)) (x-color-values color))
;; blarg - tty colors are no good - go fetch some X colors: ;; blarg - tty colors are no good - go fetch some X colors:
(hfy-fallback-colour-values colour)))) (hfy-fallback-color-values color))))
(define-obsolete-function-alias 'hfy-colour-vals 'hfy-color-vals "27.1")
(defvar hfy-cperl-mode-kludged-p nil) (defvar hfy-cperl-mode-kludged-p nil)
...@@ -738,7 +739,7 @@ FILE is the name of the file being rendered, in case it is needed." ...@@ -738,7 +739,7 @@ FILE is the name of the file being rendered, in case it is needed."
"Replace the end of a CSS style declaration STYLE-STRING with the contents "Replace the end of a CSS style declaration STYLE-STRING with the contents
of the variable `hfy-src-doc-link-style', removing text matching the regex of the variable `hfy-src-doc-link-style', removing text matching the regex
`hfy-src-doc-link-unstyle' first, if necessary." `hfy-src-doc-link-unstyle' first, if necessary."
;;(message "hfy-colour-vals");;DBUG ;;(message "hfy-color-vals");;DBUG
(if (string-match hfy-src-doc-link-unstyle style-string) (if (string-match hfy-src-doc-link-unstyle style-string)
(setq style-string (replace-match "" 'fixed-case 'literal style-string))) (setq style-string (replace-match "" 'fixed-case 'literal style-string)))
(if (and (not (string-match hfy-src-doc-link-style style-string)) (if (and (not (string-match hfy-src-doc-link-style style-string))
...@@ -751,19 +752,19 @@ of the variable `hfy-src-doc-link-style', removing text matching the regex ...@@ -751,19 +752,19 @@ of the variable `hfy-src-doc-link-style', removing text matching the regex
;; utility functions - cast emacs style specification values into their ;; utility functions - cast emacs style specification values into their
;; css2 equivalents: ;; css2 equivalents:
(defun hfy-triplet (colour) (defun hfy-triplet (color)
"Takes a COLOUR name (string) and return a CSS rgb(R, G, B) triplet string. "Takes a COLOR name (string) and return a CSS rgb(R, G, B) triplet string.
Uses the definition of \"white\" to map the numbers to the 0-255 range, so Uses the definition of \"white\" to map the numbers to the 0-255 range, so
if you've redefined white, (esp. if you've redefined it to have a triplet if you've redefined white, (esp. if you've redefined it to have a triplet
member lower than that of the color you are processing) strange things member lower than that of the color you are processing) strange things
may happen." may happen."
;;(message "hfy-colour-vals");;DBUG ;;(message "hfy-color-vals");;DBUG
;; TODO? Can we do somehow do better than this? ;; TODO? Can we do somehow do better than this?
(cond (cond
((equal colour "unspecified-fg") (setq colour "black")) ((equal color "unspecified-fg") (setq color "black"))
((equal colour "unspecified-bg") (setq colour "white"))) ((equal color "unspecified-bg") (setq color "white")))
(let ((white (mapcar (lambda (I) (float (1+ I))) (hfy-colour-vals "white"))) (let ((white (mapcar (lambda (I) (float (1+ I))) (hfy-color-vals "white")))
(rgb16 (mapcar (lambda (I) (float (1+ I))) (hfy-colour-vals colour)))) (rgb16 (mapcar (lambda (I) (float (1+ I))) (hfy-color-vals color))))
(if rgb16 (if rgb16
;;(apply 'format "rgb(%d, %d, %d)" ;;(apply 'format "rgb(%d, %d, %d)"
;; Use #rrggbb instead, it is smaller ;; Use #rrggbb instead, it is smaller
...@@ -774,8 +775,9 @@ may happen." ...@@ -774,8 +775,9 @@ may happen."
'(0 1 2)))))) '(0 1 2))))))
(defun hfy-family (family) (list (cons "font-family" family))) (defun hfy-family (family) (list (cons "font-family" family)))
(defun hfy-bgcol (colour) (list (cons "background" (hfy-triplet colour)))) (defun hfy-bgcol (color) (list (cons "background" (hfy-triplet color))))
(defun hfy-colour (colour) (list (cons "color" (hfy-triplet colour)))) (defun hfy-color (color) (list (cons "color" (hfy-triplet color))))
(define-obsolete-function-alias 'hfy-colour 'hfy-color "27.1")
(defun hfy-width (width) (list (cons "font-stretch" (symbol-name width)))) (defun hfy-width (width) (list (cons "font-stretch" (symbol-name width))))
(defcustom hfy-font-zoom 1.05 (defcustom hfy-font-zoom 1.05
...@@ -825,17 +827,17 @@ regular specifiers." ...@@ -825,17 +827,17 @@ regular specifiers."
(let ((tag (car spec)) (let ((tag (car spec))
(val (cadr spec))) (val (cadr spec)))
(cons (cl-case tag (cons (cl-case tag
(:color (cons "colour" val)) (:color (cons "color" val))
(:width (cons "width" val)) (:width (cons "width" val))
(:style (cons "style" val))) (:style (cons "style" val)))
(hfy-box-to-border-assoc (cddr spec)))))) (hfy-box-to-border-assoc (cddr spec))))))
(defun hfy-box-to-style (spec) (defun hfy-box-to-style (spec)
(let* ((css (hfy-box-to-border-assoc spec)) (let* ((css (hfy-box-to-border-assoc spec))
(col (cdr (assoc "colour" css))) (col (cdr (assoc "color" css)))
(s (cdr (assoc "style" css)))) (s (cdr (assoc "style" css))))
(list (list
(if col (cons "border-color" (cdr (assoc "colour" css)))) (if col (cons "border-color" (cdr (assoc "color" css))))
(cons "border-width" (format "%dpx" (or (cdr (assoc "width" css)) 1))) (cons "border-width" (format "%dpx" (or (cdr (assoc "width" css)) 1)))
(cons "border-style" (cl-case s (cons "border-style" (cl-case s
(released-button "outset") (released-button "outset")
...@@ -1014,7 +1016,7 @@ merged by the user - `hfy-flatten-style' should do this." ...@@ -1014,7 +1016,7 @@ merged by the user - `hfy-flatten-style' should do this."
(:width (hfy-width val)) (:width (hfy-width val))
(:weight (hfy-weight val)) (:weight (hfy-weight val))
(:slant (hfy-slant val)) (:slant (hfy-slant val))
(:foreground (hfy-colour val)) (:foreground (hfy-color val))
(:background (hfy-bgcol val)) (:background (hfy-bgcol val))
(:box (hfy-box val)) (:box (hfy-box val))
(:height (hfy-size val)) (:height (hfy-size val))
......
...@@ -464,7 +464,7 @@ pass to the OPERATION." ...@@ -464,7 +464,7 @@ pass to the OPERATION."
(cond (cond
;; Support Android derived systems where "ls" command is provided ;; Support Android derived systems where "ls" command is provided
;; by GNU Coreutils. Force "ls" to print one column and set ;; by GNU Coreutils. Force "ls" to print one column and set
;; time-style to imitate other "ls" flavours. ;; time-style to imitate other "ls" flavors.
((tramp-adb-send-command-and-check ((tramp-adb-send-command-and-check
vec "ls --time-style=long-iso /dev/null") vec "ls --time-style=long-iso /dev/null")
"ls -1 --time-style=long-iso") "ls -1 --time-style=long-iso")
......
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