changeset: 4565:31344162cf9ada294e34a48c10daa1242b6e310e parent: 4493:89406c31b12521258c83389d19f80440a3a7ce48 user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Sat Aug 09 13:06:24 2008 +0200 files: lisp/ChangeLog lisp/subr.el description: Add #'skip-chars-quote to subr.el 2008-08-09 Aidan Kehoe <kehoea(a)parhasard.net&gt; * subr.el (skip-chars-quote): New. Given STRING, return a string that means that all characters in STRING will be skipped when passed to #'skip-chars-forward, #'skip-chars-backward. diff -r 89406c31b12521258c83389d19f80440a3a7ce48 -r 31344162cf9ada294e34a48c10daa1242b6e310e lisp/ChangeLog --- a/lisp/ChangeLog Sat Aug 09 12:13:19 2008 +0200 +++ b/lisp/ChangeLog Sat Aug 09 13:06:24 2008 +0200 ＠＠ -1,4 +1,13 ＠＠ 2008-08-09 Aidan Kehoe <kehoea＠parhasa 2008-08-09 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * subr.el (skip-chars-quote): New. + Given STRING, return a string that means that all characters in + STRING will be skipped when passed to #'skip-chars-forward, + #'skip-chars-backward. + +2008-08-09 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * subr.el (skip-chars-quote): New. * mule/cyril-util.el: Remove. Use the version in packages instead. diff -r 89406c31b12521258c83389d19f80440a3a7ce48 -r 31344162cf9ada294e34a48c10daa1242b6e310e lisp/subr.el --- a/lisp/subr.el Sat Aug 09 12:13:19 2008 +0200 +++ b/lisp/subr.el Sat Aug 09 13:06:24 2008 +0200 ＠＠ -1722,4 +1722,25 ＠＠ one is kept." ;; define-mail-user-agent is in simple.el. +;; XEmacs; added. +(defun skip-chars-quote (string) + "Return a string that means all characters in STRING will be skipped, +if passed to `skip-chars-forward' or `skip-chars-backward'. + +Ranges and carets are not treated specially. This implementation is +in Lisp; do not use it in performance-critical code." + (let ((list (delete-duplicates (string-to-list string) :test #'=))) + (when (equal list '((?- ?\[) (?\[ ?\-))) + (error 'invalid-argument + "Cannot create `skip-chars-forward' arg from string" + string)) + (when (memq ?\] list) + (setq list (cons ?\] (delq ?\] list)))) + (when (eq ?^ (car list)) + (setq list (nconc (cdr list) '(?^)))) + (when (memq ?- list) + (setq list (delq ?- list) + list (nconc list (list (second list) ?- (second list) ?-)))) + (apply #'string list))) + ;;; subr.el ends here _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches