Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
8e41722b
Commit
8e41722b
authored
Aug 16, 1991
by
Linus Tolke
Browse files
Fixat så att C-c C-c inte funkar när man läser ärendet.
parent
6a65537f
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
8e41722b
No preview for this file type
src/edit-text.el
View file @
8e41722b
...
...
@@ -14,6 +14,9 @@
(
defvar
lyskom-edit-mode-map
nil
"Mode map for LysKOM edit."
)
(
defvar
lyskom-edit-mode-mode-map
nil
"Mode map for the mode LysKOM edites in."
)
(
defvar
lyskom-edit-mode-name
"LysKOM edit"
"Name of the mode."
)
...
...
@@ -234,10 +237,11 @@ Entry to this mode runs lyskom-edit-mode-hook."
(
lyskom-clear-vars
)
(
setq
mode-line-buffer-identification
'
(
"LysKOM (server: %b)"
))
(
run-hooks
'lyskom-edit-mode-mode-hook
)
(
setq
lyskom-edit-mode-mode-map
(
copy-keymap
(
current-local-map
)))
(
setq
major-mode
'lyskom-edit-mode
)
(
setq
mode-name
lyskom-edit-mode-name
)
(
setq
buffer-offer-save
t
)
(
use-local-map
(
overlay-map
(
current-local
-map
)
(
use-local-map
(
overlay-map
lyskom-edit-mode-mode
-map
lyskom-edit-mode-map
))
(
auto-save-mode
1
)
(
auto-fill-mode
1
)
...
...
@@ -267,7 +271,7 @@ Entry to this mode runs lyskom-edit-mode-hook."
(
save-excursion
(
setq
misc-list
(
lyskom-edit-read-misc-list
)
subject
(
lyskom-edit-extract-subject
)))
(
let
((
minibuffer-local-map
(
overlay-map
(
current-local
-map
)
(
let
((
minibuffer-local-map
(
overlay-map
lyskom-edit-mode-mode
-map
minibuffer-local-map
)))
(
setq
subject
(
read-string
(
lyskom-get-string
'subject
)
subject
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment