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
f0a698ab
Commit
f0a698ab
authored
Nov 13, 2010
by
Glenn Morris
Browse files
* lisp/novice.el (disabled-command-function): Fix 2009-11-15 change. (Bug#7384)
parent
5b05d75b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
6 deletions
+10
-6
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/novice.el
lisp/novice.el
+5
-6
No files found.
lisp/ChangeLog
View file @
f0a698ab
2010-11-13 Glenn Morris <rgm@gnu.org>
* novice.el (disabled-command-function):
Fix 2009-11-15 change. (Bug#7384)
2010-11-12 Glenn Morris <rgm@gnu.org>
* calendar/calendar.el (diary-iso-date-forms): Make elements
...
...
lisp/novice.el
View file @
f0a698ab
;;; novice.el --- handling of disabled commands ("novice mode") for Emacs
;; Copyright (C) 1985, 1986, 1987, 1994, 2001, 2002, 2003, 2004,
;;
2005,
2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986, 1987, 1994, 2001, 2002, 2003, 2004,
2005,
;; 2006, 2007, 2008, 2009, 2010
Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal, help
...
...
@@ -110,9 +110,9 @@ SPC to try the command just this once, but leave it disabled.
(
not
(
string=
""
user-init-file
))
(
y-or-n-p
"Enable command for future editing sessions also? "
))
(
enable-command
cmd
)
(
put
cmd
'disabled
nil
)))
(
?n
nil
)
(
t
(
call-interactively
cmd
))))
)
(
put
cmd
'disabled
nil
)))
)
(
or
(
char-equal
char
?n
)
(
call-interactively
cmd
))))
(
defun
en/disable-command
(
command
disable
)
(
unless
(
commandp
command
)
...
...
@@ -169,5 +169,4 @@ to future sessions."
(
provide
'novice
)
;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9
;;; novice.el ends here
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