Commit 7e85cbe9 authored by David Byers's avatar David Byers
Browse files

Update settings buffer with new settings.

parent 8d3be2e6
2007-06-24 <David Byers@GULAG>
More customization:
* lyskom-rest.el (lyskom-format-html): Use lyskom-indirect-assq to
look stuff up in kom-format-html-authors.
Fix settings buffer:
* option-edit.el (lyskom-custom-variables): Updated definitions
for kom-highlight-conferences, kom-presence-messages-in-buffer,
kom-presence-messages-in-echo-area. Updated widget definitions so
we don't get newlines in unexpected places (and get then where we
really want them). Removed indent from most lists.
Fix bug 1143:
* review.el (lyskom-last-review-filter): New variable.
(kom-review-all-roots): New command.
......
......@@ -3029,8 +3029,10 @@ Change privileges for %#1P (%#1p)...")
(define-key lyskom-en-customize-map (kbd "C-j") 'widget-button-press)
(define-key lyskom-en-customize-map (kbd "<RET>") 'widget-button-press)
(define-key lyskom-en-customize-map (kbd "<LFD>") 'widget-button-press)
(define-key lyskom-en-customize-map (kbd (lyskom-keys 'button1up)) 'kom-mouse-null)
(define-key lyskom-en-customize-map (kbd (lyskom-keys 'button2up)) 'kom-mouse-null)
(define-key lyskom-en-customize-map (kbd (lyskom-keys 'button3up)) 'kom-mouse-null)
(define-key lyskom-en-customize-map (kbd (lyskom-keys 'button1)) 'widget-button-click)
(define-key lyskom-en-customize-map (kbd (lyskom-keys 'button2)) 'widget-button-click)
(define-key lyskom-en-customize-map (kbd (lyskom-keys 'button3)) 'lyskom-widget-click)
(define-key lyskom-en-customize-map (kbd "C-c C-c") 'lyskom-customize-save-and-quit)
......@@ -3152,7 +3154,7 @@ Select whether to execute command or keyboard macro.")
(command . "Command")
(command-list . "Command list")
(some-persons . "For some persons")
(some-persons . "For some persons:")
(name . "Name")
(page-none . "Never ")
......@@ -3276,6 +3278,18 @@ Select whether to execute command or keyboard macro.")
(extended-statistics-info . "Full server statistics")
(extended-all-other-info . "Other information")
(show-presence . "Show presence messages")
(conflist . "Conference/person list")
(pers-list-1 . "Conference/person list 1")
(pers-list-2 . "Conference/person list 2")
(pers-list-3 . "Conference/person list 3")
(pers-list-4 . "Conference/person list 4")
(other-list . "Other list")
(always-show-presence . "Show all presence messages")
(never-show-presence . "Show no presence messages")
(obsolete-setting . "Obsolete setting")
(detailed-setting . "Detailed setting")
;;
;; Misc doc strings
;;
......@@ -4520,10 +4534,10 @@ up menus.")
(kom-filter-outgoing-messages-tag . "Show automatic messages:")
(kom-friends-tag . "Friends and other special people:")
(kom-morons-tag . "Morons and other \"special\" people:")
(kom-person-list-1-tag . "Generlic list of persons (1):")
(kom-person-list-2-tag . "Generlic list of persons (2):")
(kom-person-list-3-tag . "Generlic list of persons (3):")
(kom-person-list-4-tag . "Generlic list of persons (4):")
(kom-person-list-1-tag . "Generlic list of conferences/persons (1):")
(kom-person-list-2-tag . "Generlic list of conferences/persons (2):")
(kom-person-list-3-tag . "Generlic list of conferences/persons (3):")
(kom-person-list-4-tag . "Generlic list of conferences/persons (4):")
(kom-url-viewer-preferences-tag . "Open URLs using the following program:")
(kom-windows-browser-command-tag . "Command to start a web browser on Windows:")
(kom-mosaic-command-tag . "Command to start NCSA Mosaic:")
......
......@@ -2427,9 +2427,10 @@ in lyskom-messages."
(defun lyskom-format-html (text text-stat package function)
;; Find settings for this author
(let ((author-setting (and text-stat (or (assq (text-stat->author text-stat)
kom-format-html-authors)
(assq t kom-format-html-authors)))))
(let ((author-setting (and text-stat
(lyskom-indirect-assq (text-stat->author
text-stat)
kom-format-html-authors))))
(when (and (cdr author-setting)
(condition-case e (progn (require package) t) (error nil)))
(add-text-properties 0 (length text) `(special-insert ,function) text)
......
......@@ -49,6 +49,8 @@
(defvar lyskom-widgets nil
"List of widgets in the customize buffer.")
;(setq lyskom-customize-buffer-format '([kom-format-html-authors]))
(defvar lyskom-customize-buffer-format
'("\n"
(lyskom bold centered)
......@@ -603,7 +605,7 @@ All key bindings:
(kom-list-membership-in-window (open-window))
(kom-customize-format (choice ((const (long-format long))
(const (short-format short)))))
(kom-default-language (repeat (language-choice nil :format "%[%t%] %v\n")))
(kom-default-language (repeat (language-choice nil)))
(kom-user-prompt-format (string))
(kom-user-prompt-format-executing (string))
(kom-anonymous-prompt-format (string))
......@@ -626,8 +628,7 @@ All key bindings:
nil
:tag symbolic-mark-association
:mark-key-prompt symbolic-mark-name
:mark-value-prompt mark-type-to-assoc)
:indent 4))
:mark-value-prompt mark-type-to-assoc)))
(kom-reading-puts-comments-in-pointers-last (toggle (after before)))
(kom-autowrap (choice ((const (on t))
(const (off nil))
......@@ -644,20 +645,6 @@ All key bindings:
(kom-truncate-show-lines (number nil))
(kom-print-number-of-unread-on-entrance (toggle (yes no)))
(kom-presence-messages-in-echo-area
(choice ((const (on t))
(const (friends friends))
(repeat (person nil :tag name)
:indent 4
:tag some-persons
:menu-tag some-persons))))
(kom-presence-messages-in-buffer
(choice ((const (on t))
(const (friends friends))
(repeat (person nil :tag name)
:indent 4
:tag some-persons
:menu-tag some-persons))))
(kom-show-where-and-what (toggle (yes no)))
(kom-show-since-and-when (toggle (yes no)))
(kom-remember-password (toggle (yes no)))
......@@ -684,27 +671,21 @@ All key bindings:
:tag given-session-name
:help-echo select-buffer))))
(kom-relogin-inhibit-commands (repeat (command nil :tag command)
:indent 4))
(kom-login-hook (repeat (command nil :tag command)
:indent 4))
(kom-relogin-inhibit-commands (repeat (command nil :tag command)))
(kom-login-hook (repeat (command nil :tag command)))
(kom-do-when-done (repeat (choice ((command nil :tag command)
(kbd-macro nil :tag kbd-macro))
:tag execute
:help-echo select-what-to-execute
:format "%[%t%] %v")
:indent 4))
:format "%[%t%] %v")))
(kom-page-before-command (choice ((const (page-none nil))
(const (page-all t))
(repeat (command nil
:tag command)
:indent 4
:tag page-some
:menu-tag page-some
:format "%[%t%] %v"
:value (kom-view-next-text)))
:format "%[%t%] %v"))
))
(kom-permissive-completion (noggle (on off)))
(kom-membership-default-priority
(choice ((const (ask-every-time ask))
......@@ -740,19 +721,26 @@ All key bindings:
(const (last-recipient-recpt last-recipient)))))
(kom-filter-outgoing-messages (noggle (yes no)))
(kom-highlight-conferences
(repeat (cons ((choice ((const (morons kom-morons))
(repeat (cons ((choice ((const (other-persons t))
(const (morons kom-morons))
(const (friends kom-friends))
(const (me lyskom-pers-no))
(const (i-am-supervisor lyskom-highlight-i-am-supervisor))
(const (has-no-presentation lyskom-highlight-has-no-presentation))
(const (pers-list-1 kom-person-list-1))
(const (pers-list-2 kom-person-list-2))
(const (pers-list-3 kom-person-list-3))
(const (pers-list-4 kom-person-list-4))
(symbol nil :tag other-list)
(person nil :tag name :lyskom-predicate (pers))
(repeat (person nil :tag name)
:indent 12
:tag highlight-conflist
:tag conflist
:lyskom-predicate (pers conf)
:menu-tag highlight-conflist)
:menu-tag conflist)
)
:tag highlight-conferences
:format "%[%t%] %v\n"
:format "%[%t%] %v\n"
)
(face (kom-active-face
kom-active-highlight-face
......@@ -763,32 +751,88 @@ All key bindings:
:format "%v"
)
))
(kom-friends (repeat (person nil :tag name) :indent 4))
(kom-morons (repeat (person nil :tag name) :indent 4))
(kom-person-list-1 (repeat (person nil :tag name) :indent 4))
(kom-person-list-2 (repeat (person nil :tag name) :indent 4))
(kom-person-list-3 (repeat (person nil :tag name) :indent 4))
(kom-person-list-4 (repeat (person nil :tag name) :indent 4))
(kom-url-viewer-preferences (repeat (url-viewer nil :tag viewer-program)
:indent 4))
(kom-presence-messages-in-buffer
(choice ((const (always-show-presence t))
(const (never-show-presence nil))
(symbol nil :tag obsolete-setting)
(repeat (cons ((choice ((const (other-persons t))
(const (me lyskom-pers-no))
(const (morons kom-morons))
(const (friends kom-friends))
(const (pers-list-1 kom-person-list-1))
(const (pers-list-2 kom-person-list-2))
(const (pers-list-3 kom-person-list-3))
(const (pers-list-4 kom-person-list-4))
(symbol nil :tag other-list)
(person nil :tag name :lyskom-predicate (pers))
(repeat (person nil :tag name)
:indent 12
:tag conflist
:lyskom-predicate (pers)
:menu-tag conflist)
)
:tag some-persons
:format "%[%t%] %v\n"
)
(toggle (yes no) :tag show-presence))
)
:tag detailed-setting
))))
(kom-presence-messages-in-echo-area
(choice ((const (always-show-presence t))
(const (never-show-presence nil))
(symbol nil :tag obsolete-setting)
(repeat (cons ((choice ((const (other-persons t))
(const (me lyskom-pers-no))
(const (morons kom-morons))
(const (friends kom-friends))
(const (pers-list-1 kom-person-list-1))
(const (pers-list-2 kom-person-list-2))
(const (pers-list-3 kom-person-list-3))
(const (pers-list-4 kom-person-list-4))
(symbol nil :tag other-list)
(person nil :tag name :lyskom-predicate (pers))
(repeat (person nil :tag name)
:indent 12
:tag conflist
:lyskom-predicate (pers)
:menu-tag conflist)
)
:tag some-persons
:format "%[%t%] %v\n"
)
(toggle (yes no) :tag show-presence))
)
:tag detailed-setting
))))
(kom-friends (repeat (person nil :tag name)))
(kom-morons (repeat (person nil :tag name)))
(kom-person-list-1 (repeat (person nil :tag name)))
(kom-person-list-2 (repeat (person nil :tag name)))
(kom-person-list-3 (repeat (person nil :tag name)))
(kom-person-list-4 (repeat (person nil :tag name)))
(kom-url-viewer-preferences (repeat (url-viewer nil :tag viewer-program)))
(kom-windows-browser-command (file))
(kom-mosaic-command (choice ((file nil :tag ext-simple-command :format "%[%t:%] %v\n")
(repeat (string nil :tag ext-complex-component :format "%[%t:%] %v\n")
(kom-mosaic-command (choice ((file nil :tag ext-simple-command :format "%[%t:%] %v")
(repeat (string nil :tag ext-complex-component :format "%[%t:%] %v")
:tag ext-complex-command
:menu-tag ext-complex-command))))
(kom-netscape-command (choice ((file nil :tag ext-simple-command :format "%[%t:%] %v\n")
(repeat (string nil :tag ext-complex-component :format "%[%t:%] %v\n")
(kom-netscape-command (choice ((file nil :tag ext-simple-command :format "%[%t:%] %v")
(repeat (string nil :tag ext-complex-component :format "%[%t:%] %v")
:tag ext-complex-command
:menu-tag ext-complex-command))))
(kom-galeon-command (choice ((file nil :tag ext-simple-command :format "%[%t:%] %v\n")
(repeat (string nil :tag ext-complex-component :format "%[%t:%] %v\n")
(kom-galeon-command (choice ((file nil :tag ext-simple-command :format "%[%t:%] %v")
(repeat (string nil :tag ext-complex-component :format "%[%t:%] %v")
:tag ext-complex-command
:menu-tag ext-complex-command))))
(kom-lynx-terminal (choice ((const (lynx-xterm xterm))
(const (lynx-emacs terminal)))))
(kom-lynx-terminal-command (file))
(kom-lynx-xterm-command (choice ((file nil :tag ext-simple-command :format "%[%t:%] %v\n")
(repeat (string nil :tag ext-complex-component :format "%[%t:%] %v\n")
(kom-lynx-xterm-command (choice ((file nil :tag ext-simple-command :format "%[%t:%] %v")
(repeat (string nil :tag ext-complex-component :format "%[%t:%] %v")
:tag ext-complex-command
:menu-tag ext-complex-command))))
(kom-confirm-multiple-recipients
......@@ -808,16 +852,15 @@ All key bindings:
(kom-ansaphone-show-messages (toggle (yes no)))
(kom-ansaphone-default-reply (string nil :format "%[%t%]\n%v"))
(kom-remote-control (toggle (on off)))
(kom-remote-controllers (repeat (person nil :tag name)
:indent 4))
(kom-remote-controllers (repeat (person nil :tag name)))
(kom-self-control (toggle (yes no)))
(kom-ispell-dictionary (ispell-dictionary))
(kom-show-namedays (choice ((const (off nil))
(const (default-namedays t))
(repeat (nameday nil :format "%[%t%]: `%v'\n" :tag specific-namedays)
(repeat (nameday nil :format "%[%t%]: `%v'"
:tag specific-namedays)
:tag several-name-lists
:menu-tag several-name-lists
:indent 4)
:menu-tag several-name-lists)
(nameday nil :tag specific-namedays))))
(kom-show-week-number (toggle (on off)))
......@@ -838,8 +881,7 @@ All key bindings:
(kom-agree-text (choice ((string nil :tag a-string)
(repeat (string nil
:tag a-string
:format "%[%t%] `%v'\n")
:indent 4
:format "%[%t%] `%v'")
:tag some-string
:menu-tag some-string))))
(kom-silent-ansaphone (noggle (on off)))
......@@ -856,21 +898,41 @@ All key bindings:
(kom-postpone-default (number))
(kom-allow-incompleteness (toggle (on off)))
(kom-smileys (toggle (on off)))
(kom-ignore-message-senders (repeat (person nil :tag name)
:indent 4))
(kom-ignore-message-senders (repeat (person nil :tag name)))
(kom-ignore-message-recipients (repeat (person nil
:tag name
:lyskom-predicate (pers conf))
:indent 4))
:lyskom-predicate (pers conf))))
(kom-text-header-dash-length (number))
(kom-text-footer-dash-length (number))
(kom-show-personal-message-date (toggle (on off)))
(kom-mercial (string))
(kom-w3-simplify-body (toggle (on off)))
(kom-format-html-authors (repeat (cons ((choice ((person nil :tag some-person :lyskom-predicate (pers))
(const (all-others t) :format "%t\n"))
:format "%[%v%]")
(toggle (yes no) :tag format-html)))))
(kom-format-html-authors
(repeat (cons ((choice ((const (other-persons t))
(const (me lyskom-pers-no))
(const (morons kom-morons))
(const (friends kom-friends))
(const (pers-list-1 kom-person-list-1))
(const (pers-list-2 kom-person-list-2))
(const (pers-list-3 kom-person-list-3))
(const (pers-list-4 kom-person-list-4))
(symbol nil :tag other-list)
(person nil :tag name
:format "%[[*]%] %v"
:lyskom-predicate (pers))
(repeat (person nil :tag name)
:indent 12
:tag conflist
:lyskom-predicate (pers)
:menu-tag conflist)
)
:tag some-persons
:format "%[%t%] %v\n"
)
(toggle (yes no) :tag format-html))
)
:tag detailed-setting
))
(kom-format-show-images (toggle (on off)))
(kom-bury-buffers (toggle (on off)))
(kom-ansaphone-replies (ansaphone))
......@@ -879,7 +941,7 @@ All key bindings:
(kom-lost-session-notification (choice ((const (off nil))
(const (session-lost-all-buffers all-buffers))
(const (session-lost-beep beep)))))
(kom-text-no-prompts (repeat (cons ((command nil :tag command :format "%[%t%]: %v")
(kom-text-no-prompts (repeat (cons ((command nil :tag command :format "%[%t%]: %v\n")
(toggle (yes no) :tag prompt-for-text-no :format "%[%t%]: %v")
))))
(kom-saved-file-name (file))
......@@ -891,8 +953,7 @@ All key bindings:
(kom-confirm-add-recipients (toggle (yes no)))
(kom-trim-buffer-minimum (number))
(kom-dont-check-commented-authors (repeat (person nil
:tag name) :indent 4))
(kom-dont-check-commented-authors (repeat (person nil :tag name)))
(kom-print-relative-dates (toggle (yes no)))
(kom-print-seconds-in-time-strings (toggle (yes no)))
(kom-extended-status-information (choice ((const (yes t))
......@@ -904,13 +965,13 @@ All key bindings:
(const (extended-all-other-info t))
)
:tag extended-info-type
:format "%[%t%] %v ")
:format "%[%t%] %v\n")
(toggle (yes no) :tag extended-info-show)))
:tag specific-extended-info
:menu-tag specific-extended-info))))
(kom-edit-hide-add-button (noggle (yes no)))
(kom-keyboard-menu-immediate-selection (noggle (yes no)))
(kom-url-transformation-rules (repeat (cons ((string nil :tag url-transform-regexp)
(kom-url-transformation-rules (repeat (cons ((string nil :tag url-transform-regexp :format "%[%t%] %v\n")
(string nil :tag url-transform-newtext)))))
(kom-text-links (repeat (cons ((choice ((person nil :tag link-specific-rcpt :lyskom-predicate (pers conf))
(const (all-conferences t)))
......@@ -920,9 +981,8 @@ All key bindings:
(string nil :tag link-replace :format "%[%t%]: %v\n")
(number (0 9) :tag link-highlight-match :format "%[%t%]: %v\n")
(toggle (yes no) :tag link-fold-case :format "%[%t%]: %v"))
) :indent 8 :tag "")
))
:indent 4))
) :indent 12 :tag "")
))))
(kom-url-face (face))
(kom-text-no-face (face))
(kom-active-face (face))
......@@ -957,6 +1017,7 @@ All key bindings:
(ding . lyskom-ding-widget)
(choice . lyskom-choice-widget)
(string . lyskom-string-widget)
(symbol . lyskom-symbol-widget)
(number . lyskom-number-widget)
(const . lyskom-item-widget)
(repeat . lyskom-repeat-widget)
......@@ -1222,11 +1283,11 @@ All key bindings:
wargs)))
(if wargs
(lyskom-build-simple-widget-spec 'menu-choice
(list ':format "%[%t%] %v\n"
(list ':format "%[%t%] %v"
':args wargs)
propl)
(lyskom-build-simple-widget-spec 'symbol
(list ':format "%[%t%] %v\n"
(list ':format "%[%t%] %v"
':size 30
':args wargs)
propl))))
......@@ -1234,7 +1295,7 @@ All key bindings:
(defun lyskom-url-viewer-widget (type &optional args propl var)
(lyskom-build-simple-widget-spec
'menu-choice
(list ':format "%[%v%]\n"
(list ':format "%[%v%]"
':case-fold t
':help-echo (lyskom-custom-string 'select-url-viewer)
':args
......@@ -1342,7 +1403,6 @@ All key bindings:
':size 0)
(list 'editable-list
':format "%[%t%]\n%v%i"
':indent 4
':tag (lyskom-custom-string 'specific-spec)
':menu-tag (lyskom-custom-string 'specific-spec)
':args
......@@ -1351,7 +1411,7 @@ All key bindings:
:args
((menu-choice
:case-fold t
:format "%[%t%]: %v"
:format "%[%t%]: %v\n"
:tag ,(lyskom-custom-string 'conf-or-person)
:args
((lyskom-name :lyskom-predicate (pers conf)
......@@ -1419,6 +1479,7 @@ All key bindings:
(lyskom-build-simple-widget-spec
'editable-list
(list ':format "%[%t%]\n%v%i"
':entry-format "%i %d %v\n"
':args
(list (lyskom-widget-convert-specification args var)))
propl))
......@@ -1426,7 +1487,7 @@ All key bindings:
(defun lyskom-cons-widget (type &optional args propl var)
(lyskom-build-simple-widget-spec
'cons
(list ':format "%v\n"
(list ':format "%v"
':tag ""
':args (list (lyskom-widget-convert-specification (elt args 0) var)
(lyskom-widget-convert-specification (elt args 1) var)))
......@@ -1435,7 +1496,7 @@ All key bindings:
(defun lyskom-list-widget (type &optional args propl var)
(lyskom-build-simple-widget-spec
'list
(list ':format "%v\n"
(list ':format "%v"
':tag ""
':args (mapcar (lambda (x) (lyskom-widget-convert-specification x var)) args))
propl))
......@@ -1457,6 +1518,13 @@ All key bindings:
':format "%[%t%] `%v'")
propl))
(defun lyskom-symbol-widget (type &optional args propl var)
(lyskom-build-simple-widget-spec
'symbol
(list ':size 0
':format "%[%t%] `%v'")
propl))
(defun lyskom-number-widget (type &optional args propl var)
(if args
......@@ -1600,9 +1668,7 @@ All key bindings:
(widget-put widget ':value-from (copy-marker from))
(widget-put widget ':value-to (copy-marker (point)))
(set-marker-insertion-type (widget-get widget ':value-to) nil)
(if (null size)
(insert ?\n)
(insert ?\ ))))
(insert " ")))
(defun lyskom-widget-name-match (widget value)
(and (numberp value)
......@@ -1670,9 +1736,7 @@ All key bindings:
(widget-put widget ':value-from (copy-marker from))
(widget-put widget ':value-to (copy-marker (point)))
(set-marker-insertion-type (widget-get widget ':value-to) nil)
(if (null size)
(insert ?\n)
(insert ?\ ))))
(insert " ")))
(defun lyskom-widget-command-match (widget value)
(symbolp value))
......@@ -1803,9 +1867,7 @@ All key bindings:
(widget-put widget ':value-from (copy-marker from))
(widget-put widget ':value-to (copy-marker (point)))
(set-marker-insertion-type (widget-get widget ':value-to) nil)
(if (null size)
(insert ?\n)
(insert ?\ ))))
(insert " ")))
;;;
;;; This is a truly disgusting piece of work. In Gnu Emacs it's not
......@@ -1913,7 +1975,7 @@ All key bindings:
(define-widget 'lyskom-mark-association 'default
"A mark association."
:tag "Mark association"
:format "%[%t%] %v\n"
:format "%[%t%] %v"
:value '("..." . 0)
:default-help-echo 'change-this-name
:match 'lyskom-widget-mark-association-match
......
......@@ -3181,8 +3181,10 @@ Nuvarande r
(define-key lyskom-sv-customize-map (kbd "C-j") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd "<RET>") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd "<LFD>") 'widget-button-press)
(define-key lyskom-sv-customize-map (kbd (lyskom-keys 'button1)) 'widget-button-click)
(define-key lyskom-sv-customize-map (kbd (lyskom-keys 'button2)) 'widget-button-click)
(define-key lyskom-sv-customize-map (kbd (lyskom-keys 'button3)) 'lyskom-widget-click)
(define-key lyskom-sv-customize-map (kbd (lyskom-keys 'button1up)) 'kom-mouse-null)
(define-key lyskom-sv-customize-map (kbd (lyskom-keys 'button2up)) 'kom-mouse-null)
(define-key lyskom-sv-customize-map (kbd (lyskom-keys 'button3up)) 'kom-mouse-null)
(define-key lyskom-sv-customize-map (kbd "C-c C-c") 'lyskom-customize-save-and-quit)
......@@ -3303,7 +3305,7 @@ Nuvarande r
(command . "Kommando")
(command-list . "Kommandolista")
(some-persons . "Fr vissa personer")
(some-persons . "Fr vissa personer:")
(name . "Namn")
(page-none . "Aldrig ")
......@@ -3379,7 +3381,7 @@ Nuvarande r
(format-html . "Formattera HTML:")
(url-transform-regexp . "Frn (regexp):")
(url-transform-newtext . " Till:")
(url-transform-newtext . "Till:")
(default-namedays . "Namnsdagar fr aktuellt sprk")
(specific-namedays . "Specifik namnlngd")
......@@ -3428,6 +3430,18 @@ Nuvarande r
(extended-statistics-info . "Fullstndig serverstatistik")
(extended-all-other-info . "Annan information")
(show-presence . "Visa nrvaromeddelanden")
(conflist . "Mtes/Personlista")
(pers-list-1 . "Mtes/personlista 1")
(pers-list-2 . "Mtes/personlista 2")
(pers-list-3 . "Mtes/personlista 3")
(pers-list-4 . "Mtes/personlista 4")
(other-list . "Annan lista")
(always-show-presence . "Visa alla nrvaromeddelanden")
(never-show-presence . "Visa inga nrvaromeddelanden")
(obsolete-setting . "Frldrad instllning")
(detailed-setting . "Detaljerad instllning")
;;
;; Misc doc strings
;;
......@@ -4676,10 +4690,10 @@ ta fram menyer.")
(kom-filter-outgoing-messages-tag . "Visa automatiska meddelanden:")
(kom-friends-tag . "Vnner och bekanta:")
(kom-morons-tag . "Idioter och knppskallar:")
(kom-person-list-1-tag . "Personlista (1):")
(kom-person-list-2-tag . "Personlista (1):")
(kom-person-list-3-tag . "Personlista (1):")
(kom-person-list-4-tag . "Personlista (1):")
(kom-person-list-1-tag . "Mtes/personlista (1):")
(kom-person-list-2-tag . "Mtes/personlista (2):")
(kom-person-list-3-tag . "Mtes/personlista (3):")
(kom-person-list-4-tag . "Mtes/personlista (4):")
(kom-url-viewer-preferences-tag . "ppna URLer med fljande program:")
(kom-windows-browser-command-tag . "Kommando fr att starta en WWW-lsare i Windows:")
(kom-mosaic-command-tag . "Kommando fr att starta NCSA Mosaic:")
......
......@@ -1481,7 +1481,7 @@ rules are as follows:
this variable to a list of person numbers).
`(t . VAL)' Matches with value VAL if no other match is