mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(c-make-keywords-re): Don't use delete-duplicates.

Browse Source 
(c-lang-const): Don't use mapcan.
This commit is contained in:
Richard M. Stallman 2003-07-13 00:19:56 +00:00
parent 800bebe3b7
commit 19c5fddbc3
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/progmodes/cc-defs.el
View File

@ -972,7 +972,11 @@ of any identifier. Adorned regexps cannot be appended. The language
variable `c-nonsymbol-key' is used to make the adornment. The
optional MODE specifies the language to get it in. The default is the
current language (taken from `c-buffer-is-cc-mode')."
(setq list (delete-duplicates list :test 'string-equal))
(let (unique)
(dolist (elt list)
(unless (member elt unique)
(push elt unique)))
(setq list unique))
(if list
(let ((re (c-regexp-opt list)))
;; Add our own grouping parenthesis around re instead of
@ -1326,11 +1330,12 @@ This macro does not do any hidden buffer changes."
;; are no file dependencies needed.
(setq source-files (nreverse
;; Reverse to get the right load order.
(mapcan (lambda (elem)
(if (eq file (car elem))
nil ; Exclude our own file.
(list (car elem))))
(get sym 'source)))))
(apply 'nconc
(mapcar (lambda (elem)
(if (eq file (car elem))
nil ; Exclude our own file.
(list (car elem))))
(get sym 'source))))))
;; Spend some effort to make a compact call to
;; `c-get-lang-constant' since it will be compiled in.