* bug#10048: uniquify -> uniquify, for more-consistent function names
@ 2011-11-14 21:45 Paul Eggert
2011-12-31 6:38 ` Paul Eggert
` (2 more replies)
0 siblings, 3 replies; 4+ messages in thread
From: Paul Eggert @ 2011-11-14 21:45 UTC (permalink / raw)
To: 10048
Package: emacs
Version: 24.0.91
Severity: minor
Tags: patch
Although Emacs normally uses the spelling "uniquify" for functions
like uniquify-buffer-file-name, there are two exceptions. It's better
if Emacs uses a consistent spelling. Also, in the wider
English-speaking world "uniquify" is the more-common spelling, so
using that spelling will help reduce confusion a bit.
Here's a proposed patch. Since this changes the API it would have to
wait until after Emacs 24.1 comes out.
=== modified file 'lisp/ChangeLog'
--- lisp/ChangeLog 2011-11-14 20:23:26 +0000
+++ lisp/ChangeLog 2011-11-14 20:46:44 +0000
@@ -1,3 +1,12 @@
+2011-11-14 Paul Eggert <eggert@cs.ucla.edu>
+
+ uniqify -> uniquify, since that spelling is more common,
+ both within Emacs and in English-language sources in general.
+ * eshell/esh-util.el (eshell-uniquify-list): Rename from
+ eshell-uniqify-list. All callers changed.
+ * pcomplete.el (pcomplete-uniquify-list): Rename from
+ pcomplete-uniqify-list. All callers changed.
+
2011-11-14 Glenn Morris <rgm@gnu.org>
* progmodes/executable.el
=== modified file 'lisp/eshell/em-cmpl.el'
--- lisp/eshell/em-cmpl.el 2011-03-05 04:11:05 +0000
+++ lisp/eshell/em-cmpl.el 2011-11-14 20:38:57 +0000
@@ -427,7 +427,7 @@
(setq comps-in-path (cdr comps-in-path)))
(setq paths (cdr paths)))
;; Add aliases which are currently visible, and Lisp functions.
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(if glob-name
completions
(setq completions
=== modified file 'lisp/eshell/em-dirs.el'
--- lisp/eshell/em-dirs.el 2011-03-05 04:11:05 +0000
+++ lisp/eshell/em-dirs.el 2011-11-14 20:38:26 +0000
@@ -279,7 +279,7 @@
(defvar pcomplete-stub)
(defvar pcomplete-last-completion-raw)
(declare-function pcomplete-actual-arg "pcomplete")
-(declare-function pcomplete-uniqify-list "pcomplete")
+(declare-function pcomplete-uniquify-list "pcomplete")
(defun eshell-complete-user-reference ()
"If there is a user reference, complete it."
@@ -290,7 +290,7 @@
(throw 'pcomplete-completions
(progn
(eshell-read-user-names)
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(mapcar
(function
(lambda (user)
=== modified file 'lisp/eshell/em-pred.el'
--- lisp/eshell/em-pred.el 2011-05-23 17:57:17 +0000
+++ lisp/eshell/em-pred.el 2011-11-14 20:38:19 +0000
@@ -127,7 +127,7 @@
(?e . #'(lambda (lst) (mapcar 'file-name-extension lst)))
(?t . #'(lambda (lst) (mapcar 'file-name-nondirectory lst)))
(?q . #'(lambda (lst) (mapcar 'eshell-escape-arg lst)))
- (?u . #'(lambda (lst) (eshell-uniqify-list lst)))
+ (?u . #'(lambda (lst) (eshell-uniquify-list lst)))
(?o . #'(lambda (lst) (sort lst 'string-lessp)))
(?O . #'(lambda (lst) (nreverse (sort lst 'string-lessp))))
(?j . (eshell-join-members))
=== modified file 'lisp/eshell/esh-util.el'
--- lisp/eshell/esh-util.el 2011-03-10 07:16:04 +0000
+++ lisp/eshell/esh-util.el 2011-11-14 20:39:17 +0000
@@ -296,7 +296,7 @@
(nconc new-list (list a))))
(cdr new-list)))
-(defun eshell-uniqify-list (l)
+(defun eshell-uniquify-list (l)
"Remove occurring multiples in L. You probably want to sort first."
(let ((m l))
(while m
=== modified file 'lisp/org/org-pcomplete.el'
--- lisp/org/org-pcomplete.el 2011-08-16 07:13:02 +0000
+++ lisp/org/org-pcomplete.el 2011-11-14 20:36:26 +0000
@@ -139,7 +139,7 @@
(concat x " ")
x))
(delq nil
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(append
(mapcar (lambda (x)
(if (string-match "^#\\+\\([A-Z_]+:?\\)" x)
@@ -147,12 +147,12 @@
(org-split-string (org-get-current-options) "\n"))
org-additional-option-like-keywords)))))
(substring pcomplete-stub 2)))
-
+
(defvar org-startup-options)
(defun pcomplete/org-mode/file-option/startup ()
"Complete arguments for the #+STARTUP file option."
(while (pcomplete-here
- (let ((opts (pcomplete-uniqify-list
+ (let ((opts (pcomplete-uniquify-list
(mapcar 'car org-startup-options))))
;; Some options are mutually exclusive, and shouldn't be completed
;; against if certain other options have already been seen.
@@ -174,7 +174,7 @@
(defun pcomplete/org-mode/link ()
"Complete against defined #+LINK patterns."
(pcomplete-here
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(copy-sequence
(append (mapcar 'car org-link-abbrev-alist-local)
(mapcar 'car org-link-abbrev-alist))))))
@@ -184,13 +184,13 @@
"Complete against TeX-style HTML entity names."
(require 'org-entities)
(while (pcomplete-here
- (pcomplete-uniqify-list (remove nil (mapcar 'car-safe org-entities)))
+ (pcomplete-uniquify-list (remove nil (mapcar 'car-safe org-entities)))
(substring pcomplete-stub 1))))
(defvar org-todo-keywords-1)
(defun pcomplete/org-mode/todo ()
"Complete against known TODO keywords."
- (pcomplete-here (pcomplete-uniqify-list (copy-sequence org-todo-keywords-1))))
+ (pcomplete-here (pcomplete-uniquify-list (copy-sequence org-todo-keywords-1))))
(defvar org-todo-line-regexp)
(defun pcomplete/org-mode/searchhead ()
@@ -205,7 +205,7 @@
(push (org-make-org-heading-search-string
(match-string-no-properties 3) t)
tbl))
- (pcomplete-uniqify-list tbl)))
+ (pcomplete-uniquify-list tbl)))
(substring pcomplete-stub 1))))
(defvar org-tag-alist)
@@ -214,7 +214,7 @@
(while (pcomplete-here
(mapcar (lambda (x)
(concat x ":"))
- (let ((lst (pcomplete-uniqify-list
+ (let ((lst (pcomplete-uniquify-list
(or (remove
nil
(mapcar (lambda (x)
@@ -232,7 +232,7 @@
(pcomplete-here
(mapcar (lambda (x)
(concat x ": "))
- (let ((lst (pcomplete-uniqify-list
+ (let ((lst (pcomplete-uniquify-list
(copy-sequence
(org-buffer-property-keys nil t t)))))
(dolist (prop (org-entry-properties))
=== modified file 'lisp/pcmpl-cvs.el'
--- lisp/pcmpl-cvs.el 2011-09-29 07:21:06 +0000
+++ lisp/pcmpl-cvs.el 2011-11-14 20:36:41 +0000
@@ -122,7 +122,7 @@
(let (cmds)
(while (re-search-forward "^\\s-+\\([a-z]+\\)" nil t)
(setq cmds (cons (match-string 1) cmds)))
- (pcomplete-uniqify-list cmds))))
+ (pcomplete-uniquify-list cmds))))
(defun pcmpl-cvs-modules ()
"Return a list of available modules under CVS."
@@ -132,7 +132,7 @@
(let (entries)
(while (re-search-forward "\\(\\S-+\\)$" nil t)
(setq entries (cons (match-string 1) entries)))
- (pcomplete-uniqify-list entries))))
+ (pcomplete-uniquify-list entries))))
(defun pcmpl-cvs-tags (&optional opers)
"Return all the tags which could apply to the files related to OPERS."
@@ -149,7 +149,7 @@
(error "Error in output from `cvs status -v'"))
(setq tags (cons (match-string 1) tags))
(forward-line))))
- (pcomplete-uniqify-list tags)))
+ (pcomplete-uniquify-list tags)))
(defun pcmpl-cvs-entries (&optional opers)
"Return the Entries for the current directory.
@@ -186,6 +186,6 @@
(setq entries (cons text entries))))
(forward-line))))
(setq pcomplete-stub nondir)
- (pcomplete-uniqify-list entries)))
+ (pcomplete-uniquify-list entries)))
;;; pcmpl-cvs.el ends here
=== modified file 'lisp/pcmpl-gnu.el'
--- lisp/pcmpl-gnu.el 2011-10-02 01:04:01 +0000
+++ lisp/pcmpl-gnu.el 2011-11-14 20:35:53 +0000
@@ -120,7 +120,7 @@
(while (re-search-forward
(concat "^\\s-*\\([^\n#%.$][^:=\n]*\\)\\s-*:[^=]") nil t)
(setq rules (append (split-string (match-string 1)) rules))))
- (pcomplete-uniqify-list rules))))
+ (pcomplete-uniquify-list rules))))
(defcustom pcmpl-gnu-tarfile-regexp
"\\.t\\(ar\\(\\.\\(gz\\|bz2\\|Z\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'"
=== modified file 'lisp/pcmpl-linux.el'
--- lisp/pcmpl-linux.el 2011-07-04 20:08:02 +0000
+++ lisp/pcmpl-linux.el 2011-11-14 20:38:50 +0000
@@ -42,7 +42,7 @@
"Completion for GNU/Linux `kill', using /proc filesystem."
(if (pcomplete-match "^-\\(.*\\)" 0)
(pcomplete-here
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(split-string
(pcomplete-process-result "kill" "-l")))
(pcomplete-match-string 1 0)))
@@ -81,7 +81,7 @@
(args (split-string line " ")))
(setq points (cons (nth 1 args) points)))
(forward-line)))
- (pcomplete-uniqify-list points))))
+ (pcomplete-uniquify-list points))))
(defun pcomplete-pare-list (l r)
"Destructively remove from list L all elements matching any in list R.
@@ -108,7 +108,7 @@
(setq points (cons (nth 1 args) points)))
(forward-line)))
(pcomplete-pare-list
- (pcomplete-uniqify-list points)
+ (pcomplete-uniquify-list points)
(cons "swap" (pcmpl-linux-mounted-directories))))))
;;; pcmpl-linux.el ends here
=== modified file 'lisp/pcmpl-rpm.el'
--- lisp/pcmpl-rpm.el 2011-06-15 18:40:00 +0000
+++ lisp/pcmpl-rpm.el 2011-11-14 20:38:57 +0000
@@ -41,7 +41,7 @@
(pcomplete-process-result
"rpm" "-q" (car pkgs) flag)))
(setq pkgs (cdr pkgs)))
- (pcomplete-uniqify-list (cdr provs))))
+ (pcomplete-uniquify-list (cdr provs))))
(defsubst pcmpl-rpm-files ()
(pcomplete-dirs-or-entries "\\.rpm\\'"))
=== modified file 'lisp/pcmpl-unix.el'
--- lisp/pcmpl-unix.el 2011-10-14 18:39:16 +0000
+++ lisp/pcmpl-unix.el 2011-11-14 20:38:42 +0000
@@ -111,7 +111,7 @@
(point))) ":")))
(setq names (cons (nth 0 fields) names)))
(forward-line))))
- (pcomplete-uniqify-list names)))
+ (pcomplete-uniquify-list names)))
(defsubst pcmpl-unix-group-names ()
"Read the contents of /etc/group for group names."
=== modified file 'lisp/pcomplete.el'
--- lisp/pcomplete.el 2011-10-03 16:49:56 +0000
+++ lisp/pcomplete.el 2011-11-14 20:39:26 +0000
@@ -999,7 +999,7 @@
(function
(lambda (opt)
(concat "-" opt)))
- (pcomplete-uniqify-list choices))))
+ (pcomplete-uniquify-list choices))))
(let ((arg (pcomplete-arg)))
(when (and (> (length arg) 1)
(stringp arg)
@@ -1318,7 +1318,7 @@
;; general utilities
-(defun pcomplete-uniqify-list (l)
+(defun pcomplete-uniquify-list (l)
"Sort and remove multiples in L."
(setq l (sort l 'string-lessp))
(let ((m l))
^ permalink raw reply [flat|nested] 4+ messages in thread
* bug#10048: uniquify -> uniquify, for more-consistent function names
2011-11-14 21:45 bug#10048: uniquify -> uniquify, for more-consistent function names Paul Eggert
@ 2011-12-31 6:38 ` Paul Eggert
2016-02-25 6:35 ` Lars Ingebrigtsen
2018-03-05 2:03 ` Paul Eggert
2 siblings, 0 replies; 4+ messages in thread
From: Paul Eggert @ 2011-12-31 6:38 UTC (permalink / raw)
To: 10048
Adding to my 2011-11-14 patch in the light of the comments at
<http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10150#23>,
here is a patch to NEWS that documents the proposed change.
This patch assumes the "Renamed functions" section introduced in
<http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10150#29>.
=== modified file 'etc/NEWS'
--- etc/NEWS 2011-12-31 06:07:08 +0000
+++ etc/NEWS 2011-12-31 06:32:31 +0000
@@ -30,10 +30,14 @@
*** Renamed functions
+**** eshell-uniqify-list ->
+ eshell-uniquify-list
**** hangul-input-method-inactivate ->
hangul-input-method-deactivate
**** inactivate-input-method ->
deactivate-input-method
+**** pcomplete-uniqify-list ->
+ pcomplete-uniquify-list
**** quail-inactivate ->
quail-deactivate
**** robin-inactivate ->
^ permalink raw reply [flat|nested] 4+ messages in thread
* bug#10048: uniquify -> uniquify, for more-consistent function names
2011-11-14 21:45 bug#10048: uniquify -> uniquify, for more-consistent function names Paul Eggert
2011-12-31 6:38 ` Paul Eggert
@ 2016-02-25 6:35 ` Lars Ingebrigtsen
2018-03-05 2:03 ` Paul Eggert
2 siblings, 0 replies; 4+ messages in thread
From: Lars Ingebrigtsen @ 2016-02-25 6:35 UTC (permalink / raw)
To: Paul Eggert; +Cc: 10048
Paul Eggert <eggert@cs.ucla.edu> writes:
> Although Emacs normally uses the spelling "uniquify" for functions
> like uniquify-buffer-file-name, there are two exceptions. It's better
> if Emacs uses a consistent spelling. Also, in the wider
> English-speaking world "uniquify" is the more-common spelling, so
> using that spelling will help reduce confusion a bit.
>
> Here's a proposed patch. Since this changes the API it would have to
> wait until after Emacs 24.1 comes out.
I think this sounds like a good change to make now...
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no
^ permalink raw reply [flat|nested] 4+ messages in thread
* bug#10048: uniquify -> uniquify, for more-consistent function names
2011-11-14 21:45 bug#10048: uniquify -> uniquify, for more-consistent function names Paul Eggert
2011-12-31 6:38 ` Paul Eggert
2016-02-25 6:35 ` Lars Ingebrigtsen
@ 2018-03-05 2:03 ` Paul Eggert
2 siblings, 0 replies; 4+ messages in thread
From: Paul Eggert @ 2018-03-05 2:03 UTC (permalink / raw)
To: 10048-done
[-- Attachment #1: Type: text/plain, Size: 61 bytes --]
I installed the attached and am closing this old bug report.
[-- Attachment #2: 0001-uniqify-uniquify.patch --]
[-- Type: text/x-patch, Size: 12449 bytes --]
From 2ce98e571762c2277781f6e795721915eb383a1c Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 4 Mar 2018 17:53:07 -0800
Subject: [PATCH] uniqify -> uniquify
The latter spelling is more common both within Emacs and in
English-language sources in general (Bug#10048).
* lisp/eshell/esh-util.el (eshell-uniquify-list):
Rename from eshell-uniqify-list. All callers changed.
* lisp/pcomplete.el (pcomplete-uniquify-list):
Rename from pcomplete-uniqify-list. All callers changed.
---
etc/NEWS | 7 +++++++
lisp/eshell/em-cmpl.el | 2 +-
lisp/eshell/em-dirs.el | 4 ++--
lisp/eshell/em-pred.el | 2 +-
lisp/eshell/esh-util.el | 5 ++++-
lisp/org/org-pcomplete.el | 20 ++++++++++----------
lisp/pcmpl-cvs.el | 8 ++++----
lisp/pcmpl-gnu.el | 2 +-
lisp/pcmpl-linux.el | 6 +++---
lisp/pcmpl-rpm.el | 2 +-
lisp/pcmpl-unix.el | 2 +-
lisp/pcomplete.el | 7 +++++--
12 files changed, 40 insertions(+), 27 deletions(-)
diff --git a/etc/NEWS b/etc/NEWS
index c998ad6..07f6d04 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -259,6 +259,13 @@ To restore the old behavior, use
(add-hook 'eshell-expand-input-functions
#'eshell-expand-history-references)
+*** The function 'shell-uniquify-list' has been renamed from
+'eshell-uniqify-list'.
+
+** Pcomplete
+*** The function 'pcomplete-uniquify-list' has been renamed from
+'pcomplete-uniqify-list'.
+
** Tramp
+++
diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el
index 1f44007..667bdeb 100644
--- a/lisp/eshell/em-cmpl.el
+++ b/lisp/eshell/em-cmpl.el
@@ -434,7 +434,7 @@ eshell-complete-commands-list
(setq comps-in-path (cdr comps-in-path)))
(setq paths (cdr paths)))
;; Add aliases which are currently visible, and Lisp functions.
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(if glob-name
completions
(setq completions
diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el
index 34bf821..ec380e6 100644
--- a/lisp/eshell/em-dirs.el
+++ b/lisp/eshell/em-dirs.el
@@ -282,7 +282,7 @@ eshell-parse-drive-letter
(defvar pcomplete-stub)
(defvar pcomplete-last-completion-raw)
(declare-function pcomplete-actual-arg "pcomplete")
-(declare-function pcomplete-uniqify-list "pcomplete")
+(declare-function pcomplete-uniquify-list "pcomplete")
(defun eshell-complete-user-reference ()
"If there is a user reference, complete it."
@@ -293,7 +293,7 @@ eshell-complete-user-reference
(throw 'pcomplete-completions
(progn
(eshell-read-user-names)
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(mapcar
(function
(lambda (user)
diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el
index 61af404..b3b16d9 100644
--- a/lisp/eshell/em-pred.el
+++ b/lisp/eshell/em-pred.el
@@ -131,7 +131,7 @@ eshell-modifier-alist
(?e . #'(lambda (lst) (mapcar 'file-name-extension lst)))
(?t . #'(lambda (lst) (mapcar 'file-name-nondirectory lst)))
(?q . #'(lambda (lst) (mapcar 'eshell-escape-arg lst)))
- (?u . #'(lambda (lst) (eshell-uniqify-list lst)))
+ (?u . #'(lambda (lst) (eshell-uniquify-list lst)))
(?o . #'(lambda (lst) (sort lst 'string-lessp)))
(?O . #'(lambda (lst) (nreverse (sort lst 'string-lessp))))
(?j . (eshell-join-members))
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el
index 5d38c27..5ef1ae4 100644
--- a/lisp/eshell/esh-util.el
+++ b/lisp/eshell/esh-util.el
@@ -295,7 +295,7 @@ eshell-flatten-list
(nconc new-list (list a))))
(cdr new-list)))
-(defun eshell-uniqify-list (l)
+(defun eshell-uniquify-list (l)
"Remove occurring multiples in L. You probably want to sort first."
(let ((m l))
(while m
@@ -305,6 +305,9 @@ eshell-uniqify-list
(setcdr m (cddr m)))
(setq m (cdr m))))
l)
+(define-obsolete-function-alias
+ 'eshell-uniqify-list
+ 'eshell-uniquify-list "27.1")
(defun eshell-stringify (object)
"Convert OBJECT into a string value."
diff --git a/lisp/org/org-pcomplete.el b/lisp/org/org-pcomplete.el
index a7cc09d..1acb615 100644
--- a/lisp/org/org-pcomplete.el
+++ b/lisp/org/org-pcomplete.el
@@ -194,7 +194,7 @@ pcomplete/org-mode/file-option/language
"Complete arguments for the #+LANGUAGE file option."
(require 'ox)
(pcomplete-here
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(list org-export-default-language "en"))))
(defvar org-default-priority)
@@ -219,7 +219,7 @@ org-startup-options
(defun pcomplete/org-mode/file-option/startup ()
"Complete arguments for the #+STARTUP file option."
(while (pcomplete-here
- (let ((opts (pcomplete-uniqify-list
+ (let ((opts (pcomplete-uniquify-list
(mapcar 'car org-startup-options))))
;; Some options are mutually exclusive, and shouldn't be completed
;; against if certain other options have already been seen.
@@ -248,7 +248,7 @@ pcomplete/org-mode/file-option/title
(defun pcomplete/org-mode/file-option/options ()
"Complete arguments for the #+OPTIONS file option."
(while (pcomplete-here
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(append
;; Hard-coded OPTION items always available.
'("H:" "\\n:" "num:" "timestamp:" "arch:" "author:" "c:"
@@ -267,7 +267,7 @@ pcomplete/org-mode/file-option/options
(defun pcomplete/org-mode/file-option/infojs_opt ()
"Complete arguments for the #+INFOJS_OPT file option."
(while (pcomplete-here
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(mapcar (lambda (item) (format "%s:" (car item)))
(bound-and-true-p org-html-infojs-opts-table))))))
@@ -283,7 +283,7 @@ org-link-abbrev-alist
(defun pcomplete/org-mode/link ()
"Complete against defined #+LINK patterns."
(pcomplete-here
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(copy-sequence
(append (mapcar 'car org-link-abbrev-alist-local)
(mapcar 'car org-link-abbrev-alist))))))
@@ -293,13 +293,13 @@ pcomplete/org-mode/tex
"Complete against TeX-style HTML entity names."
(require 'org-entities)
(while (pcomplete-here
- (pcomplete-uniqify-list (remove nil (mapcar 'car-safe org-entities)))
+ (pcomplete-uniquify-list (remove nil (mapcar 'car-safe org-entities)))
(substring pcomplete-stub 1))))
(defvar org-todo-keywords-1)
(defun pcomplete/org-mode/todo ()
"Complete against known TODO keywords."
- (pcomplete-here (pcomplete-uniqify-list (copy-sequence org-todo-keywords-1))))
+ (pcomplete-here (pcomplete-uniquify-list (copy-sequence org-todo-keywords-1))))
(defvar org-todo-line-regexp)
(defun pcomplete/org-mode/searchhead ()
@@ -315,14 +315,14 @@ pcomplete/org-mode/searchhead
(push (org-make-org-heading-search-string
(match-string-no-properties 3))
tbl)))
- (pcomplete-uniqify-list tbl)))
+ (pcomplete-uniquify-list tbl)))
(substring pcomplete-stub 1))))
(defun pcomplete/org-mode/tag ()
"Complete a tag name. Omit tags already set."
(while (pcomplete-here
(mapcar (lambda (x) (concat x ":"))
- (let ((lst (pcomplete-uniqify-list
+ (let ((lst (pcomplete-uniquify-list
(or (remq
nil
(mapcar (lambda (x) (org-string-nw-p (car x)))
@@ -339,7 +339,7 @@ pcomplete/org-mode/prop
(pcomplete-here
(mapcar (lambda (x)
(concat x ": "))
- (let ((lst (pcomplete-uniqify-list
+ (let ((lst (pcomplete-uniquify-list
(copy-sequence
(org-buffer-property-keys nil t t t)))))
(dolist (prop (org-entry-properties))
diff --git a/lisp/pcmpl-cvs.el b/lisp/pcmpl-cvs.el
index a3e2b2f..dedc007 100644
--- a/lisp/pcmpl-cvs.el
+++ b/lisp/pcmpl-cvs.el
@@ -122,7 +122,7 @@ pcmpl-cvs-commands
(let (cmds)
(while (re-search-forward "^\\s-+\\([a-z]+\\)" nil t)
(setq cmds (cons (match-string 1) cmds)))
- (pcomplete-uniqify-list cmds))))
+ (pcomplete-uniquify-list cmds))))
(defun pcmpl-cvs-modules ()
"Return a list of available modules under CVS."
@@ -132,7 +132,7 @@ pcmpl-cvs-modules
(let (entries)
(while (re-search-forward "\\(\\S-+\\)$" nil t)
(setq entries (cons (match-string 1) entries)))
- (pcomplete-uniqify-list entries))))
+ (pcomplete-uniquify-list entries))))
(defun pcmpl-cvs-tags (&optional opers)
"Return all the tags which could apply to the files related to OPERS."
@@ -149,7 +149,7 @@ pcmpl-cvs-tags
(error "Error in output from `cvs status -v'"))
(setq tags (cons (match-string 1) tags))
(forward-line))))
- (pcomplete-uniqify-list tags)))
+ (pcomplete-uniquify-list tags)))
(defun pcmpl-cvs-entries (&optional opers)
"Return the Entries for the current directory.
@@ -187,6 +187,6 @@ pcmpl-cvs-entries
(setq entries (cons text entries))))
(forward-line)))))
(setq pcomplete-stub nondir)
- (pcomplete-uniqify-list entries)))
+ (pcomplete-uniquify-list entries)))
;;; pcmpl-cvs.el ends here
diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index 505d10c..16c9926 100644
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -125,7 +125,7 @@ pcmpl-gnu-make-rule-names
(while (re-search-forward
(concat "^\\s-*\\([^\n#%.$][^:=\n]*\\)\\s-*:[^=]") nil t)
(setq rules (append (split-string (match-string 1)) rules))))
- (pcomplete-uniqify-list rules))))
+ (pcomplete-uniquify-list rules))))
(defcustom pcmpl-gnu-tarfile-regexp
"\\.t\\(ar\\(\\.\\(gz\\|bz2\\|Z\\|xz\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'"
diff --git a/lisp/pcmpl-linux.el b/lisp/pcmpl-linux.el
index ce42486..18cc647 100644
--- a/lisp/pcmpl-linux.el
+++ b/lisp/pcmpl-linux.el
@@ -43,7 +43,7 @@ pcomplete/kill
"Completion for GNU/Linux `kill', using /proc filesystem."
(if (pcomplete-match "^-\\(.*\\)" 0)
(pcomplete-here
- (pcomplete-uniqify-list
+ (pcomplete-uniquify-list
(split-string
(pcomplete-process-result "kill" "-l")))
(pcomplete-match-string 1 0)))
@@ -82,7 +82,7 @@ pcmpl-linux-mounted-directories
(args (split-string line " ")))
(setq points (cons (nth 1 args) points)))
(forward-line)))
- (pcomplete-uniqify-list points))))
+ (pcomplete-uniquify-list points))))
(defun pcomplete-pare-list (l r)
"Destructively remove from list L all elements matching any in list R.
@@ -109,7 +109,7 @@ pcmpl-linux-mountable-directories
(setq points (cons (nth 1 args) points)))
(forward-line)))
(pcomplete-pare-list
- (pcomplete-uniqify-list points)
+ (pcomplete-uniquify-list points)
(cons "swap" (pcmpl-linux-mounted-directories))))))
;;; pcmpl-linux.el ends here
diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el
index d3250ba..624547e 100644
--- a/lisp/pcmpl-rpm.el
+++ b/lisp/pcmpl-rpm.el
@@ -96,7 +96,7 @@ pcmpl-rpm-all-query
(pcomplete-process-result
"rpm" "-q" (car pkgs) flag)))
(setq pkgs (cdr pkgs)))
- (pcomplete-uniqify-list (cdr provs))))
+ (pcomplete-uniquifyxo-list (cdr provs))))
(defsubst pcmpl-rpm-files ()
(pcomplete-dirs-or-entries "\\.rpm\\'"))
diff --git a/lisp/pcmpl-unix.el b/lisp/pcmpl-unix.el
index 90dde26..1b11afd 100644
--- a/lisp/pcmpl-unix.el
+++ b/lisp/pcmpl-unix.el
@@ -111,7 +111,7 @@ pcmpl-unix-read-passwd-file
(point))) ":")))
(setq names (cons (nth 0 fields) names)))
(forward-line))))
- (pcomplete-uniqify-list names)))
+ (pcomplete-uniquify-list names)))
(defsubst pcmpl-unix-group-names ()
"Read the contents of /etc/group for group names."
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 6078dfd..e7d12c6 100644
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -950,7 +950,7 @@ pcomplete-opt
(function
(lambda (opt)
(concat "-" opt)))
- (pcomplete-uniqify-list choices))))
+ (pcomplete-uniquify-list choices))))
(let ((arg (pcomplete-arg)))
(when (and (> (length arg) 1)
(stringp arg)
@@ -1269,7 +1269,7 @@ pcomplete--help
;; general utilities
-(defun pcomplete-uniqify-list (l)
+(defun pcomplete-uniquify-list (l)
"Sort and remove multiples in L."
(setq l (sort l 'string-lessp))
(let ((m l))
@@ -1280,6 +1280,9 @@ pcomplete-uniqify-list
(setcdr m (cddr m)))
(setq m (cdr m))))
l)
+(define-obsolete-function-alias
+ 'pcomplete-uniqify-list
+ 'pcomplete-uniquify-list "27.1")
(defun pcomplete-process-result (cmd &rest args)
"Call CMD using `call-process' and return the simplest result."
--
2.7.4
^ permalink raw reply related [flat|nested] 4+ messages in thread
end of thread, other threads:[~2018-03-05 2:03 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-11-14 21:45 bug#10048: uniquify -> uniquify, for more-consistent function names Paul Eggert
2011-12-31 6:38 ` Paul Eggert
2016-02-25 6:35 ` Lars Ingebrigtsen
2018-03-05 2:03 ` Paul Eggert
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).