Commit 8d3be2e6 authored by David Byers's avatar David Byers

Fix bug 1143

parent 45aa9990
2007-06-24 <David Byers@GULAG>
Fix bug 1143:
* review.el (lyskom-last-review-filter): New variable.
(kom-review-all-roots): New command.
(kom-unread-all-roots): New command.
(kom-review-more): Use saved filter when getting more texts.
(kom-unread-more): Use saved filter when getting more texts.
(kom-review-first-roots): New command.
(kom-unread-first-roots): New command.
(kom-review-roots-by-to): New command.
(lyskom-review-by-to): New filter argument. Get default filter
from global variable. Pass filter on to other functions.
(kom-unread-roots-by-to): New command.
(lyskom-unread-by-to): New filter argument. Get default filter
from global variable. Pass filter on to other commands.
(lyskom-get-texts-by-to): New filter argument. Pass to sub
functions and use in predicate for lyskom-get-texts-by-generic.
(lyskom-get-texts-by): New filter argument. Pass filter to
lyskom-get-texts-by-generic.
(lyskom-get-texts-by-and-to): New argument filter.
(lyskom-get-texts-globally): New argument filter.
(lyskom-get-texts-to): New argument filter.
(lyskom-get-letters-to): New argument filter.
* utilities.el (lyskom-set-connection-time-format): Use
make-local-variable instead of make-variable-buffer-local.
* view-mode.el (lyskom-view-base-mode): Use make-local-variable
instead of make-variable-buffer-local.
* vars.el.in (kom-unread-mode-line-type): Make this server-stored.
* compatibility.el: Don't defvar enable-multibyte-characters
unless it's unbound.
* english-strings.el,swedish-strings.el (lyskom-sv-mode-map):
Rebound A from kom-review-all to kom-review-all-roots.
Fix bug 673:
* async.el (lyskom-show-personal-message): Don't run
lyskom-personal-message-hook.
......
......@@ -212,7 +212,9 @@ KEYS should be a string in the format used for saving keyboard macros
;;; we could code using the standard names. We don't do that any
;;; more. Instead, we define aliases in our own namespace.
(defvar enable-multibyte-characters nil)
(unless (boundp 'enable-multibyte-characters)
(defvar enable-multibyte-characters nil))
(lyskom-function-alias set-buffer-multibyte (arg)
(put 'enable-multibyte-characters 'permanent-local t)
(make-local-variable 'enable-multibyte-characters)
......
......@@ -914,25 +914,28 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
(no-review-done . "You need to review something before you can review more.\n")
(not-reviewing . "You are currently not reviewing anything.\n")
(unread-how-many . "Unread how many?")
(unread-how-many-roots . "Unread how many root texts?")
(unread-how-many-more . "Unread how many more?")
(review-how-many . "Review how many?")
(review-how-many-roots . "Review how many root texts?")
(review-how-many-more . "Review how many more?")
(latest-n . "last %#1d")
(first-n . "first %#1d")
(review-by-whom . "Review %#1s by whom: ")
(review-to-conf . "Review %#1s to conference: ")
(unread-by-whom . "Unread %#1s by whom: ")
(unread-to-conf . "Unread %#1s to conference: ")
(review-by-whom . "Review %#1s %#2?b%[%#2s %]%[%]by whom: ")
(review-to-conf . "Review %#1s %#2?b%[%#2s %]%[%]to conference: ")
(unread-by-whom . "Unread %#1s %#2?b%[%#2s %]%[%]by whom: ")
(unread-to-conf . "Unread %#1s %#2?b%[%#2s %]%[%]to conference: ")
(all-confs . "all conferences")
(unread-info-by-to . "Unread %#1s by %#2P to %#3M.\n")
(unread-more-info-by-to . "Unread %#1s by %#2P to %#3M.\n")
(unread-info-by-to . "Unread %#1s %#4?b%[%#4s %]%[%]by %#2P to %#3M.\n")
(unread-more-info-by-to . "Unread %#1s %#4?b%[%#4s %]%[%]by %#2P to %#3M.\n")
(unread-rest . "the rest")
(unread-more . "%#1d more")
(review-info-by-to . "Review %#1s by %#2P to %#3M forwards.\n")
(review-more-info-by-to . "Review %#1s by %#2P to %#3M forwards.\n")
(review-info-by-to . "Review %#1s %#4?b%[%#4s %]%[%]by %#2P to %#3M forwards.\n")
(review-more-info-by-to . "Review %#1s %#4?b%[%#4s %]%[%]by %#2P to %#3M forwards.\n")
(review-filter-roots . "roots")
(review-rest . "the rest")
(review-more . "%#1d more")
(you-review . "You are now reviewing %#1s.\n")
......@@ -1746,12 +1749,12 @@ You must become an active member of the conference to enter it.\n")
(review-commented-q . "Review the commented for which text?")
(review-tree-q . "Review all comments recursively for which text?")
(find-root-q . "Review original text for text?")
(find-root-q . "Review root for text?")
(find-root-review-q . "Review tree of which text?")
(review-comments-q . "Review all comments to which text?")
(review-xrefs-q . "Review all cross references from which text?")
(unread-tree-q . "Unread all comments recursively for which text?")
(unread-root-q . "Unread original text for text?")
(unread-root-q . "Unread root for text?")
(unread-root-review-q . "Unread tree of which text?")
(unread-comments-q . "Unread all comments to which text?")
......@@ -2229,10 +2232,13 @@ Change privileges for %#1P (%#1p)...")
(kom-review-noconversion . "Review unconverted")
(kom-review-rot13 . "Review rot13")
(kom-review-next . "Review next")
(kom-find-root . "Review original (text)")
(kom-find-root . "Review root (text)")
(kom-review-by-to . "Review last")
(kom-review-roots-by-to . "Review last roots")
(kom-review-first . "Review first")
(kom-review-first-roots . "Review first roots")
(kom-review-all . "Review all")
(kom-review-all-roots . "Review all roots")
(kom-review-more . "Review more")
(kom-view-commented-text . "Review (the) commented (text)")
(kom-view-previous-commented-text
......@@ -2372,6 +2378,7 @@ Change privileges for %#1P (%#1p)...")
(kom-copy-options . "Copy options")
(kom-mark-unread . "Unread text")
(kom-unread-by-to . "Unread last")
(kom-unread-roots-by-to . "Unread last")
(kom-unread-more . "Unread more")
(kom-unread-commented-text . "Unread (the) commented (text)")
(kom-unread-previous-commented-text . "Unread (the) previously commented (text)")
......@@ -2382,7 +2389,9 @@ Change privileges for %#1P (%#1p)...")
(kom-unread-last-normally-read
. "Unread again")
(kom-unread-first . "Unread first")
(kom-unread-first-roots . "Unread first roots")
(kom-unread-all . "Unread all")
(kom-unread-all-roots . "Unread all roots")
(kom-unread-presentation . "Unread presentation")
(kom-unread-server-faq . "Unread server FAQ")
......@@ -2794,10 +2803,12 @@ Change privileges for %#1P (%#1p)...")
(define-key lyskom-en-unread-prefix (kbd "g") 'kom-unread-last-normally-read)
(define-key lyskom-en-unread-prefix (kbd "o") 'kom-unread-root)
(define-key lyskom-en-unread-prefix (kbd "l") 'kom-unread-by-to)
(define-key lyskom-en-unread-prefix (kbd "L") 'kom-unread-roots-by-to)
(define-key lyskom-en-unread-prefix (kbd "M") 'kom-unread-more)
(define-key lyskom-en-unread-prefix (kbd "r") 'kom-unread-root-review)
(define-key lyskom-en-unread-prefix (kbd "f") 'kom-unread-first)
(define-key lyskom-en-unread-prefix (kbd "A") 'kom-unread-all)
(define-key lyskom-en-unread-prefix (kbd "F") 'kom-unread-first-roots)
(define-key lyskom-en-unread-prefix (kbd "A") 'kom-unread-all-roots)
(define-key lyskom-en-unread-prefix (kbd "f") 'kom-unread-first)
(define-key lyskom-en-unread-prefix (kbd "p") 'kom-unread-presentation)
(define-key lyskom-en-unread-prefix (kbd "q") 'kom-unread-faq)
......@@ -2832,8 +2843,10 @@ Change privileges for %#1P (%#1p)...")
(define-key lyskom-en-review-prefix (kbd "3") 'kom-review-rot13)
(define-key lyskom-en-review-prefix (kbd "o") 'kom-find-root)
(define-key lyskom-en-review-prefix (kbd "l") 'kom-review-by-to)
(define-key lyskom-en-review-prefix (kbd "L") 'kom-review-roots-by-to)
(define-key lyskom-en-review-prefix (kbd "f") 'kom-review-first)
(define-key lyskom-en-review-prefix (kbd "A") 'kom-review-all)
(define-key lyskom-en-review-prefix (kbd "F") 'kom-review-first-roots)
(define-key lyskom-en-review-prefix (kbd "A") 'kom-review-all-roots)
(define-key lyskom-en-review-prefix (kbd "M") 'kom-review-more)
(define-key lyskom-en-review-prefix (kbd "g") 'kom-review-last-normally-read)
(define-key lyskom-en-review-prefix (kbd "q") 'kom-review-faq)
......@@ -3886,6 +3899,30 @@ up menus.")
The users named in this list will be displayed using a warning face in
the LysKOM buffer.")
(kom-person-list-1-doc . "\
This list of users has no predefined meaning. It can be used to show
the users with a special font (see kom-highlight-conferences) or to
configure presence messages (see kom-presence-messages-in-buffer) or
for whatever purpose you like.")
(kom-person-list-2-doc . "\
This list of users has no predefined meaning. It can be used to show
the users with a special font (see kom-highlight-conferences) or to
configure presence messages (see kom-presence-messages-in-buffer) or
for whatever purpose you like.")
(kom-person-list-3-doc . "\
This list of users has no predefined meaning. It can be used to show
the users with a special font (see kom-highlight-conferences) or to
configure presence messages (see kom-presence-messages-in-buffer) or
for whatever purpose you like.")
(kom-person-list-4-doc . "\
This list of users has no predefined meaning. It can be used to show
the users with a special font (see kom-highlight-conferences) or to
configure presence messages (see kom-presence-messages-in-buffer) or
for whatever purpose you like.")
(kom-url-viewer-preferences-doc . "\
This setting controls which WWW browser that will be used to open URLs
found in LysKOM. If the first browser in the list cannot handle the type
......@@ -4483,6 +4520,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-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:")
......
......@@ -70,8 +70,11 @@
(item kom-find-root-review)
(hline)
(item kom-review-by-to)
(item kom-review-roots-by-to)
(item kom-review-first)
(item kom-review-first-roots)
(item kom-review-all)
(item kom-review-all-roots)
(item kom-review-more)
(hline)
(item kom-make-review-mark-as-read)
......@@ -91,8 +94,11 @@
(item kom-unread-root-review)
(hline)
(item kom-unread-by-to)
(item kom-unread-roots-by-to)
(item kom-unread-first)
(item kom-unread-first-roots)
(item kom-unread-all)
(item kom-unread-all-roots)
(item kom-unread-more)
(hline)
(item kom-unread-presentation)
......
This diff is collapsed.
......@@ -960,25 +960,29 @@ M
(no-review-done . "Du mste terse innan du kan terse mer.\n")
(not-reviewing . "Du hller inte p att terse ngot nu.\n")
(unread-how-many . "Olsmarkera hur mnga?")
(unread-how-many-roots . "Olsmarkera hur mnga urinlgg?")
(review-how-many . "terse hur mnga?")
(review-how-many-roots . "terse hur mnga urinlgg?")
(unread-how-many-more . "Olsmarkera ytterligare hur mnga?")
(review-how-many-more . "terse ytterligare hur mnga?")
(latest-n . "senaste %#1d")
(first-n . "frsta %#1d")
(review-by-whom . "terse %#1s av vem: ")
(review-to-conf . "terse %#1s till mte: ")
(unread-by-whom . "Olsmarkera %#1s av vem: ")
(unread-to-conf . "Olsmarkera %#1s till mte: ")
(review-by-whom . "terse %#1s %#2?b%[%#2s %]%[%]av vem: ")
(review-to-conf . "terse %#1s %#2?b%[%#2s %]%[%]till mte: ")
(unread-by-whom . "Olsmarkera %#1s %#2?b%[%#2s %]%[%]av vem: ")
(unread-to-conf . "Olsmarkera %#1s %#2?b%[%#2s %]%[%]till mte: ")
(all-confs . "alla mten")
(unread-info-by-to . "Olsmarkera %#1s av %#2P till %#3M.\n")
(unread-more-info-by-to . "Olsmarkera %#1s av %#2P till %#3M.\n")
(unread-info-by-to . "Olsmarkera %#1s %#4?b%[%#4s %]%[%]av %#2P till %#3M.\n")
(unread-more-info-by-to . "Olsmarkera %#1s %#4?b%[%#4s %]%[%]av %#2P till %#3M.\n")
(unread-rest . "resten")
(unread-more . "nsta %#1d")
(review-info-by-to . "terse %#1s av %#2P till %#3M framt.\n")
(review-more-info-by-to . "terse %#1s av %#2P till %#3M framt.\n")
(review-info-by-to . "terse %#1s %#4?b%[%#4s %]%[%]av %#2P till %#3M.\n")
(review-more-info-by-to . "terse %#1s %#4?b%[%#4s %]%[%]av %#2P till %#3M.\n")
(review-filter-roots . "urinlgg")
(review-rest . "resten")
(review-more . "nsta %#1d")
(you-review . "Du terser nu %#1s.\n")
......@@ -2272,9 +2276,12 @@ Nuvarande r
(kom-review-next . "terse nsta")
(kom-find-root . "terse urinlgget")
(kom-review-by-to . "terse senaste")
(kom-review-roots-by-to . "terse senaste urinlgg")
(kom-review-more . "terse fler inlgg")
(kom-review-first . "terse frsta")
(kom-review-first-roots . "terse frsta urinlgg")
(kom-review-all . "terse alla")
(kom-review-all-roots . "terse alla urinlgg")
(kom-view-commented-text . "terse det kommenterade")
(kom-view-previous-commented-text
. "terse det fregende kommenterade")
......@@ -2414,6 +2421,7 @@ Nuvarande r
(kom-copy-options . "Kopiera instllningar")
(kom-mark-unread . "Olsmarkera inlgg")
(kom-unread-by-to . "Olsmarkera senaste")
(kom-unread-roots-by-to . "Olsmarkera senaste urinlgg")
(kom-unread-more . "Olsmarkera fler inlgg")
(kom-unread-commented-text . "Olsmarkera det kommenterade")
(kom-unread-previous-commented-text . "Olsmarkera det fregende kommenterade")
......@@ -2424,7 +2432,9 @@ Nuvarande r
(kom-unread-last-normally-read
. "Olsmarkera igen")
(kom-unread-all . "Olsmarkera alla")
(kom-unread-all-roots . "Olsmarkera alla urinlgg")
(kom-unread-first . "Olsmarkera frsta")
(kom-unread-first-roots . "Olsmarkera frsta urinlgg")
(kom-unread-presentation . "Olsmarkera presentation")
(kom-unread-server-faq . "Olsmarkera server-FAQ")
(kom-unread-faq . "Olsmarkera FAQ")
......@@ -2774,6 +2784,7 @@ Nuvarande r
(define-key lyskom-sv-mode-map (kbd "M-m") 'kom-toggle-mark-as-read-prefix)
(define-key lyskom-sv-mode-map (kbd "M-c") 'kom-toggle-cache-prefix)
(define-key lyskom-sv-mode-map (kbd "M-u") 'kom-toggle-topic-prefix)
(define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button2)) 'kom-mouse-null)
(define-key lyskom-sv-mode-map (kbd (lyskom-keys 'button2up)) 'kom-button-click)
......@@ -2928,10 +2939,12 @@ Nuvarande r
(define-key lyskom-sv-unread-prefix (kbd "r") 'kom-unread-root)
(define-key lyskom-sv-unread-prefix (kbd "u") 'kom-unread-root)
(define-key lyskom-sv-unread-prefix (kbd "s") 'kom-unread-by-to)
(define-key lyskom-sv-unread-prefix (kbd "S") 'kom-unread-roots-by-to)
(define-key lyskom-sv-unread-prefix (kbd "y") 'kom-unread-more)
(define-key lyskom-sv-unread-prefix (kbd "t") 'kom-unread-root-review)
(define-key lyskom-sv-unread-prefix (kbd "A") 'kom-unread-all)
(define-key lyskom-sv-unread-prefix (kbd "A") 'kom-unread-all-roots)
(define-key lyskom-sv-unread-prefix (kbd "f") 'kom-unread-first)
(define-key lyskom-sv-unread-prefix (kbd "F") 'kom-unread-first-roots)
(define-key lyskom-sv-unread-prefix (kbd "p") 'kom-unread-presentation)
(define-key lyskom-sv-unread-prefix (kbd "q") 'kom-unread-faq)
(define-key lyskom-sv-unread-prefix (kbd "Q") 'kom-unread-server-faq)
......@@ -2966,9 +2979,11 @@ Nuvarande r
(define-key lyskom-sv-review-prefix (kbd "r") 'kom-find-root)
(define-key lyskom-sv-review-prefix (kbd "u") 'kom-find-root)
(define-key lyskom-sv-review-prefix (kbd "s") 'kom-review-by-to)
(define-key lyskom-sv-review-prefix (kbd "S") 'kom-review-roots-by-to)
(define-key lyskom-sv-review-prefix (kbd "y") 'kom-review-more)
(define-key lyskom-sv-review-prefix (kbd "A") 'kom-review-all)
(define-key lyskom-sv-review-prefix (kbd "A") 'kom-review-all-roots)
(define-key lyskom-sv-review-prefix (kbd "f") 'kom-review-first)
(define-key lyskom-sv-review-prefix (kbd "F") 'kom-review-first-roots)
(define-key lyskom-sv-review-prefix (kbd "l") 'kom-review-stack)
(define-key lyskom-sv-review-prefix (kbd "p") 'kom-review-presentation)
(define-key lyskom-sv-review-prefix (kbd "t") 'kom-find-root-review)
......@@ -4032,14 +4047,38 @@ ta fram menyer.")
ven att visas som om man hade skickat det manuellt.")
(kom-friends-doc . "\
Namnen p personerna i denna lista kommer att visas med ett speciellt
utseende i LysKOM-bufferten. Kommandot Vilka vnner r inloggade (och
andra liknande kommandon) anvnder ocks denna lista.")
Namnen p personerna i denna lista kan visas med ett speciellt utseende
i LysKOM-bufferten. Kommandot Vilka vnner r inloggade (och andra
liknande kommandon) anvnder ocks denna lista.")
(kom-morons-doc . "\
Namnen p personerna i denna lista kommer att visas med ett varnande
Namnen p personerna i denna lista kan visas med ett varnande
utseende i LysKOM-bufferten.")
(kom-person-list-1-doc . "\
Den hr listan har ingen frutbestmd betydelse, utan kan anvndas fr
att stlla in att personerna ska visas med ett speciellt utseende (se
kom-highlight-conferences) eller fr att konfigurera in- och utloggningar
(se kom-presence-messages-in-buffer) med mera.")
(kom-person-list-2-doc . "\
Den hr listan har ingen frutbestmd betydelse, utan kan anvndas fr
att stlla in att personerna ska visas med ett speciellt utseende (se
kom-highlight-conferences) eller fr att konfigurera in- och utloggningar
(se kom-presence-messages-in-buffer) med mera.")
(kom-person-list-3-doc . "\
Den hr listan har ingen frutbestmd betydelse, utan kan anvndas fr
att stlla in att personerna ska visas med ett speciellt utseende (se
kom-highlight-conferences) eller fr att konfigurera in- och utloggningar
(se kom-presence-messages-in-buffer) med mera.")
(kom-person-list-4-doc . "\
Den hr listan har ingen frutbestmd betydelse, utan kan anvndas fr
att stlla in att personerna ska visas med ett speciellt utseende (se
kom-highlight-conferences) eller fr att konfigurera in- och utloggningar
(se kom-presence-messages-in-buffer) med mera.")
(kom-url-viewer-preferences-doc . "\
Denna instllning bestmmer vilken WWW-lsare som i frsta hand skall
anvndas fr att ppna URLer som frekommer i LysKOM. Om den frsta lsaren
......@@ -4637,6 +4676,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-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:")
......
......@@ -2288,7 +2288,7 @@ suitable for use as initial input in a magic minibuffer."
(lambda (buf)
(save-excursion
(set-buffer buf)
(make-variable-buffer-local 'lyskom-server-uses-utc)
(make-local-variable 'lyskom-server-uses-utc)
(setq lyskom-server-uses-utc val)))
lyskom-buffer)))
......
......@@ -283,31 +283,61 @@ the priority among links that match the same text is undefined."
lyskom-default-conference-empty)))
(review-to-conf))
(kom-review-roots-by-to (review-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(review-to-conf))
(kom-review-first (review-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(review-to-conf))
(kom-review-first-roots (review-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(review-to-conf))
(kom-review-all (review-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(review-to-conf))
(kom-review-all-roots (review-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(review-to-conf))
(kom-unread-by-to (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(unread-to-conf))
(kom-unread-roots-by-to (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(unread-to-conf))
(kom-unread-first (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(unread-to-conf))
(kom-unread-first-roots (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(unread-to-conf))
(kom-unread-all (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(unread-to-conf))
(kom-unread-all-roots (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(unread-to-conf))
(kom-set-permitted-submitters (conf-to-set-permitted-submitters-q)
(new-permitted-submitters-q
(default . (lyskom-default-conference-empty))))
......@@ -1519,6 +1549,7 @@ name or (if the session name is in upper case already) surrounding it
with asterisks.
All other values are reserved for future use."
server
)
......@@ -3573,9 +3604,12 @@ Users are encouraged to use their best sense of humor."
kom-review-next
kom-find-root
kom-review-by-to
kom-review-roots-by-to
kom-review-more
kom-review-first
kom-review-first-roots
kom-review-all
kom-review-all-roots
kom-view-commented-text
kom-view-previous-commented-text
kom-review-stack
......@@ -3711,6 +3745,7 @@ Users are encouraged to use their best sense of humor."
kom-copy-options
kom-mark-unread
kom-unread-by-to
kom-unread-roots-by-to
kom-unread-last-normally-read
kom-unread-root-review
kom-unread-root
......@@ -3720,7 +3755,9 @@ Users are encouraged to use their best sense of humor."
kom-unread-commented-text
kom-unread-more
kom-unread-all
kom-unread-all-roots
kom-unread-first
kom-unread-first-roots
kom-unread-all-marked-texts
kom-unread-marked-texts
kom-unread-faq
......
......@@ -47,7 +47,7 @@
(cond ((fboundp 'view-major-mode) (view-major-mode))
((assq 'view-mode minor-mode-alist)
(let* ((keymap (copy-keymap lyskom-view-mode-map)))
(make-variable-buffer-local 'minor-mode-map-alist)
(make-local-variable 'minor-mode-map-alist)
(lyskom-set-keymap-parent keymap view-mode-map)
(setq minor-mode-map-alist (cons (cons 'view-mode keymap)
minor-mode-map-alist))
......
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