mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

Move test/newsticker-testsuite.el to automated/newsticker-tests.el

Browse Source 
2011-09-27  Ulf Jasper  <ulf.jasper@web.de>

	* automated/newsticker-tests.el: Move newsticker-testsuite.el
	to automated/newsticker-tests.el. Convert to ERT.
This commit is contained in:
Ulf Jasper 2011-09-27 21:08:40 +02:00
commit 806b00cb5f
4 changed files with 29 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ChangeLog
View File

@ -1,3 +1,19 @@
2011-09-27 Eli Zaretskii <eliz@gnu.org>
* minibuffer.el (completion-styles)
(completion-category-overrides): Cross reference each other in doc
strings.
2011-09-27 Glenn Morris <rgm@gnu.org>
* pcmpl-cvs.el (pcmpl-cvs-entries): Update for Emacs 22.1 changes
to split-string. (Bug#9606)
2011-09-27 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-via-smtp): Fix STARTTLS detection
(bug#9615).
2011-09-27 Chong Yidong <cyd@stupidchicken.com>
* emacs-lisp/package.el (list-packages): Fix echo area message.

2
lisp/mail/smtpmail.el
View File

@ -658,7 +658,7 @@ The list is in preference order.")
:always-query-capabilities t
:starttls-function
(lambda (capabilities)
(and (string-match "-STARTTLS" capabilities)
(and (string-match "[ -]STARTTLS" capabilities)
"STARTTLS\r\n"))
:client-certificate t
:use-starttls-if-possible t)))

7
lisp/minibuffer.el
View File

@ -482,7 +482,10 @@ and DOC describes the way this style of completion works.")
;; and simply add "bar" to the end of the result.
emacs22)
"List of completion styles to use.
The available styles are listed in `completion-styles-alist'."
The available styles are listed in `completion-styles-alist'.
Note that `completion-category-overrides' may override these
styles for specific categories, such as files, buffers, etc."
:type `(repeat (choice ,@(mapcar (lambda (x) (list 'const (car x)))
completion-styles-alist)))
:group 'minibuffer
@ -490,7 +493,7 @@ The available styles are listed in `completion-styles-alist'."
(defcustom completion-category-overrides
'((buffer (styles . (basic substring))))
"List of overrides for specific categories.
"List of `completion-styles' overrides for specific categories.
Each override has the shape (CATEGORY . ALIST) where ALIST is
an association list that can specify properties such as:
- `styles': the list of `completion-styles' to use for that category.

14
lisp/pcmpl-cvs.el
View File

@ -169,13 +169,13 @@ operation character applies, as displayed by 'cvs -n update'."
(insert-file-contents (concat dir "CVS/Entries"))
(goto-char (point-min))
(while (not (eobp))
(let* ((line (buffer-substring (line-beginning-position)
(line-end-position)))
(fields (split-string line "/"))
text)
(if (eq (aref line 0) ?/)
(setq fields (cons "" fields)))
(setq text (nth 1 fields))
;; Normal file: /NAME -> "" "NAME"
;; Directory : D/NAME -> "D" "NAME"
(let* ((fields (split-string (buffer-substring
(line-beginning-position)
(line-end-position))
"/"))
(text (nth 1 fields)))
(when text
(if (string= (nth 0 fields) "D")
(setq text (file-name-as-directory text)))