aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman1997-08-09 08:10:48 +0000
committerRichard M. Stallman1997-08-09 08:10:48 +0000
commita87ed2740a0f2551bc6018c9d047db67c0412ab8 (patch)
tree2df6b12198b6feb317cde53bc51ffad9bf1bd23b /lisp
parentd23ad362d6b5162204b033478d9c2b51b60ab1b9 (diff)
downloademacs-a87ed2740a0f2551bc6018c9d047db67c0412ab8.tar.gz
emacs-a87ed2740a0f2551bc6018c9d047db67c0412ab8.zip
Delete autoload cookies (file is preloaded).
Diffstat (limited to 'lisp')
-rw-r--r--lisp/case-table.el5
1 files changed, 0 insertions, 5 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el
index c66f76919ae..79cc96b5b31 100644
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -38,7 +38,6 @@
38 38
39(defvar set-case-syntax-set-multibyte nil) 39(defvar set-case-syntax-set-multibyte nil)
40 40
41;;;###autoload
42(defun describe-buffer-case-table () 41(defun describe-buffer-case-table ()
43 "Describe the case table of the current buffer." 42 "Describe the case table of the current buffer."
44 (interactive) 43 (interactive)
@@ -63,7 +62,6 @@
63 (describe-vector description) 62 (describe-vector description)
64 (help-mode))))) 63 (help-mode)))))
65 64
66;;;###autoload
67(defun copy-case-table (case-table) 65(defun copy-case-table (case-table)
68 (let ((copy (copy-sequence case-table))) 66 (let ((copy (copy-sequence case-table)))
69 ;; Clear out the extra slots so that they will be 67 ;; Clear out the extra slots so that they will be
@@ -79,7 +77,6 @@
79 (+ char set-case-syntax-offset) 77 (+ char set-case-syntax-offset)
80 char)) 78 char))
81 79
82;;;###autoload
83(defun set-case-syntax-delims (l r table) 80(defun set-case-syntax-delims (l r table)
84 "Make characters L and R a matching pair of non-case-converting delimiters. 81 "Make characters L and R a matching pair of non-case-converting delimiters.
85This sets the entries for L and R in TABLE, which is a string 82This sets the entries for L and R in TABLE, which is a string
@@ -100,7 +97,6 @@ indicate left and right delimiters."
100 (modify-syntax-entry r (concat ")" (char-to-string l) " ") 97 (modify-syntax-entry r (concat ")" (char-to-string l) " ")
101 (standard-syntax-table))) 98 (standard-syntax-table)))
102 99
103;;;###autoload
104(defun set-case-syntax-pair (uc lc table) 100(defun set-case-syntax-pair (uc lc table)
105 "Make characters UC and LC a pair of inter-case-converting letters. 101 "Make characters UC and LC a pair of inter-case-converting letters.
106This sets the entries for characters UC and LC in TABLE, which is a string 102This sets the entries for characters UC and LC in TABLE, which is a string
@@ -117,7 +113,6 @@ word constituents."
117 (modify-syntax-entry lc "w " (standard-syntax-table)) 113 (modify-syntax-entry lc "w " (standard-syntax-table))
118 (modify-syntax-entry uc "w " (standard-syntax-table))) 114 (modify-syntax-entry uc "w " (standard-syntax-table)))
119 115
120;;;###autoload
121(defun set-case-syntax (c syntax table) 116(defun set-case-syntax (c syntax table)
122 "Make character C case-invariant with syntax SYNTAX. 117 "Make character C case-invariant with syntax SYNTAX.
123This sets the entry for character C in TABLE, which is a string 118This sets the entry for character C in TABLE, which is a string