Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 6240c7796c7a
children 6719134a07c2
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
37 37
38 ;; NOTE: In many places within this file we use `mapatoms', which is 38 ;; NOTE: In many places within this file we use `mapatoms', which is
39 ;; very slow in an average XEmacs because of the large number of 39 ;; very slow in an average XEmacs because of the large number of
40 ;; symbols requiring a large number of funcalls -- XEmacs with Gnus 40 ;; symbols requiring a large number of funcalls -- XEmacs with Gnus
41 ;; can grow to some 17000 symbols without ever doing anything fancy. 41 ;; can grow to some 17000 symbols without ever doing anything fancy.
42 ;; It would probably pay off to make a hashtable of symbols known to 42 ;; It would probably pay off to make a hash table of symbols known to
43 ;; Custom, similar to custom-group-hash-table. 43 ;; Custom, similar to custom-group-hash-table.
44 44
45 ;; This is not top priority, because none of the functions that do 45 ;; This is not top priority, because none of the functions that do
46 ;; mapatoms are speed-critical (the one that was now uses 46 ;; mapatoms are speed-critical (the one that was now uses
47 ;; custom-group-hash-table), but it would be nice to have. 47 ;; custom-group-hash-table), but it would be nice to have.
280 (list 'quote sexp))) 280 (list 'quote sexp)))
281 281
282 (defun custom-split-regexp-maybe (regexp) 282 (defun custom-split-regexp-maybe (regexp)
283 "If REGEXP is a string, split it to a list at `\\|'. 283 "If REGEXP is a string, split it to a list at `\\|'.
284 You can get the original back with from the result with: 284 You can get the original back with from the result with:
285 (mapconcat 'identity result \"\\|\") 285 (mapconcat #'identity result \"\\|\")
286 286
287 IF REGEXP is not a string, return it unchanged." 287 IF REGEXP is not a string, return it unchanged."
288 (if (stringp regexp) 288 (if (stringp regexp)
289 (split-string regexp "\\\\|") 289 (split-string regexp "\\\\|")
290 regexp)) 290 regexp))