diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 15 |
2 files changed, 3 insertions, 15 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 88bcf6f98c1..4eabd34743d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2006-03-03 Martin Rudalics <rudalics@gmx.at> | 1 | 2006-03-03 Martin Rudalics <rudalics@gmx.at> |
| 2 | 2 | ||
| 3 | * cus-edit.el (custom-quote): Remove function, since it has been | ||
| 4 | moved to custom.el. | ||
| 5 | |||
| 3 | * font-lock.el (lisp-font-lock-keywords-2) | 6 | * font-lock.el (lisp-font-lock-keywords-2) |
| 4 | * emacs-lisp/rx.el (rx-check-any, rx-check-not) | 7 | * emacs-lisp/rx.el (rx-check-any, rx-check-not) |
| 5 | * generic-x.el (reg-generic-mode): Quote "]"s in regexps when | 8 | * generic-x.el (reg-generic-mode): Quote "]"s in regexps when |
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index feacc9adf0d..60705b30552 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -468,21 +468,6 @@ | |||
| 468 | 468 | ||
| 469 | ;;; Utilities. | 469 | ;;; Utilities. |
| 470 | 470 | ||
| 471 | (defun custom-quote (sexp) | ||
| 472 | "Quote SEXP iff it is not self quoting." | ||
| 473 | (if (or (memq sexp '(t nil)) | ||
| 474 | (keywordp sexp) | ||
| 475 | (and (listp sexp) | ||
| 476 | (memq (car sexp) '(lambda))) | ||
| 477 | (stringp sexp) | ||
| 478 | (numberp sexp) | ||
| 479 | (vectorp sexp) | ||
| 480 | ;;; (and (fboundp 'characterp) | ||
| 481 | ;;; (characterp sexp)) | ||
| 482 | ) | ||
| 483 | sexp | ||
| 484 | (list 'quote sexp))) | ||
| 485 | |||
| 486 | (defun custom-split-regexp-maybe (regexp) | 471 | (defun custom-split-regexp-maybe (regexp) |
| 487 | "If REGEXP is a string, split it to a list at `\\|'. | 472 | "If REGEXP is a string, split it to a list at `\\|'. |
| 488 | You can get the original back with from the result with: | 473 | You can get the original back with from the result with: |