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
emacs
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
emacs
emacs
Commits
06005961
Commit
06005961
authored
Dec 09, 2007
by
Vinicius Jose Latorre
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix pr-interface-map initialization
parent
d088fbb2
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
35 additions
and
25 deletions
+35
-25
lisp/ChangeLog
lisp/ChangeLog
+9
-0
lisp/printing.el
lisp/printing.el
+26
-25
No files found.
lisp/ChangeLog
View file @
06005961
2007-12-09 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* printing.el: Fix pr-interface-map initialization. Replace
pr-f-set-keymap-parents, pr-f-set-keymap-name and pr-f-read-string by
pr-set-keymap-parents, pr-set-keymap-name and pr-read-string,
respectively.
(pr-version): New version 6.9.3.
(pr-interactive-n-up, pr-interactive-regexp): Code fix.
2007-12-09 Glenn Morris <rgm@gnu.org>
* emulation/viper-init.el (top-level): Use dolist rather than mapc
...
...
lisp/printing.el
View file @
06005961
;;; printing.el --- printing utilities
;; Copyright (C) 2000, 2001, 2003, 2004, 2005,
;;
2006, 2007
Free Software Foundation, Inc.
;; Copyright (C) 2000, 2001, 2003, 2004, 2005,
2006, 2007
;; Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
;; Version: 6.9.
2
;; Version: 6.9.
3
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
(
defconst
pr-version
"6.9.
2
"
"printing.el, v 6.9.
2 <2007/10/26
vinicius>
(
defconst
pr-version
"6.9.
3
"
"printing.el, v 6.9.
3 <2007/12/09
vinicius>
Please send all bug fixes and enhancements to
Vinicius Jose Latorre <viniciusjl@ig.com.br>
...
...
@@ -1118,8 +1118,8 @@ If SUFFIX is non-nil, add that at the end of the file name."
(
defalias
'pr-region-active-p
'ignore
)
(
defalias
'pr-do-update-menus
'ignore
)
(
defalias
'pr-update-mode-line
'ignore
)
(
defalias
'pr-
f-read-string
'ignore
)
(
defalias
'pr-
f-set-keymap-parents
'ignore
)
(
defalias
'pr-
read-string
'ignore
)
(
defalias
'pr-
set-keymap-parents
'ignore
)
(
defalias
'pr-keep-region-active
'ignore
))
...
...
@@ -1154,11 +1154,11 @@ Used by `pr-menu-bind' and `pr-update-menus'.")
(
cond
((
featurep
'xemacs
)
; XEmacs
;; XEmacs
(
defalias
'pr-
f-
set-keymap-parents
'set-keymap-parents
)
(
defalias
'pr-
f-
set-keymap-name
'set-keymap-name
)
(
defalias
'pr-set-keymap-parents
'set-keymap-parents
)
(
defalias
'pr-set-keymap-name
'set-keymap-name
)
;; XEmacs
(
defun
pr-
f-
read-string
(
prompt
initial
history
default
)
(
defun
pr-read-string
(
prompt
initial
history
default
)
(
let
((
str
(
read-string
prompt
initial
)))
(
if
(
and
str
(
not
(
string=
str
""
)))
str
...
...
@@ -1353,9 +1353,9 @@ Used by `pr-menu-bind' and `pr-update-menus'.")
)
(
t
; GNU Emacs
;; GNU Emacs
(
defalias
'pr-
f-
set-keymap-parents
'set-keymap-parent
)
(
defalias
'pr-
f-
set-keymap-name
'ignore
)
(
defalias
'pr-
f-
read-string
'read-string
)
(
defalias
'pr-set-keymap-parents
'set-keymap-parent
)
(
defalias
'pr-set-keymap-name
'ignore
)
(
defalias
'pr-read-string
'read-string
)
;; GNU Emacs
(
defvar
deactivate-mark
)
...
...
@@ -1451,7 +1451,7 @@ Used by `pr-menu-bind' and `pr-update-menus'.")
)))
(
defvar
pr-menu-position
nil
)
(
defvar
pr-menu-state
nil
)
(
defvar
pr-menu-state
nil
)
;; GNU Emacs
(
defun
pr-menu-lookup
(
path
)
...
...
@@ -5719,7 +5719,7 @@ If menu binding was not done, calls `pr-menu-bind'."
(
save-match-data
(
let*
((
fmt-prompt
"%s[%s] N-up printing (default 1): "
)
(
prompt
""
)
(
str
(
pr-
f-
read-string
(
format
fmt-prompt
prompt
mess
)
"1"
nil
"1"
))
(
str
(
pr-read-string
(
format
fmt-prompt
prompt
mess
)
"1"
nil
"1"
))
int
)
(
while
(
if
(
string-match
"^\\s *[0-9]+$"
str
)
(
setq
int
(
string-to-number
str
)
...
...
@@ -5729,7 +5729,7 @@ If menu binding was not done, calls `pr-menu-bind'."
(
setq
prompt
"Invalid integer syntax; "
))
(
ding
)
(
setq
str
(
pr-
f-
read-string
(
format
fmt-prompt
prompt
mess
)
str
nil
"1"
)))
(
pr-read-string
(
format
fmt-prompt
prompt
mess
)
str
nil
"1"
)))
int
)))
...
...
@@ -5754,7 +5754,7 @@ If menu binding was not done, calls `pr-menu-bind'."
(
defun
pr-interactive-regexp
(
mess
)
(
pr-
f-
read-string
(
format
"[%s] File regexp to print: "
mess
)
""
nil
""
))
(
pr-read-string
(
format
"[%s] File regexp to print: "
mess
)
""
nil
""
))
(
defun
pr-interactive-dir-args
(
mess
)
...
...
@@ -6038,14 +6038,15 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
"Keymap for pr-interface."
)
(
unless
pr-interface-map
(
setq
pr-interface-map
(
make-sparse-keymap
))
(
cond
((
featurep
'xemacs
)
; XEmacs
(
pr-f-set-keymap-parents
pr-interface-map
(
list
widget-keymap
))
(
pr-f-set-keymap-name
pr-interface-map
'pr-interface-map
))
(
t
; GNU Emacs
(
pr-f-set-keymap-parents
pr-interface-map
widget-keymap
)))
(
define-key
pr-interface-map
"q"
'pr-interface-quit
)
(
define-key
pr-interface-map
"?"
'pr-interface-help
))
(
let
((
map
(
make-sparse-keymap
)))
(
cond
((
featurep
'xemacs
)
; XEmacs
(
pr-set-keymap-parents
map
(
list
widget-keymap
))
(
pr-set-keymap-name
map
'pr-interface-map
))
(
t
; GNU Emacs
(
pr-set-keymap-parents
map
widget-keymap
)))
(
define-key
map
"q"
'pr-interface-quit
)
(
define-key
map
"?"
'pr-interface-help
)
(
setq
pr-interface-map
map
)))
(
defmacro
pr-interface-save
(
&rest
body
)
...
...
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