comparison lisp/progmodes/cc-defs.el @ 51887:a39d64d1eb50

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

51886:8065f7ca3329

matches the whole keyword, and the regexp will also not match a prefix
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))
  (if list
      (let ((re (c-regexp-opt list)))
	;; Add our own grouping parenthesis around re instead of
	;; passing adorn to `regexp-opt', since in XEmacs it makes the
	;; top level grouping "shy".

	;; of the constant.  If the symbol isn't defined yet we assume
	;; that its definition will come later in this file, and thus
	;; 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)))))

      ;; Spend some effort to make a compact call to
      ;; `c-get-lang-constant' since it will be compiled in.
      (setq args (and mode `(',mode)))
      (if (or source-files args)

51887:a39d64d1eb50

matches the whole keyword, and the regexp will also not match a prefix
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')."
  (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
	;; passing adorn to `regexp-opt', since in XEmacs it makes the
	;; top level grouping "shy".

	;; of the constant.  If the symbol isn't defined yet we assume
	;; that its definition will come later in this file, and thus
	;; are no file dependencies needed.
	(setq source-files (nreverse
			    ;; Reverse to get the right load order.
			    (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.
      (setq args (and mode `(',mode)))
      (if (or source-files args)