HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
merge trunk
[bpt/emacs.git]
/
lisp
/
completion.el
diff --git
a/lisp/completion.el
b/lisp/completion.el
index
ad7e781
..
05358ad
100644
(file)
--- a/
lisp/completion.el
+++ b/
lisp/completion.el
@@
-1,6
+1,6
@@
;;; completion.el --- dynamic word-completion code
;;; completion.el --- dynamic word-completion code
-;; Copyright (C) 1990, 1993, 1995, 1997, 2001-201
1
+;; Copyright (C) 1990, 1993, 1995, 1997, 2001-201
2
;; Free Software Foundation, Inc.
;; Maintainer: FSF
;; Free Software Foundation, Inc.
;; Maintainer: FSF
@@
-228,7
+228,7
@@
;; superior to that of the LISPM version.
;;
;;-----------------------------------------------
;; superior to that of the LISPM version.
;;
;;-----------------------------------------------
-;; Acknowledg
e
ments
+;; Acknowledgments
;;-----------------------------------------------
;; Cliff Lasser (cal@think.com), Kevin Herbert (kph@cisco.com),
;; eero@media-lab, kgk@cs.brown.edu, jla@ai.mit.edu,
;;-----------------------------------------------
;; Cliff Lasser (cal@think.com), Kevin Herbert (kph@cisco.com),
;; eero@media-lab, kgk@cs.brown.edu, jla@ai.mit.edu,
@@
-344,18
+344,18
@@
are automatically added to the completion database."
:group 'completion)
;;(defvar *record-cmpl-statistics-p* nil
:group 'completion)
;;(defvar *record-cmpl-statistics-p* nil
-;; "
*
If non-nil, record completion statistics.")
+;; "If non-nil, record completion statistics.")
;;(defvar *completion-auto-save-period* 1800
;;(defvar *completion-auto-save-period* 1800
-;; "
*
The period in seconds to wait for emacs to be idle before autosaving
+;; "The period in seconds to wait for emacs to be idle before autosaving
;;the completions. Default is a 1/2 hour.")
(defvar completion-min-length 6
;;the completions. Default is a 1/2 hour.")
(defvar completion-min-length 6
- "
*
The minimum length of a stored completion.
+ "The minimum length of a stored completion.
DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros.")
(defvar completion-max-length 200
DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros.")
(defvar completion-max-length 200
- "
*
The maximum length of a stored completion.
+ "The maximum length of a stored completion.
DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros.")
(defvar completion-prefix-min-length 3
DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros.")
(defvar completion-prefix-min-length 3
@@
-1301,8
+1301,8
@@
String must be longer than `completion-prefix-min-length'."
(defun check-completion-length (string)
(if (< (length string) completion-min-length)
(defun check-completion-length (string)
(if (< (length string) completion-min-length)
- (error "The string `%s' is too short to be saved as a completion"
- string)
+ (
user-
error "The string `%s' is too short to be saved as a completion"
+
string)
(list string)))
(defun add-completion (string &optional num-uses last-use-time)
(list string)))
(defun add-completion (string &optional num-uses last-use-time)
@@
-2337,7
+2337,10
@@
TYPE is the type of the wrapper to be added. Can be :before or :under."
;;;###autoload
(define-minor-mode dynamic-completion-mode
;;;###autoload
(define-minor-mode dynamic-completion-mode
- "Enable dynamic word-completion."
+ "Toggle dynamic word-completion on or off.
+With a prefix argument ARG, enable the mode if ARG is positive,
+and disable it otherwise. If called from Lisp, enable the mode
+if ARG is omitted or nil."
:global t
;; This is always good, not specific to dynamic-completion-mode.
(define-key function-key-map [C-return] [?\C-\r])
:global t
;; This is always good, not specific to dynamic-completion-mode.
(define-key function-key-map [C-return] [?\C-\r])
@@
-2464,10
+2467,6
@@
TYPE is the type of the wrapper to be added. Can be :before or :under."
(defvaralias 'cmpl-syntax-table 'completion-syntax-table)
(defalias 'initialize-completions 'completion-initialize)
(defvaralias 'cmpl-syntax-table 'completion-syntax-table)
(defalias 'initialize-completions 'completion-initialize)
-(dolist (x '("^To complete, the point must be after a symbol at least [0-9]* character long\\.$"
- "^The string \".*\" is too short to be saved as a completion\\.$"))
- (add-to-list 'debug-ignored-errors x))
-
(provide 'completion)
;;; completion.el ends here
(provide 'completion)
;;; completion.el ends here