Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e85e809a
Commit
e85e809a
authored
May 17, 2001
by
Gerd Moellmann
Browse files
(fancy-splash-screens): Ignore events on the mode-line.
parent
2ca0d5f1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
2 deletions
+5
-2
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/startup.el
lisp/startup.el
+3
-2
No files found.
lisp/ChangeLog
View file @
e85e809a
2001-05-17 Gerd Moellmann <gerd@gnu.org>
* startup.el (fancy-splash-screens): Ignore events on the mode-line.
* net/ange-ftp.el (ange-ftp-write-region): Make sure to record the
last coding system used before calling set-buffer-modified-p
because that function changes last-coding-system.
...
...
lisp/startup.el
View file @
e85e809a
...
...
@@ -1181,11 +1181,12 @@ where FACE is a valid face specification, as it can be used with
(use-local-map map)
(define-key map [t] 'fancy-splash-default-action)
(define-key map [mouse-movement] 'ignore)
(define-key map [mode-line t] 'ignore)
(setq cursor-type nil
display-hourglass nil
buffer-undo-list t
mode-line-format
(propertize "
----
%b
%-
"
'face '(:weight bold))
mode-line-format
(propertize "
----
%b
%-
"
'face '(:weight bold))
fancy-splash-stop-time (+ (float-time)
(max 60 fancy-splash-max-time))
timer (run-with-timer 0 fancy-splash-delay
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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