Commit 55a889f2 authored by David Byers's avatar David Byers
Browse files

Eliminate warnings in XEmacs.

Detailed changes:
> 	Clean up for XEmacs:
> 	* lyskom-rest.el (lyskom-startup-check-recommended-memberships):
> 	Don't bind pers-stat. It's not used.
> 	(smiley-region): Don't bind plaintext. It's not used.
> 	(lyskom-fill-message): Suppress warning about variable timer.
>
> 	* defvar.el (def-kom-var): Don't ever do a null doc-string. XEmacs
> 	will complain quite loudly.
>
parent d49b78fa
2004-02-22 David Byers <byers@lysator.liu.se> 2004-02-22 David Byers <byers@lysator.liu.se>
Clean up for XEmacs:
* lyskom-rest.el (lyskom-startup-check-recommended-memberships):
Don't bind pers-stat. It's not used.
(smiley-region): Don't bind plaintext. It's not used.
(lyskom-fill-message): Suppress warning about variable timer.
* defvar.el (def-kom-var): Don't ever do a null doc-string. XEmacs
will complain quite loudly.
Fix bug 1125: Fix bug 1125:
* commands1.el (lyskom-read-cross-reference-and-get-aux-item): Use * commands1.el (lyskom-read-cross-reference-and-get-aux-item): Use
lyskom-a-or-b-or-c-p instead of completing-read. lyskom-a-or-b-or-c-p instead of completing-read.
......
...@@ -252,6 +252,8 @@ language-force A language-variable whose value is to be forced." ...@@ -252,6 +252,8 @@ language-force A language-variable whose value is to be forced."
(car arglist)))) (car arglist))))
(setq arglist (cdr arglist))) (setq arglist (cdr arglist)))
(if (null doc-string) (setq doc-string "This variable is not documented."))
(if doc-string (if doc-string
(if (if
(if (or local-var-doc local-hook-doc) (if (or local-var-doc local-hook-doc)
...@@ -271,7 +273,6 @@ This variable is normally stored on a per-session basis in the ...@@ -271,7 +273,6 @@ This variable is normally stored on a per-session basis in the
LysKOM server, but can be set in your .emacs simply by setting LysKOM server, but can be set in your .emacs simply by setting
it using setq or defvar."))) it using setq or defvar.")))
(` (progn (dont-compile (if (and (boundp (quote (, name))) (` (progn (dont-compile (if (and (boundp (quote (, name)))
(or (not (boundp lyskom-is-loaded)) (or (not (boundp lyskom-is-loaded))
(not lyskom-is-loaded)) (not lyskom-is-loaded))
......
...@@ -780,8 +780,7 @@ by PERS-NO" ...@@ -780,8 +780,7 @@ by PERS-NO"
;; that we have not rejected and that we are not already members ;; that we have not rejected and that we are not already members
;; of. ;; of.
(blocking-do-multiple ((pers-conf-stat (get-conf-stat lyskom-pers-no)) (let ((pers-conf-stat (blocking-do 'get-conf-stat lyskom-pers-no)))
(pers-stat (get-pers-stat lyskom-pers-no)))
(lyskom-traverse rec recommendations (lyskom-traverse rec recommendations
(let ((conf-stat (blocking-do 'get-conf-stat (elt rec 0)))) (let ((conf-stat (blocking-do 'get-conf-stat (elt rec 0))))
(when conf-stat (when conf-stat
...@@ -2127,7 +2126,6 @@ Deferred insertions are not supported." ...@@ -2127,7 +2126,6 @@ Deferred insertions are not supported."
(symbol-name (car el))) (symbol-name (car el)))
content-type)) content-type))
(lyskom-traverse-break el))))))) (lyskom-traverse-break el)))))))
(plaintext (eq fn t))
(formatted (and fn (funcall fn text text-stat)))) (formatted (and fn (funcall fn text text-stat))))
(or formatted text))) (or formatted text)))
...@@ -2426,6 +2424,8 @@ in lyskom-messages." ...@@ -2426,6 +2424,8 @@ in lyskom-messages."
(fill-prefix nil) (fill-prefix nil)
(single-line-regexp "\\(\\S-\\)")) (single-line-regexp "\\(\\S-\\)"))
(lyskom-ignore timer)
;; ;;
;; Scan each line ;; Scan each line
;; ;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment